ZX Computings - OpenLibra

lTURES
P&P)
ITAL
iGUE
write to
IGHTON.
Get your digits into order in the
smallest number of moves.
This program was originally
written by Don Scales,
modified by H J Garwood to run
on a TRS 80 and further
modified by Tim Hartnell to
make it run in Sinclair BASIC.
Once you've got it working as
listed, you might like to modify
10 DIH ftfSJ
20 FUR Z = 1 TO 9
30 LET R = XNT *RN£>*9.» 1
4-0 It Z = 1 THEN G0"~0 30
50 FOR O-l TO Z - l
60 If• R FJI =R THEN GOTO 30
70 M':XT U
8C L rr R v z >
ND XT Z
95 LET 8=0
97 PRINT RT 6,6;
100 F OR 3=1 TO 9
110 PPXHT R RS.»;
120 NEXT 5
13© PRINT
300 PRINT
205 PRINT "ENTER NLFMBER TO
RSE, MOUE ";B->I
210 INPUT U
ZX COMPUTING SUMMER 1)x COMPUT
RE'JE
it so that instead of just stopping
when you get the digits into
order, the computer prints
them out in inverse graphics,
and gives you a congratulatory
220
260
270
280
285
287
290
29S
30O
310
320
33 O
UE5"
34-0
350
360
15 PRINT RT 3,0,
message.
A further modification
would be a 'lowest score'
feature. Pressing any key at the
end will give you a new game.
IP dill OR U>9 THEN GOTO
LET K = ( J 4 i ) / 2
FOR Z-l TO K
LET R =R\Z>
LET RfZ)=fl«J+l-Z)
LET fiU( + l-Z>
NEXT Z
LET B=B + 1
FOR Z=1 TO 9
IF flfZJ :>Z THEN 3GTO 9 7
NEXT Z
PR INT " IT TOOK YOU "; B;
PAUSE
CLS
RUN
4-E4-
10
KC