home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 April / 1989-04.d64 / programpage (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  919b  |  30 lines
  1. 10 poke53281,0:poke53280,0
  2. 20 print"[147][129]          programmer's page [146]"
  3. 30 print""tab(9)"1 - noise bomb"
  4. 40 printtab(9)"2 - crazy cursor"
  5. 50 printtab(9)"3 - wacky character set"
  6. 60 printtab(10)"press 1-3 to run"
  7. 70 get a$:if a$="" then70
  8. 80 if a$="1" then gosub120:goto70
  9. 90 if a$="2" then gosub180:goto70
  10. 100 if a$="3" then gosub240:goto70
  11. 110 goto70
  12. 120 poke 792,193:poke 808,239:poke 780,115:poke 782,228:sys 43806
  13. 130 print "38911 basic bytes free":print:print "ready."
  14. 140 poke 204,0
  15. 150 get k$:if k$="" then150
  16. 160 poke 54296,15:poke 54296,0:goto160
  17. 170 rem ***  cursor routine  ***
  18. 180 print"[147]"tab(10)"copying rom to ram"
  19. 190 printtab(13)"please wait ..."
  20. 200 for i=40960 to 49151:poke i,peek(i):x=i+16384:poke x,peek(x):next
  21. 210 poke 60291,157:poke 60296,145:poke 60356,29:poke 60361,17
  22. 220 poke 1,peek(1) and 253:print"  try your cursor keys":end
  23. 230 rem *** backwards char set ***
  24. 240 print"[147]"tab(11)"poking in new set"
  25. 250 printtab(13)"please wait ..."
  26. 260 poke 56334,0:poke 1,51
  27. 270 for i=0 to 2048:j=i-(i and 7)*2:poke 12295+j,peek(53248+i):next i
  28. 280 poke 1,55:poke 56334,1:poke 53272,29
  29. 290 end
  30.