100 CLR:RESTORE:T=1.01:FORI=49152TO49500:READY:S=S*T+Y:POKEI,Y:NEXT
110 IFINT(S)<>390917THENPRINT"";:END
120 :
130 PRINT""
140 PRINT""
150 PRINT""
160 PRINT""
170 PRINT""
180 PRINT""
190 PRINT""
200 PRINT""
201 :
202 SYS49152,0,17,14+16*6,2+2*16,14+16*6,7+3*16,0
203 SYS49189,45,68,176,187,245,250
210 END
220 :
230 DATA169,0,133,254,32,198,192,144,27,201,0,208,39,152,166,254
240 DATA157,55,193,74,74,74,74,157,71,193,232,134,254,224,16,144
250 DATA227,76,82,192,96,169,0,133,254,32,198,192,144,42,201,1
260 DATA240,8,144,12,32,161,192,76,72,178,192,56,176,246,169,128
270 DATA9,27,166,254,157,39,193,152,157,23,193,232,134,254,224,16
280 DATA144,215,32,161,192,76,53,164,165,254,240,69,133,253,173,21
290 DATA3,201,192,240,59,120,141,20,193,173,20,3,141,19,193,169
300 DATA192,141,21,3,169,219,141,20,3,169,129,141,26,208,169,127
310 DATA141,13,220,173,32,208,141,21,193,173,33,208,141,22,193,173
320 DATA23,193,141,18,208,173,39,193,141,17,208,162,0,134,252,88
330 DATA96,120,169,128,141,26,208,173,19,193,141,20,3,173,20,193
340 DATA141,21,3,173,21,193,141,32,208,173,22,193,141,33,208,169
350 DATA129,141,13,220,88,96,160,0,169,44,209,122,208,11,32,115
360 DATA0,32,138,173,32,247,183,56,96,24,96,173,25,208,141,25
370 DATA208,88,166,252,188,23,193,189,55,193,141,32,208,189,71,193
380 DATA141,33,208,140,18,208,188,39,193,140,17,208,232,228,253,144
390 DATA2,162,0,134,252,173,13,220,41,1,208,6,104,168,104,170
400 DATA104,64,76,49,234,14,6,0,0,0,0,0,0,0,0,0
410 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
420 DATA0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,8
430 DATA9,10,11,12,13,14,15,15,14,13,12,11,10,9,8,7
440 DATA6,5,4,3,2,1,0,0,0,240,0,0,0
READY.
