All Topics Users older than one year ago
ONLINE
Here, have a game for the BBC Micro.
----------------------------------
100 REM ZOMBIES
110 GOSUB 1100
120 PRINT "......ZOMBIES
130 LET T=2:GOSUB 1400:GOSUB 2800
140 PRINT:PRINT ".******************"
150 FOR I=1 TO 13:PRINT ".*................*":NEXT I
160 PRINT ".******************"
170 DIM Q(8,2)
180 DIM Z(4,2)
190 FOR I=1 TO 4:LET N=16:GOSUB 1300:LET Z(I,1)=R+1:LET N=13:GOSUB 1300:LET Z(I,2)=R+1
200 LET X=Z(I,1):LET Y=Z(I,2):GOSUB 1700:PRINT "Z";
210 NEXT I
220 FOR I=1 TO 8:LET N=16:GOSUB 1300:LET Q(I,1)=R+1:LET N=13:GOSUB 1300:LET Q(I,2)=R+1
230 LET X=Q(I,1)=R+1:LET Y=Q(I,2):GOSUB 1700:PRINT "*";
240 NEXT I
250 LET N=16: GOSUB 1300: LET A=R+1:LET N=13:GOSUB 1300:LET B=R+1:LET X=A:LET Y=B
260 GOSUB 1700:PRINT "H";:LET N=4
270 GOSUB 1500:GOSUB 3100:LET G=GG-48:IF G<1 OR G>9 THEN GOTO 270
280 LET X=A:LET Y=B:GOSUB 1700: PRINT ".";
290 LET D=INT((G-4)/3):LET C=G-3*D-5:LET A=A+C:LET B=B+D
300 IF A=1 OR A=18 OR B=1 OR B=15 THEN GOTO 320
310 GOTO 330
320 LET M$="YOU'RE.IN.THE.SWAMP":GOTO 480
330 LET F=0:FOR I=1 TO 8: IF A=Q(I,1) AND B=Q(I,2) THEN LET F=1
340 NEXT I:IF F=1 THEN LET M$="YOU'RE.IN.QUICKSAND":IF F=1 THEN GOTO 480
350 FOR I=1 TO 4:IF A=Z(I,1) AND B=Z(I,2) THEN LET F=1
360 NEXT I:IF F=1 THEN LET M$="YOU'RE.CAUGHT!": IF F=1 THEN GOTO 480
370 LET X=A:LET Y=B:GOSUB 1700:PRINT "H";:LET Z=50:GOSUB 2400:LET T=0.5:GOSUB 1400
380 FOR I=1 TO 4:IF Z(I,1)=0 THEN GOTO 460
390 LET T=0.5:GOSUB 1400:LET X=Z(I,1):LET Y=Z(I,2):GOSUB 1700:PRINT ".";:LET F=0
400 LET X=X+SGN(A-X):LET Y=Y+SGN(B-Y):LET F=0:FOR J=1 TO 8:IF X=Q(J,1) AND Y=Q(J,2) THEN LET F-1
410 NEXT J:IF F<>1 THEN GOTO 430
420 LET N=N-1:LET Z(I,1)=0:LET Z=35:GOSUB 2400:GOTO 460
430 GOSUB 1700:PRINT "Z":LET Z(I,1)=X:LET Z(I,2)=Y:LET Z=20:GOSUB 2400
440 IF X=A AND Y=B THEN LET M$="CAUGHT!":GOTO 480
450 GOSUB 1700:PRINT "Z":LET Z(I,1)=X:LET Z(I,2)=Y
460 NEXT I:IF N>0 THEN GOTO 270
470 LET M$="YOU'VE.MADE.IT!"
480 LET X=1:LET Y=16:GOSUB 1700:PRINT M$;
490 LET T=4:GOSUB 1400:GOSUB 2800:PRINT:PRINT:STOP
--------------------------------------
This the list of subroutines you'll need to make this game work; they need to be saved to a separate tape.
--------------------------------------
1000 REM BBC SUBROUTINES
1100 MODE 5:VDU 19,0,4;0;:W=20:D=32:F=8:GOSUB 1200:RETURN
1200 CLS:PRINT TAB(0,8);:RETURN
1300 R=RND(N):RETURN
1400 FOR Z=1 TO 1000*T:NEXT Z:RETURN
1500 G$=GET$:RETURN
1600 K$=INKEY$(0):RETURN
1700 PRINT TAB (X,Y);:RETURN
1800 PRINT TAB (X);:RETURN
1900 PRINT CHR$(11);:RETURN
2000 PRINT CHR$(9);:RETURN
2100 INPUT K:RETURN
2200 INPUT K$:RETURN
2300 MODE 7:RETURN
2400 SOUND 1,-15,Z,2:RETURN
2500 R$=CHR$(R+64):RETURN
2600 P$=MID$(K$,P,1):RETURN
2700 GOSUB 2600:A=ASC(P$):RETURN
2800 CLS:RETURN
2900 DIM V$(26):RETURN
3000 DM W$(60):RETURN
3100 GG=ASC(G$):RETURN
1 
2 
1 
