100 IFA=0THENPRINT"[147]":GOSUB210
110 IFA=0THENA=1:LOAD"SMASHPACKER",8,1
120 IFA=1THENA=2:LOAD"SMASH.SHP",8,1
130 IFA=2THENA=3:GOSUB410:LOAD"3000",8,1
140 IFA=3THENA=4:LOAD"8000",8,1
150 IFA=4THENA=5:FORI=0TO3:V(I)=PEEK(51784+I):NEXT:LOAD"CODE",8,1
160 IFA=6THEN480
170 POKE53265,V(0):POKE53270,V(1):POKE53272,V(2):POKE56576,V(3)
180 GOSUB210:GOTO330
190 POKE 53281,0:POKE 53280,0
200 GOSUB410:LOADF$,8
210 POKE53280,0:POKE53281,0:IFFTHENRETURN
220 PRINT"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
230 A$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
240 B$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
250 C$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
260 PRINTC$;:FORI=1TO3:PRINTA$C$B$C$;:NEXT
270 PRINT"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
280 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
290 A$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
300 POKE214,12:PRINT"[145]";:FORI=1TO33:PRINTA$;:NEXT:PRINT"[155]"
310 FORI=1TO5:READA$:GOSUB320:NEXT:RETURN
320 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
330 PRINT"[159][208]LAY [210]EGULAR OR [208]RACTICE VERSION? ([158][210][159]/[158][208][159])";
340 GETP$:IFP$<>"R"ANDP$<>"P"THEN340
360 ON-(P$="R")-2*(P$="P")GOTO460,470
370 POKE214,24:PRINT"[145]"SPC(13)"[204] [207] [193] [196] [201] [206] [199]":RETURN
380 DATA"[211][160][205][160][193][160][211][160][200] [197][160][210][160][207][160][201][160][196] [211]","BY [211]COTT [197]LDER
390 [131]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #72","WWW.LOADSTAR.COM"
400 [131]"LENOPYRIGHT (LEN) 1990 (null)OFTDISK"
410 [151]251,100 :[143]  .SHP BASE ADDR
420 [151]252,64  :[143]  BITMAP MEMORY
430 [151]253,96  :[143]  COLOR MEMORY
440 [158]51456    :[143] UNPACK THAT SHAPE!
450 [158]51459:[142]:[143] DISPLAY PIC
460 [158]49152:[137]490
470 A[178]6:[147]"PRACTICE",8,1
480 [158]49152
490 [151]198,0:A$[178]"HELLO CONNECT":[159]15,8,15,"R:"[170]A$[170]"="[170]A$:[132]15,E:[160]15
500 [139] E[179][177]63 [167] [153]"LOADOPEN":[128]
510 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD"
520 [153]"LOAD"Q$A$Q$",8"
530 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"B.SMASHEROIDS":[159]1,D,15,"S0:"[170]N$:[160]1:[148]N$,D:[128]