spectrum utility - OpenLibra

More documents

Recommendations

Info

5 0 0 1000 1 0 0 5 1010 1020 1030 GOTO 3 1 0 REM NORTH LET N = N + 1 CLS GOSUB 5 5 0 0 P R I N T "HERE F FACE " 104-0 P R I N T MARKINGS 1 IS A SHEER C L I F HERE IS DOOR WITH RUNE 104-2 P R I N T , "DO 1 0 5 0 P R I N T ::TRS 1060 1070 1030 1090 OPEN ' 1130 1140 1150 1150 1170 1200 1210 1220. 2O00 2005 2006 2 0 0 7 2010 2020 2 0 3 0 PRINT TAB P R I N T THB P R I N T ~HB P R I N T THB (0) " 1100 P R I N T TPS 1110 P R I N T ~A6 RETURN " (R " 1120 P R I N T TRB P R I N T THB P R I N T THB P R I N T THS P R I N T THB GOSUB 9 8 0 I F Z$ = "0" THEN GOTO 6 9 0 0 IF Z$ = " R " THEN GOTO 4 3 0 GOTO 1000 REM ERST LET E =E +1 I F E = 1 LET E=E CLS THEN +1 LET T =T + 1 2 0 5 0 2 0 5 5 2060 2070. 2 0 3 0 ST? 2 0 9 0 2120. 0 GOSUB 9 5 0 0 P R I N T "HERE IS H F$; GOOSEBERRIES," 204-0 P R I N T P R I N T P R I N T 'HERE IS R HUT" P R I N T P R I N T 'DO VOU WANT TO P R I N T 'ENTER? (E) " "RETURN"? (R GOSUB 9 3 0 0 I F I N K E Y $ = ' E " THEN GOTO II-C 2 1 3 0 IF 214-0 I F TAB 12; 1 - 1 4 5 PRUSE 2 1 5 0 2200 2210 2220 22 30 INKEY 5= 'P THEN INKEY $ = " F " THEN !S ..prg., == ,-• 150 GOTO 2 0 0 0 REM I N S I D E HUT CLS GOSUB 9 5 0 0 ZX ADVENTURE = FR GOTO 4 3 0 PRINT GOSUB 350.0 2 2 4 0 I F D =0 THEN P R I N T ONE BOX I S UNOPENED AND HAS A LRSE^ wi TH RUNES SAYING GTPC -'J R " , , , " D O YOU UANT TO - 2 2 4 5 I F D = 1 THEN P R I N T "THE _RBE L FROM YOUR OPENED BOX L I E S ON THE FLOOR." 2 2 5 0 RUE? P R I N T (L.! " . , , " R E A D ? (R) 2 2 5 5 (0) 2260 I F D=0 THEN P R I N T . 2 2 9 0 2 4 0 0 2 3 0 0 I F Z$ = ' L" 2 3 0 2 I F Z$ = "R" T , , " I M P O S I B L E ARY . " 2 3 0 5 I F Z$ = ; , , , " L E OPEN 3 6 0 0 'R" 2 3 1 0 PAUSE 150 2 3 2 0 GOTO 2 2 0 0 24-00 REM OPEN THE BOX 2 4 1 0 LET D = 1 7 GOSUB 9 3 0 0 IF Z$ = 0" AND D =0 THEN GOTO THEN GOTO 200O AND D =0 THEN P R I N WITHOUT A D I C T I O N AND D =1 Ti-tEN GOTO 2 4 2 0 CLS 2 4 3 0 GOSUB 9 5 0 0 2 4 4 0 P R I N T I N S I D E I S R RUNE I N T 0 ENGLISH DICTIONARY , •• 2 4 5 0 P R I N T J " I T SAYS TRAN5I_AT E BY READING EACH LE T TER TO TH E LEFT OF THE RUNE ON THE KEYBO ARD. NOTE ALSO THAT Z=L . A=P D 0 = M . " " " £4-62 P R I N T ; PUSH AN', KEV T:I R.N NTINUE £4-65 PAUSE 4 0 0 0 0 24-70 GOTO 2 2 0 0 3 0 0 0 REM SOUTH 3 0 0 5 LET 3 = 3 - 1 3 0 0 6 I F 3 = 1 THEN ^RT + 1 3 0 0 7 LET 3 = 3 - 1 3 0 1 0 CLS 3 0 2 0 GOSUB 9 5 0 3 3 0 3 0 P R I N T "HERE IS A MIS". - 5 • f i i r 3 0 5 0 P R I N T J HERE IS A HOLE - - T H UATER NOISES" 3 0 6 0 I F K =0 THEN PRINT MERE I S A KEY WITH RUNE MARKINGS 3 0 7 0 P R I N T , DO YOU UANT TO - 3 0 8 0 P R I N T . ENTER? (E! ' , • :=- LEER'"' (S> " . . 'RETURN? FR} : 3 0 3 5 I F K =0 THEN P R I N T "TA-.E (T) " 3 0 9 0 GOSUS 9 3 0 0 3 1 2 0 I F Z%- THEN GOTO 4 0 0 0 3 1 4 0 I F Z 5= R THEN GOTO 4-30 3 1 5 0 I? UHA G$; OF 7 3 8 0 0 K =0 AND Z$ —"T" THEN 3OTF; 3 1 6 0 I F Z$ = 5 THEN P R I N T T. . . .AND CATCH PNEUMONIA?' 3 1 3 0 PAUSE 3 0 0 3 1 9 0 GOTO 3 0 0 0 4 0 0 0 REM WEST 4 0 0 5 LET W=U+I 4 0 0 6 I F U = 1 THEN ^E^ T =T -F 1 4 0 0 7 LET W=W + I 4 0 1 0 CLS 4 0 2 0 GOSUB 9 5 0 3 4 0 3 0 P R I N T HERE IS R FORTUNE . BL 4 0 5 0 P R I N T . , 'HERE IS A M I S T ACK HOLE" 4 0 6 0 I F M=0 THEN P R I N T HERE I 5 A RUNE MAP' 4 0 7 0 P R I N T ,: DO YOU WANT TO - 4 0 3 0 P R I N T ; . ENTER? I.E.I " . , L R I N K ? (OF " . ' R ET U R N ? OI 4 0 3 5 IT) I F M =0 THEN P R I N T =; TA^.£* 4 0 9 0 GOSUB 9 8 0 0 4 1 2 0 I F Z $ = "E" THEN GOTO 3 0 0 0 4 1 4 0 IF Z$ = " R T H E N GOTO 4 3 0 4 1 5 0 I F M =0 AND Z$ = "T" THEN GOTO 3 7 0 0 4 1 6 0 IF Z $ = " D " AND D=0 THEN P R I N T , "THE " ; G$ : " SAYS ""TO READ T HE MAP YOU NEED A DICTIONARY 11 4 1 7 0 I F Z$ = "D" AND D = 1 THEN P R I N T ,.,"YOU ARE NO LONGER THIRSTY 4 1 6 0 PAUSE 3 0 0 4 1 9 0 GOTO 400.0 5 0 0 0 REM INTO INC- LAND 5 0 1 0 CLS S020 GOSUB 9 5 0 0 5 0 3 0 I F C=0 THEN P R I N T WELL CON E. ING-LAND I S NEAR " 5 0 4 0 I F 0 = 0 THEN P R I N T , , , , " T H E DOOR SLAMS SHUT BEHIND Y O U . " 5 0 4 5 P R I N T , ,"YOU ARE IN A T U N N E L . " , J ,"THERE IS A POINT OF L I G H T AHEAD." 5 0 5 0 IF C=0 THEN P R I N T , . , " I 70 ZX COMPUTING APRIL/MAY 1985 -
HOPE YOU HNYT A NOTE OF ^HE" R.E YWORDS IN ENGLISH J .THEY MAYBE 0 F USE LATER...THERE ARE MORE T O C DUE- SO KEEP OUR EYES OPEN > 5050 PRINT : , , 'PUSH ANY KEY ~C TRAVERSE TUNNEL , " 5070 PAUSE 40000 5050 CLS 50-90 IF 0=0 THEN _ET T=T~I 5I00 GO 505 9S00 5110 IF Col THEN PRINT '"0U EX I T THE TUNNEL INTO THE • "VALLE Y OF ";J$;"""" 5ISO PRINT .- , ' YOU CAN SEE - 5130 PRINT . WEST -A HONEY" CO MS OF CAVES. 514-0 PRINT , ' NORTH-A GLASSY LAB E . " 5150 PRINT . EAST" _M DARK FORES T . " 51S0 PRINT , • ; ! ' UHIGH DIRECT10N' (N,E OR W) ' 5170 GOSUB 9500 520O IF Z$ = "W" "HEN GOTO SQOO 5510 IF Z$="N" THEN GOTO 5500 5220 IF Z 5 = E THEN GOTO 5500 5230 GOTO 5170 5500 REM FOREST 5505 LET F-F+L 5510 CLS 5520 IF F =1 THEN -ET T^T + 1 5530 GOSUB 9500 5540 PRINT "HERE IS THE ACRID. 5550 IF L=0 THEN PRINT "IMPENETR ABLE !! 5555 IF L : >0 THEN PRINT "INK BL ACK " 55S0 PRINT "FOREST OF ";A$;", ' 5570 PRINT ,,"DO VOU WANT TO - 5575 PRINT T .'ENTER? (E)", L ISTEN? IL' "J , , ,"RETURN? (R;" 55S0 GOSUB 9300 5590 IF Z5 ="E" AND L0 THEN GOT 0 7O0O 5610 IF Z 5 = " E " AND L=0 THEN GOTO 5300 5620 IF Z$="R" THEN GOTO 50SO 5530 IF Z*="L" TRTEN PRINT , OU HEAR T HE CACKLE OF EXCITED ALI EN VOICES. 5640 PAUSE 2O0 5650 GOTO 5500 53O0 IF Z$ ="E" AND L =0 THEN PRIN T . , IMPOSSIBLE FROM HERE." 5310 PAUSE 150 5320 GOTO 5500 6O00 REM CAVES 6O05 LET C=I 5O20 CLS 6030 GOSUB 9500 6040 PRINT "HERE IS A CAVE ENTRA NCE. " 6050 PRINT ;,"DO OU WANT TO - SO60 PRINT , ,"LISTEN? TL) " , , , • E NTER? (E) I: ,M, "RETURN? C R J " 6O70 GOSUB 93O0 6075 IF Z$="E" THEN LET 0=2 6030 IF Z* = E' THEN GOTO 5000 6035 IF Z$= L THEN GOTO 6110 609O IF Z$="R" THEN GOTO 5030 610O GOTO 6O70 6110 PRINT , "A MYSTERIOUS HAUNT ING VOICE SAYS' 'REMEMBER TO AHSU ER ""QUEST"" WHEN YOU ARE ASKED WHAT YOU WANT TO KNOW 6120 PAUSE 300 5130 GOTO 6000 6505 LET L =L + 1 6510 CLS ZX ADVENTURE 6520 IF L = 1 THEN LET T=T + 1 5530 GOSUB 95O0 654-0 PRZUT 'HERE IS THE SOuT- BA NK OF A MIRROR-LIKE LAKE MAD E OF ";D5 6550 PRINT : :: IT IS FED B, A BLA CK,PUNGENT STREAM OOZING FROM A FOREST TQ THE EAST. 6560 PRINT STRANGE BLAC-- =CCT PRINTS LEAD INTO THE FORES", 6570 PRINT DO YOU WANT TO - 6530 PRINT 'FOLLOW- (F.i " , , ,"5 WIM ? IS} ", , , ,"RETURN? (R) " ^590 GOSUB 9300 5600 IF Z 5 = ' : F" THEN GOTO 5500 &610 IF Z $ = "R" THEN GOTO 5030 5620 IF Z3 ="5' THEN GOTO 6650 5630 GOTO 6590 5650 PRINT AT IS , 13 ; "EUGGH . . -iHAT A MESS .- " 5650 PAUSE ISO 66 70 GOTO 6500 7000 REM INTO FOREST 7001 LET X=0 7002 LET X=X+i 7003 LET 0=0+1 7005 CLS 7010 GOSUB 95O0 7O20 PRINT "THE TREES GROW Fp:~M POOLS OF ";D$ 7O30 IF X B$ ;"," ,;"AND RULER OF THE VHLL EY OF ' 724.0 PRINT ,,"HE ASKS 'WHAT DC YOU WANT TO KNOW~ 7250 INPUT Z 5 7260 IF Z3= QUEST THEN GOTO ~50 O _ 7^70 PRINT , " L I S T E N TO THE CH VES , " !! " 72S0'PAUSE 150 7290 GOTO i=.0O0 7500 CLS 7505 LET Y =Y +1 7510 GOSUB 95O0 7515 PRINT "THE CAPTAIN SAYS 7520 PRINT ,,"""BEFORE I ANSUEP YOU, TELL ME - 7530 PRINT , " " T H E F1P5T h EY WORD ON THE BOX LABEL. iIN EN GLISH) 7540 INPUT Z$ 7550 IF Z$="GIFT" THEN GOTO 3000 7550 PRINT z$; " IS NOT CO RRECT""" 1 985 r ZX COMPUTING APRIL/MAY 1 985 71
Page 1 and 2:
Special New Supplement ^ ^ ^ ^ The
Page 3 and 4:
THE FASTEST WAY TO GET THE BEST PRO
Page 5 and 6:
3MW ZX Coin puling is published bi-
Page 7 and 8:
How to play Valhalla Dear Sirs, t l
Page 9 and 10:
Bugs Dear ZX Computing My children
Page 11 and 12:
S$ Mid$ (S$, 7,4) becomes: LET S$ =
Page 13 and 14:
4-00 FOR - = i "0 INT ( RND»7 4-£
Page 15 and 16:
and 'new paragraph' in the text so
Page 17 and 18:
POWERFUL AND INEXPENSIVE BUSINESS S
Page 19 and 20: PASS ALL THE QUESTIONS AND DISCOVER
Page 21 and 22: one to review it right away! Our co
Page 23 and 24: "nn 1 COMMM JOYSTICKS MMM The Cheet
Page 25 and 26: 1010 PRINT "INPUT THE LENGTH 1020 I
Page 27 and 28: Meet the Gang! IsT EVER MULTI-ROLE
Page 29 and 30: had a vague idea that professional
Page 31 and 32: PAUL MCCARTNEY'S When the ^ music s
Page 33 and 34: This message is transmitted in stan
Page 35 and 36: SPECTRUM UTILITY A PRESENT FROM UNC
Page 37 and 38: (S^ JZ i f ratte A b faa 32256 7E00
Page 39 and 40: 3606,0: POKE 2360-', 60: STOP LET y
Page 41 and 42: REWRITE THE HIGH SCORE TABLES So, y
Page 43 and 44: 300-360 400-420 500-520 600-640 650
Page 45 and 46: 312 IF PT1 A—1 THEN PRINT * VERY
Page 47 and 48: 1266 GO SUB 90 1267 FOR A=2 TO 5: P
Page 49 and 50: 1550 PRINT AT 5,2;"1";TAB 9; "2"; T
Page 51 and 52: Well take you beyond the Spectrum.
Page 53 and 54: ething • congame, :US Ex a God le
Page 55 and 56: mm e. Ca^® ROCKET MAN LOOK! NOW TH
Page 57 and 58: twenty entrants who make up the mos
Page 59 and 60: •'LEVELS not iust revision but al
Page 61 and 62: Educational Software are at: 20 Bea
Page 63 and 64: , >. 5 OR ATTR =62 THEN LE T it=ltM
Page 65 and 66: • 8115 DATA 24,24,24,60,126,126,2
Page 67 and 68: 985 SPECIAL FEATURE come on in Prog
Page 69: TT You are Captain of the Earthship
Page 73 and 74: ZX PROGRAMMING CREATING AN ADVENTUR
Page 75 and 76: FIGURE 5. ZX8 7 VERB SET UP 8000 DI
Page 77 and 78: (SPECTRUM ADVENTURE! ITS A full adv
Page 79 and 80: 145 IF b»( TO 3>=n«( TO 3) THEN G
Page 81 and 82: 5 URN 1199 REM ** GET 1200 IF tell
Page 83 and 84: ND x 3 2350 2332 10 THEN 7 THEN SPE
Page 85 and 86: he path, to"*"prepare your peopl e
Page 87 and 88: 5 furolrj * C/e Of Bain raor t e Fa
Page 89 and 90: tions. Last time, I described the s
Page 91 and 92: Fig. 2. Demonstration of Z80 Arithm
Page 93 and 94: ZX PROGRAMMING The hexloader places
Page 95 and 96: The Collins Collection Collins have
Page 97 and 98: 5 of saving the creatures on this p
Page 99 and 100: varying degrees of Artificial Intel
Page 101 and 102: • GENERAL ARTICLE SCREEN MACHINE
Page 103 and 104: n. et or 985 cancelled by bad weath
Page 105 and 106: variable string A$, the last two di
Page 107 and 108: SHARP'S INVADES ENGLAND! WAR in the
Page 109 and 110: VK R v . m > FX:;,* N ' 4 - 4 i A'*
Page 111 and 112: Alphabetical order Dear David, I ha
Page 113 and 114: SK1 • connected. When you are sat
Page 115 and 116: [SOFTWARE REVIEWS! An extended sect
Page 117 and 118: the program come in the form of a f
Page 119 and 120: SPECTRUM GAME PATIENCE V — PAIRS
Page 121 and 122:
1630 FOR N- ; PAPER 6 i 1640 640 IF
Page 123 and 124:
Getting a program typed in is often
Page 125 and 126:
[PROGRAMMING TIPS) ZX81 Spectrum Co
Page 127 and 128:
up with codes 63 and 64 the same as
Page 129 and 130:
Lineage: 40p per word. F^ 1 mSmm Se
Page 131:
NAVIGATOR Shy. StAil and InMligmt-P
show all

spectrum utility - OpenLibra

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?