mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 05:17:49 +00:00
9ee89d6ff4
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
990 lines
38 KiB
QBasic
990 lines
38 KiB
QBasic
' Release: MINI-CLOCK by Folker Fritz
|
||
' Version: 1.0 (1999-10-31)
|
||
' Status: 100% Freeware
|
||
' EMail: folker.fritz@gmx.de
|
||
' Homepage: http://www.quickbasic.6x.to
|
||
|
||
DECLARE SUB FELT (X%, Y%, XX%, YY%, FARBEN%)
|
||
DECLARE SUB KLPRINT (B$, B%, K%, G%, I%)
|
||
DECLARE SUB DATUM ()
|
||
DECLARE SUB FELD (A%, B%, AA%, BB%, C%)
|
||
SCREEN 12
|
||
WIDTH 80, 60
|
||
FELT 0, 0, 639, 479, 7
|
||
FELT 36, 78, 597, 154, 0
|
||
|
||
'CONST PI = 3.141592
|
||
DIM SHARED PI
|
||
PI = 3.141592
|
||
|
||
SCREEN 12
|
||
CIRCLE (320, 300), 85, 15
|
||
XCXX = VAL(MID$(TIME$, 7, 2))
|
||
XCXY = VAL(MID$(TIME$, 4, 2))
|
||
XCXZ = VAL(MID$(TIME$, 1, 2))
|
||
1.1
|
||
XCXB = PI * 2 / 12 - .0001
|
||
XCXD = PI * 2 / 60 - .0001
|
||
XCXE = PI * 2 / 60 - .0001
|
||
456
|
||
IF INKEY$ <> "" THEN END
|
||
IF XCXX <> VAL(MID$(TIME$, 7, 2)) THEN XCXX = VAL(MID$(TIME$, 7, 2)): GFF = 1 ELSE GFF = 0: GOTO 456
|
||
IF XCXY <> VAL(MID$(TIME$, 4, 2)) THEN XCXY = VAL(MID$(TIME$, 4, 2)): GFG = 1 ELSE GFG = 0
|
||
IF XCXZ <> VAL(MID$(TIME$, 1, 2)) THEN XCXZ = VAL(MID$(TIME$, 1, 2)): GFH = 1 ELSE GFH = 0
|
||
XCXC = VAL(MID$(TIME$, 1, 2))
|
||
XCXF = VAL(MID$(TIME$, 4, 2))
|
||
XCXG = VAL(MID$(TIME$, 7, 2))
|
||
IF XCXC > 12 THEN XCXC = XCXC - 12
|
||
IF XCXC < 4 THEN XCXC = XCXC + 12
|
||
IF XCXC > 3 THEN XCXC = XCXC - 3
|
||
IF XCXF < 16 THEN XCXF = XCXF + 60
|
||
IF XCXF > 15 THEN XCXF = XCXF - 15
|
||
IF XCXG < 16 THEN XCXG = XCXG + 60
|
||
IF XCXG > 15 THEN XCXG = XCXG - 15
|
||
IF GFF = 1 THEN CIRCLE (320, 300), 80, 7, -2 * PI + XCXII, -2 * PI + XCXII: GFF = 1: XCXX = VAL(MID$(TIME$, 7, 2))
|
||
IF GFG = 1 THEN CIRCLE (320, 300), 60, 7, -2 * PI + XCXHH, -2 * PI + XCXHH: GFG = 0: XCXY = VAL(MID$(TIME$, 4, 2))
|
||
IF GFH = 1 THEN CIRCLE (320, 300), 40, 7, -2 * PI + XCXAA, -2 * PI + XCXAA: GFH = 1: XCXZ = VAL(MID$(TIME$, 1, 2))
|
||
XCXA = XCXB * XCXC
|
||
XCXH = XCXD * XCXF
|
||
XCXI = XCXE * XCXG
|
||
XCXAA = XCXA
|
||
XCXHH = XCXH
|
||
XCXII = XCXI
|
||
CIRCLE (320, 300), 40, 15, -2 * PI + XCXA, -2 * PI + XCXA
|
||
CIRCLE (320, 300), 60, 12, -2 * PI + XCXH, -2 * PI + XCXH
|
||
CIRCLE (320, 300), 80, 8, -2 * PI + XCXI, -2 * PI + XCXI
|
||
IF TEMPTIME$ <> TIME$ THEN TEMPTIME$ = TIME$: DATUM
|
||
KLPRINT MID$(DATE$, 4, 2) + ".", 18, 576, 10, 4
|
||
KLPRINT MID$(DATE$, 1, 2) + ".", 18, 594, 10, 4
|
||
KLPRINT MID$(DATE$, 7, 4), 18, 611, 10, 4
|
||
KLPRINT "MINI-CLOCK Version 1.00", 18, 242, 0, 4
|
||
KLPRINT "12", 219, 314, 0, 15
|
||
KLPRINT "3", 310, 409, 0, 15
|
||
KLPRINT "9", 310, 227, 0, 15
|
||
KLPRINT "6", 403, 317, 0, 15
|
||
KLPRINT "1", 231, 364, 0, 15
|
||
KLPRINT "2", 265, 398, 0, 15
|
||
KLPRINT "11", 231, 266, 0, 15
|
||
KLPRINT "10", 265, 233, 0, 15
|
||
KLPRINT "4", 357, 397, 0, 15
|
||
KLPRINT "5", 391, 365, 0, 15
|
||
KLPRINT "8", 357, 239, 0, 15
|
||
KLPRINT "7", 390, 271, 0, 15
|
||
COLOR 15
|
||
A = -1
|
||
B = -1
|
||
C = -1
|
||
D = -1
|
||
E = -1
|
||
F = -1
|
||
LOCATE 14, 27: PRINT "<22><>"
|
||
LOCATE 16, 27: PRINT "<22><>"
|
||
LOCATE 14, 51: PRINT "<22><>"
|
||
LOCATE 16, 51: PRINT "<22><>"
|
||
20
|
||
IF A <> VAL(MID$(TIME$, 1, 1)) THEN A = VAL(MID$(TIME$, 1, 1)): GOTO 2 ELSE GOTO 1
|
||
2
|
||
SELECT CASE A
|
||
CASE 0:
|
||
LOCATE 12, 7: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 7: PRINT "<22><> <20><>"
|
||
LOCATE 14, 7: PRINT "<22><> <20><>"
|
||
LOCATE 15, 7: PRINT "<22><> <20><>"
|
||
LOCATE 16, 7: PRINT "<22><> <20><>"
|
||
LOCATE 17, 7: PRINT "<22><> <20><>"
|
||
LOCATE 18, 7: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 1
|
||
LOCATE 12, 7: PRINT " <20><>"
|
||
LOCATE 13, 7: PRINT " <20><>"
|
||
LOCATE 14, 7: PRINT " <20><>"
|
||
LOCATE 15, 7: PRINT " <20><>"
|
||
LOCATE 16, 7: PRINT " <20><>"
|
||
LOCATE 17, 7: PRINT " <20><>"
|
||
LOCATE 18, 7: PRINT " <20><>"
|
||
CASE 2:
|
||
LOCATE 12, 7: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 7: PRINT " <20><>"
|
||
LOCATE 14, 7: PRINT " <20><>"
|
||
LOCATE 15, 7: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 7: PRINT "<22><> "
|
||
LOCATE 17, 7: PRINT "<22><> "
|
||
LOCATE 18, 7: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
END SELECT
|
||
1
|
||
IF B <> VAL(MID$(TIME$, 2, 1)) THEN B = VAL(MID$(TIME$, 2, 1)): GOTO 4 ELSE GOTO 3
|
||
4
|
||
SELECT CASE B
|
||
CASE 0:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT "<22><> <20><>"
|
||
LOCATE 14, 17: PRINT "<22><> <20><>"
|
||
LOCATE 15, 17: PRINT "<22><> <20><>"
|
||
LOCATE 16, 17: PRINT "<22><> <20><>"
|
||
LOCATE 17, 17: PRINT "<22><> <20><>"
|
||
LOCATE 18, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 1
|
||
LOCATE 12, 17: PRINT " <20><>"
|
||
LOCATE 13, 17: PRINT " <20><>"
|
||
LOCATE 14, 17: PRINT " <20><>"
|
||
LOCATE 15, 17: PRINT " <20><>"
|
||
LOCATE 16, 17: PRINT " <20><>"
|
||
LOCATE 17, 17: PRINT " <20><>"
|
||
LOCATE 18, 17: PRINT " <20><>"
|
||
CASE 2:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT " <20><>"
|
||
LOCATE 14, 17: PRINT " <20><>"
|
||
LOCATE 15, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 17: PRINT "<22><> "
|
||
LOCATE 17, 17: PRINT "<22><> "
|
||
LOCATE 18, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 3:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT " <20><>"
|
||
LOCATE 14, 17: PRINT " <20><>"
|
||
LOCATE 15, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 17: PRINT " <20><>"
|
||
LOCATE 17, 17: PRINT " <20><>"
|
||
LOCATE 18, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 4:
|
||
LOCATE 12, 17: PRINT "<22><> <20><>"
|
||
LOCATE 13, 17: PRINT "<22><> <20><>"
|
||
LOCATE 14, 17: PRINT "<22><> <20><>"
|
||
LOCATE 15, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 17: PRINT " <20><>"
|
||
LOCATE 17, 17: PRINT " <20><>"
|
||
LOCATE 18, 17: PRINT " <20><>"
|
||
CASE 5:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT "<22><> "
|
||
LOCATE 14, 17: PRINT "<22><> "
|
||
LOCATE 15, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 17: PRINT " <20><>"
|
||
LOCATE 17, 17: PRINT " <20><>"
|
||
LOCATE 18, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 6:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT "<22><> "
|
||
LOCATE 14, 17: PRINT "<22><> "
|
||
LOCATE 15, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 17: PRINT "<22><> <20><>"
|
||
LOCATE 17, 17: PRINT "<22><> <20><>"
|
||
LOCATE 18, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 7:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT " <20><>"
|
||
LOCATE 14, 17: PRINT " <20><>"
|
||
LOCATE 15, 17: PRINT " <20><>"
|
||
LOCATE 16, 17: PRINT " <20><>"
|
||
LOCATE 17, 17: PRINT " <20><>"
|
||
LOCATE 18, 17: PRINT " <20><>"
|
||
CASE 8:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT "<22><> <20><>"
|
||
LOCATE 14, 17: PRINT "<22><> <20><>"
|
||
LOCATE 15, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 17: PRINT "<22><> <20><>"
|
||
LOCATE 17, 17: PRINT "<22><> <20><>"
|
||
LOCATE 18, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 9:
|
||
LOCATE 12, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 17: PRINT "<22><> <20><>"
|
||
LOCATE 14, 17: PRINT "<22><> <20><>"
|
||
LOCATE 15, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 17: PRINT " <20><>"
|
||
LOCATE 17, 17: PRINT " <20><>"
|
||
LOCATE 18, 17: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
END SELECT
|
||
3
|
||
IF C <> VAL(MID$(TIME$, 4, 1)) THEN C = VAL(MID$(TIME$, 4, 1)): GOTO 6 ELSE GOTO 5
|
||
6
|
||
SELECT CASE C
|
||
CASE 0:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT "<22><> <20><>"
|
||
LOCATE 14, 31: PRINT "<22><> <20><>"
|
||
LOCATE 15, 31: PRINT "<22><> <20><>"
|
||
LOCATE 16, 31: PRINT "<22><> <20><>"
|
||
LOCATE 17, 31: PRINT "<22><> <20><>"
|
||
LOCATE 18, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 1
|
||
LOCATE 12, 31: PRINT " <20><>"
|
||
LOCATE 13, 31: PRINT " <20><>"
|
||
LOCATE 14, 31: PRINT " <20><>"
|
||
LOCATE 15, 31: PRINT " <20><>"
|
||
LOCATE 16, 31: PRINT " <20><>"
|
||
LOCATE 17, 31: PRINT " <20><>"
|
||
LOCATE 18, 31: PRINT " <20><>"
|
||
CASE 2:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT " <20><>"
|
||
LOCATE 14, 31: PRINT " <20><>"
|
||
LOCATE 15, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 31: PRINT "<22><> "
|
||
LOCATE 17, 31: PRINT "<22><> "
|
||
LOCATE 18, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 3:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT " <20><>"
|
||
LOCATE 14, 31: PRINT " <20><>"
|
||
LOCATE 15, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 31: PRINT " <20><>"
|
||
LOCATE 17, 31: PRINT " <20><>"
|
||
LOCATE 18, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 4:
|
||
LOCATE 12, 31: PRINT "<22><> <20><>"
|
||
LOCATE 13, 31: PRINT "<22><> <20><>"
|
||
LOCATE 14, 31: PRINT "<22><> <20><>"
|
||
LOCATE 15, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 31: PRINT " <20><>"
|
||
LOCATE 17, 31: PRINT " <20><>"
|
||
LOCATE 18, 31: PRINT " <20><>"
|
||
CASE 5:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT "<22><> "
|
||
LOCATE 14, 31: PRINT "<22><> "
|
||
LOCATE 15, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 31: PRINT " <20><>"
|
||
LOCATE 17, 31: PRINT " <20><>"
|
||
LOCATE 18, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 6:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT "<22><> "
|
||
LOCATE 14, 31: PRINT "<22><> "
|
||
LOCATE 15, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 31: PRINT "<22><> <20><>"
|
||
LOCATE 17, 31: PRINT "<22><> <20><>"
|
||
LOCATE 18, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 7:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT " <20><>"
|
||
LOCATE 14, 31: PRINT " <20><>"
|
||
LOCATE 15, 31: PRINT " <20><>"
|
||
LOCATE 16, 31: PRINT " <20><>"
|
||
LOCATE 17, 31: PRINT " <20><>"
|
||
LOCATE 18, 31: PRINT " <20><>"
|
||
CASE 8:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT "<22><> <20><>"
|
||
LOCATE 14, 31: PRINT "<22><> <20><>"
|
||
LOCATE 15, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 31: PRINT "<22><> <20><>"
|
||
LOCATE 17, 31: PRINT "<22><> <20><>"
|
||
LOCATE 18, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 9:
|
||
LOCATE 12, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 31: PRINT "<22><> <20><>"
|
||
LOCATE 14, 31: PRINT "<22><> <20><>"
|
||
LOCATE 15, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 31: PRINT " <20><>"
|
||
LOCATE 17, 31: PRINT " <20><>"
|
||
LOCATE 18, 31: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
END SELECT
|
||
5
|
||
IF D <> VAL(MID$(TIME$, 5, 1)) THEN D = VAL(MID$(TIME$, 5, 1)): GOTO 8 ELSE GOTO 7
|
||
8
|
||
SELECT CASE D
|
||
CASE 0:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT "<22><> <20><>"
|
||
LOCATE 14, 41: PRINT "<22><> <20><>"
|
||
LOCATE 15, 41: PRINT "<22><> <20><>"
|
||
LOCATE 16, 41: PRINT "<22><> <20><>"
|
||
LOCATE 17, 41: PRINT "<22><> <20><>"
|
||
LOCATE 18, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 1
|
||
LOCATE 12, 41: PRINT " <20><>"
|
||
LOCATE 13, 41: PRINT " <20><>"
|
||
LOCATE 14, 41: PRINT " <20><>"
|
||
LOCATE 15, 41: PRINT " <20><>"
|
||
LOCATE 16, 41: PRINT " <20><>"
|
||
LOCATE 17, 41: PRINT " <20><>"
|
||
LOCATE 18, 41: PRINT " <20><>"
|
||
CASE 2:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT " <20><>"
|
||
LOCATE 14, 41: PRINT " <20><>"
|
||
LOCATE 15, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 41: PRINT "<22><> "
|
||
LOCATE 17, 41: PRINT "<22><> "
|
||
LOCATE 18, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 3:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT " <20><>"
|
||
LOCATE 14, 41: PRINT " <20><>"
|
||
LOCATE 15, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 41: PRINT " <20><>"
|
||
LOCATE 17, 41: PRINT " <20><>"
|
||
LOCATE 18, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 4:
|
||
LOCATE 12, 41: PRINT "<22><> <20><>"
|
||
LOCATE 13, 41: PRINT "<22><> <20><>"
|
||
LOCATE 14, 41: PRINT "<22><> <20><>"
|
||
LOCATE 15, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 41: PRINT " <20><>"
|
||
LOCATE 17, 41: PRINT " <20><>"
|
||
LOCATE 18, 41: PRINT " <20><>"
|
||
CASE 5:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT "<22><> "
|
||
LOCATE 14, 41: PRINT "<22><> "
|
||
LOCATE 15, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 41: PRINT " <20><>"
|
||
LOCATE 17, 41: PRINT " <20><>"
|
||
LOCATE 18, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 6:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT "<22><> "
|
||
LOCATE 14, 41: PRINT "<22><> "
|
||
LOCATE 15, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 41: PRINT "<22><> <20><>"
|
||
LOCATE 17, 41: PRINT "<22><> <20><>"
|
||
LOCATE 18, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 7:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT " <20><>"
|
||
LOCATE 14, 41: PRINT " <20><>"
|
||
LOCATE 15, 41: PRINT " <20><>"
|
||
LOCATE 16, 41: PRINT " <20><>"
|
||
LOCATE 17, 41: PRINT " <20><>"
|
||
LOCATE 18, 41: PRINT " <20><>"
|
||
CASE 8:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT "<22><> <20><>"
|
||
LOCATE 14, 41: PRINT "<22><> <20><>"
|
||
LOCATE 15, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 41: PRINT "<22><> <20><>"
|
||
LOCATE 17, 41: PRINT "<22><> <20><>"
|
||
LOCATE 18, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 9:
|
||
LOCATE 12, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 41: PRINT "<22><> <20><>"
|
||
LOCATE 14, 41: PRINT "<22><> <20><>"
|
||
LOCATE 15, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 41: PRINT " <20><>"
|
||
LOCATE 17, 41: PRINT " <20><>"
|
||
LOCATE 18, 41: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
END SELECT
|
||
7
|
||
IF E <> VAL(MID$(TIME$, 7, 1)) THEN E = VAL(MID$(TIME$, 7, 1)): GOTO 10 ELSE GOTO 9
|
||
10
|
||
SELECT CASE E
|
||
CASE 0:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT "<22><> <20><>"
|
||
LOCATE 14, 55: PRINT "<22><> <20><>"
|
||
LOCATE 15, 55: PRINT "<22><> <20><>"
|
||
LOCATE 16, 55: PRINT "<22><> <20><>"
|
||
LOCATE 17, 55: PRINT "<22><> <20><>"
|
||
LOCATE 18, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 1
|
||
LOCATE 12, 55: PRINT " <20><>"
|
||
LOCATE 13, 55: PRINT " <20><>"
|
||
LOCATE 14, 55: PRINT " <20><>"
|
||
LOCATE 15, 55: PRINT " <20><>"
|
||
LOCATE 16, 55: PRINT " <20><>"
|
||
LOCATE 17, 55: PRINT " <20><>"
|
||
LOCATE 18, 55: PRINT " <20><>"
|
||
CASE 2:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT " <20><>"
|
||
LOCATE 14, 55: PRINT " <20><>"
|
||
LOCATE 15, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 55: PRINT "<22><> "
|
||
LOCATE 17, 55: PRINT "<22><> "
|
||
LOCATE 18, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 3:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT " <20><>"
|
||
LOCATE 14, 55: PRINT " <20><>"
|
||
LOCATE 15, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 55: PRINT " <20><>"
|
||
LOCATE 17, 55: PRINT " <20><>"
|
||
LOCATE 18, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 4:
|
||
LOCATE 12, 55: PRINT "<22><> <20><>"
|
||
LOCATE 13, 55: PRINT "<22><> <20><>"
|
||
LOCATE 14, 55: PRINT "<22><> <20><>"
|
||
LOCATE 15, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 55: PRINT " <20><>"
|
||
LOCATE 17, 55: PRINT " <20><>"
|
||
LOCATE 18, 55: PRINT " <20><>"
|
||
CASE 5:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT "<22><> "
|
||
LOCATE 14, 55: PRINT "<22><> "
|
||
LOCATE 15, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 55: PRINT " <20><>"
|
||
LOCATE 17, 55: PRINT " <20><>"
|
||
LOCATE 18, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 6:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT "<22><> "
|
||
LOCATE 14, 55: PRINT "<22><> "
|
||
LOCATE 15, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 55: PRINT "<22><> <20><>"
|
||
LOCATE 17, 55: PRINT "<22><> <20><>"
|
||
LOCATE 18, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 7:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT " <20><>"
|
||
LOCATE 14, 55: PRINT " <20><>"
|
||
LOCATE 15, 55: PRINT " <20><>"
|
||
LOCATE 16, 55: PRINT " <20><>"
|
||
LOCATE 17, 55: PRINT " <20><>"
|
||
LOCATE 18, 55: PRINT " <20><>"
|
||
CASE 8:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT "<22><> <20><>"
|
||
LOCATE 14, 55: PRINT "<22><> <20><>"
|
||
LOCATE 15, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 55: PRINT "<22><> <20><>"
|
||
LOCATE 17, 55: PRINT "<22><> <20><>"
|
||
LOCATE 18, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 9:
|
||
LOCATE 12, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 55: PRINT "<22><> <20><>"
|
||
LOCATE 14, 55: PRINT "<22><> <20><>"
|
||
LOCATE 15, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 55: PRINT " <20><>"
|
||
LOCATE 17, 55: PRINT " <20><>"
|
||
LOCATE 18, 55: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
END SELECT
|
||
9
|
||
IF F <> VAL(MID$(TIME$, 8, 1)) THEN F = VAL(MID$(TIME$, 8, 1)): GOTO 12 ELSE GOTO 1.1
|
||
12
|
||
SELECT CASE F
|
||
CASE 0:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT "<22><> <20><>"
|
||
LOCATE 14, 65: PRINT "<22><> <20><>"
|
||
LOCATE 15, 65: PRINT "<22><> <20><>"
|
||
LOCATE 16, 65: PRINT "<22><> <20><>"
|
||
LOCATE 17, 65: PRINT "<22><> <20><>"
|
||
LOCATE 18, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 1:
|
||
LOCATE 12, 65: PRINT " <20><>"
|
||
LOCATE 13, 65: PRINT " <20><>"
|
||
LOCATE 14, 65: PRINT " <20><>"
|
||
LOCATE 15, 65: PRINT " <20><>"
|
||
LOCATE 16, 65: PRINT " <20><>"
|
||
LOCATE 17, 65: PRINT " <20><>"
|
||
LOCATE 18, 65: PRINT " <20><>"
|
||
CASE 2:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT " <20><>"
|
||
LOCATE 14, 65: PRINT " <20><>"
|
||
LOCATE 15, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 65: PRINT "<22><> "
|
||
LOCATE 17, 65: PRINT "<22><> "
|
||
LOCATE 18, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 3:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT " <20><>"
|
||
LOCATE 14, 65: PRINT " <20><>"
|
||
LOCATE 15, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 65: PRINT " <20><>"
|
||
LOCATE 17, 65: PRINT " <20><>"
|
||
LOCATE 18, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 4:
|
||
LOCATE 12, 65: PRINT "<22><> <20><>"
|
||
LOCATE 13, 65: PRINT "<22><> <20><>"
|
||
LOCATE 14, 65: PRINT "<22><> <20><>"
|
||
LOCATE 15, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 65: PRINT " <20><>"
|
||
LOCATE 17, 65: PRINT " <20><>"
|
||
LOCATE 18, 65: PRINT " <20><>"
|
||
CASE 5:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT "<22><> "
|
||
LOCATE 14, 65: PRINT "<22><> "
|
||
LOCATE 15, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 65: PRINT " <20><>"
|
||
LOCATE 17, 65: PRINT " <20><>"
|
||
LOCATE 18, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 6:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT "<22><> "
|
||
LOCATE 14, 65: PRINT "<22><> "
|
||
LOCATE 15, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 65: PRINT "<22><> <20><>"
|
||
LOCATE 17, 65: PRINT "<22><> <20><>"
|
||
LOCATE 18, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 7:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT " <20><>"
|
||
LOCATE 14, 65: PRINT " <20><>"
|
||
LOCATE 15, 65: PRINT " <20><>"
|
||
LOCATE 16, 65: PRINT " <20><>"
|
||
LOCATE 17, 65: PRINT " <20><>"
|
||
LOCATE 18, 65: PRINT " <20><>"
|
||
CASE 8:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT "<22><> <20><>"
|
||
LOCATE 14, 65: PRINT "<22><> <20><>"
|
||
LOCATE 15, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 65: PRINT "<22><> <20><>"
|
||
LOCATE 17, 65: PRINT "<22><> <20><>"
|
||
LOCATE 18, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
CASE 9:
|
||
LOCATE 12, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 13, 65: PRINT "<22><> <20><>"
|
||
LOCATE 14, 65: PRINT "<22><> <20><>"
|
||
LOCATE 15, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
LOCATE 16, 65: PRINT " <20><>"
|
||
LOCATE 17, 65: PRINT " <20><>"
|
||
LOCATE 18, 65: PRINT "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
END SELECT
|
||
GOTO 1.1
|
||
|
||
DEFINT A-Z
|
||
SUB DATUM
|
||
KLPRINT TIME$, 18, 5, 10, 4
|
||
IF MID$(TIME$, 1, 2) <> "00" THEN GOTO 3.1
|
||
IF MID$(TIME$, 4, 2) <> "00" THEN GOTO 3.1
|
||
IF MID$(TIME$, 7, 2) <> "00" THEN GOTO 3.1
|
||
KLPRINT MID$(DATE$, 4, 2) + ".", 18, 576, 10, 4
|
||
KLPRINT MID$(DATE$, 1, 2) + ".", 18, 594, 10, 4
|
||
KLPRINT MID$(DATE$, 7, 4), 18, 611, 10, 4
|
||
3.1 END SUB
|
||
|
||
SUB FELT (X, Y, XX, YY, FARBEN)
|
||
LINE (X, Y)-(X, YY), 15
|
||
LINE (X, Y)-(XX, Y), 15
|
||
LINE (X, YY)-(XX, YY), 8
|
||
LINE (XX, Y)-(XX, YY), 8
|
||
VIEW (X + 2, Y + 2)-(XX - 2, YY - 2), FARBEN, FARBEN
|
||
VIEW (0, 0)-(639, 479)
|
||
END SUB
|
||
|
||
SUB KLPRINT (B$, B, K, G, I)
|
||
C = LEN(B$)
|
||
B$ = UCASE$(B$)
|
||
D = K - 6
|
||
E = B - 14
|
||
IF G <> 10 THEN E = E - G
|
||
7.1 : F = F + 1
|
||
H = F * 6
|
||
IF F = C + 1 THEN GOTO 198
|
||
IF G = 10 THEN
|
||
VIEW (D + H, E)-(D + H + 4, E + 6), 7, 7
|
||
VIEW (0, 0)-(639, 479)
|
||
END IF
|
||
IF MID$(B$, F, 1) = " " THEN
|
||
GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "A" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "B" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "C" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I
|
||
PSET (D + H, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "D" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "E" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H, E + 4), I
|
||
PSET (D + H, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "F" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I
|
||
PSET (D + H, E + 4), I
|
||
PSET (D + H, E + 5), I
|
||
PSET (D + H, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "G" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "H" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "I" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H + 2, E + 1), I
|
||
PSET (D + H + 2, E + 2), I
|
||
PSET (D + H + 2, E + 3), I
|
||
PSET (D + H + 2, E + 4), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "J" THEN
|
||
PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H + 3, E + 1), I
|
||
PSET (D + H + 3, E + 2), I
|
||
PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 3, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "K" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 3, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "L" THEN
|
||
PSET (D + H, E + 0), I
|
||
PSET (D + H, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I
|
||
PSET (D + H, E + 4), I
|
||
PSET (D + H, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "M" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 1, E + 1), I: PSET (D + H + 3, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "N" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 1, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "O" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "P" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H, E + 4), I
|
||
PSET (D + H, E + 5), I
|
||
PSET (D + H, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "Q" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "R" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "S" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 4, E + 4), I
|
||
PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "T" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H + 2, E + 1), I
|
||
PSET (D + H + 2, E + 2), I
|
||
PSET (D + H + 2, E + 3), I
|
||
PSET (D + H + 2, E + 4), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "U" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "V" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 1, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 1, E + 4), I: PSET (D + H + 3, E + 4), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "W" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 1, E + 5), I: PSET (D + H + 3, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "X" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H + 1, E + 2), I: PSET (D + H + 3, E + 2), I
|
||
PSET (D + H + 2, E + 3), I
|
||
PSET (D + H + 1, E + 4), I: PSET (D + H + 3, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "Y" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 1, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 2, E + 4), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "Z" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H + 3, E + 2), I
|
||
PSET (D + H + 2, E + 3), I
|
||
PSET (D + H + 1, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "." THEN
|
||
PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "," THEN
|
||
PSET (D + H + 1, E + 4), I: PSET (D + H + 2, E + 4), I
|
||
PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "&" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 3, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I
|
||
PSET (D + H + 1, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 3, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "(" THEN
|
||
PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H + 1, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I
|
||
PSET (D + H, E + 4), I
|
||
PSET (D + H + 1, E + 5), I
|
||
PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = ")" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I
|
||
PSET (D + H + 3, E + 1), I
|
||
PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 4, E + 3), I
|
||
PSET (D + H + 4, E + 4), I
|
||
PSET (D + H + 3, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "1" THEN
|
||
PSET (D + H + 3, E + 0), I
|
||
PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I
|
||
PSET (D + H + 1, E + 2), I: PSET (D + H + 3, E + 2), I
|
||
PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 3, E + 4), I
|
||
PSET (D + H + 3, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "2" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 2, E + 4), I
|
||
PSET (D + H + 1, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "3" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "4" THEN
|
||
PSET (D + H + 3, E + 0), I
|
||
PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I
|
||
PSET (D + H + 1, E + 2), I: PSET (D + H + 3, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H + 3, E + 4), I
|
||
PSET (D + H + 3, E + 5), I
|
||
PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "5" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 4, E + 4), I
|
||
PSET (D + H + 4, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "6" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "7" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H + 3, E + 2), I
|
||
PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 2, E + 4), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "8" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "9" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "0" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 3, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 1, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = ":" THEN
|
||
PSET (D + H + 1, E + 1), I: PSET (D + H + 2, E + 1), I
|
||
PSET (D + H + 1, E + 2), I: PSET (D + H + 2, E + 2), I
|
||
PSET (D + H + 1, E + 4), I: PSET (D + H + 2, E + 4), I
|
||
PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "-" THEN
|
||
PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I
|
||
PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "$" THEN
|
||
PSET (D + H + 2, E + 0), I
|
||
PSET (D + H + 1, E + 1), I: PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 2, E + 2), I
|
||
PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I
|
||
PSET (D + H + 2, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 1, E + 5), I: PSET (D + H + 2, E + 5), I: PSET (D + H + 3, E + 5), I
|
||
PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "*" THEN
|
||
PSET (D + H, E + 1), I: PSET (D + H + 2, E + 1), I: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H + 1, E + 2), I: PSET (D + H + 2, E + 2), I: PSET (D + H + 3, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), I: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H + 1, E + 4), I: PSET (D + H + 2, E + 4), I: PSET (D + H + 3, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 2, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
ELSEIF MID$(B$, F, 1) = "/" THEN
|
||
PSET (D + H + 4, E + 0), I
|
||
PSET (D + H + 3, E + 1), I
|
||
PSET (D + H + 3, E + 2), I
|
||
PSET (D + H + 2, E + 3), I
|
||
PSET (D + H + 1, E + 4), I
|
||
PSET (D + H + 1, E + 5), I
|
||
PSET (D + H, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "\" THEN
|
||
PSET (D + H, E + 0), I
|
||
PSET (D + H + 1, E + 1), I
|
||
PSET (D + H + 1, E + 2), I
|
||
PSET (D + H + 2, E + 3), I
|
||
PSET (D + H + 3, E + 4), I
|
||
PSET (D + H + 3, E + 5), I
|
||
PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "[" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I
|
||
PSET (D + H, E + 1), I
|
||
PSET (D + H, E + 2), I
|
||
PSET (D + H, E + 3), I
|
||
PSET (D + H, E + 4), I
|
||
PSET (D + H, E + 5), I
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "]" THEN
|
||
PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H + 4, E + 1), I
|
||
PSET (D + H + 4, E + 2), I
|
||
PSET (D + H + 4, E + 3), I
|
||
PSET (D + H + 4, E + 4), I
|
||
PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "_" THEN
|
||
PSET (D + H, E + 6), I: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "<22>" OR MID$(B$, F, 1) = "<22>" THEN
|
||
PSET (D + H, E + 0), I: PSET (D + H + 4, E + 0), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 4, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I
|
||
ELSEIF MID$(B$, F, 1) = "!" THEN
|
||
PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I
|
||
PSET (D + H + 1, E + 1), I: PSET (D + H + 2, E + 1), I: PSET (D + H + 3, E + 1), I
|
||
PSET (D + H + 2, E + 2), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 2, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = ">" THEN
|
||
PSET (D + H + 1, E + 0), I
|
||
PSET (D + H + 2, E + 1), I
|
||
PSET (D + H + 3, E + 2), I
|
||
PSET (D + H + 4, E + 3), I
|
||
PSET (D + H + 3, E + 4), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 1, E + 6), I: GOTO 123
|
||
ELSEIF MID$(B$, F, 1) = "@" THEN
|
||
PSET (D + H, E + 0), 7: PSET (D + H + 1, E + 0), I: PSET (D + H + 2, E + 0), I: PSET (D + H + 3, E + 0), I: PSET (D + H + 4, E + 0), 7
|
||
PSET (D + H, E + 1), I: PSET (D + H + 1, E + 1), 7: PSET (D + H + 2, E + 1), 7: PSET (D + H + 3, E + 1), 7: PSET (D + H + 4, E + 1), I
|
||
PSET (D + H, E + 2), I: PSET (D + H + 1, E + 2), 7: PSET (D + H + 2, E + 2), I: PSET (D + H + 3, E + 2), I: PSET (D + H + 4, E + 2), I
|
||
PSET (D + H, E + 3), I: PSET (D + H + 1, E + 3), 7: PSET (D + H + 2, E + 3), I: PSET (D + H + 3, E + 3), I: PSET (D + H + 4, E + 3), I
|
||
PSET (D + H, E + 4), I: PSET (D + H + 1, E + 4), 7: PSET (D + H + 2, E + 4), I: PSET (D + H + 3, E + 4), I: PSET (D + H + 4, E + 4), I
|
||
PSET (D + H, E + 5), I: PSET (D + H + 1, E + 5), 7: PSET (D + H + 2, E + 5), 7: PSET (D + H + 3, E + 5), 7: PSET (D + H + 4, E + 5), 7
|
||
PSET (D + H, E + 6), 7: PSET (D + H + 1, E + 6), I: PSET (D + H + 2, E + 6), I: PSET (D + H + 3, E + 6), I: PSET (D + H + 4, E + 6), 7
|
||
ELSEIF MID$(B$, F, 1) = "<" THEN
|
||
PSET (D + H + 3, E + 0), I
|
||
PSET (D + H + 2, E + 1), I
|
||
PSET (D + H + 1, E + 2), I
|
||
PSET (D + H, E + 3), I
|
||
PSET (D + H + 1, E + 4), I
|
||
PSET (D + H + 2, E + 5), I
|
||
PSET (D + H + 3, E + 6), I: GOTO 123
|
||
123 END IF
|
||
IF F - 1 < C THEN GOTO 7.1
|
||
198 END SUB
|
||
|