ON ERROR GOTO fixit: DIM p(1560)
SCREEN 13: COLOR 255: DEF SEG = 40960: e = 6400: FOR a = 0 TO 63: p(a * 3) = a
p(a * 3 + 192) = 63 - a: p(a * 3 + 386) = a: p(a * 3 + 578) = 63 - a: NEXT
FOR a = 0 TO 767: p(a + 768) = p(a): NEXT: FOR a = 1 TO 13: READ c: PRINT CHR$(c);
NEXT: FOR a = 1556 TO 1537 STEP -1: READ p(a): NEXT: FOR a = 0 TO 7: FOR b = 0 TO 111
POKE b + a * 112 + e * 10, PEEK(b + a * 320): NEXT: NEXT: FOR a = 0 TO 63999
r3 = 0: r1 = (73 + 1911 * r2) MOD 65536: r2 = (13 + 26343 * r1) MOD 65536: READ r3
POKE a, (r1 MOD 254) XOR r3: NEXT: FOR d = 0 TO 1: FOR a = 0 TO 9: FOR y = 0 TO 7
FOR z = 0 TO 7: c = PEEK(z + y * 112 + p(d * 10 + a + 1537) * 8 + e * 10)
IF c > 0 THEN POKE z * 2 + y * 640 + d * e + a * 16 + 24080, 255
NEXT: NEXT: NEXT: NEXT: DEF SEG = 0: POKE 36, 0: POKE 37, 0: POKE 38, 0
POKE 39, e \ 40: DO: OUT 968, 1: FOR a = 0 TO 762: OUT 969, p(po + a): NEXT
FOR a = 0 TO 2: OUT 969, 63: NEXT: po = po + 3: IF po > 759 THEN po = 0
DO: LOOP WHILE t = TIMER: t = TIMER: LOOP WHILE INKEY$ <> CHR$(27): END
fixit: RESUME NEXT
DATA &H39,&H2E,&H32,&H30,&H45,&H35,&H31,&H37,&H33,&H38,&H34,&H4E,&H36,&H0A,&H03,&H02,&H01,&H08,&H03,&H0D
DATA &H09,&H06,&H04,&H03,&H09,&H02,&H01,&H06,&H02,&H0D,&H00,&H05,&H0B,&H19,&HF0,&HA2,&H89,&HE5,&HEB,&H0D
DATA &H8A,&HFF,&HCB,&H09,&H16,&HDE,&HA6,&HC5,&H39,&H07,&HFD,&HF5,&H07,&HC3,&H4E,&HB6,&H7E,&H25,&H72,&H36
DATA &H3A,&H43,&HE5,&H01,&HC4,&H0B,&H87,&HCA,&HB9,&H35,&H5D,&HAE,&H5A,&H8D,&H42,&HA1,&HEF,&H6C,&H09,&H4B
DATA &HC1,&H54,&HCA,&H24,&H20,&HEC,&H93,&H59,&HDB,&H54,&H1F,&HA9,&HDF,&H5F,&H84,&H34,&H8B,&HC3,&HEE,&H2D
DATA &H1F,&H72,&HFA,&HB7,&H4A,&H75,&H34,&HCF,&H08,&H25,&HEB,&HFE,&H1F,&H10,&H6D,&HA5,&H85,&H28,&HC9,&H53
DATA &H5B,&H84,&HD6,&HB7,&H3E,&H31,&HA6,&HFB,&HDF,&H09,&H7F,&HE5,&HF4,&HE9,&HC4,&H92,&H75,&H1A,&HF4,&H5E
DATA &H95,&HA3,&HAF,&H8B,&HC7,&H94,&HF5,&H57,&H65,&H51,&H2B,&H59,&H96,&H91,&H8A,&HE8,&H6A,&HFF,&H48,&H77
DATA &HE0,&H61,&H1E,&HF8,&H15,&HB4,&H38,&H17,&H9C,&H06,&H24,&H29,&HC8,&H9F,&H4B,&H70,&HAD,&H9D,&HE0,&H2D
DATA &H07,&H04,&HFC,&H4C,&HC1,&HEC,&H6F,&HE2,&HF3,&H3B,&H82,&H00,&HBA,&HAD,&HF0,&H0D,&H31,&H41,&H59,&H26
|