home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / rnd(1) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  158b  |  8 lines

  1. 5 REM RND(1)
  2. 6 REM ------
  3. 10 POKE53281,0:POKE53280,0:PRINT"[147]"
  4. 30 FORI=1024TO2022:POKEI,160:POKE54272+I,0:NEXT
  5. 40 POKE55296+INT(RND(1)*998)+1,INT(RND(1)*15)+1
  6. 45 IFPEEK(203)<>64THENEND
  7. 50 GOTO40
  8.