home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64'er
/
C64'er.iso
/
sh6x
/
sh69b.d64
/
rnd(1)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
158b
|
8 lines
5 REM RND(1)
6 REM ------
10 POKE53281,0:POKE53280,0:PRINT"[147]"
30 FORI=1024TO2022:POKEI,160:POKE54272+I,0:NEXT
40 POKE55296+INT(RND(1)*998)+1,INT(RND(1)*15)+1
45 IFPEEK(203)<>64THENEND
50 GOTO40