home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-05_2000_CSW_Side_A.d64 / mp64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  643b  |  21 lines
  1. 5 poke53280,0:poke53281,0
  2. 10 dv=peek(186)
  3. 15 ifl=0thenprint"[147]":l=1:load"mp64.scrn color",dv,1
  4. 16 ifl=1thenl=2:load"mp64.screen",dv,1
  5. 20 ifl=2thenl=3:load"mp64.division",dv,1
  6. 30 ifl=3thenl=4:load"mp64.signed",dv,1
  7. 40 ifl=4thenl=5:load"mp64.loaders.o",dv,1
  8. 50 ifl=5thenl=6:load"mp64.arp+vib",dv,1
  9. 60 ifl=6thenl=7:load"mp64.volumetab",dv,1
  10. 70 ifl=7thenl=8:load"mp64.tempotab",dv,1
  11. 80 ifl=8thenl=9:load"mp64.ascii",dv,1
  12. 90 ifl=9thenl=10:goto200
  13. 110 print"[144][147]poke55,254:poke56,84:new"
  14. 120 print"load"chr$(34)"mp64.main"chr$(34)","dv
  15. 130 print"run";:poke631,13:poke632,13:poke633,13:poke198,3:end
  16. 200 f1$="mp64.c64player.o":poke2024,1
  17. 210 ti$="000000":forx=1to1000:next:ifti$>"000000"then230
  18. 220 f1$="mp64.scpuplayr.o":poke2024,20
  19. 230 load(f1$),dv,1
  20. 240 stop
  21.