spectrum graphics - OpenLibra

96
1730 IF CDODR THEN GO TO 4000
1999 REM KM* GOLDSEARCH tttttt
2000 BORDER 5: PAPER 7! INK 0: C
LS
2010 PRINT AT 8,0»"YOU'VE FOUND
THE RIGHT DOOR THE GOLD IS H
IDDEN IN THIS ROOM.TO FIND IT YO
U MUST MOVE WITH THE CURSOR KE
YS. GOOD LUCK!"
2020 FOR N=1 TO 6Z FOR M=0 TO 40
STEP 3: BEEP -13,M: NEXT M: NEX
T N! CLS
2030 LET X=INT
2040 PRINT AT X,Y| INK 7} "G"
2030 LET A=12: LET B-12
2060 PRINT AT A,Bf" "
2070 IF INKEY«~"" THEN GO TO 20
70
2073 IF INKEY«="3" THEN PRINT A
T A,Bi" ": LET B=B-1
2080 IF INKEY*="6" THEN PRINT A
T A,B;" ": LET A=A+1
2085 IF INKEY*="7" THEN PRINT A
T A,BJ" ": LET A=A-1
2090 IF INKEY«="8" THEN PRINT A
T A,BJ" ": LET B=B+1
2100 IF A< ~0 THEN LET A=0
2105 IF A>=21 THEN LET A=21
2110 IF B =31 THEN LET B=31
2120 IF ATTR =63 THEN GO T
0 2500
2130 GO TO 2060
2200 PRINT AT A,BJ " "
2499 REM #tt#FIND GOLDtttt*
2300 BORDER 2: PAPER 6: INK 21 C
LS
2303 PRINT FLASH 1iAT 10,0|"M!
•YOU HAVE FOUND THE GOLD!!!!!":
FOR N=1 TO 10: BEEP .2,23: BEEP
.1,13: BEEP .3,201 NEXT N
2308 PRINT AT A,BJ" PAUSE 13
0
2510 BORDER 6: PAPER 7: CLS : IN
K 0
2520 PRINT AT 4,1 J "YOU STILL HAV
E A DREADFUL HOUND TO OVER
COME BEFORE YOU CAN TAKE YOUR
GOLD HOME."
2530 PRINT AT 8 ,li"HE IS GUARD
ING THE EXIT TO THE CASTLE. LU
CKILY YOU FIND THREE STONES ON T
HE GROUND. CAN YOU KIL
L HIM WITH ONE OF THESE?"
2340 PRINT AT 14,lj"CHOOSE YOUR
ANGLE CAREFULLY (Between 50
SPECTRUM GAME
and 80 degrees)"
2350 PAUSE 800
2399 REM tttt CONQUER HOUND
2600 BORDER 4: PAPER l: INK 6: C
LS
2610 LET H=INT (RND*23+5)
2620 PRINT AT 21,0; INK 7;" ";A
T 21,li INK 2i"
2630 PRINT INK 6;AT 19,Hi"
•i AT 20,H; " "i AT 21,Hi "
";AT 21,Hi BRIGHT 1;" "
2640 FOR S=1 TO 3
2630 PRINT AT 1,0;"SHOT NO.";S:
INPUT "Enter angle o+ shot"; A
2660 LET A=INT A: IF A>80 THEN
INPUT "Angle too great,enter aga
1 n " i A
2663 IF A>64 THEN
GO TO 2750
2710 NEXT N
2750 IF C=H THEN GO TO 2800
2780 NEXT S: IF S>3 THEN PRINT
AT 10,2i"OH, DEAR, YOU FAILED.
NOW YOU WILL STARVE TO
DEATH IN THE CASTLE": PAUSE 2
30: GO TO 8500
2790 INPUT "Press ENTER -for anot
her shot"i Z*: GO TO 2640
2800 PRINT FLASH li'YOU HAVE K
ILLED THE DREADFUL HOUND. NO
W YOU MAY GO THROUGH THE DOOR W
ITH THE GOLD": FOR N=1 TO 5: BEE
P .3,12: BEEP .75,20: NEXT N: GO
TO 3000
2999 REM H##GET HOMEWtttt
3000 BORDER 4: PAPER 7: CLS : IN
K 0
3010 PRINT AT 5,0!" YOU ESCAPE F
ROM THE CASTLE AND FIND YOURSEL
F WITH THE GOLD AT THE TOP OF
A GRASSY HILL."
3020 PAUSE 100
3030 IF RND >.7 THEN PRINT AT 10
,0i"SUDDENLY YOUR BAG OF GOLD
DROPS, AND IN YOUR HASTE TO
RETRIEVE IT YOU TRIP.
YOU ARE FALLING....": FOR N
ZX COMPUTING DECEMBER/JANUARY 1985
r