Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » blockade
blockade
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav |
Filename: | blockade |
Read OK: | ✔ |
File size: | 07D7 bytes |
Load address: | 1001 |
Exec address: | 0000 |
File contents
10 COLOR0,2,5:COLOR4,15:VOL8:P1=0:P2=0 20 X$="<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>":DIMCH(1,1):CH(1,0)=64:CH(0,1)=93:DIMCX(3):DIMCY(3) 30 CX(0)=109:CX(1)=125:CX(2)=110:CX(3)=112 40 CY(0)=112:CY(1)=109:CY(2)=125:CY(3)=110 50 B$="▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄" 60 L$=" <reverse on>▌<rev off> ▌ " 70 COLOR1,16,4:PRINT"<clr><cursor down><cursor down><cursor down><cursor down> ┬🭸╮ ┬ ╭🭸╮ ╭🭸╮ ┬ ┬ ╭🭸╮ ┬🭸╮ ┌🭸┐ 🭲" 80 PRINT" ├🭸┤ 🭲 🭲 🭲 🭲 ├🭸╯ ├🭸┤ 🭲 🭲 ├🭸 🭲" 90 PRINT" ┴🭸╯ └🭸┘ ╰🭸╯ ╰🭸╯ ┴ ╰ ┴ ┴ ┴🭸╯ └🭸┘ ○" 100 COLOR1,9,4:PRINT:PRINT:PRINT" CONTROLS" 110 PRINT:PRINT" PLAYER1 PLAYER 2" 120 PRINT:PRINT" LEFT : <Q> <+>" 130 PRINT:PRINT" RIGHT : <Z> </>" 140 COLOR1,7,4:PRINT:PRINT:PRINT:PRINT" HIT <RETURN> TO CONTINUE..." 150 PRINT:PRINT" <E> TO EXIT." 160 GETA$:IFA$=""THEN160 170 IFA$="E"THENPRINT"<clr><cursor down><cursor down><cursor right><cursor right>THE END...":END 180 IFASC(A$)<>13THEN160 190 COLOR1,3,3:PRINT"<clr> BLOCKADE":PRINT:PRINT:PRINT" ▗";B$;"▖" 200 COLOR1,3,3:FORI=1TO20:PRINTL$:NEXT:PRINT" ▝<reverse on>";B$;"<rev off>▘"; 210 COLOR1,8:PRINT"<home><cursor down> PLAYER 1" 220 COLOR1,15,2:PRINT"<home><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>PLAYER 2" 230 X1=2:X2=37:Y1=12:Y2=14:A1=1:A2=-1:B1=0:B2=0:D1=0:D2=2:S=0 240 COLOR1,2:PRINT"<home><cursor down><cursor right>";X$;" <cursor left><cursor left><cursor left><cursor left><cursor left>";P1;X$;"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right> <cursor left><cursor left><cursor left><cursor left>";P2 250 GETA$:C1=CH(ABS(A1),ABS(B1)):C2=CH(ABS(A2),ABS(B2)):S=S+1:IFS=2THENS=0 260 X1=X1+A1:X2=X2+A2:Y1=Y1+B1:Y2=Y2+B2 270 IFA$="Q"THENC=B1:B1=-A1:A1=C:D1=INT(((D1+1)/4-INT((D1+1)/4))*4):C1=CX(D1) 280 IFA$="+"THENC=B2:B2=-A2:A2=C:D2=INT(((D2+1)/4-INT((D2+1)/4))*4):C2=CX(D2) 290 IFA$="Z"THENC=-B1:B1=A1:A1=C:D1=INT((ABS((D1+3)/4)-INT(ABS((D1+3)/4)))*4):C1=CY(D1) 300 IFA$="/"THENC=-B2:B2=A2:A2=C:D2=INT((ABS((D2+3)/4)-INT(ABS((D2+3)/4)))*4):C2=CY(D2) 310 IFPEEK(3072+40*Y1+X1)<>32THENA1=0:B1=0:P2=P2+1:W=2:X=X1:Y=Y1:GOSUB400:GOTO160 320 IFPEEK(3072+40*Y2+X2)<>32THENA2=0:B2=0:P1=P1+1:W=1:X=X2:Y=Y2:GOSUB400:GOTO160 330 GOSUB350 340 GOTO250 350 POKE3072+40*Y1+X1,C1:POKE2048+40*Y1+X1,119 360 POKE3072+40*Y2+X2,C2:POKE2048+40*Y2+X2,46 370 IFS=0THENSOUND1,400+20*D1,5 380 IFS=1THENSOUND1,320+20*D2,5 390 RETURN 400 SOUND3,850,20:SOUND3,800,100 410 FORI=1TO10:POKE3072+40*Y+X,102:POKE2048+40*Y+X,96:FORJ=1TO20:NEXTJ 420 POKE3072+40*Y+X,230:POKE2048+40*Y+X,44:FORJ=1TO20:NEXTJ 430 NEXTI 440 IFW=1THENCOLOR1,8:PRINT"<flash on><home><cursor down> PLAYER 1<flash off>" 450 IFW=2THENCOLOR1,15,2:PRINT"<flash on><home><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>PLAYER 2<flash off>" 460 COLOR1,2:PRINT"<home><cursor down><cursor right>";X$;" <cursor left><cursor left><cursor left><cursor left><cursor left>";P1;X$;"<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right> <cursor left><cursor left><cursor left><cursor left>";P2 470 RETURN
�0,2,5:�4,15:�8:P1�0:P2�0 a X$�"":�CH(1,1):CH(1,0)�64:CH(0,1)�93:�CX(3):�CY(3) � CX(0)�109:CX(1)�125:CX(2)�110:CX(3)�112 �( CY(0)�112:CY(1)�109:CY(2)�125:CY(3)�110 �2 B$�"����������������������������������"