Source Code
Submitted by Tom Owad on May 28, 2004 - 1:55am.
Apple | Apple I | Organization
>LIST
100 PRINT "R E V E R S E": PRINT
110 DIM A(9), B(9)
115 T=0
120 FOR I=1 TO 9: A(I)=0 : NEXT
I
130 FOR I= 1 TO 9
140 J= RND (20) +1
150 IF J>9 THEN 140
160 IF A(J)#0 THEN 140
170 A(J) =I
180 NEXT I
190 PRINT " 1 2 3 4 5 6 7 8 9"
: PRINT " -----------------"
191 PRINT "("):: FOR I=1 TO 9: PRINT
A(I):: IF I A(I+1) THEN 190
310 IF I < 8 THEN 290
320 PRINT "YOU WON IN ";T;" MOVES"
330 END
R E V E R S E
1 2 3 4 5 6 7 8 9
-----------------
(4 3 9 5 8 6 2 7 1)
-----------------
HOW MANY SHALL I REVERSE?3
1 2 3 4 5 6 7 8 9
-----------------
(9 3 4 5 8 6 2 7 1)
-----------------
HOW MANY SHALL I REVERSE?9
1 2 3 4 5 6 7 8 9
-----------------
(1 7 2 6 8 5 4 3 9)
-----------------
HOW MANY SHALL I REVERSE?1
OOPS! TOO SMALL: YOU MUST REVERSE SOMETHI
NG!
HOW MANY SHALL I REVERSE?2
1 2 3 4 5 6 7 8 9
-----------------
(7 1 2 6 8 5 4 3 9)
-----------------
HOW MANY SHALL I REVERSE?4
1 2 3 4 5 6 7 8 9
-----------------
(6 2 1 7 8 5 4 3 9)
-----------------
HOW MANY SHALL I REVERSE?3
1 2 3 4 5 6 7 8 9
-----------------
(1 2 6 7 8 5 4 3 9)
-----------------
HOW MANY SHALL I REVERSE?5
1 2 3 4 5 6 7 8 9
-----------------
(8 7 6 2 1 5 4 3 9)
-----------------
HOW MANY SHALL I REVERSE?8
1 2 3 4 5 6 7 8 9
-----------------
(3 4 5 1 2 6 7 8 9)
-----------------
HOW MANY SHALL I REVERSE?3
1 2 3 4 5 6 7 8 9
-----------------
(5 4 3 1 2 6 7 8 9)
-----------------
HOW MANY SHALL I REVERSE?5
1 2 3 4 5 6 7 8 9
-----------------
(2 1 3 4 5 6 7 8 9)
-----------------
HOW MANY SHALL I REVERSE?2
YOU WON IN 10 MOVES