1 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
5 IFA=0THENA=1:LOAD"PBAX",8,1
10 POKE53272,23:POKE648,4:POKE56576,151:PRINT"[147][154]";:POKE53280,14:POKE53281,6
20 PRINT"[198][201][204][197] [195][210][197][193][212][207][210]"
30 PRINT"[197]NTER [208][207][203][197]788,49:[208][207][203][197]789,234:"
35 PRINT"BEFORE THE FINAL COMMAND.
40 [153]
50 [153]"1278 BYTES FREE":[153]:BF[178]1278:LN[178]1
60 SPIEL$[178]""
70 [153]LN"CMD:";:[151]204,.
80 [151]198,0:[146]198,1:[161]A$
90 [139][195](SP$)[178]0[175](A$[178][199](13)[175]A$[178][199](20))[167]80
92 [139][195](SP$)[178]75[175]A$[179][177][199](20)[175]A$[179][177][199](13)[167]80
93 [139]A$[178][199](13)[167]130
94 [139]A$[178]"
"[167][151]204,1:[151]212,.:[153]" ":[137]190
95 [139]A$[178]""[167][151]204,1:[151]212,.:[153]" ":[137]182
100 [151]212,1:[153]A$;
110 [139]A$[179][177][199](20)[175]A$[179][177][199](13)[167]SP$[178]SP$[170]A$:[137]80
120 [139]A$[178][199](20)[167]SP$[178][200](SP$,[195](SP$)[171]1):[137]80
130 [151]204,1:[151]212,.:[153]" ":SP$[178]SP$[170][199](13)
140 Z[178][195](SPIEL$):[139]BF[171]Z[179][178]0[167][153]"(null)VERFLOW -- RETYPE LINE OR QUIT":[137]60
150 [129]X[178]0[164][195](SP$)[171]1
160 [151]51969[170](1278[171]BF),[198]([202](SP$,X[170]1,1)[170][199](0)):BF[178]BF[171]1
170 [130]X:[151]51969[170](1278[171]BF),0
180 LN[178]LN[170]1:[137]60
182 [153]"CMD"BF"BYTES FREE":[137]60
190 [153]"(null)ERIFY -- ARE YOU FINISHED? (Y/N)"
200 [146]198,1:[161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]200
210 [139]A$[178]"N"[167][153]:[137]60
220 [153]"LOADVALNTER A FILENAME FOR THIS BATCH FILE:"
222 [159]2,0:[132]2,A$:[160]2:[153]
230 [153]"VALNTER AN 2 CHARACTER RIGHT$STR$:":[151]204,.
240 [146]198,1:[161]C$:[153]C$;:[146]198,1:[161]D$:[153]D$:[151]204,1:[151]198,0
250 Q$[178]"M"[170]A$:[158]57812Q$,8,1:[151]193,0:[151]194,202:[151]174,253:[151]175,207
260 [158]62954:[151]51699,[198]("S"):[151]51700,[198](C$):[151]51701,[198](D$)
270 [159]1,8,2,"0:"[170]A$[170]",P,W"
280 [152]1,[199](0)[199](1);:[129]X[178]51389[164]51711:[152]1,[199]([194](X));:[130]
290 [160]1
300 [153]"LOAD10 IFA=0THENA=1:LOAD"[199](34)Q$[199](34)",8,1"
301 [153]"20 A$="[199](34)"SYSC:NEW"[199](34)"+CHR$(13):POKE198,9"
310 [153]"30 FORX=1TO9:POKE630+X,ASC(MID$(A$,X,1)):NEXT:C=51712:POKE828,0"
320 [153]"40 SYS828"
330 [153]"SAVE"[199](34)"BS"C$D$[199](34)",8"
340 [153]"SYS64738"
350 [151]198,7:[151]631,19:[129]X[178]1[164]6:[151]631[170]X,13:[130]X:[162]