home *** CD-ROM | disk | FTP | other *** search
/ Style 3 / Style_03_1992-08-28_Skylight_Designs.d64 / konstruow.tablic (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  235b  |  15 lines
  1. 10 a=0:b=8192:d=4*4096:e=30
  2. 15 fori=0to7
  3. 20 forj=0to7
  4. 25 c=b+j+i*e*8
  5. 30 s=int(c/256):m=int(c-s*256)
  6. 35 poked+a,m
  7. 40 poked+a+64,s
  8. 45 a=a+1:next:next
  9. 50 fori=0toe*8-1
  10. 55 c=7-(iand7)
  11. 60 poked+256+i,int(i/8)*8
  12. 65 poked+512+i,2^c
  13. 70 poked+768+i,255-(2^c)
  14. 75 next
  15.