' 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 "лл" LOCATE 16, 27: PRINT "лл" LOCATE 14, 51: PRINT "лл" LOCATE 16, 51: PRINT "лл" 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 "лллллллл" LOCATE 13, 7: PRINT "лл лл" LOCATE 14, 7: PRINT "лл лл" LOCATE 15, 7: PRINT "лл лл" LOCATE 16, 7: PRINT "лл лл" LOCATE 17, 7: PRINT "лл лл" LOCATE 18, 7: PRINT "лллллллл" CASE 1 LOCATE 12, 7: PRINT " лл" LOCATE 13, 7: PRINT " лл" LOCATE 14, 7: PRINT " лл" LOCATE 15, 7: PRINT " лл" LOCATE 16, 7: PRINT " лл" LOCATE 17, 7: PRINT " лл" LOCATE 18, 7: PRINT " лл" CASE 2: LOCATE 12, 7: PRINT "лллллллл" LOCATE 13, 7: PRINT " лл" LOCATE 14, 7: PRINT " лл" LOCATE 15, 7: PRINT "лллллллл" LOCATE 16, 7: PRINT "лл " LOCATE 17, 7: PRINT "лл " LOCATE 18, 7: PRINT "лллллллл" 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 "лллллллл" LOCATE 13, 17: PRINT "лл лл" LOCATE 14, 17: PRINT "лл лл" LOCATE 15, 17: PRINT "лл лл" LOCATE 16, 17: PRINT "лл лл" LOCATE 17, 17: PRINT "лл лл" LOCATE 18, 17: PRINT "лллллллл" CASE 1 LOCATE 12, 17: PRINT " лл" LOCATE 13, 17: PRINT " лл" LOCATE 14, 17: PRINT " лл" LOCATE 15, 17: PRINT " лл" LOCATE 16, 17: PRINT " лл" LOCATE 17, 17: PRINT " лл" LOCATE 18, 17: PRINT " лл" CASE 2: LOCATE 12, 17: PRINT "лллллллл" LOCATE 13, 17: PRINT " лл" LOCATE 14, 17: PRINT " лл" LOCATE 15, 17: PRINT "лллллллл" LOCATE 16, 17: PRINT "лл " LOCATE 17, 17: PRINT "лл " LOCATE 18, 17: PRINT "лллллллл" CASE 3: LOCATE 12, 17: PRINT "лллллллл" LOCATE 13, 17: PRINT " лл" LOCATE 14, 17: PRINT " лл" LOCATE 15, 17: PRINT "лллллллл" LOCATE 16, 17: PRINT " лл" LOCATE 17, 17: PRINT " лл" LOCATE 18, 17: PRINT "лллллллл" CASE 4: LOCATE 12, 17: PRINT "лл лл" LOCATE 13, 17: PRINT "лл лл" LOCATE 14, 17: PRINT "лл лл" LOCATE 15, 17: PRINT "лллллллл" LOCATE 16, 17: PRINT " лл" LOCATE 17, 17: PRINT " лл" LOCATE 18, 17: PRINT " лл" CASE 5: LOCATE 12, 17: PRINT "лллллллл" LOCATE 13, 17: PRINT "лл " LOCATE 14, 17: PRINT "лл " LOCATE 15, 17: PRINT "лллллллл" LOCATE 16, 17: PRINT " лл" LOCATE 17, 17: PRINT " лл" LOCATE 18, 17: PRINT "лллллллл" CASE 6: LOCATE 12, 17: PRINT "лллллллл" LOCATE 13, 17: PRINT "лл " LOCATE 14, 17: PRINT "лл " LOCATE 15, 17: PRINT "лллллллл" LOCATE 16, 17: PRINT "лл лл" LOCATE 17, 17: PRINT "лл лл" LOCATE 18, 17: PRINT "лллллллл" CASE 7: LOCATE 12, 17: PRINT "лллллллл" LOCATE 13, 17: PRINT " лл" LOCATE 14, 17: PRINT " лл" LOCATE 15, 17: PRINT " лл" LOCATE 16, 17: PRINT " лл" LOCATE 17, 17: PRINT " лл" LOCATE 18, 17: PRINT " лл" CASE 8: LOCATE 12, 17: PRINT "лллллллл" LOCATE 13, 17: PRINT "лл лл" LOCATE 14, 17: PRINT "лл лл" LOCATE 15, 17: PRINT "лллллллл" LOCATE 16, 17: PRINT "лл лл" LOCATE 17, 17: PRINT "лл лл" LOCATE 18, 17: PRINT "лллллллл" CASE 9: LOCATE 12, 17: PRINT "лллллллл" LOCATE 13, 17: PRINT "лл лл" LOCATE 14, 17: PRINT "лл лл" LOCATE 15, 17: PRINT "лллллллл" LOCATE 16, 17: PRINT " лл" LOCATE 17, 17: PRINT " лл" LOCATE 18, 17: PRINT "лллллллл" 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 "лллллллл" LOCATE 13, 31: PRINT "лл лл" LOCATE 14, 31: PRINT "лл лл" LOCATE 15, 31: PRINT "лл лл" LOCATE 16, 31: PRINT "лл лл" LOCATE 17, 31: PRINT "лл лл" LOCATE 18, 31: PRINT "лллллллл" CASE 1 LOCATE 12, 31: PRINT " лл" LOCATE 13, 31: PRINT " лл" LOCATE 14, 31: PRINT " лл" LOCATE 15, 31: PRINT " лл" LOCATE 16, 31: PRINT " лл" LOCATE 17, 31: PRINT " лл" LOCATE 18, 31: PRINT " лл" CASE 2: LOCATE 12, 31: PRINT "лллллллл" LOCATE 13, 31: PRINT " лл" LOCATE 14, 31: PRINT " лл" LOCATE 15, 31: PRINT "лллллллл" LOCATE 16, 31: PRINT "лл " LOCATE 17, 31: PRINT "лл " LOCATE 18, 31: PRINT "лллллллл" CASE 3: LOCATE 12, 31: PRINT "лллллллл" LOCATE 13, 31: PRINT " лл" LOCATE 14, 31: PRINT " лл" LOCATE 15, 31: PRINT "лллллллл" LOCATE 16, 31: PRINT " лл" LOCATE 17, 31: PRINT " лл" LOCATE 18, 31: PRINT "лллллллл" CASE 4: LOCATE 12, 31: PRINT "лл лл" LOCATE 13, 31: PRINT "лл лл" LOCATE 14, 31: PRINT "лл лл" LOCATE 15, 31: PRINT "лллллллл" LOCATE 16, 31: PRINT " лл" LOCATE 17, 31: PRINT " лл" LOCATE 18, 31: PRINT " лл" CASE 5: LOCATE 12, 31: PRINT "лллллллл" LOCATE 13, 31: PRINT "лл " LOCATE 14, 31: PRINT "лл " LOCATE 15, 31: PRINT "лллллллл" LOCATE 16, 31: PRINT " лл" LOCATE 17, 31: PRINT " лл" LOCATE 18, 31: PRINT "лллллллл" CASE 6: LOCATE 12, 31: PRINT "лллллллл" LOCATE 13, 31: PRINT "лл " LOCATE 14, 31: PRINT "лл " LOCATE 15, 31: PRINT "лллллллл" LOCATE 16, 31: PRINT "лл лл" LOCATE 17, 31: PRINT "лл лл" LOCATE 18, 31: PRINT "лллллллл" CASE 7: LOCATE 12, 31: PRINT "лллллллл" LOCATE 13, 31: PRINT " лл" LOCATE 14, 31: PRINT " лл" LOCATE 15, 31: PRINT " лл" LOCATE 16, 31: PRINT " лл" LOCATE 17, 31: PRINT " лл" LOCATE 18, 31: PRINT " лл" CASE 8: LOCATE 12, 31: PRINT "лллллллл" LOCATE 13, 31: PRINT "лл лл" LOCATE 14, 31: PRINT "лл лл" LOCATE 15, 31: PRINT "лллллллл" LOCATE 16, 31: PRINT "лл лл" LOCATE 17, 31: PRINT "лл лл" LOCATE 18, 31: PRINT "лллллллл" CASE 9: LOCATE 12, 31: PRINT "лллллллл" LOCATE 13, 31: PRINT "лл лл" LOCATE 14, 31: PRINT "лл лл" LOCATE 15, 31: PRINT "лллллллл" LOCATE 16, 31: PRINT " лл" LOCATE 17, 31: PRINT " лл" LOCATE 18, 31: PRINT "лллллллл" 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 "лллллллл" LOCATE 13, 41: PRINT "лл лл" LOCATE 14, 41: PRINT "лл лл" LOCATE 15, 41: PRINT "лл лл" LOCATE 16, 41: PRINT "лл лл" LOCATE 17, 41: PRINT "лл лл" LOCATE 18, 41: PRINT "лллллллл" CASE 1 LOCATE 12, 41: PRINT " лл" LOCATE 13, 41: PRINT " лл" LOCATE 14, 41: PRINT " лл" LOCATE 15, 41: PRINT " лл" LOCATE 16, 41: PRINT " лл" LOCATE 17, 41: PRINT " лл" LOCATE 18, 41: PRINT " лл" CASE 2: LOCATE 12, 41: PRINT "лллллллл" LOCATE 13, 41: PRINT " лл" LOCATE 14, 41: PRINT " лл" LOCATE 15, 41: PRINT "лллллллл" LOCATE 16, 41: PRINT "лл " LOCATE 17, 41: PRINT "лл " LOCATE 18, 41: PRINT "лллллллл" CASE 3: LOCATE 12, 41: PRINT "лллллллл" LOCATE 13, 41: PRINT " лл" LOCATE 14, 41: PRINT " лл" LOCATE 15, 41: PRINT "лллллллл" LOCATE 16, 41: PRINT " лл" LOCATE 17, 41: PRINT " лл" LOCATE 18, 41: PRINT "лллллллл" CASE 4: LOCATE 12, 41: PRINT "лл лл" LOCATE 13, 41: PRINT "лл лл" LOCATE 14, 41: PRINT "лл лл" LOCATE 15, 41: PRINT "лллллллл" LOCATE 16, 41: PRINT " лл" LOCATE 17, 41: PRINT " лл" LOCATE 18, 41: PRINT " лл" CASE 5: LOCATE 12, 41: PRINT "лллллллл" LOCATE 13, 41: PRINT "лл " LOCATE 14, 41: PRINT "лл " LOCATE 15, 41: PRINT "лллллллл" LOCATE 16, 41: PRINT " лл" LOCATE 17, 41: PRINT " лл" LOCATE 18, 41: PRINT "лллллллл" CASE 6: LOCATE 12, 41: PRINT "лллллллл" LOCATE 13, 41: PRINT "лл " LOCATE 14, 41: PRINT "лл " LOCATE 15, 41: PRINT "лллллллл" LOCATE 16, 41: PRINT "лл лл" LOCATE 17, 41: PRINT "лл лл" LOCATE 18, 41: PRINT "лллллллл" CASE 7: LOCATE 12, 41: PRINT "лллллллл" LOCATE 13, 41: PRINT " лл" LOCATE 14, 41: PRINT " лл" LOCATE 15, 41: PRINT " лл" LOCATE 16, 41: PRINT " лл" LOCATE 17, 41: PRINT " лл" LOCATE 18, 41: PRINT " лл" CASE 8: LOCATE 12, 41: PRINT "лллллллл" LOCATE 13, 41: PRINT "лл лл" LOCATE 14, 41: PRINT "лл лл" LOCATE 15, 41: PRINT "лллллллл" LOCATE 16, 41: PRINT "лл лл" LOCATE 17, 41: PRINT "лл лл" LOCATE 18, 41: PRINT "лллллллл" CASE 9: LOCATE 12, 41: PRINT "лллллллл" LOCATE 13, 41: PRINT "лл лл" LOCATE 14, 41: PRINT "лл лл" LOCATE 15, 41: PRINT "лллллллл" LOCATE 16, 41: PRINT " лл" LOCATE 17, 41: PRINT " лл" LOCATE 18, 41: PRINT "лллллллл" 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 "лллллллл" LOCATE 13, 55: PRINT "лл лл" LOCATE 14, 55: PRINT "лл лл" LOCATE 15, 55: PRINT "лл лл" LOCATE 16, 55: PRINT "лл лл" LOCATE 17, 55: PRINT "лл лл" LOCATE 18, 55: PRINT "лллллллл" CASE 1 LOCATE 12, 55: PRINT " лл" LOCATE 13, 55: PRINT " лл" LOCATE 14, 55: PRINT " лл" LOCATE 15, 55: PRINT " лл" LOCATE 16, 55: PRINT " лл" LOCATE 17, 55: PRINT " лл" LOCATE 18, 55: PRINT " лл" CASE 2: LOCATE 12, 55: PRINT "лллллллл" LOCATE 13, 55: PRINT " лл" LOCATE 14, 55: PRINT " лл" LOCATE 15, 55: PRINT "лллллллл" LOCATE 16, 55: PRINT "лл " LOCATE 17, 55: PRINT "лл " LOCATE 18, 55: PRINT "лллллллл" CASE 3: LOCATE 12, 55: PRINT "лллллллл" LOCATE 13, 55: PRINT " лл" LOCATE 14, 55: PRINT " лл" LOCATE 15, 55: PRINT "лллллллл" LOCATE 16, 55: PRINT " лл" LOCATE 17, 55: PRINT " лл" LOCATE 18, 55: PRINT "лллллллл" CASE 4: LOCATE 12, 55: PRINT "лл лл" LOCATE 13, 55: PRINT "лл лл" LOCATE 14, 55: PRINT "лл лл" LOCATE 15, 55: PRINT "лллллллл" LOCATE 16, 55: PRINT " лл" LOCATE 17, 55: PRINT " лл" LOCATE 18, 55: PRINT " лл" CASE 5: LOCATE 12, 55: PRINT "лллллллл" LOCATE 13, 55: PRINT "лл " LOCATE 14, 55: PRINT "лл " LOCATE 15, 55: PRINT "лллллллл" LOCATE 16, 55: PRINT " лл" LOCATE 17, 55: PRINT " лл" LOCATE 18, 55: PRINT "лллллллл" CASE 6: LOCATE 12, 55: PRINT "лллллллл" LOCATE 13, 55: PRINT "лл " LOCATE 14, 55: PRINT "лл " LOCATE 15, 55: PRINT "лллллллл" LOCATE 16, 55: PRINT "лл лл" LOCATE 17, 55: PRINT "лл лл" LOCATE 18, 55: PRINT "лллллллл" CASE 7: LOCATE 12, 55: PRINT "лллллллл" LOCATE 13, 55: PRINT " лл" LOCATE 14, 55: PRINT " лл" LOCATE 15, 55: PRINT " лл" LOCATE 16, 55: PRINT " лл" LOCATE 17, 55: PRINT " лл" LOCATE 18, 55: PRINT " лл" CASE 8: LOCATE 12, 55: PRINT "лллллллл" LOCATE 13, 55: PRINT "лл лл" LOCATE 14, 55: PRINT "лл лл" LOCATE 15, 55: PRINT "лллллллл" LOCATE 16, 55: PRINT "лл лл" LOCATE 17, 55: PRINT "лл лл" LOCATE 18, 55: PRINT "лллллллл" CASE 9: LOCATE 12, 55: PRINT "лллллллл" LOCATE 13, 55: PRINT "лл лл" LOCATE 14, 55: PRINT "лл лл" LOCATE 15, 55: PRINT "лллллллл" LOCATE 16, 55: PRINT " лл" LOCATE 17, 55: PRINT " лл" LOCATE 18, 55: PRINT "лллллллл" 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 "лллллллл" LOCATE 13, 65: PRINT "лл лл" LOCATE 14, 65: PRINT "лл лл" LOCATE 15, 65: PRINT "лл лл" LOCATE 16, 65: PRINT "лл лл" LOCATE 17, 65: PRINT "лл лл" LOCATE 18, 65: PRINT "лллллллл" CASE 1: LOCATE 12, 65: PRINT " лл" LOCATE 13, 65: PRINT " лл" LOCATE 14, 65: PRINT " лл" LOCATE 15, 65: PRINT " лл" LOCATE 16, 65: PRINT " лл" LOCATE 17, 65: PRINT " лл" LOCATE 18, 65: PRINT " лл" CASE 2: LOCATE 12, 65: PRINT "лллллллл" LOCATE 13, 65: PRINT " лл" LOCATE 14, 65: PRINT " лл" LOCATE 15, 65: PRINT "лллллллл" LOCATE 16, 65: PRINT "лл " LOCATE 17, 65: PRINT "лл " LOCATE 18, 65: PRINT "лллллллл" CASE 3: LOCATE 12, 65: PRINT "лллллллл" LOCATE 13, 65: PRINT " лл" LOCATE 14, 65: PRINT " лл" LOCATE 15, 65: PRINT "лллллллл" LOCATE 16, 65: PRINT " лл" LOCATE 17, 65: PRINT " лл" LOCATE 18, 65: PRINT "лллллллл" CASE 4: LOCATE 12, 65: PRINT "лл лл" LOCATE 13, 65: PRINT "лл лл" LOCATE 14, 65: PRINT "лл лл" LOCATE 15, 65: PRINT "лллллллл" LOCATE 16, 65: PRINT " лл" LOCATE 17, 65: PRINT " лл" LOCATE 18, 65: PRINT " лл" CASE 5: LOCATE 12, 65: PRINT "лллллллл" LOCATE 13, 65: PRINT "лл " LOCATE 14, 65: PRINT "лл " LOCATE 15, 65: PRINT "лллллллл" LOCATE 16, 65: PRINT " лл" LOCATE 17, 65: PRINT " лл" LOCATE 18, 65: PRINT "лллллллл" CASE 6: LOCATE 12, 65: PRINT "лллллллл" LOCATE 13, 65: PRINT "лл " LOCATE 14, 65: PRINT "лл " LOCATE 15, 65: PRINT "лллллллл" LOCATE 16, 65: PRINT "лл лл" LOCATE 17, 65: PRINT "лл лл" LOCATE 18, 65: PRINT "лллллллл" CASE 7: LOCATE 12, 65: PRINT "лллллллл" LOCATE 13, 65: PRINT " лл" LOCATE 14, 65: PRINT " лл" LOCATE 15, 65: PRINT " лл" LOCATE 16, 65: PRINT " лл" LOCATE 17, 65: PRINT " лл" LOCATE 18, 65: PRINT " лл" CASE 8: LOCATE 12, 65: PRINT "лллллллл" LOCATE 13, 65: PRINT "лл лл" LOCATE 14, 65: PRINT "лл лл" LOCATE 15, 65: PRINT "лллллллл" LOCATE 16, 65: PRINT "лл лл" LOCATE 17, 65: PRINT "лл лл" LOCATE 18, 65: PRINT "лллллллл" CASE 9: LOCATE 12, 65: PRINT "лллллллл" LOCATE 13, 65: PRINT "лл лл" LOCATE 14, 65: PRINT "лл лл" LOCATE 15, 65: PRINT "лллллллл" LOCATE 16, 65: PRINT " лл" LOCATE 17, 65: PRINT " лл" LOCATE 18, 65: PRINT "лллллллл" 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) = "š" OR MID$(B$, F, 1) = "" 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