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