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