2 FORX=49152TO49226:READY:POKEX,Y:C=C+Y:NEXT X
3 IF C<>8678THEN PRINT"FUCK IT!MORE DEBUGGING":END
4 DIMC(3,16)
5 FORN=1TO3:FORC=1TO16
6 READC(N,C):NEXT C,N
7 :
8 SYS49152:REM COLOR ROLL BEGINS
9 :
10 PRINT CHR$(147);CHR$(5);
11 POKE53280,0:POKE53281,0
12 T$="                  "
13 FORL=1TO18:SP=1944+L*2
14 T=ASC(MID$(T$,L,1))AND63
15 POKE SP,T:POKESP+1,T+64
16 POKESP+40,T+128:POKE SP+41,T+192
17 NEXT L
18 N=1:PRINT"            OZSI 64 AND AMIGA"
20 FOR C=1TO16
21 POKE49226+C,C(N,C):NEXT
22 GET K$:IF K$<"1"OR K$>"3"THEN 22
24 :
25 POKE2020,20:POKE2021,9:POKE2022,4:POKE2023,5
50 REM*M/C HERE
51 DATA169,000,141,021,192,141,022,192
52 DATA120,169,023,141,020,003,169,192
53 DATA141,021,003,088,096,000,000,173
54 DATA022,192,073,001,141,022,192,240
55 DATA031,160,039,174,021,192,189,075
56 DATA192,153,152,219,153,191,219,032
57 DATA067,192,136,192,000,208,239,174
58 DATA021,192,032,067,192,142,021,192
59 DATA076,049,234,232,224,016,208,002
60 DATA162,000,096
61 REM*COLOUR INFO 1.
62 DATA14,05,03,07,07,07,07,07
63 DATA03,05,14,06,06,06,06,06
64 REM*COLOUR INFO 2.
65 DATA01,01,01,01,01,15,10,08
66 DATA02,02,02,02,02,08,10,15
67 REM*COLOUR INFO 3.
68 DATA13,03,05,14,14,04,11,06
69 DATA04,02,08,10,10,07,07,01