home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / runman.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  833 b   |  26 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ש¯t{CÀ∮ßΘ⌐¿⓪"LúFìNת ⓪t±X⑧Q╱Γ@9⇦dץRvÕ②?ϕףΘךâGÇâαéµ"L⑦Ad⇩①②⇦⑦÷Φ⇧úgähך°8A◆aטijÇ"✓ךגL"L6j⑧⇨Gæק⇦ëəijÄ40±ê`⇦pΓ `æ™pF/ק①④ץ⌐π╱áגC¢E0²גע1.⇧עìm`,}-lh5-⇨ï❎Õ£À④ ③GOODIES\PORT2WP.DOCü∮A⇩ΓkÜרÀףç≤D⇩Θץ^⑦Öך¢p♪❎é✓⇨øM⇦éך⑧ìï7)iyñv(ö<J¼?Ä_°ÑףAvpcm-»נצnƒ]|ץ∞sHÀ-∙∙®כΓZtµ-?ßzhªÄmÀÖkéK|əΦ③bL.⓪}f¢≡q\ט¡kנ£ïij¡gαי✓¥dךSEP|dוחץI