home *** CD-ROM | disk | FTP | other *** search
- 0 REM *************************
- 1 REM * COMMODORE COMMANDER *
- 2 REM * BY THEODORE H MERRILL *
- 3 REM *************************
- 4 POKE54277,64:POKE54291,64:POKE54278,128:POKE54292,128
- 5 POKE54273,34:POKE54272,75:POKE54287,67:POKE54286,15
- 6 POKE54296,15:POKE53280,0:POKE53281,0
- 10 PRINT"[147] [159]PLEASE WAIT!"
- 25 PRINTCHR$(142):POKE52,48:POKE56,48:CLR
- 30 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
- 35 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT:POKE1,PEEK(1)OR4
- 40 FORA=12568TO12568+(8*11-1):READB:POKEA,B:NEXT
- 45 POKE56334,PEEK(56334)OR1
- 50 PRINT"[147][158] >>[152] COMMODORE COMMANDER[158] <<"
- 55 POKE53272,(PEEK(53272)AND240)+12:PRINT" ENTER YOUR LEVEL"
- 60 PRINT"0-FASTEST THRU 9-SLOWEST"
- 61 PRINT"[159]# - YOU THE COMMODORE COMMANDER "
- 62 PRINT"[155]' - THE ENEMY TIE FIGHTERS 100 PTS"
- 63 PRINT"( - FUEL TANKS 50 PTS"
- 64 PRINT"[154]) - WALL SECTIONS OF BASE 0 PTS"
- 65 PRINT"[129]* - EXPLOSION DEBRIS 10 PTS"
- 66 PRINT"[150]+ - INDESTRUCTABLE MINES 0 PTS"
- 67 PRINT"[153]THE OBJECT IS TO DESTROY ALL OF THE TIE FIGHTERS AND FUEL TANKS";
- 68 PRINT" IN EACH BASE TO ADVANCE TO THE NEXT BASE."
- 69 PRINT"[159] USE STICK IN PORT 2"
- 70 PRINT"[150] BONUS SHIP AT 10000 PTS"
- 75 PRINT"[158] PLEASE ENTER NUMBER OF LEVEL TO PLAY";
- 90 GETA$:IFA$=""THEN90
- 95 IFA$<"0"ORA$>"9"THEN90
- 120 FORA=1TO1000:NEXTA:POKE56334,PEEK(56334)AND254:TD=VAL(A$)*10
- 130 SC=0:B=1:TF=3:FT=2:IM=1:SP=1982:MS=35:LL=3:FD=-40:FC=44:SM=0:FL=0:TS=0
- 140 ONBGOTO145,200
- 145 PRINT"[147][154]))))))))))))))))))))))))))))))))))))))))";
- 150 FORX=1TO5:FORA=1TO3:PRINT") )";:NEXTA
- 160 PRINT"))))))))))))))))))) )))))))))))))))))))";:NEXTX
- 170 FORA=1TO2:PRINT") )";:NEXTA
- 180 PRINT")))))))))))))))))))))))))))))))))))))))";:POKE56295,14:POKE2023,41
- 190 GOTO300
- 200 PRINT"[147][154]))))))))))))))))))))))))))))))))))))))))";
- 210 FORA=1TO22:PRINT") )";:NEXT
- 220 PRINT")))))))))))))))))))))))))))))))))))))))";:POKE56295,14:POKE2023,41
- 230 FORA=1TO50
- 235 X=INT(RND(1)*910)+1064
- 236 IFPEEK(X)<>32ORPEEK(X+1)<>32THEN235
- 240 POKEX+54272,14:POKEX,41:NEXT
- 300 FORA=1TOTF
- 305 X=INT(RND(1)*910)+1064
- 306 IFPEEK(X)<>32THEN305
- 307 POKEX+54272,15:POKEX,39:NEXT
- 310 FORA=1TOFT
- 311 X=INT(RND(1)*910)+1064
- 312 IFPEEK(X)<>32THEN311
- 313 POKEX+54272,2:POKEX,40:NEXT
- 320 FORA=1TOIM
- 321 X=INT(RND(1)*910)+1064
- 322 IFPEEK(X)<>32ORPEEK(X+1)<>32ORPEEK(X-1)<>32THEN321
- 323 POKEX+54272,10:POKEX,43:NEXT
- 350 :
- 397 IFFL=0ANDSC>9999THENLL=LL+1:FL=1
- 398 IFSC>HITHENHI=SC
- 399 PRINT"SCORE=[153]"SC;TAB(16)"[156]HIGH=[153]"HI;TAB(35)"[159]#=[153]"LL
- 400 IFPEEK(56320)=127THEN440
- 405 IFPEEK(56320)=126THENSM=-40:FD=-40:FC=44:MS=35:GOTO440
- 410 IFPEEK(56320)=125THENSM=40:FD=40:FC=44:MS=37:GOTO440
- 420 IFPEEK(56320)=123THENSM=-1:FD=-1:FC=45:MS=36:GOTO440
- 430 IFPEEK(56320)=119THENSM=1:FD=1:FC=45:MS=38:GOTO440
- 440 IFPEEK(56320)<112THEN480
- 450 POKESP,32:SP=SP+SM:IFPEEK(SP)<>32THEN900
- 460 POKESP+54272,3:POKESP,MS
- 470 FORUA=1TOTD:NEXT:GOTO400
- 480 FP=SP+FD
- 490 IFPEEK(FP)<>32THEN520
- 500 POKE54290,33:POKEFP+54272,7:POKEFP,FC
- 510 FP=FP+FD:POKE54290,32:POKEFP-FD,32:GOTO490
- 519 REM **** FIRE HIT SOMETHING ****
- 520 IFPEEK(FP)=39THEN600
- 530 IFPEEK(FP)=40THEN650
- 540 IFPEEK(FP)=41THEN399
- 550 IFPEEK(FP)=42THEN750
- 560 IFPEEK(FP)=43THEN399
- 599 REM TIE FIGHTER SHOT
- 600 POKE54276,129
- 601 FORDL=1TO10:POKEFP+54272,2:SC=SC+10:POKEFP+54272,7:NEXT:POKEFP,32:POKE54276,128:GOTO970
- 649 REM FUEL TANK HIT
- 650 POKE54276,129
- 651 FORDL=1TO10:POKEFP+54272,2:SC=SC+5:POKEFP+54272,7:NEXT:POKEFP,32
- 652 POKE54276,128:GOTO970
- 749 REM EXPLOSION DEBRIS HIT
- 750 POKE54276,129
- 751 FORDL=1TO5:POKEFP+54272,2:SC=SC+2:POKEFP+54272,7:NEXT:POKEFP,32
- 752 POKE54276,128:GOTO397
- 899 REM ** YOU CRASHED **
- 900 POKE54276,129
- 901 FORWQ=SP-40TOSP+40STEP40
- 902 IFPEEK(WQ)<>32THEN904
- 903 POKEWQ+54272,8:POKEWQ,42
- 904 NEXT
- 905 FORWQ=SP-1TOSP+1
- 906 IFPEEK(WQ)<>32THEN908
- 907 POKEWQ+54272,8:POKEWQ,42
- 908 NEXT
- 909 FORVO=15TO0STEP-.05:POKE54296,VO:NEXT
- 910 LL=LL-1:PRINT""TAB(35)"[159]#=[153]"LL
- 911 POKE54276,128:POKE54296,15
- 915 IFLL=0THEN950
- 920 SP=1982:SM=0:FC=44:MS=35:FD=-40:GOTO399
- 949 REM **GAME OVER**
- 950 PRINT" [158]GAME OVER "
- 951 PRINT" [150]PLAY AGAIN? [Y OR N]"
- 952 FORVV=1TO1000:NEXT
- 953 POKE56334,PEEK(56334)OR1
- 955 GETQ$:IFQ$=""THEN955
- 957 IFQ$="Y"THEN45
- 958 IFQ$<>"N"THEN955
- 960 PRINT"[147]":POKE53272,21
- 961 PRINT"GOODBYE FOR NOW WARRIOR":END
- 969 REM **TEST FOR ENTIRE BASE EMPTY**
- 970 TS=TS+1:IFTS=TF+FTTHENTS=0:GOSUB10000:GOTO975
- 971 GOTO397
- 975 IFTF>40THEN978
- 976 TF=TF+3:FT=FT+2:IM=IM+1
- 978 B=B+1:IFB=3THENB=1
- 979 SP=1982:MS=35:FD=-40:FC=44:SM=0
- 980 TD=TD-2:IFTD<0THENTD=0
- 985 GOTO140
- 999 REM **DATA FOR CUSTOM CHARACTERS**
- 1000 DATA24,24,24,24,189,165,189,231,15,1,15,254,254,15,1,15
- 1001 DATA231,189,165,189,24,24,24,24,240,128,240,127,127,240,128,240
- 1002 DATA129,153,189,231,231,189,153,129,24,60,102,255,195,255,129,255
- 1003 DATA255,231,195,153,153,195,231,255,135,2,16,66,1,144,135,6,0,0,36,24,24,36
- 1004 DATA0,0
- 1005 DATA16,8,16,8,16,8,16,8,0,0,0,170,85,0,0,0
- 10000 FORQR=1TO200:PRINT"GOOD WORK COMMODORE COMMANDER!"
- 10001 POKE646,INT(RND(1)*15)+1
- 10002 NEXT:RETURN
-