home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 November / 1989-11.d64 / progpage (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  900b  |  29 lines
  1. 1 poke53280,14:poke53281,6:print"[147]          programmer's page"
  2. 2 print"1. scroller"
  3. 3 print"2. speed/sound lister"
  4. 4 print"3. 2-line directory routine"
  5. 5 geta$:if a$=""then5
  6. 6 if a$="1"then15
  7. 7 if a$="2"then90
  8. 8 if a$="3"then300
  9. 9 goto5
  10. 10 rem *** vertical scroller ***
  11. 15 poke53280,14:poke53281,6:print "[147]";
  12. 20 print "";tab(rnd(1)*40);"[209]"
  13. 30 poke 218,peek(218) or 128
  14. 40 print "[157]";chr$(148)
  15. 50 if rnd(1)>0.2 then 30
  16. 60 goto 20
  17. 90 rem *** lister ***
  18. 100 print"[147]":for a=828 to 898:read b:poke a,b:next:sys 828:poke 2,40:list
  19. 120 data 120,169,93,141,38,3,169,3,141,39
  20. 130 data 3,169,0,160,23,153,0,212,136,16
  21. 140 data 250,169,15,141,24,212,169,1,141,5
  22. 150 data 212,88,96,72,138,72,152,72,166,2
  23. 160 data 160,0,136,208,253,202,208,250,160,10
  24. 170 data 141,1,212,169,32,141,4,212,169,33,141
  25. 180 data 4,212,104,168,104,170,104,76,202,241
  26. 190 rem *** directory routine ***
  27. 300 sys57812"$",8:poke43,1:poke44,192:poke768,174:poke769,167:sys47003,1
  28. 310 poke782,192:sys65493:sys42291:list:poke44,8:poke768,139:poke769,227
  29.