QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 10:00:23 +00:00
Code Releases Wiki Activity
qb64/programs/samples/misc/mclock.bas

991 lines
39 KiB
QBasic
Raw Blame History

' 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
View git blame Copy permalink