10REM *************************
20REM *******SPACE PODS********
30REM ****FOR BBC MODEL 'B'****
40REM *************************
50MODE7:PRINTTAB(10,6);CHR$141;CHR$13
0;"SPACE PODS !";TAB(10,7);CHR$141;CHR$1
30;"SPACE PODS !"
60PRINTTAB(11,9);CHR$131;"By J.Henson
."
70PRINTTAB(3,16);CHR$129;"Do you want
instructions (Y/N)?";:G$=GET$:IF G$="Y"
THEN PROCINSTRUCTIONS
80MODE2
90ENVELOPE 1,1,-1,0,0,2,0,0,126,0,0,-
10,126,126
100SCORE%=0:T=20
110DEF FNpoint(X,Y)=POINT((64*X+32),(3
2*(31-Y)+16))
120VDU23,231,255,126,126,126,126,126,1
26,126,255:B$=CHR$231+CHR$231+CHR$231+CH
R$231
130VDU23,233,129,66,60,66,66,60,36,102
140VDU23,232,252,252,0,0,0,0,252,252
150COLOUR 129:COLOUR 6:CLS
160VDU23;8202;0;0;0;
170VDU 23,230,255,255,255,255,255,255,
255,255
180VDU23,240,0,0,255,0,0,255,0,0
190VDU23;8202;0;0;0
200A=-1
210A=A+1
220IF A=4 THEN A=16
230IF A>19 THEN GOTO 280
240FOR B=0 TO 29
250PRINTTAB(A,B);CHR$230
260NEXT B
270GOTO 210
280B=24
290B=B+1
300IF B>29 THEN GOTO 350
310FOR A=0 TO 19
320PRINT TAB(A,B);CHR$230
330NEXT A
340GOTO 290
350COLOUR 0
360PRINTTAB(7,28);B$
370COLOUR 0
380PRINTTAB(4,8);CHR$232
390PRINTTAB(4,16);CHR$232
400X=RND(11)+4
410Y=-1
420G$=INKEY$(0)
430IF G$="W" OR G$="X" THEN GOTO 530
440Y=Y+1
450IF Y>29 THEN PRINTTAB(X,Y-1);CHR$32
:PRINTTAB(X,Y);CHR$32:GOTO 400
460IF FNpoint(X,Y)=6 THEN PRINTTAB(X,Y
-1)CHR$32:PRINTTAB(X,Y)CHR$32:GOTO 400
470IF Y<>0 THEN PRINTTAB(X,Y-1)CHR$32
480PRINTTAB(X,Y)CHR$233
490IF Y=28 AND X>6 AND X<11 THEN PROCE
ND
500IF SCORE%>6000 THEN T=0
510FOR VB=1 TO T:NEXT VB
520GOTO 420
530REM WHICH ONE
540SOUND 0,1,100,1
550PROCTOP
560GOTO 420
570DEF PROCEXPLOSION
580SOUND 1,1,100,1
590SCORE%=SCORE%+250:PRINTTAB(2,31);"S
CORE:";SCORE%;TAB(0,30)
600Y=0:X=RND(11)+4:ENDPROC
610DEF PROCTOP
620COLOUR 0
630IF G$="W" THEN FY=8 ELSE FY=16
640FOR FX=5 TO 15
650PRINTTAB(FX,FY)CHR$240
660IF FX=X AND FY=Y THEN PROCEXPLOSION
670NEXT FX
680PRINTTAB(5,FY)" "
690ENDPROC
700DEF PROCEND
710RESTORE
720READ P%
730FOR A=1 TO 200:NEXT A
740IF P%=256 THEN PRINTTAB(4,14)"YOU A
RE DEAD"
750IF P%=256 THEN PRINTTAB(4,16)"ANOTH
ER GO ?";:G$=GET$
760IF G$="Y" THEN GOTO 90
770IF G$="N" THEN CALL !-4
780IF G$<>"Y" ANDG$<>"N" AND P%=256 TH
EN GOTO 750
790IF P%=257 THEN FOR A=1 TO 200:NEXT
800IF P%<256 THEN SOUND 3,-15,P%,1
810GOTO 720
820DATA 81,69,53,69,81,257,69,257,61,7
3,49,61,73,257,61,257,81,69,53,69,81,257
,69,257,33,41,49,53,256
830DEF PROCINSTRUCTIONS
840CLS
850PRINTTAB(10,3)CHR$141;CHR$130;"SPAC
E PODS !";TAB(10,4)CHR$141;CHR$130;"SPAC
E PODS !"
860PRINTTAB(0,8);"The object of the ga
me is to stop the space pods eating th
ere way to your baseTo stop them you hav
e to shoot them downwith your laser guns
.You have two laser guns which can be fi
red by pressing either W or X."
870PRINT"Every time you hit a space po
d you will get 250 points."
880PRINT"Press any key to continue.":G
$=GET$:ENDPROC