home *** CD-ROM | disk | FTP | other *** search
/ Expose 1 / Expose_Issue_1_1991-09_Expose_Staff.d64 / digiplayer2.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  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.