mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-31 15:50:17 +00:00
990 lines
39 KiB
QBasic
990 lines
39 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
|
||
|