20 REM ROLL THE CREDITS
30 POKE 53280,0:POKE 53281,0:DIM C$(150)
40 GOSUB 60000
100 PRINT"[147]"
101 PRINT"   ENTER THE CREDITS TO BE SCROLLED,
102 [153]"   YOU MAY ENTER UP TO 100 CREDITS.
103 PRINT" WHEN READY TO CONTINUE, PRESS RETURN
120 [153]
130 [129] N[178]1 [164] 100
140 [153]N"CMD:";:[141]61000:C$(N)[178]B$:
150 [139] C$(N)[177]"" [167] [130]
160 :
200 [153]"HOW MANY BLANK LINES BETWEEN CREDITS":[153]"DO YOU WISH :";:[141]61000
205 S[178][197](B$)
210 [153]"DELAY BETWEEN LINES (1-500) :";:[141]61000:D[178][197](B$)
215 [139] D[177]500 [176] D[179]1 [167] [153]"ONON":[137]210
220 [153]"DO YOU WANT THE CREDITS CENTERED Y/N":
221 [161]C$:[139]C$[178]""[167] 221
222 [139]C$[178]"Y"[176]C$[178]"N"[167] 230
223 [137] 221
230 C[178]C$[178]"Y"
240 [153]"PRESS ANY KEY TO QUIT"
250 [129] I[178]1 [164] 24:[153]:[130]
260 :
300 [129] I[178]0 [164] N[170]24[173](S[170]1)
310 T[178]C[172]([195](C$(I))[173]2[171]20):SS[178]S
320 [153] [163]T) C$(I)
330 :
340 [129] J[178]1 [164] D:[130]
350 [161] A$:[139] A$[177]"" [167] 400
360 [139] SS [167] SS[178]SS[171]1:[153]:[137]340
370 [130]
380 :
400 [153]"LOAD DO YOU WISH TO SCROLL SOME MORE CREDITS"
401 [153]"              Y)ES OR N)O"
405 [161]A$:[139]A$[178]""[167]405
406 [139]A$[178]"Y"[167] 100
407 [139]A$[178]"N"[167] 415
409 [137] 405
415 [153]" ARE YOU SURE YOU WANT TO QUIT (Y/N) ?"
416 [161]A$:[139]A$[178]""[167]416
417 [139]A$[178]"Y"[167] 450
418 [139]A$[178]"N"[167] 100
419 [137] 416
450 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
455 [139]ER[179][177]63 [167] [153]"LOAD":[128]
460 [147]"HELLO CONNECT",8
60000 [143]
60010 [153]"LOAD"
60020 [153]
60030 [153]
60040 [153]
60050 [153]"   OR^ u``iu``iOR``iu`^OR``^u``iOR``i"
60060 [153]"   }} }ui}}ui}}ORi}}uEXP/^OREXP}ui}}ORi}"
60070 [153]"   }} }}}}}jk}}}}}}/i }} }jk}}/k}"
60080 [153]"   }} }}}}}OR^}}}}}j^} }} }OR^}}OR=k"
60090 [153]"   }/^}jk}}}}}}/k}OREXP} }} }}}}}}-^"
60100 [153]"   /`EXPj``k/EXP/EXP/``k/`k /EXP /EXP/EXP/EXP/EXP"
60110 [153]
60120 [153]"             LISTPRESENTS"
60130 [153]
60140 [153]"    C FORO DEFN SYSN PRINTE C OPENT CONTI O CLRN VERIFYS LIST- PRINT#6 4"
60150 [153]
60160 [153]
60170 [153]"        CONTWRITTEN BY IAN ADAMS"
60180 [153]
60190 [153]
60200 [153]"           OPENCOPYRIGHT 1987"
60210 [153]
60220 [153]
60230 [153]
60240 [153]"            PRINTPRESS (SPACE)"
60250 [153]"";
60300 [161]A$:[139]A$[178]" "[167] [142]
60301 [137] 60300
61000 B$[178]"":[153]"TO";:[129]A[178]1[164]45
61005 [161]A$:[139]A$[178]""[167]61005
61010 [139]A$[178][199](20)[175]A[177]1[167] A[178]A[171]1:B$[178][200](B$,A[171]1):[153]"CMDCMD  CMDCMDTO";:[137]61005
61015 [139]A$[178][199](20)[167]61005
61020 [139]A$[178][199](13) [167]  [153]"CMD ":[142]
61030 [139]A$[179]" "[176]A$[177]"(null)"[167]    61005
61035 [139]A$[177]"Z"[167]    61005
61040 [139]A[177]40 [167] 61005
61050 B$[178]B$[170]A$:[153]"CMD"A$;:[153]"TO";:[130]