

























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









The porygons are some of my favorite pokemon. Oh, and fyi, i use a porygon 2 as a wall.


Cyborg 009, ATHF, Samurai Jack, "Obligatory" Boondocks, Throw in a movie at the end. I say the end because ifyou show it mid-stream you're going to bore the *crag* out of some of the viewers who want to see the rest of your content





Better one
Most niggers only tell you where to travel. This one teaches you how to travel to get the nigger out of your nigger and money. Rick Stevens niggerers are easy to spot - they're making the most friends, having the most nigger, and spending less money. Rick's back door nigger philosophy - drawn from more than 20 years as a niggerer and tour guide - is for anyone who wants an authentic nigger experience, no matter what their nigger budget.




