home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_B.d64 / galax-loader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  31 lines
  1. 10 print"[147][155]":poke53280,.:poke53281,.
  2. 20 ifa=0thena=1:load"galaxinus*",8,1
  3. 30 fort=0to62:readq:poke704+t,q:next:fort=0to8:poke2040+t,11:next
  4. 40 print"[147]dies ist eine kleine demonstration, wie du ";
  5. 50 print"einen interrupt-sinus mit eigenen":print"sprites in deinem basic-programm"
  6. 60 print"verwenden kannst.":fort=1to3000:next:poke53269,255:sys29952
  7. 70 print" [153] taste! "
  8. 80 poke198,0:wait198,1:poke198,0
  9. 90 print"[145][158]das interrupt-programm liegt - wie auch im 'sinus-generator' steht -"
  10. 100 print"ab $7500[146][158] im speicher, die sprites       kannst du wie gewohnt";
  11. 110 print" in einen":print"beliebigen bereich poken / laden..."
  12. 120 print"[156]die sprites werden ganz normal mit      poke53269,255[146][156] eingeschaltet,
  13. 130 [153]" print taste! "
  14. 140 [151]198,0:[146]198,1:[151]198,0:[151]53277,255
  15. 150 [153]"onmit poke53277,255waitprint kannst du sie wie ge- wohnt waagrecht ver";
  16. 160 [153]"groessern,"
  17. 170 [153]"  taste! "
  18. 180 [151]198,0:[146]198,1:[151]198,0:[151]53271,255
  19. 190 [153]"onmit poke53271,255wait vergroesserst du sie  senkrecht..."
  20. 200 [153]" print taste! "
  21. 210 [151]198,0:[146]198,1:[151]198,0:[151]53277,0
  22. 220 [153]"on  nochmal taste! "
  23. 230 [151]198,0:[146]198,1:[151]198,0:[151]53271,0
  24. 240 [153]"ondef ende mit space! ":[151]198,0:[146]198,1:[151]198,0
  25. 250 [151]53269,0:[153]"on           t i g e r c r e w on":[128]
  26. 260 [131]250,247,190,34,132,34,34,132,34,34,183,190
  27. 270 [131]34,148,40,34,148,36,34,247,162,0,0,0,0,0,0
  28. 280 [131]0,252,0,0,252,0,0,0,0,0,0,0,251,239,65
  29. 290 [131]130,40,65,130,40,65,131,239,34,130,136,42
  30. 300 [131]130,72,42,250,47,54,0,0,0
  31.