home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / 1520-MEGA-BUCKS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  42 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. 21 REM 1520 ROUTINES ADDED 14-JUN-86
  6. 22 OPEN 4,6:REM ASCII
  7. 23 OPEN 2,6,2:REM PEN COLOUR
  8. 24 OPEN 3,6,3:REM CHARACTER SIZE
  9. 30 PRINT "[147]":PRINTSPC(7);"M E G A - B U C K S":PRINT
  10. 40 DIM A(6):REM SET UP THE RANDOM NUMBER ARRAY
  11. 50 INPUT "HOW MANY NUMBERS WOULD YOU LIKE";N:PRINT
  12. 51 PRINT#2,2
  13. 52 PRINT#3,2
  14. 53 PRINT#4,"     MEGA-BUCKS"
  15. 54 PRINT#2,0
  16. 55 PRINT#3,1
  17. 60 FOR Z=1 TO N
  18. 70 FOR X=1 TO 6:REM GENERATE 6 RANDOM   NUMBERS AND PUT THEM IN A(X)
  19. 80 LET A(X)=INT(RND(1)*35)+1
  20. 90 NEXT X
  21. 100 REM NOW WE SORT THEM ALL OUT
  22. 110 FOR B=1 TO 6
  23. 120 FOR C=B TO 6:REM MAY HAVE TO CHANGE END VALUES
  24. 130 IF A(B)<=A(C) GOTO 150
  25. 140 D=A(B):A(B)=A(C):A(C)=D
  26. 150 NEXT C
  27. 160 NEXT B
  28. 170 REM CHECK FOR A REPEAT
  29. 180 FOR X=1 TO 5
  30. 190 IF A(X)=A(X+1) THEN 70
  31. 200 NEXT X
  32. 210 REM TELL THE WORLD...
  33. 214 PRINT#2,0
  34. 220 FOR X=1 TO 6:PRINT#4,A(X);:NEXT X
  35. 230 PRINT#4
  36. 240 NEXT Z
  37. 250 PRINT#3,1
  38. 260 FORX=1TO40:PRINT#4,"-";:NEXTX
  39. 270 PRINT#4:PRINT#4:PRINT#4:PRINT#4
  40. 280 CLOSE2:CLOSE4:CLOSE3
  41. 290 END
  42.