home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 May / 1993-05.d64 / zammat (.txt) < prev   
Encoding:
Commodore BASIC  |  1993-01-01  |  111 b   |  7 lines
  1. 1 poke53280,6:poke53281,6:print"[147]"
  2. 10 d=52:dimu(d)
  3. 20 forc=1tod
  4. 30 n=int(d*rnd(1))+1
  5. 40 ifu(n)=0thenu(n)=1:printn,:next:end
  6. 50 goto30
  7.