Home » Recent acquisitions » Commodore_16 » tape009b_c16_commodore_16_games_pack_1.wav » siege
siege
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 » tape009b_c16_commodore_16_games_pack_1.wav |
Filename: | siege |
Read OK: | ✔ |
File size: | 0B50 bytes |
Load address: | 1001 |
Exec address: | 0000 |
File contents
10 COLOR0,14:COLOR4,11:VOL8:PRINT"<clr>":COLOR1,6,6 20 PRINT" ╭🭸╮ ┌🭸┐ ┬ ╭🭸╮ ┌🭸┐" 30 PRINT" 🭲 🭲 🭲 🭲 🭲 ○" 40 PRINT" ╰🭸╮ ├🭸 🭲 🭲 ├🭸" 50 PRINT" 🭲 🭲 🭲 🭲 ┬ 🭲 ○" 60 PRINT" ╰🭸╯ └🭸┘ ┴ ╰🭸╯ └🭸┘" 70 PRINT:PRINT:PRINT" <red>CONTROLS:" 80 PRINT:PRINT" <purple>'<green>Q<purple>' INCREASE RANGE" 90 PRINT:PRINT" '<green>Z<purple>' DECREASE RANGE" 100 PRINT:PRINT" '<green>P<purple>' MOVE BALLISTA RIGHT" 110 PRINT:PRINT" '<green>I<purple>' MOVE BALLISTA LEFT" 120 PRINT:PRINT" <green>SPACE <purple>FIRES BALLISTA" 130 PRINT:PRINT:PRINT:PRINT" (HIT RETURN TO BEGIN)" 140 GETA$:IFA$=""THEN140 150 IFASC(A$)<>13THEN140 160 PRINT"<clr>":CD$="<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>" 170 CR$="":CC$="<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><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>" 180 CX=4:PX=1:EV=1.9:B%=0:BY=0:VY=0:CH=32:C%=0:CY=0:FY=0:C2=32:PB=40:CB=40 190 B$=" ○┴○ " 200 B1$=" *╮ <cursor down><cursor left><cursor left><cursor left><cursor left><cursor left>":C1$=" ╭* <cursor down><cursor left><cursor left><cursor left><cursor left>" 210 B2$=" 🭲<cursor down><cursor left><cursor left><cursor left><cursor left>":C2$=" 🭲 <cursor down><cursor left><cursor left><cursor left>" 220 B3$="<cursor right> ╮ <cursor down><cursor left><cursor left><cursor left><cursor left><cursor left>":C3$=" ╭ <cursor down><cursor left><cursor left><cursor left><cursor left>" 230 CT$="@ @ @ @":CW$="@@@@@@":SP$=" " 240 COLOR1,9,5:PRINT"<home> SIEGE!":PRINT"<home><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right>PLAYER"; 250 COLOR1,15,5:PRINT" COMPUTER":COLOR1,2,3 260 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>";CT$;SP$;" ";SP$;CT$; 270 FORI=1TO6:PRINTCW$;SP$;"@@@@";SP$;CW$;:PRINT:NEXT 280 PRINT," @@<cursor down><cursor left><cursor left>@@<cursor down><cursor left><cursor left>@@<cursor down><cursor left><cursor left>@@<cursor down><cursor left><cursor left>@@":COLOR1,10,2 290 PRINT"▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒";:POKE4071,102:POKE3047,31 300 F$="":F2$="":BX$=B1$:CX$=C1$ 310 GETA$ 320 COLOR1,10,4:PRINTCD$;CR$;BX$;B$;CD$;CC$;CX$;B$ 330 IFA$="I"THENPX=PX-1:SOUND2,100,2:CR$=LEFT$(CR$,PX):IFPX<1THENPX=1 340 IFA$="P"THENPX=PX+1:SOUND2,100,2:CR$=CR$+"<cursor right>":IFPX>14THENPX=14:CR$=LEFT$(CR$,14) 350 IFA$="Q"THENEV=EV+.01:SOUND2,1000,1:IFEV>2.4THENEV=2.4 360 IFA$="Z"THENEV=EV-.01:SOUND2,1000,1:IFEV<1.5THENEV=1.5 370 IFRND(0)<.5THEN430 380 M=INT(RND(0)*3)-1 390 CX=CX+M:IFCX>15THENCX=15:M=0 400 IFCX<4THENCX=4:M=0 410 IFM=1THENCC$=LEFT$(CC$,36-CX) 420 IFM=-1THENCC$=CC$+"<cursor right>" 430 IFF$="FIRED"THENGOSUB510 440 IFF2$="FIRED"THENGOSUB610:GOTO470 450 F2$="FIRED":PRINTCD$;CC$;C2$;B$;CD$;CD$;CC$;C3$;B$;:FY=1.5+RND(0)*.24:Y=1 460 SOUND2,850,1:CX$=C3$:F2=37-CX:GOSUB620 470 IFA$<>" "ORF$="FIRED"THEN310 480 PRINTCD$;CR$;B2$;B$;CD$;CD$;CD$;CR$;B3$;B$; 490 VY=EV*.7071:BY=1:SOUND3,200,10 500 BX$=B3$:FS=PX+2:F$="FIRED":GOSUB520:GOTO310 510 POKE3992+FS-INT(BY)*40+B%,CH 520 B%=B%+1:BY=BY+VY:VY=VY-.1 530 CH=PEEK(3992+FS-INT(BY)*40+B%):IFCH=32THEN590 540 SOUND1,0,0:SOUND3,800,10 550 IFCH=42THENPOKE3992+FS-INT(BY)*40+B%,32:F$="":B%=0:BY=0:VY=0:BX$=B1$:GOTO700 560 IFB%>16ANDCH<>32ANDCH<>102THENP1=P1+1:COLOR1,3,4:PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>";P1 570 POKE3992+FS-INT(BY)*40+B%,32:IFB%>16ANDCH=0THENCB=CB-1 580 IFCB=0THENSOUND1,1000,9:PRINT"<home><cursor down> YOU WON!!!":GOTO710 590 IFCH=32ANDB%+FS<40ANDINT(BY)>0THENPOKE3992+FS-INT(BY)*40+B%,42:RETURN 600 F$="":B%=0:BY=0:VY=0:BX$=B1$:RETURN 610 POKE3992+F2-INT(CY)*40-C%,C2 620 C%=C%+1:CY=CY+FY:FY=FY-.1 630 C2=PEEK(3992+F2-INT(CY)*40-C%):IFC2=32THEN690 640 SOUND1,0,0:SOUND3,900,20 650 IFC2=42THENPOKE3992+FS-INT(BY)*40+B%,32:F$="":B%=0:BY=0:VY=0:BX$=B1$:GOTO700 660 IFC%>17ANDC2<>32ANDC2<>102THENP2=P2+1:PRINT"<red><home><cursor down><cursor down><cursor down><cursor down><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><cursor right><cursor right>";P2 670 POKE3992+F2-INT(CY)*40-C%,32:IFC%>17ANDC2=0THENPB=PB-1 680 IFPB=0THENPRINT"<home><cursor down> THE <flash on>COMPUTER<flash off> WON...":GOTO710 690 IFC2=32ANDC%-F2<0ANDINT(CY)>0THENPOKE3992+F2-INT(CY)*40-C%,42:RETURN 700 F2$="":C%=0:CY=0:FY=0:CX$=C1$:RETURN 710 PRINT"<home><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down> ANOTHER GAME ?" 720 GETA$:IFA$=""THEN720 730 IFA$="Y"THENRUN160 740 PRINT"<clr>":END
�0,14:�4,11:�8:�"�":�1,6,6 D �" ��� �î � ��� �î"