home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Misc / MODPLAY.D64 / mp64 (.txt) next >
Commodore BASIC  |  2019-04-13  |  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.