home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / rnd-lotto (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  338b  |  18 lines
  1. 1 rem mini-lotto
  2. 2 rem rnd-funktion zufallszahlen
  3. 3 rem --------------------------
  4. 10 print"[147]------------"
  5. 20 print" mini-lotto":print"------------"
  6. 30 fori=1to6
  7. 31 gosub90
  8. 32 next
  9. 33 forj=1to6:fori=6to1step-1
  10. 34 ifza(j)=za(i)thengosub90
  11. 35 nexti:printza(j):nextj
  12. 40 printtab(10)" n [146]eues spiel    e [146]nde"
  13. 50 geta$
  14. 60 ifa$="n"thenrun
  15. 70 ifa$="e"thenend
  16. 80 goto50
  17. 90 za(j)=int(rnd(0)*49)+1:return
  18.