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 �" ��� �î � ��� �î"