home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / MEGA-BUCKS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  768 b   |  28 lines
  1. 10 REM MEGA-BUCKS
  2. 11 REM OK FOR NON-COMMERCIAL DISTRIBUTION
  3. 12 POKE53280,0:POKE53281,0:PRINT"[159]"
  4. 20 REM WRITTEN: 19-SEP-84 B. HAMMOND
  5. 30 PRINT "[147]":PRINTSPC(7);"M E G A - B U C K S":PRINT
  6. 40 DIM A(6):REM SET UP THE RANDOM NUMBER ARRAY
  7. 50 INPUT "HOW MANY NUMBERS WOULD YOU LIKE";N:PRINT
  8. 60 FOR Z=1 TO N
  9. 70 FOR X=1 TO 6:REM GENERATE 6 RANDOM   NUMBERS AND PUT THEM IN A(X)
  10. 80 LET A(X)=INT(RND(1)*35)+1
  11. 90 NEXT X
  12. 100 REM NOW WE SORT THEM ALL OUT
  13. 110 FOR B=1 TO 6
  14. 120 FOR C=B TO 6:REM MAY HAVE TO CHANGE END VALUES
  15. 130 IF A(B)<=A(C) GOTO 150
  16. 140 D=A(B):A(B)=A(C):A(C)=D
  17. 150 NEXT C
  18. 160 NEXT B
  19. 170 REM CHECK FOR A REPEAT
  20. 180 FOR X=1 TO 5
  21. 190 IF A(X)=A(X+1) THEN 70
  22. 200 NEXT X
  23. 210 REM TELL THE WORLD...
  24. 220 FOR X=1 TO 6:PRINT A(X);:NEXT X
  25. 230 PRINT
  26. 240 NEXT Z
  27. 250 END
  28.