spectrum graphics - OpenLibra

More documents

Recommendations

Info

i a a • • • • w !.V. fflf W . sv. S* .'.V • • • • • • •V. sv. • • • • a • • a B • w • • • a a a * • • a a a a ZX81STRATEGY Robin Thompson takes the tedium out of the game with this ZX81 version for 2-4 players. On RUNing, the program wiil ask how many people are to play, and will request their names. There will then be a brief pause while the board is set up and displayed. Instructions will be printed, and the game will com mence, ending when all the letters have been used and no-one can continue. Please note that the program has no facilities for correcting a mistake in the players' input, so care must be taken when typing in words. Typing the program in should present no problems, other than the graphics characters, and these are listed in figure 1 . variables The main variables used by the program are as follows; 8$ - holds the board. C$ holds the letters to be distributed amongst the payers E$ -holds the players' letters. X$ holds the players' names. X-holds the players' scores. SI the start of the diaplay file. P-the number of players. Figure 1 Scrabble board graphics \ Line 8430 i 1 Line 8435 Line 7 7 eight graphic S Line 8445 i inverse T Line 75 inverse 'space' Line 8450 \ Line 7000 inverse T Line 8460 Line 7010 inverse 'D' Line 8465 1 Line 8395 inverse 'space' Line 84 70 > inverse D Line 8400 inverse 'space' Line 84 75 \ Line by Line 1 to 85 initialisation of variables and instructions. 86 to 1 70 print the scores, who is next to play, their letters. and inputting coordinates for letters on the board. 171 to 1 30 work out the coordinates of letters to go on the board. 311 to 31 8 bonus score of 50 points when a player uses all seven letters in one go. 319 to 502 check for double or triple word score, print out score, and prepare for next player's turn. Subroutines 3000 checks to see if your letters are next to any others on the board, and adds the necessary score. 3800 POKEs your letter onto the screen. 4000 allocates new letters, and prints them on screen. 5000 Endgame routine. Works out who scored most, and prints out scores. 6000 initialises the array that is to hold the players' letters. 7000 works out if player gets double or triple wordscore. 8000 initialises the array that holds the board. 9000 asks how many players there are, asks their names, and DIMs arrays to hold their scores, names and letters. 9500 prints out the board. 9900 routines used when all the letters have been used. Play continues until no-one can go. 9998 program SAVEd so that it autoruns. • a a a a a a • a V.V.V a a a .. .v.v '.V.V.V • a a a a a i a • a a a • as a • i a a • a a a i i a a a a i 106 ZX COMPUTING DECEMBER/JANUARY 1985
4- e . _ » r • ; I * J.0 1 . f .i "• >• — I ) | k • fl 1 ' • iiS * * - 1=1 - i • •!?«» . , £ 13 , c , * 2 « 14 LEJ - - 3 . i i s * t t :— * 14 i 1 i 111 1 f ( • I H, [ . I * * V • • w w * « » J7-5 • s i » i ir w«. R5IMOOO OUR 2X81 STRATEGY t. tTTERS ARE GIL OCRN T h L • c >:• - c r c ~ ••; - : - • W R 107 ZX COMPUTING DECEMBER/JANUARY 1985 32 -RINT AT 19:0 93 FOR Psl TO ~P 9 4 P R 95 NE 95 PO g PR T ri 100 — OH 101 ^ET F 16397 1 i FT i cr — 1 T > 5 ) . - j-i OR n. — : V I' F F : 164 13 IT AT 2 ! d. 0 " IT 5" RT i S , 2 0; 0 G 0 " • bZ- D T -t- l£J X.' -p _ 1 T* 7 SI = 1 + p EEK 1 96 + 255 R T- £=0_ r, 5 i T • , H ! 2 .T, 0 . ".; AT SL 1 0 • ' "; A — 1 1 — , c; 153 FC 0 = 1^ 159 PR 160 NtXT 0 154 INPUT L3 "T !J 21 iT AT 0 ; 2 0 " LET j=0 IET 5 =0 FT 0 •) — ^ S T" r\ -1 _ .1 i i.- -l — W =0 2=0 UE=0 3 RAND 10 PRINT ' SCRABBLE 11 PRINT • zsssststtss&zftmi&sm 12 PRINT 13 PRINT I t ; r- "n OMRS ON 4/34-" 14 - H U 3 E 100 15 CLS 19 GOSUB 9C00 GOSUB 3000 . - , . IO =r .-a .a. e. ~ •(.• SLOW A 52 PAUSE vji 60 CLS 55 PRINT INPUT /OUR UORD ^ PE IN THE GRID REFERENCE E.G. 14 F 0 P ROW 1 COLUMN 4 , 104. - OR ROW 10.COLUMN 4, OR 1014 FOR ROU 10 COLUMN 14 CND THEN PRESS NEULINE" 5 7 PRINT 70 PRINT !HEN TYPE THE REQUIR er, i cttpC' — t/ i_ i_ p R E S S N t W LIN E - 72 PRINT 73 PRINT "WHEN YOU HAUE FIN5HE D YOUR WORD PRESS NEULINE AND UR SCORE WILL BE DISPLAYED « ' 74. PR T THEN GOTO 320 170 INPUT Ms 171 G03UB 5500 172 IF R =1 THEN GOTO 155 175 IF LEN L5 =2 THEN GOTO 200 130 IF LEN L5 =3 HEN GOTO 220 136 LET K =UAL i .$ ( TO 2) 190 LET J = UAL L$'3 TO 4t 191 IF 7=1 THEN GOSUB 3000 192 GOSUB ^000 195 GOTO 300 200 LET K=UAL LSilj 201 IF K 1 THEN GOTO 100 204 LET -J = UAL L3*2) 205 IF J1 0 ROW NUMBER 270 IN PU" K Z' f -RIN7 - •-• AT 21,0;"COLUMN NUMBE D " 230 INF U T J 235 if J I OR U > 15 OR K < 1 OR k' r\ f
Page 1:
The Magazine For All Sinclair users
Page 4 and 5:
welcome Ray says hello. Editor: Ray
Page 6 and 7:
At last as we all knew would happen
Page 8 and 9:
short visit my Spectrum was working
Page 10 and 11:
A letter from Eclipse Software SHOP
Page 12 and 13:
Framed The Gordon Microframe is one
Page 14 and 15:
HARDWARE Getting into Print through
Page 16 and 17:
IHARDWARE REVIEW QL Delta Disk Ray
Page 18 and 19:
HARDWARE The Spectrum Beta Plus Dis
Page 20 and 21:
USA NEWS Across the Pond by Mark L.
Page 22 and 23:
QL HARDWARE Micro Peripherals QL Di
Page 24 and 25:
(SPECTRUM GRAPHICS! Screen Master F
Page 26 and 27:
top of the display in such a way th
Page 28 and 29:
ZE USR ST: RETURN 1670 RANDOMIZE US
Page 30 and 31:
3^30 LET G*=INKEY
Page 32 and 33:
Animation is the process that puts
Page 34 and 35:
10 REM CUBOID DRAWING 20 LET OX-=30
Page 36 and 37:
(SPECTRUM GRAPHICS! Spirogram Movin
Page 38 and 39:
FF6B 31 FF6C B9 FP6D 01 FF6E EB FF6
Page 40 and 41:
As we see this old year out and wel
Page 42 and 43:
zapping Your Graphics zx looks at s
Page 44 and 45:
Light Screen Part Nine: by Toni Bak
Page 46 and 47:
Overall then, it would seem that th
Page 48 and 49:
JA01EJ je FE|0 JOBJ )»1EJ 18AP FSO
Page 50 and 51:
^ m HARDWARE — The Perfect Keyboa
Page 52 and 53:
the wrong size and pressure. It loo
Page 54 and 55:
BINARY AND HEX Binary and Hex The A
Page 56 and 57: Yes, of course, and in exactly the
Page 58 and 59: SOUNDS speakeasy Kai Webber has com
Page 60 and 61: IU 9 RECORD MODE 20 ORG 32768 SOUND
Page 62 and 63: JURY we, the jury Daley Thompson's
Page 64 and 65: The Rats Hodderand Stoughton £7.95
Page 66 and 67: SOUNDS The Sound Of Music John Ains
Page 68 and 69: +5V Figure 1 Diagram of 'he 8912 PS
Page 70 and 71: SOUNDS HEX DISASSEMBLY OF *C0MMRH0S
Page 72 and 73: F8E4 030F 1710 OUT .« FAE6 23 FRE7
Page 74 and 75: Harwood's Hypothesis This month we
Page 76 and 77: ZX81SCENE ZX81 Chatterbox Julian Ch
Page 78 and 79: OL into The Archive The QL's flexib
Page 80 and 81: endproc proc search_file seek find
Page 82 and 83: EDUCATIONAL REVIEWS Mike Edmunds gr
Page 84 and 85: Anthony Marlow from Cheshire has se
Page 86 and 87: 0« , o < SANTA'S CAME Derek Mearns
Page 88 and 89: 199 RETURN "PI0 REM SCREEN 1 902 BR
Page 90 and 91: 1 , X} INK 2J »F« •: FOR F-L TO
Page 92 and 93: k / , %* ' Id W Y f t t il / V /„
Page 94 and 95: The lure of thai yellow stuff, I ca
Page 96 and 97: 96 1730 IF CDODR THEN GO TO 4000 19
Page 98 and 99: SPECTRUM GAME Pim Quakkelaar gives
Page 100 and 101: Z": FOR z=l TO LEN z*: PRINT AT 8,z
Page 102 and 103: + .3) 2420 NEXT r 2425 IF b(t,1) =b
Page 104 and 105: 18! PRINT AT 1, 11 "H"1 AT 2,t|"_I"
Page 108 and 109: ZX81 STRATEGY 321 I F Di = 3 THEN G
Page 110 and 111: 110 34.40 NEXT -5 LE (3 ; i:• = a
Page 112 and 113: HARDWARE REVIE Derek Mearns has bee
Page 114 and 115: IF YOU USE YOUR COMPUTER TO PLAY GA
Page 116 and 117: ZX81 club Dear Editor, In March of
Page 118 and 119: Conversion (PROGRAMMING TIPS) tips
Page 120 and 121: Lineage: 40p per word E 3 Semi disp
Page 122 and 123: SPECTRUM RGB OUTPUT MODULE THE LEAD
Page 124: SPECTRUM AMSTRAD Jl\0_l_ sales dept
show all

spectrum graphics - OpenLibra

Create successful ePaper yourself

Delete template?

Save as template?