You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
=14 TO 21: PRINT AT N,3|'falling<br />
NEXT N: FOR N=1 TO 3: FOR<br />
M = 50 TO 0 STEP -2: BEEP .03,M: N<br />
EXT M: NEXT N: BEEP 1.3,-10: BEE<br />
P 2,-25: GO TO 8300<br />
3040 PRINT AT 10,0|"YOU WALK DOW<br />
N THE HILL SLOWLY. YOU ARRIVE H<br />
OME AND LIVE IN PEACE WITH A<br />
LL YOU NEED."'" CONGRATULAT<br />
IONS'": FOR B=5 TO 35 STEP 5: BE<br />
EP .5,B: NEXT B: FOR B=36 TO 4 S<br />
TEP -4: BEEP .3,B: NEXT B<br />
3050 PAUSE 100: GO TO 8500<br />
3999 REM ###LIFTtt##<br />
4000 LET M=1+INT (RND+2)<br />
4010 IF CD=M THEN BORDER 6: INK<br />
0: PAPER 7: CLS : LET TR=6: LET<br />
X=1+INT (RND*100>: PRINT AT 10,<br />
1 ! "IT WAS A LIFT!<br />
LOOK WHERE YOU ARE NOW 1 !<br />
(PRESS ANY KEY TO SEE)": PAUS<br />
E 0: CLS : GO TO 500<br />
4019 REM ###DRAGON###<br />
4020 IF CDOM THEN BORDER 2: PA<br />
PER 7: CLS : INK 0: PRINT INK 1<br />
J PAPER 6;"THERE IS A DRAGON!!!"<br />
4030 DIM A*(10,18)<br />
4040 LET A*( 1 > — "<br />
4045 LET A* ( 2) 53 "<br />
W<br />
4050 LET A*(3)="<br />
m<br />
4035 LET A«(4)»"<br />
•<br />
4060 LET A$(5)="<br />
4063 LET A*(6)="<br />
4070 LET A*(7)="<br />
•<br />
4073 LET A«(8)="<br />
•<br />
4080 LET A«(9)="<br />
4085 LET A*(10)="<br />
4090 FOR N=1 TO 10: PRINT AT N+5<br />
,61 INK 2)A*(N): NEXT N: FOR M=1<br />
TO 4: BEEP 1,-10! BEEP 1,-5: NE<br />
XT M<br />
4100 PAPER 7: INK 0: CLS<br />
4110 PRINT AT 4,0J"WILL YOU ADVA<br />
NCE (Key ""1"") OR RETREAT? (Key<br />
•"0*•) "<br />
4120 IF INKEY»="" THEN GO TO 41<br />
20<br />
SPECTRUM GAME<br />
4125 IF INKEY*="1" THEN GO TO 4<br />
200<br />
4130 IF INKEY»="0" THEN GO TO 1<br />
500<br />
4200 PRINT AT 8,4;" " ) AT 9,4)"<br />
"5 AT 11,4;" "J AT 12,4) " "<br />
4210 PRINT AT 10,0)"<br />
4220 PRINT AT 14,0$"YOU SEE A SW<br />
ORD LEFT BY A PREVIOUS ADV<br />
ENTURER.": PAUSE 100<br />
4230 IF RND>.5 THEN PRINT AT 17<br />
,0)"UNFORTUNATELY THE DRAGON'S F<br />
IRE BURNS YOU TO DEATH AS YOU<br />
PICK UP THE SWORD!": FOR N=3<br />
0 TO -15 STEP -IS BEEP -1,N: NEX<br />
T N: BEEP 1,-15: GO TO 8500 -<br />
4240 PRINT AT 17,0)"YOU STAB THF<br />
DRAGON IN IT'S HEART.": BEE<br />
P 3,-20: PRINT AT 19,0;"BEHIND T<br />
HE BODY IS A CORRIDOR OPEN THE<br />
DOOR AT THE END...": PAUSE 200:<br />
GO TO 2000<br />
7999 REM **##GRAPHICS###<br />
8000 FOR M=0 TO 5: FOR N=0 TO 7<br />
8010 READ C: POKE USR CHR« (144+<br />
M)+N,C<br />
8020 NEXT N: NEXT M<br />
8030 DATA 247,247,247,247,247,24<br />
7,247,247,128,192,224,240,224,19<br />
2,128,0,1,3,7,15,13,7,3,1<br />
8040 DATA 24,24,60,90,24,36,36,6<br />
6,60,24,60,126,233,235,126,60,32<br />
,230,226,62,62,34,33,129<br />
8050 RETURN<br />
8499 REM ##*»AGAIN?tt##<br />
8500 PAPER 7: CLS : BORDER 3: IN<br />
K 0<br />
8510 PRINT AT 10,1)"DO YOU WANT<br />
TO PLAY AGAIN"<br />
8520 IF INKEY*="• THEN GO TO 85<br />
20<br />
8330 IF INKEY*="Y" THEN BORDER<br />
6: CLS : GO TO 499<br />
8340 IF INKEY»=""N" THEN CLS : P<br />
RINT AT 8,4;"THANK YOU FOR PLAYI<br />
NG")AT 10,10;"GOODBYE"<br />
8550 STOP<br />
8599 REM H##TITLE*M#<br />
8600 INK 0: PRINT AT 9,11) PAPER<br />
6) BRIGHT 1 J"<br />
m<br />
8610 PRINT AT 10,11) PAPER 6) BR<br />
IGHT 1)"<br />
8620 PRINT AT 11,11) PAPER 6) BR<br />
IGHT 1)"<br />
8630 RETURN<br />
ZX COMPUTING DECEMBER/JANUARY 1985 97