ZX Computings - OpenLibra
ZX Computings - OpenLibra
ZX Computings - OpenLibra
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
HORRORVILLE<br />
1 REM flDUENTURE<br />
2 RRND<br />
5 DIM H(3><br />
10 DIM Z (15i<br />
15 LET R.13S<br />
20 GOSUB 9000<br />
30 G09UP 1500<br />
4-G CL9<br />
50 LET H$ = " 3NftKE "<br />
GOSUB 1000<br />
11*3 PRINT "N,E,3 OR U<br />
115 PftUSE 9999<br />
120 LET Y$=INKEYJ<br />
130 IF = THEM LET B--33<br />
96<br />
Only for the brave! Dare you take on the might of the<br />
8K ROM in this ADVENTURE program for the 16K<br />
<strong>ZX</strong>81, written in gruesome detail by N. Alexander of<br />
Margate. Once you've survived the Alexandran horrors,<br />
you can change lines 6000 to 6500, and 8000 to 8500<br />
to enter your own adventures.<br />
14-0 IF Y$="S" THEN LET B = 33<br />
150 IF Y $ = "E" THEN LET 5 = 1<br />
160 IF Y $ = " U " THEN LET 6 = -l<br />
170 LET ft=ft+B<br />
175 IF PEEK iP+ft) =0 THEN GOTO<br />
300<br />
190 If* Rxl75 THEN GOTO Z ( 1 J<br />
200 IF ft =4.4.6 THEN GOTO Z (£><br />
210 IF ft a 160 THEN GOTO Z ( 3)<br />
220 IF R -53 1 THEN GOTO Z (4)<br />
230 IF ft =236 THEN GOTO Z (S)<br />
24.0 IF ft = 166 THEN GOTO Z (6)<br />
250 IF O=290 THEN GOTO Z (71<br />
260 IF ft =6 1B THEN GOTO Z CS)<br />
<strong>ZX</strong> COMPUTING SUMMER 1982