ZX Computings - OpenLibra

More documents

Recommendations

Info

E" OR Pi="M" THEN GOTO 785 CO)TO 7" 1 775 790 GOSUB 115© 795 GOSUB 2000 3©0 IF P$="H" THEN GOSUB 1500 505 IF THEN GOSUB 1600 810 IF P$="E" THEN GOSUB 1700 815 IF P$="M" THEN GOSUB 1300 820 PRINT RT 21,23;"PRESS N/L' 825 GOSUB £100 630 INPUT 2$ 835 GOSUB 1150 640 GOTO 700 999 STOP 1000 REM ** BLACK SCREEN SUB.-'R 1005 FOR 1=1 TO 22 1010 PRINT 1015 1020 10 25 1030 1050 1055 1050 1065 ' (5*70 1275 1100 1105 1110 1115 1120 1145 115© 1155 1160 117C- 1C.95 ' F.00 1505 1513 1513 15 SO 1530 154.0 -595 ; t-00 160 S 1 £1? eio 1^-25 : i 3 e 22 NEXT I REM ** POSITION CENTRAL SUM PRINT RT lO.ll; "B" RETURN REM ** DISPLAY PLAWET5 STRRTING POSITIONS UNPLOT SXH..SYH UNPLOT SXU,SYU UNPLOT SXE .. 5YE UN^LOT SXM,SYM Re" 5 " URN REM * * DISPLAY PERIOD PRINT RT 0,23;"ERRTH" PP INT RT 1,24-;R$;":" PRINT RT 2,25;TIME RETURN PFM ** CLERR R.H.S FOR 1=0 TO 21 PRINT RT 1,23;" NEXT X RETURN REM * * MERCURY £>RTR PRINT RT 0 23;"MERCURY" Pr INT PP INT PRINT PRINT PRINT PP INT RETURN RT r r R' T RT RT 3,23;"id6S KM" 6,23; "SBE^S M" 9>23."38 DRY3" 12,£3;" -J-9" 16,23;" 573 K" 19,23;"59 DAYS" REM ** VENUS DATA rrINT P' 0 23,"UENUS" PRINT AT 3,23;-12369 KM PRINT RT 6,23,"103E+O9 H" PK INT PT 9.23.; "225 DAYS" PRINT AT 12.23," -i.4-" PRINT RT 15.23;" 523 K" PRINT RT 19 ,23; "24-7 DAYS" <strong>ZX</strong>81 Programs 164-3 - '00 - t -w' w 17 2?* - 7 5 • o c, ~ - -:••"< 175.6 1795 1800 RETURN RF M * * EfiRTH DRTR PF-INT RT 0.23; "EARTH" Pf . INT PRINT r r INT PRINT PR IMT w - INT R£1 .JRN RrH ** pr INT RT 3,23;"12753 KM" RT 6 , 23; " 150E+0S> M" hT 9,23;"365 DAYS" RT 12,23;" RT if,23;" 333 K" RT 19,23;"£3H SSMIH' MORS DRTR RT 0.23;'MRRS" r. 1 o. — JL
16K Games Bureau de Change If you're always jetting off to exotic parts of the world, like Paris, Geneva or Blackpool, you'll be in need of this program which rapidly converts your money from one currency to another. The program, as written by Bob Perrigo, caters for six different currencies, but it can easily be modified to handle as many currencies as you need. The values of major currencies and their exchange rates with the pound are published in many newspapers, particularly the Financial Times. Current values have to be entered when you first RUN the program. Once the values are in RAM, you can use the program again by entering GOTO 6 instead of RUN. The word END after the semi-colon in line 100 is not a mistake. It acts just as END does in other BASlCs, stopping the program. It does so in this case because the 2X81 considers the word END to be an unassigned variable, and will stop the program with the error code 2/100. Any other letter, or combination of letters, which is not used elsewhere in the program, will stop it as effectively as does END, 3 REM ^CURRENCY CONVERTER * 58 4 REM *BOE PERRIGO/ 60 TIM HRP.TNELL* 65 5 GOSUB 110 70 6 PRINT "ENTER CURRENCY 1" 75 7 PRINT "£ - POUNDS","* - DOL 60 LRRS* ' , "D - DEUTSCH MARKS" . "5 - S S5 UISS FRANKS"."Y - YEN","R - RAND 90 95 & INPUT AS 100 10 PRINT "ENTER AMOUNT" 110 12 INPUT B 120 15 LET P=0 130 20 IF THEN LET P=B 14-0 25 IF THEN LET P=B*1 ,'D 150 30 IF Rs="D" THEN LET P=B*1 ,'*M 160 35 IF flt="5" THEN LET P=B*1 ,'F 170 4-0 IF A$="Y" THEN LET P = B*1 ISO 45 IF R*="R" THEN LET P=B*1 ,*'R 190 50 IF P=0 THEN GOTO 5 200 55 PRINT "ENTER CURRENCY 2" 210 57 INPUT C« 220 LET E=© IF C$="£" THEN LET E=P IF C£ = "$" THEN LET E=P*D IF C$="D" THEN LET E=P*N IF C$="S" THEN LET E=P*F IF C$="Y" THEN LET E=P*Y IF C$="R" THEN LET E=P*R IF E=0 THEN GOTO 55 LET E = INT (Etl00 + .5) /100 PRINT A B; " = "C$; E; END PRINT "DEUT5CH MRRK?" INPUT M PRINT "YEN?" INPUT Y PRINT "RAND?" INPUT R PRINT "i i-UIS FRANC" INPUT F PRINT "U5 DOLLRR?" INPUT D CLS RETURN <strong>ZX</strong> COMPUTING SUMMER 1982 23
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 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 and 126:
After taking your move the computer
Page 127 and 128:
WHAT'S ON NEXT? IN HOBBY ELECTRONIC
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

Create successful ePaper yourself

Delete template?

Save as template?