Listing of file='REVRSE.BAS;01' on disk='vmedia/swarms-sector.ccvf'
100 REM REVERSE. DAVID E. GROGONO COPYRIGHT (C) 1979 110 TM= 256* PEEK (32941)+ PEEK (32940) 120 Z= TM+ 8:AD= 33283 130 ZZ= INT (Z/ 256):POKE AD,Z- 256* ZZ:POKE AD+ 1,ZZ:TM= TM+ 1 140 PLOT 6,36,12,27,24,5,6,25,14,3,16,6 150 PRINT " COMPUCOLOR PRESENTS REVERSE ":PLOT 3,80,0:FOR X= 1TO 1500:NEXT :PLOT 6,2,12 160 FOR I= 1TO PEEK (33209):X= RND (1):NEXT I 170 FOR I= 1TO 9:A(I)= I:NEXT I 180 FOR N= 9TO 1STEP - 1:R= 1+ INT (N* RND (1)):M(N)= A(R) 190 FOR J= RTO N- 1:A(J)= A(J+ 1):NEXT J:NEXT N 200 FOR I= 1TO 9:N(I)= M(I):NEXT I:PRINT "" 210 PLOT 14,6,36,12,6,49:C= 0:FOR I= 2TO 28STEP 2:PLOT 3,7,I 220 PRINT SPC( 50)"" 230 NEXT I:Z$= " ":PLOT 27,10,5 240 FOR I= 2TO 59STEP 57:FOR X= 0TO 2:PLOT 3,I+ X,4 250 IF X= 1THEN PRINT " REVERSE ":NEXT X:NEXT I 260 PRINT Z$:NEXT X:NEXT I 270 PLOT 27,24,5,3,22,4:PRINT "ORIGINAL SEQUENCE" 280 PLOT 3,21,6,6,52:A$= "":GOSUB 420:GOTO 360 290 C= C+ 1:PLOT 3,25,10,6,49:PRINT "ATTEMPT #:";C 300 PLOT 3,48,18:PRINT " " 310 PLOT 3,14,18:PRINT "HOW MANY NUMBERS TO BE REVERSED ? " 320 PLOT 3,48,18:Z= CALL (2):ON - (Z= - 1)GOTO 320:Z= Z- 48 330 ON - (Z< 0OR Z> 9)GOTO 320:ON - (Z= 0)GOTO 390:PLOT 3,47,18 340 PRINT Z:FOR I= 1TO Z:H(I)= N(Z+ 1- I):NEXT I 350 FOR I= 1TO Z:N(I)= H(I):NEXT I 360 PLOT 6,48,3,17,14:A$= " ":GOSUB 420 370 FOR I= 1TO 9:IF N(I)< > ITHEN 290 380 NEXT I:PLOT 3,21,22,6,52:PRINT "IT TOOK YOU";C;" MOVES." 390 PLOT 3,14,26:PRINT "ENTER MENU, REPEAT OR NEW GAME:"; 400 Z= CALL (2):ON - (Z= 82)GOTO 200:ON - (Z= 78)GOTO 160 410 ON - (Z< > 77)GOTO 400:LOAD "MENU":RUN 420 FOR I= 1TO 9:PRINT N(I);A$;:NEXT I:RETURN