home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Expose 1
/
Expose_Issue_1_1991-09_Expose_Staff.d64
/
digiplayer2.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
45 lines
10 poke53280,0:poke53281,0:print"[147]":ifa=0thena=1:load"digiplayer.mod",8,1
12 poke56,14:clr:sp=10:poke808,239:rw$=".raw":pl$=" [208]lay video "
20 printchr$(14)chr$(8)"[147]"spc(7)"[196]igi-[208]layer [214]ersion 2.0"
26 print" [195]opyright 1989 [205]ark [193]. [196]ickenson"
27 print" ";:fori=1to32:print"[163]";:next:print
29 print" 0. [196]isk [196]irectory"
30 print" 1. [204]oad [193][205][201][199][193] sound file"
35 print" 2. [204]oad [193][212][193][210][201] [211][212]-[193][208][208][204][197] [205][193][195]-[201][201]/[199][211]"
37 print" 3. [204]oad [195]-64 .[210][193][215] file"
38 print" 4. [211]ave [195]-64 .[210][193][215] file"
40 print" 5. [195]hange [211][208][197][197][196]"
50 print" 6."pl$"[207][198][198]"
60 print" 7."pl$"[207][206]"
61 print"[206][207][212][197]: [200]old [210][197][212][213][210][206] key down to [211][212][207][208]"
62 print" 8."pl$"[207][198][198] [206]on-[211]top"
63 print" 9."pl$"[207][206] [206]on-[211]top"
70 print"[197]nter selection: ";
75 geta$:ifa$=""then75
77 ifa$="0"then2000
80 i=val(a$):printa$;"":onigoto 1000,1100,1200,100,200,300,400,500,600
90 goto20
100 a$="":input"[211][193][214][197] .raw filename";a$:ifa$=""then20
105 print"[211]aveing: ";a$:open15,8,15,"s0:"+a$+rw$:close15
110 open8,8,8,"0:"+a$+rw$+",p,w":print#8,chr$(0);chr$(20);
120 sys3852:close8:goto20
200 print"[195]urrent [211]peed =";sp
210 input"[206]ew [211]peed";sp:ifsp<2thensp=2
220 poke5120,sp:goto20
300 i=peek(53265):poke53265,0:poke3855,sp:sys3846:poke53265,i:goto20
400 poke3855,sp-1:sys3846:goto20
500 i=peek(53265):poke53265,0:poke3855,sp
520 sys3846:geta$:ifa$=""then520
590 poke53265,i:goto20
600 poke3855,sp-1
620 sys3846:geta$:ifa$=""then620
690 goto20
1000 a$="":input"[193]miga [198]ilename";a$:ifa$=""then20
1010 gosub1400:sys3840:close8:goto20
1100 a$="":input"[211][212]/[205][193][195]/[199][211] [198]ilename";a$:ifa$=""then20
1110 gosub1400:sys3843:close8:goto20
1200 a$="":input".raw [198]ilename";a$:ifa$=""then20
1210 a$=a$+rw$:gosub1400:sys3849:close8:sp=peek(5120):goto20
1400 print"[204]oading: ";a$:open8,8,8,"0:"+a$+",p,r":return
2000 sys3856:input"[208]ress [210][197][212][213][210][206]";a$:goto20