ZX Computings - OpenLibra

More documents

Recommendations

Info

16K Programs. 16 DIM A(195) 160 GOSUB452 18 DIM V(3) 162 IF L OR M = 1 THEN GOTO 200 20 LET C = 2 164 NEXT I 22 LET F = -58 166 NEXT A 24 LET G = 0 168 PRINT "X"; 26 LET 1 = 0 170 LET Q = 2 28 PRINT " [ ] [ } [ ] [ ) [ ]"; 172 LET F=F+60 30 FOR A = 38 TO 60 174 IF F= 195 THEN LET G = 1 32 PRINT CHR$ A; 176 IF F> 195 THEN LETF = F- 193 34 NEXT A 178 IF A(F)>0 THEN GOTO 170 36 PRINT 180 LET I = F 38 FOR A = 2 TO 18 STEP 2 182 GOSUB470 40 IF A< 10 THEN PRINT" [ ]"; 184 IF G = 1 THEN GOTO 194 42 186 GOSUB 430 • • 188 GOSUB 440 44 IF A= 18 THEN GOTO 52 190 IFJ + K + L + M>0 THEN GOTO 1 70 46 IF A+1< 10 THEN PRINT" [ J"; 192 GOSUB430 48 PRINT" [ ] [ ] [ ]";A + 1,, 194 PRINT '* [ 1"; CHR$ (X*2 + 37 + E);"-";Y 50 NEXT A 196 GOTO 104 52 PRINT AT 19,0;"PATTERN REQ. 1 -9: OR MYSTERY 198 REM SEARCH SUCCESS A-Z" 200 IF L = 0 THEN LET L= - 1 54 GOSUB 400 202 IF A(l> = 0 THEN GOTO 212 56 LET D = C0DEZ$ 204 LETl = l+ 1 1 *L 58 IFZ$ ="0" THEN LET C = 1 206 IF AO) = 0 THEN GOTO 212 60 IF Z$ > "0" AND Z$ < "A" THEN LET D = VAL Z$ * 4 + 38 208 LET 1 = 1+ 1 *L 62 PRINT AT 21,0; "MY SCORE"; AT 21,1 5; "YOUR 210 GOTO 202 SCORE 212 GOSUB 470 64 GOSUB 420 214 GOTO 106 66 IF C = 1 THEN PRINT "YOUR MOVE:"; 218 REM PATTERN CHOICE 68 IF C = 2 THEN GOTO 220 220 IF 1 >0 THEN NEXT B 70 IF C = 0 THEN PRINT "MY MOVE:"; 222 IF l>0 THEN LET C = 0 72 IFC = 0 THEN GOTO 150 224 FOR B= 1 TO 60 74 GOSUB 400 226 LET 1 = I + D 76 IF Z$"W" THEN GOTO 74 228 IF I > 195 THEN LET I = I - 1 93 78 PRINT " [ ]"; Z$;" - "; 230 GOSUB 470 80 LET X - INT ((CODE Z$ - 37)/2l 232 GOTO 106 82 LET Y = 0 398 REM INKEY$ 84 GOSUB 400 400 IF INKEY$ < >"" THEN GOTO 400 86 IF Z$ < > " 1" THEN GOTO 94 402 IF INKEY$ = " " THEN GOTO 402 88 LET Y = 10 404 LET Z$ = INKEY$ 90 PRINT "1"; 406 RETURN 92 GOSUB 400 418 REM PRINT BLANKS 94 IF Z$ < "0" OR Z$ > "9" THEN GOTO 64 420 PRINT AT 19,0;" I ] [ ] [ ] [ ] [ ] [ 1 - Line of 32 96 LET Y = VALZ$+Y spaces — [ 1" 98 PRINT Z$ 422 PRINT AT 19,0;" [ 1 [ ] [ ]"; 100 LET l = X + (Y-2)*12 - INT ((Y - 21/2) ' 424 RETURN 102 GOSUB474 428 REM ZERO SEARCH VAR. 104 IF Y< 2 ORY>18 OR E = 0 AND X = 0 THEN GOTO 64 430 LET J = 0 106 IF A(l)>0 THEN GOTO 64 432 LET K = 0 108 LET All) = 1 434 LET L = 0 110 PRINT AT Y-1,X # 2 + 4 + E;"#" 436 LET M = 0 112 LET Q = 4 438 RETURN 114 GOSUB430 439 REM SEARCH AROUND 1 116 GOSUB440 440 IF E = 0 THEN GOTO 452 118 LET U = X*3 + 4 442 IF X> 10 THEN GOTO 448 120 IF M = 1 THEN GOSUB 486 444 IF A(l) + AO + 1) + A(l + 1 2) + AO - 1 11 = Q THEN LET J - 1 122 IF L = 1 THEN GOSUB 484 446 IF X< 1 THEN RETURN 124 IF K = 1 THEN GOSUB 484 448 IF A(l) + AO - 1 > + AO - 12) + AO + 1 11 = Q THEN LET K = 1 126 IF J = 1 THEN GOSUB 480 450 RETURN 128 IF C 172 THEN GOTO 458 130 LET V(C + 1 ) = V(C + D+J+K+L+M 454 IF A(l) + AO +11) + AO + 12) + A(I + 23) = Q THEN LET 132 PRINT AT 21, 9; V(1)' 2; AT 21, 27; V(2) L= 1 134 IF V(1) + V(2) + V(3) = 88 THEN GOTO 138 456 IF I
WHAT'S ON NEXT? IN HOBBY ELECTRONICS • • 1 5 • 3 E r • 1 E • 1 F F C 3 mm n a • n m • H • D m M i i 1 B •k C 3 B 5 • a • a W1 a 3 F F n. i E E D H i * K n — • a • c « s a • E w F E D c • • • D or 1 — 3 H XI • T 3 E X if • • • • F B p 1 K E • 1 F C n D X % E • Next month we begin a brand new computer hardware project, the HE MicroTrainer. Based on the 1802 microprocessor, it is simple to construct and easy to operate, the perfect machine to introduce the 'nuts and bolts' of microcomputer technology. The MicroTrainer has been designed specifically for Hobby Electronics' readers, and offers a number of distinct advantages over other development systems: * Low cost. * Modulated video output for direct input to a domestic television receiver, permitting more information to be displayed than is possible with LED readouts. The 1 2 line x 12 character display shows the complete set of 1802 registers or 32 bytes of program memory. * Displays the current instruction, in mnemonic form. * Unique single-step operation from RAM or ROM based software. * Cassette tape storage of user programs. * Twenty command functions, eg RUN, STEP, STOP, RESET, INTERRUPT, INSERT, DELETE, SAVE, LOAD, * Twenty key keypad for direct input of Hexadecimal data or command functions. * Includes 1.5 KBytes of RAM for user programs. * Optional 24 line I/O port * High quality, double-sided through-hole-plated printed circuit board simplifies construction. <strong>ZX</strong> COMPUTING SUMMER 1982 The HE MicroTrainer. PROJECTS FOR EVERYONE * Light-Operated Power Switch * Auto-Wah Effect * Greenhouse Monitor # Telephone Timer * Power Supply Design Project PLUS A New Feature Series The Electronic Revolution The development of electricity and electronics, from Vota to Video. AND All our regular stars MONITOR POINTS OF VIEW INTO RADIO CLEVER DICK The June issue of Hobby Electronics will be in your newsagents on May 14th DON'T MiSS OUT .... PLACE YOUR ORDER NOW Simply fill out the coupon and hand it to your local newsagent so that your copy will be reserved for you. Ptease reserve copies of the June issue of Hobby Electronics for Name Address 127
Page 1 and 2:
j Summer Britain's Biggest Magazine
Page 3 and 4:
ZX 80/81 HARDWARE/SOFTWARE ZX KEYBO
Page 5 and 6:
ZX Computing is published quarterly
Page 7 and 8:
16K-byte RAM pock for massive add-o
Page 9 and 10:
The @*?$1!&£@ RAM pack Dear ZX Com
Page 11 and 12:
I u < o •0 8 & £T © Benchmarks
Page 14 and 15:
1 1© L" 20 30 IN5 5 0 60 80 9C 100
Page 16 and 17:
The Explorer's Guide to the ZX81 IF
Page 18 and 19:
Orbit S M King from Bristol takes y
Page 20 and 21:
ID 15 20 25 30 35 4G> LBV 5 NMER RE
Page 22 and 23:
E" OR Pi="M" THEN GOTO 785 CO)TO 7"
Page 25 and 26:
I first became aware of the bug in
Page 27 and 28:
A. Beasley After using the ZX80 for
Page 29 and 30:
I sr The first few weeks after the
Page 31 and 32:
i! I are odd jmeone to write a a ta
Page 33 and 34:
id (and IC AND )MPUTER" er and >ut
Page 35 and 36:
16K Games Power Boat if you're desp
Page 37 and 38:
}RTIO 3RT W J Hfl'.f K E COl T CORj
Page 39 and 40:
1220 \225 230 250 ,L NEED m 270 WAY
Page 41 and 42:
IKING >S TO THi 350 >TCARD Ol OF 84
Page 43 and 44:
LAD ROM THE AT MRS TO FROM V" ) $5)
Page 45 and 46:
int it on the a piece of iuble-side
Page 47 and 48:
ie •chin* da add re si | )HL. .FI
Page 49 and 50:
Micro This program it fascinating t
Page 51 and 52:
9 S e E k isplay-file we can POKEin
Page 53 and 54:
sves ile sre insect is ion*t n lsec
Page 55 and 56:
— 32) limiting the firing to ten
Page 57 and 58:
Winning Positions COIN COIN BELL BE
Page 59 and 60:
REM "OTHELLO" St_GU GOTO 1103 LET 5
Page 61 and 62:
lTURES P&P) ITAL iGUE write to IGHT
Page 63 and 64:
ms, arid I time you convince somebo
Page 65 and 66:
ist for the feel good luct their 5
Page 67 and 68:
*t»m Tarshis, Executive Vice Presi
Page 69 and 70:
and 2.5 volts. This will produce a
Page 71 and 72:
tng of KE, the the his mg ay. cts i
Page 73 and 74:
Review Keyboard Review Crofton's Ad
Page 75 and 76: "The hi-res board seems to go to a
Page 77 and 78: Make the most of IK Chopper Squad R
Page 79 and 80: onic Systems 80/1 ^ / RAMPACK MASSI
Page 81 and 82: 51 IF A(2) «* 188 THEN LET A (Z)
Page 83 and 84: 4110 IF (A(Z - 13) = 1 OR A(2 - 13)
Page 85 and 86: ZX81 HARDWARE 40 KEY KEYBOARD. Kit
Page 87 and 88: 4090 GOTO 9100 5000 GOSUB 9500 5010
Page 89 and 90: I 1K Games 10 LET 20 LET 30 LET 4-0
Page 91 and 92: Etchasketch This very short program
Page 93 and 94: meant the addition to its repertoir
Page 95 and 96: SYSTEM/MULTIFUNCTION COMMANDS BREAK
Page 97 and 98: 270 280 290 300 310 320 IF IF IF IF
Page 99 and 100: Make sure you get every issue of ZX
Page 101 and 102: ZX80 Programs ZX80 fights back Musi
Page 103 and 104: Catch Avoid being trapped by your s
Page 105 and 106: Software Orwin strikes again Casset
Page 107 and 108: ZX81 Software LARGE CHARACTERS REM
Page 109 and 110: Moving graphics Getting into the Mo
Page 111 and 112: Specialist Book§ i Choosing progra
Page 113 and 114: OZJIJL I* » JTA. _ A."--." * rt k
Page 115 and 116: the new address (in decimal) follow
Page 117 and 118: WHAT CAN I DO WITH 1K? If your answ
Page 119 and 120: Compiler A program whose function i
Page 121 and 122: ZX COMPUTING SUMMER 1982 Computer G
Page 123 and 124: S-100 Name of a bus or connection s
Page 125: After taking your move the computer
Page 129 and 130: are not lost when the ZX81 is turne
Page 131 and 132: ZX Users' Club JOIN YOUR USERS' GRO
show all

ZX Computings - OpenLibra

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

Delete template?

Save as template?