home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / rev.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  775 b   |  39 lines
  1. randomize
  2. print "Reverse    (0 to Quit)"
  3. DIM A(20)
  4. N = 9
  5. 10 print "Working...";:y=pos(0):x=csrlin
  6. A(1)=rand(n)+1
  7. FOR K=2 TO N
  8. locate x,y:print k;
  9. 45 f = 0
  10.  A(K)=rand(n)+1
  11.  FOR J=1 TO K-1
  12.   IF A(K)=A(J) THEN f = 1 
  13.  NEXT j
  14.  if f=1 then 45
  15. NEXT k
  16. locate x,y:print " "
  17. T = 0
  18. GOSUB 600
  19. 110 INPUT "How many to Reverse";R
  20. IF R<=0 THEN print "Bye": if isrun then run "menu" else end
  21. IF R<=N THEN 150
  22. PRINT "Error: Number must be less than ";N:GOTO 110
  23. 150 T=T+1
  24. FOR K=1 TO INT(R/2)
  25.  Z=A(K)
  26.  A(K)=A(R-K+1)
  27.  A(R-K+1)=Z
  28. NEXT K
  29. GOSUB 600
  30. f=0
  31. FOR K=1 TO N
  32.  IF A(K)<>K THEN f=1
  33. NEXT K
  34. if f=1 then goto 110
  35. PRINT"You won in ";T;" moves"
  36. print "New Game ... (0 to Quit)" : goto 10
  37. 600 PRINT:FOR K=1 TO N:PRINT " ";A(K);: NEXT K
  38. PRINT : PRINT : RETURN
  39. ə