10 POKE53280,0:POKE53281,0:PRINT"[147]"
20 PRINT"              [213][195][195][195][195][195][195][195][195][195][195][201]
30 [153]"              PEEKPRINTTOANDPOSNEWOR^NEWPOSANDTOCONTPEEK
40 PRINT"              [194]          [194]
50 [153]"              PEEKAU REVOIR!WAITCONTPEEK
60 PRINT"              [194] [149]   ..   [154] [194]
70 [153]"              PEEK VERIFY STEP(null)(null)(null)(null)(null) CONT PEEK
80 PRINT"              [194] [149]   ()   [154] [194]
90 [153]"              PEEK VERIFY   MID$(null)   CONT PEEK
95 PRINT"              [202][195][184][184][184][184][184][184][184][184][146][195][203]
100 [153]"POKE             *************RND
110 PRINT"[151]            [207]    [162][162][162][162][162][162]    [208]
120 [153]"POKE            USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
130 PRINT"[129]     DRUECKE                [162][162][162][162][162][162]         "
140 POKE198,0:WAIT198,1:GETA$
145 IFA$=CHR$(160) THEN 150
150 POKE53280,14:POKE53281,0:
160 S=54272:POKES+24,15:POKES,33 :POKES+4,17:POKES+5,15:POKES+6,64:POKES+1,128
165 POKES+7,120:POKES+8,100:POKES+12,33:POKES+13,147
170 PRINT"[147]":V=53248:POKEV+21,1
175 FORS1=12288TO12350:READQ1:POKES1,Q1:NEXT
180 FORS2=12352TO12414:READQ2:POKES2,Q2:NEXT
185 FORS3=10416TO10478:READQ3:POKES3,Q3:NEXT
190 POKEV+39,5 :POKEV+1,68:POKEV,24:POKEV+1,229
195 PRINTTAB(120)"                      "
200 P=192
205 FORX=0TO347STEP3
215 RX=INT(X/256):LX=X-RX*256
220 POKEV,LX:POKEV+16,RX
225 IFP=192THEN GOSUB330
230 IFP=193THEN GOSUB350
235 POKE2040,P:POKE2040,P-2: FORT=1TO 100:NEXT
240 P=P+1:IFP>194THENP=192
242 FOR Y=0TO250STEP-5:POKEV+23,19:POKEV+29,23:POKEV+8,Y:POKEV+4,Y
243 POKEV+2,250:NEXTY
245 NEXT
250 POKE646,0:END
255 DATA244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,0,0,0
260 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
265 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
270 DATA0,0,0,0,0,0,0,0,0
280 DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
285 DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
290 DATA1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
295 DATA1,1,1
305 DATA5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2
310 DATA7,2,7,2,7,2,7,2,7,2,7,2,7,2,7,2,7,2,7,2
315 DATA8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8
330 POKES+4,129:POKES+4,128:RETURN
350 POKES+11,129:POKES+11,128:RETURN
355 POKES+15,129:POKES+15,128:RETURN