home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64music / dplayer2.sda / DIGIPLAYER2.0 (.txt) < prev    next >
Commodore BASIC  |  1989-03-27  |  1KB  |  45 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147]":IFA=0THENA=1:LOAD"DIGIPLAYER.MOD",8,1
  2. 12 POKE56,14:CLR:SP=10:POKE808,239:RW$=".RAW":PL$=" [208]LAY VIDEO "
  3. 20 PRINTCHR$(14)CHR$(8)"[147]"SPC(7)"[196]IGI-[208]LAYER  [214]ERSION 2.0"
  4. 26 PRINT"   [195]OPYRIGHT 1989 [205]ARK [193]. [196]ICKENSON"
  5. 27 PRINT"   ";:FORI=1TO32:PRINT"[163]";:NEXT:PRINT
  6. 29 PRINT"   0. [196]ISK [196]IRECTORY"
  7. 30 PRINT"   1. [204]OAD [193][205][201][199][193] SOUND FILE"
  8. 35 PRINT"   2. [204]OAD [193][212][193][210][201] [211][212]-[193][208][208][204][197] [205][193][195]-[201][201]/[199][211]"
  9. 37 PRINT"   3. [204]OAD [195]-64 .[210][193][215] FILE"
  10. 38 PRINT"   4. [211]AVE [195]-64 .[210][193][215] FILE"
  11. 40 PRINT"   5. [195]HANGE [211][208][197][197][196]"
  12. 50 PRINT"   6."PL$"[207][198][198]"
  13. 60 PRINT"   7."PL$"[207][206]"
  14. 61 PRINT"[206][207][212][197]: [200]OLD [210][197][212][213][210][206] KEY DOWN TO [211][212][207][208]"
  15. 62 PRINT"   8."PL$"[207][198][198] [206]ON-[211]TOP"
  16. 63 PRINT"   9."PL$"[207][206] [206]ON-[211]TOP"
  17. 70 PRINT"[197]NTER SELECTION: ";
  18. 75 GETA$:IFA$=""THEN75
  19. 77 IFA$="0"THEN2000
  20. 80 I=VAL(A$):PRINTA$;"":ONIGOTO 1000,1100,1200,100,200,300,400,500,600
  21. 90 GOTO20
  22. 100 A$="":INPUT"[211][193][214][197] .RAW FILENAME";A$:IFA$=""THEN20
  23. 105 PRINT"[211]AVEING: ";A$:OPEN15,8,15,"S0:"+A$+RW$:CLOSE15
  24. 110 OPEN8,8,8,"0:"+A$+RW$+",P,W":PRINT#8,CHR$(0);CHR$(20);
  25. 120 SYS3852:CLOSE8:GOTO20
  26. 200 PRINT"[195]URRENT [211]PEED =";SP
  27. 210 INPUT"[206]EW [211]PEED";SP:IFSP<2THENSP=2
  28. 220 POKE5120,SP:GOTO20
  29. 300 I=PEEK(53265):POKE53265,0:POKE3855,SP:SYS3846:POKE53265,I:GOTO20
  30. 400 POKE3855,SP-1:SYS3846:GOTO20
  31. 500 I=PEEK(53265):POKE53265,0:POKE3855,SP
  32. 520 SYS3846:GETA$:IFA$=""THEN520
  33. 590 POKE53265,I:GOTO20
  34. 600 POKE3855,SP-1
  35. 620 SYS3846:GETA$:IFA$=""THEN620
  36. 690 GOTO20
  37. 1000 A$="":INPUT"[193]MIGA [198]ILENAME";A$:IFA$=""THEN20
  38. 1010 GOSUB1400:SYS3840:CLOSE8:GOTO20
  39. 1100 A$="":INPUT"[211][212]/[205][193][195]/[199][211] [198]ILENAME";A$:IFA$=""THEN20
  40. 1110 GOSUB1400:SYS3843:CLOSE8:GOTO20
  41. 1200 A$="":INPUT".RAW [198]ILENAME";A$:IFA$=""THEN20
  42. 1210 A$=A$+RW$:GOSUB1400:SYS3849:CLOSE8:SP=PEEK(5120):GOTO20
  43. 1400 PRINT"[204]OADING: ";A$:OPEN8,8,8,"0:"+A$+",P,R":RETURN
  44. 2000 SYS3856:INPUT"[208]RESS [210][197][212][213][210][206]";A$:GOTO20
  45.