home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 237
/
237.d81
/
b.sidsmith
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
155 lines
100 poke51,0:poke52,128:poke55,0:poke56,128:clr:poke53280,0:poke53281,0
110 print"[147][159] [211][201][196][211][205][201][212][200] is loading...":dn=peek(186)
120 :
130 sys57812"sidsmith.shp",dn,0:poke780,0:poke781,0:poke782,32:sys65493
140 sys57812"ssunpacker.89",dn,0:poke780,0:poke781,0:poke782,201:sys65493
150 poke251,32:poke252,64:poke253,96
160 sys51456:sys51459
170 :
180 sys57812"ssspconv.o",dn,0:poke780,0:poke781,80:poke782,195:sys65493
240 :
250 dim tm(16)
260 forx=1to16:read tm(x):nextx
270 data 56,60,64,69,75,81,90,100,112
280 data 128,150,180,225,300,450,900
285 a=0:i=0
286 reada:ifa<>-1thenpoke828+i,a:i=i+1:goto286
290 zz=zz+1:geta$:ifzz<400anda$=""then290
295 sys51459
300 print"[147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
310 print" [221] [171][174]"
320 print" [221] [211] [201] [196] [211] [205] [201] [212] [200] [221][221]"
330 print" [221] [155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [221][221]"
340 print" [173][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221]"
350 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
360 print" [159][211]ongsmith filename:"
365 print" [198]1 [159][196]irectory"
367 print" [198]7 [159][209]uit the program
370 [153]"ononononon"[166]22);"";:[141]1340:f$[178]a$
372 [139]d$[178][199](133)[167]300
375 [139]d$[178][199](136)[167]1250
380 r$[178]"r0:m."[170]f$[170]"=m."[170]f$:[159]15,dn,15,r$:[132]15,er:[160]15:[139]er[178]63[167]440
390 [153]"load";:[153][166]12)"ascright$(NULL)valclose(NULL)(NULL)(NULL)closeasc(NULL)(NULL)(NULL)str$!!"
400 [153]" open(NULL)ress any key to try again...":[151]198,0
410 [161]a$:[139]a$[178]""[167]410
420 [137]300
430 :
440 mm[178]0:[153]:[153]"open right$nsert sysmeasure markersopen? ((NULL)open/(NULL)open)":[141]1310
450 [139]a$[178]"y"[167]mm[178]128
460 :
470 ac[178]0:[153]"open atnppend syscreditsopen to file? ((NULL)open/(NULL)open)":[141]1310
480 [139]a$[178]"y"[167]ac[178]128
485 r$[178]"r0:c."[170]f$[170]"=c."[170]f$:[159]15,dn,15,r$:[132]15,er:[160]15:[139]er[178]63[167]500
487 ac[178]0
490 :
500 dd[178]dn:od[178]8[170](1[175](dn[170]1)):dr$[178][199](48[170]od)
510 [159]15,od,15:[160]15:[139]st[167]550
520 [153]"open (NULL)ave file to sysstr$rive "dr$"open? ((NULL)open/(NULL)open)":[141]1310
530 :
540 [139]a$[178]"y"[167]dd[178]od
550 uo[178]0:[139]dd[178]od[167][137]590
560 [153]"open (NULL)ave file to a sysdifferent diskopen? ((NULL)open/(NULL)open)":[141]1310
570 [139]a$[178]"y"[167]uo[178]1
580 :
590 m$[178]"m."[170]f$:w$[178]"w."[170]f$:c$[178]"c."[170]f$
600 [139][195](f$)[177]12[167]f$[178][200](f$,12)
610 sd$[178]f$[170]".mus":l[178][195](sd$)
620 :
630 s1$[178]" sys":s2$[178]"open - (NULL)ey of ":s3$[178]" sharps)":s4$[178]" flats)"
640 [153]"loadprintlenhoose a key signatureprint:"
650 [153]s1$"atn"s2$"len#open (7"s3$
660 [153]s1$"peek"s2$"asc#open (6"s3$
670 [153]s1$"len"s2$"peekopen (5"s3$
680 [153]s1$"str$"s2$"valopen (4"s3$
690 [153]s1$"val"s2$"atnopen (3"s3$
700 [153]s1$"asc"s2$"str$open (2"s3$
710 [153]s1$"chr$"s2$"chr$open (1 sharp)"
720 [153]s1$"left$"s2$"lenopen ((NULL)(NULL)close#'s or -'s)"
730 [153]s1$"right$"s2$"ascopen (1 flat)"
740 [153]s1$"mid$"s2$"peek-open (2"s4$
750 [153]s1$"(NULL)"s2$"val-open (3"s4$
760 [153]s1$"(NULL)"s2$"atn-open (4"s4$
770 [153]s1$"(NULL)"s2$"str$-open (5"s4$
780 [153]s1$"(NULL)"s2$"chr$-open (6"s4$
790 [153]s1$"(NULL)"s2$"len-open (7"s4$
800 [153]" printto"
810 [153]" (NULL)waitopen - (NULL)ey signature is unknown"
820 [153]" printtab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
830 sf[178]0:[151]198,0
840 [161]a$:[139]a$[178]""[167]840
850 [139]a$[177]"@"[175]a$[179]"i"[167]900
860 [139]a$[178]"u"[167]880
870 [139]a$[179]"i"[176]a$[177]"o"[167]840
880 sf[178]128
890 :
900 [158]57812m$,dn,0:[151]780,0:[151]781,0:[151]782,160:[158]65493
910 [158]57812w$,dn,0:[151]780,0:[151]781,0:[151]782,207:[158]65493
920 [139] ac [167][158]57812c$,dn,0:[151]780,0:[151]781,0:[151]782,206:[158]65493
930 :
940 m$[178]m$[170]",p,r":[159]2,dn,2,m$:[129]x[178]1[164]4:[161]#2,a$:[130]:[161]#2,a$:[160]2
950 rt[178][181](7679[173][198](a$[170][199](0)))
960 x[178]1:[139]rt[179]tm(1)[167]1050
970 [139]rt[178]tm(x)[167]1050
980 [139](tm(x)[179]rt)[175](rt[179]tm(x[170]1))[167]1010
990 x[178]x[170]1:[139]x[179]16[167]970
1000 :
1010 [153]"loadopen(NULL)lease choose a systempoopen..."
1020 [153]" open1.";tm(x),"open2.";tm(x[170]1)
1030 [161]a$:[139]a$[179][177]"1"[175]a$[179][177]"2"[167]1030
1040 x[178]x[175]15:[139]a$[178]"2"[167]x[178]x[170]1
1050 rt[178][181](14400[173]tm(x))
1060 [139]rt[177]255[167]rt[178]0
1070 :
1080 [151]50003,rt:[151]50004,dd
1090 [151]50005,mm:[151]50006,ac
1100 [151]50007,sf
1110 [151]50008,l:[129]x[178]1[164]l:[151]50008[170]x,[198]([202](sd$,x,1)):[130]
1120 :
1130 [153]"load syslenclose(NULL)close(NULL)close(NULL)closevalclose(NULL)close(NULL)closeright$close(NULL)closechr$..."
1140 [153][166]9)"printtab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
1150 [139]uo[178]0[167]1190
1160 [153][166]7)"(NULL)lease insert printdestination"
1170 [153][166]10)"disk into drive sys#"[199](48[170]dd)"."
1180 [153][166]7)"open(NULL)(NULL)val(NULL)(NULL) atn(NULL)(NULL)close(NULL)val(NULL) (NULL)(NULL)closelen(NULL)(NULL)(NULL)right$(NULL)(NULL)val":[151]198,0
1185 [161]a$:[139]a$[178]""[167]1185
1190 [158]50000
1200 [153][166]10)"asccloseright$close(NULL)closeright$close(NULL) left$closeval str$ !!!"
1210 [153]"open str$o another conversion? (sys(NULL)open/sys(NULL)open)"
1220 [141]1310
1230 [139]a$[178]"y"[167]300
1240 :
1250 [159]15,dn,15,"r0:hello connect=hello connect":[132]15,er:[160]15
1260 [139] er[179][177]63 [167] [153]"load":[128]
1270 a$[178]"hello connect":q$[178][199](34)
1280 [153]"stoploadloada$,dn"
1290 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
1300 :
1310 [161]a$:[139]a$[179][177]"n"[175]a$[179][177]"y"[167]1310
1320 [142]
1330 [143] 'main input routine'
1340 a$[178]"":[151]198,0:k[178]0
1350 [153][202]("toandposnewnewposandto",k[170]1,1)"cmd";:k[178](k[170]1)[175]7:[161]d$:[139]d$[179][177]""[167]1365
1360 [129]dc[178]1[164]10:[130]dc:[137]1350
1365 [139]d$[178][199](133)[167][153]"load":[158]828:[141]2000:[142]
1367 [139]d$[178][199](136)[167][142]
1370 [139][195](a$)[178]14[167]1410
1380 [139]d$[178]" "[176]d$[178]"."[167]1450
1390 [139]d$[177]"/"[175]d$[179]":"[167]1450
1400 [139]d$[177]"@"[175]d$[179]"["[167]1450
1410 [139]d$[178][199](13)[167][153]" ";:[142]
1420 [139]d$[179][177][199](20)[167]1350
1430 [139][195](a$)[178]0[167]1350
1440 a$[178][200](a$,[195](a$)[171]1):[153]"cmd cmdcmd";:[137]1350
1450 [153]d$;:a$[178]a$[170]d$:[137]1350
2000 [153]"(NULL)ress a key":[151]198,0
2010 [161]e$:[139]e$[178]""[167]2010
2020 [142]
10000 [159]15,8,15,"s0:b.sidsmith":[160]15:[148]"b.sidsmith",8:[128]
40000 [131]169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
40010 [131]133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
40020 [131]255,169,0,133,144
40030 [131]160,3,132,251,32,165,255,133,252,164,144,208,47,32,165,255
40040 [131]164,144,208,40,164,251,136,208,233,166,252
40050 [131]32,205,189,169,32,32,210,255,32,165,255,166,144,208,18,170,240,6
40060 [131]32,210,255,184,80,240,169,13,32,210,255,160,2,208,198,32,66,246,96,-1