home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2002-11_2002_CSW_Side_B.d64
/
calculate rectab
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
158b
|
10 lines
10 tb=22016
100 forx=3to255
200 y=65536/x
300 poketb+x,yand255
400 poketb+256+x,y/256
500 next
1000 poketb+0,0:poketb+256,0
2000 poketb+1,255:poketb+257,255
3000 poketb+2,0:poketb+258,128