home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / sine.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  633b  |  22 lines
  1. 1 rem  sine.bas
  2. 5 print"[147]"spc(11)"[194][193][211][201][195][160][211][201][206][197][160][215][193][214][197]"
  3. 6 print""spc(9)"[208]ress a key to begin.":poke198,0:wait198,1:poke198,0
  4. 7 print"[147] [215]hile the graph is plotting, press any"
  5. 8 printspc(12)"key to exit.":fordl=1to3000:nextdl
  6. 9 :
  7. 10 poke53265,peek(53265)or32
  8. 20 poke53272,peek(53272)or8
  9. 30 forc=8192to16191
  10. 40 pokec,0:next
  11. 50 forc=1024to2023
  12. 60 pokec,3:next
  13. 70 forx=0to319:y=int(90+80*sin(x/10))
  14. 75 ifpeek(197)<>64then100
  15. 80 l=8192+int(y/8)*320+int(x/8)*8+(yand7):pokel,peek(l)or2^(7-(xand7)):next
  16. 90 poke198,0:wait198,1:getk$
  17. 100 poke53265,peek(53265)and223
  18. 110 poke53272,21
  19. 120 print"[147][204]oading [208][204][207][212][212][197][210] [205][197][206][213]..."
  20. 125 print"[144]load"chr$(34)"plotter boot"   chr$(34)",8":print"run"
  21. 130 poke631,13:poke632,13:poke198,2:end
  22.