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