home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 November / Ahoy_Magazine_85-11_1985_Double_L.d64 / blackboard.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  777b  |  26 lines
  1. 10 rem *** "blackboard.bas" *******
  2. 20 base=2*4096:poke 53272,peek(53272)or8:rem put high-res map at 8192
  3. 30 poke 53265,peek(53265)or32:rem enter high-res bit-map mode
  4. 40 for i=base to base+7999:poke i,0:next:rem clear bit map
  5. 50 for i=1024 to 2023:poke i,16:next i:rem black background, white line
  6. 60 goto 200
  7. 80 rem ****** plot routine **********
  8. 90 char=int(hpsn/8)
  9. 100 row=int(vpsn/8)
  10. 110 line=vpsn and 7
  11. 120 byte=base+row*320+8*char+line
  12. 130 bit=7-(hpsn and 7)
  13. 140 poke byte,peek(byte) or (2^bit)
  14. 150 return
  15. 200 rem **** draw vertical line *******
  16. 220 for vpsn=0 to 199:rem plot line from top to bottom of screen
  17. 225 for hpsn=159 to 160
  18. 230 gosub 80
  19. 240 next hpsn:next vpsn
  20. 245 rem *** draw horizontal line ******
  21. 250 vpsn=100:rem halfway down screen
  22. 260 for hpsn=0 to 319:rem plot line from left side to right side of screen
  23. 270 gosub 80
  24. 280 next hpsn
  25. 290 goto 290
  26.