9999 REM""(null)
10000 DATA 1,4,0,2,65,240,251,0,4,0,2,65,240,251,32
10010 DATA 89,166,76,174,167,0,0,20,243,31
10030 FORI=.TO24:POKE54272+I,.:READX:POKE54272+I,X:NEXT
10040 POKE53281,0:POKE53280,0:PRINT"[147]"
10050 PRINT"[149]C F S  PRODUCTIONS"
10055 PRINT"[149]PRESENTS"
10060 FOR I=1 TO 100:NEXT
10070 PRINT"[151]C F S  PRODUCTIONS"
10075 PRINT"[151]PRESENTS"
10080 FOR I=1 TO 100:NEXT
10090 PRINT"[152]C F S  PRODUCTIONS"
10095 PRINT"[152]PRESENTS"
10100 FOR I=1 TO 100:NEXT
10110 PRINT"[155]C F S  PRODUCTIONS"
10115 PRINT"[155]PRESENTS"
10120 FOR I=1 TO 100:NEXT
10130 PRINT"C F S  PRODUCTIONS"
10135 PRINT"PRESENTS"
10140 T=TI
10150 IF TI-T<120 THEN 10150
10160 PRINT"[155]C F S  PRODUCTIONS"
10165 PRINT"[155]PRESENTS"
10170 FOR I=1 TO 100:NEXT
10180 PRINT"[152]C F S  PRODUCTIONS"
10185 PRINT"[152]PRESENTS"
10190 FOR I=1 TO 100:NEXT
10200 PRINT"[151]C F S  PRODUCTIONS"
10205 PRINT"[151]PRESENTS"
10210 FOR I=1 TO 100:NEXT
10220 PRINT"[149]C F S  PRODUCTIONS"
10225 PRINT"[149]PRESENTS"
10230 PRINT"[147]"
10240 FOR I=1 TO 1000:NEXT
10250 PRINT"[149]A"
10260 PRINT"[149]CHRISTIAN SIEGE"
10270 PRINT"[149]GAME!"
10280 FOR I=1 TO 100:NEXT
10290 PRINT"[151]A"
10300 PRINT"[151]CHRISTIAN SIEGE"
10310 PRINT"[151]GAME!"
10320 FOR I=1 TO 100:NEXT
10330 PRINT"[152]A"
10340 PRINT"[152]CHRISTIAN SIEGE"
10350 PRINT"[152]GAME!"
10360 FOR I=1 TO 100:NEXT
10370 PRINT"[155]A"
10380 PRINT"[155]CHRISTIAN SIEGE"
10390 PRINT"[155]GAME!"
10400 FOR I=1 TO 100:NEXT
10410 PRINT"A"
10420 PRINT"CHRISTIAN SIEGE"
10430 PRINT"GAME!"
10440 T=TI
10450 IF TI-T<120 THEN 10450
10460 PRINT"[155]A"
10470 PRINT"[155]CHRISTIAN SIEGE"
10480 PRINT"[155]GAME!"
10490 FOR I=1 TO 100:NEXT
10500 PRINT"[152]A"
10510 PRINT"[152]CHRISTIAN SIEGE"
10520 PRINT"[152]GAME!"
10530 FOR I=1 TO 100:NEXT
10540 PRINT"[151]A"
10550 PRINT"[151]CHRISTIAN SIEGE"
10560 PRINT"[151]GAME!"
10570 FOR I=1 TO 100:NEXT
10580 PRINT"[149]A"
10590 PRINT"[149]CHRISTIAN SIEGE"
10600 PRINT"[149]GAME!"
10610 FOR I=1 TO 100:NEXT
10620 PRINT"[147][144]"
10630 FOR I=1 TO 1000:NEXT
10640 LOAD"1",8,1