home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_May_1992_Datasphere_Publications_Disk_1_of_2_Side_B.d64 / settadek (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  19KB  |  503 lines
  1. 2 k=peek(186):print"[147]":poke53280,0:poke53281,0:poke53265,11
  2. 4 d=d+1:ifd<3thenload"d."+str$(d),k,1
  3. 6 poke56576,148:poke53272,2:print"[147]":poke648,192:poke52487,255:gosub1044
  4. 8 print"[147]":sys51024:il=0:xl=0:xs=0:fl=0:fs=0:poke56576,148
  5. 10 printtb$:input"[145][145][145][145][145]load index from device.(8/9)";xl$:xl=val(xl$)
  6. 12 ifxl<8orxl>9then10
  7. 14 printtb$:input"[145][145][145][145]store index on device..(8/9)";xs$:xs=val(xs$)
  8. 16 ifxs<8orxs>9then14
  9. 18 printtb$:input"[158][145][145][145]load files from device.(8/9)";fl$:fl=val(fl$)
  10. 20 iffl<8orxl>9then18
  11. 22 printtb$:input"[158][145][145]store files to device..(8/9)";fs$:fs=val(fs$)
  12. 24 iffs<8orxl>9then22
  13. 26 printtb$"are inputs correct ? (y/n)":getyn$
  14. 28 ifyn$="y"thensys50984:print"[147]":poke53272,2:poke53270,200:goto34
  15. 30 ifyn$="n"thensys50984:goto8
  16. 32 ifyn$<>"y"oryn$<>"n"thenprint"[145][145]":goto26
  17. 34 so=0:poke198,0:r=0:rc=0:e$(1)="":e$(2)=""
  18. 36 print"[147][159]"x$(1);"[194][154]      master cassette files menu      [159][194]";x$(2)"[146]";
  19. 38 print"[152][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  20. 40 forbd=1to15:print"[209]                            [209]":next
  21. 42 printtb$"[145][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  22. 44 gosub1006:printtb$"[146][158]@shadow graphics 1992"
  23. 46 print"[159] 1. cassette files menu"
  24. 48 print"[154] 2. numerical index"
  25. 50 print"[159] 3. alphabetical index"
  26. 52 print"[154] 4. change device numbers":gosub1004
  27. 54 print,"[176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
  28. 56 print,"^[153]select number_":print,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
  29. 58 geto$:ifo$=""then58
  30. 62 o=val(o$):ifo=1andil=1then496
  31. 64 ifo=1andil<>1thenprinttb$"[145][145][145][145]";x$(10):gosub1026:goto496
  32. 66 ifo=2andil=1then76
  33. 68 ifo=2andil<>1thenprinttb$"[145][145][145][145]";x$(10):gosub1026:goto76
  34. 70 ifo=3then930
  35. 72 ifo=4thenpoke53265,11:goto8
  36. 74 ifo$<>""then58
  37. 76 print"[147][156]"x$(1);"[194][158]   numerical  cassette  files  menu   [156][194]";x$(2)"[146]";
  38. 78 print"[150][209] 1 [146][150]  create a new file":gosub1012
  39. 80 print"[209] 2 [146][150]  scratch file from disk":gosub1012
  40. 82 print"[209] 3 [146][150]  print index 1":gosub1012
  41. 84 print"[209] 4 [146][150]  update indexes":gosub1012
  42. 86 print"[209] 5 [146][150]  clear indexes":gosub1012
  43. 88 print"[209] 6 [146][150]  main menu":gosub1012:print,"[156][176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
  44. 92 print,"^[150]select number[156]_":print,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
  45. 96 getp$:ifp$=""then96
  46. 100 s=val(p$):ifs=1thenfc=4:goto130
  47. 102 ifs=2thenfc=3:goto130
  48. 104 ifs=3thenfc=1:goto300
  49. 106 ifs=4thenfc=5:goto130
  50. 108 ifs=5then114
  51. 110 ifs=6then34
  52. 112 ifp$<>""then96
  53. 114 printtb$"[158]confirm scratch indexes (y/n)"
  54. 116 geta$:ifa$=""then116
  55. 118 ifa$<>"y"then76
  56. 120 forj=1to140:g$(j)="(   "+")  "+"[209][209][209]":nextj
  57. 122 printtb$"";x$(9):gosub1018:forj=1to140:g$(j)="[192][192][192]":nextj
  58. 126 printtb$"";x$(9):gosub1022:goto34
  59. 130 gosub1002:print"[147]":pg=1:tn=1:ln=20:a=0:g$(a)=""
  60. 132 ifss=1thenme$="[154] file from disk [146]"
  61. 134 ifs=1thenme$="[154]    new file    [146]"
  62. 136 ifs=2thenme$="[154]  scratch file  [146]"
  63. 138 ifs=3thenme$="[154]   index print  [146]"
  64. 140 ifs=4thenme$="[154]  index update  [146]"
  65. 142 poke198,0:print"[156] f1=page on:[129]f3=page back:[159]f5=file:[158]f7=menu[146]";
  66. 144 print"[155] page ";pg;"[157]   [155]             ";me$;
  67. 146 forx=tntoln:print"[152]                            [146][145]":gosub1012
  68. 148 print"                            [145]"
  69. 150 printtab(1)x;"[154]"tab(6)g$(x):nextx:printtb$"[129] page number [146]";
  70. 152 :
  71. 154 geta$:ifa$=""thengosub1008
  72. 156 ifa$>""then162
  73. 158 printtb$"[156] page  number [146]";
  74. 160 geta$:ifa$=""thengosub1008:goto152
  75. 162 ifa$<chr$(133)ora$>chr$(136)then152
  76. 164 ifa$=chr$(133)andx>139thentn=1:ln=20:pg=1:goto142
  77. 166 ifa$=chr$(134)andx<22thentn=121:ln=140:pg=7:goto142
  78. 168 ifa$=chr$(136)then34
  79. 170 ifa$=chr$(133)thentn=ln+1:ln=ln+20:pg=pg+1:goto142
  80. 172 ifa$=chr$(134)thentn=ln-39:ln=ln-20:pg=pg-1:goto142
  81. 174 ifa$=chr$(135)thenprinttb$:input"[159] file number [146]";a
  82. 176 printtb$,"   "
  83. 178 ifa=0then174
  84. 180 ifa<tnora>lnthenprint"[145][145]":goto152
  85. 182 iffc=5andg$(a)="[192][192][192]"thengosub998:goto236
  86. 184 ifg$(a)="[192][192][192]"thengosub998:print"[145][145]":goto152
  87. 186 iffc=5anda<tnora>lnthenprint"[145][145]":goto152
  88. 188 iffc=1then472
  89. 190 iffc=3then196
  90. 192 iffc=4then324
  91. 194 iffc=5then236
  92. 196 print"[145][158]confirm this file scratch (y/n)"
  93. 198 geta$:ifa$=""then198
  94. 200 ifa$="y"then206
  95. 202 ifa$="n"then76
  96. 204 ifa$=<"y"ora$>"n"then198
  97. 206 print"[145]                                "
  98. 208 print"[145][129] scratching ";g$(a);" ":open2,fl,15:print#2,"s:";g$(a):close2
  99. 210 print"[145][153] file has been scratched [146]           ":aa$=g$(a):g$(a)="[192][192][192]"
  100. 212 gosub1000:zz$="(   "+")  "+aa$:print"[145][155]";x$(9)"            ":gosub1022
  101. 214 forq=1to16:ifmid$(aa$,q,1)=chr$(32)thencq$=cq$+chr$(160):goto218
  102. 216 cq$=cq$+mid$(aa$,q,1)
  103. 218 nextq:aa$=cq$:zz$="(   "+")  "+aa$:cq$=""
  104. 220 ifil=2theng$(141)=zz$
  105. 222 ifil<2thenprint"[145][152]";x$(10):gosub1014:g$(141)=zz$
  106. 224 forn=141to1step-1
  107. 226 ifmid$(g$(n),8)=aa$theng$(n)="(   "+")  "+"[209][209][209]"
  108. 228 next:forn=1to140step1:print"[145][154] busy                             "
  109. 230 ifmid$(g$(n),8)>mid$(g$(n+1),8)thenb$=g$(n):g$(n)=g$(n+1):g$(n+1)=b$
  110. 232 print"[145][159] busy":next
  111. 234 print"[145]";x$(9):gosub1018:aa$="":zz$="":b$="":goto34
  112. 236 print"[147][156]"x$(1);"[194][159]    cassette  files  index  update    [156][194]";x$(2)"[146]";
  113. 238 print"[176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][178][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
  114. 240 print"^[159]cassette number"atab(22)"[157][156]_[129]entries left    [156]_"
  115. 242 print"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][177][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
  116. 244 ifg$(a)<>"[192][192][192]"thenprint""e$(8):gosub996:goto130
  117. 246 es=0:forj=1to140step1
  118. 248 ifg$(j)<>"[192][192][192]"thennext
  119. 250 ifg$(j)="[192][192][192]"thenes=es+1:next
  120. 252 ifes<1thenprinttb$"[145][145][145][145][145][145]"e$(9):gosub998:goto34
  121. 254 print"[150]":printtab(34)es;
  122. 256 print"[156][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174][176][175][175][175][175][175][175][175][175][175][174]"
  123. 258 print"^[159]enter cassette title[156]_^         _"
  124. 260 print"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189][173][172][172][172][172][172][172][172][172][172][189]"
  125. 262 print"[156][176][175][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174][159]16 characters max"
  126. 264 input"";g$(a)
  127. 266 l=len(g$(a)):ifl>16thenprint"[145]                          ":goto262
  128. 268 print"[159] duplication  check ":forn=1to140step1
  129. 270 ifg$(n)=g$(a)andn=athen274
  130. 272 ifg$(n)=g$(a)thenprint""e$(8);:gosub996:g$(a)="[192][192][192]":goto130
  131. 274 nextn
  132. 276 print"[154] writing index 1    ":gosub1022
  133. 278 forq=1to16:ifmid$(g$(a),q,1)=chr$(32)thencq$=cq$+chr$(160):goto282
  134. 280 cq$=cq$+mid$(g$(a),q,1)
  135. 282 print"[158]"cq$;:nextq:g$(a)=cq$:cq$=""
  136. 284 g$(a)=left$("(  ",5-len(str$(a)))+mid$(str$(a),2)+")  "+g$(a):xx$=g$(a)
  137. 286 print"[153] reading index 2    ":gosub1014:g$(j)=xx$
  138. 288 print"[156]^                    _":forn=141to1step-1
  139. 290 print"":print,,"[150] busy"
  140. 292 ifmid$(g$(n),8)<mid$(g$(n-1),8)thenb$=g$(n):g$(n)=g$(n-1):g$(n-1)=b$
  141. 294 print"":print,," busy":next
  142. 296 print"[154] writing index 2    "
  143. 298 print"":print,,"        ":gosub1018:xx$="":goto34
  144. 300 printtb$"[154] printer off ":open4,4:print#4
  145. 302 ifst<>0thengosub998:close4:goto76
  146. 304 ifst=0thenprinttb$"[156] print index"
  147. 306 print#4,chr$(14)chr$(27)"1";x$(1);x$(4);x$(2)"[146]";:print#4,chr$(10)
  148. 308 print#4,chr$(27);"@";
  149. 310 print#4,chr$(27);chr$(15):print#4,chr$(27);"3";chr$(25);
  150. 312 print#4,chr$(27)"d";chr$(7);chr$(14);chr$(60);chr$(67);chr$(0);:forn=1to70
  151. 314 print#4,chr$(9);n;chr$(9);g$(n)chr$(9);n+70;chr$(9);g$(n+70):next
  152. 316 print#4,chr$(27);"@":print#4,chr$(27);chr$(10);chr$(10);chr$(10);chr$(10)
  153. 318 print#4,chr$(27);"@":print#4:close4
  154. 320 ifso=2then930
  155. 322 goto34
  156. 324 t$=left$(t$,1):print,"[158][145] checking file bank [146]":open15,fs,15
  157. 326 gosub998:open5,fs,5,"0:"+g$(a)+","+t$+",r":gosub332
  158. 328 print,"[153][145] file exists [146]          ":gosub998:close5:close15:goto130
  159. 332 input#15,a$
  160. 334 ifval(a$)>0thenprint,"[153][145] o.k-file does not exist [146]":gosub998
  161. 336 ifval(a$)>0thenclose5:close15:gosub998:goto340
  162. 338 return
  163. 340 ao=0:e$(3)=str$(a)
  164. 342 print"[147][151]"x$(1);"[194][152]         create  a  new  file         [151][194]";x$(2)"[146]";
  165. 344 print"":print,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  166. 346 fore=1to8:print,,"[161]              [161][146]":nexte:print,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
  167. 350 print"":print,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  168. 352 fore=1to9:print,,"[161]              [161][146]":nexte:print,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
  169. 356 print"[152][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  170. 358 fore=1to5:print"[161]                  [161][146]":nexte:print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]"
  171. 364 print"[154]1. cassette size ":print"[152]2. cassette type ":gosub1004
  172. 368 print"[154]1. cassette size [146]":print"":print,,"[154][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]"
  173. 370 fore=1to8:print,,"[161]            [161][146]":nexte
  174. 372 print,,"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";:print"":print,,"1.[154] c 60 "
  175. 374 print,,"2.[154] c 90 ":print,,"3.[154] c 120 "
  176. 376 getcs$:ifcs$=""then376
  177. 380 cs=val(cs$):ifcs=1thene$(1)="60":goto386
  178. 382 ifcs=2thene$(1)="90":goto386
  179. 384 ifcs=3thene$(1)="120"
  180. 386 ifcs<1orcs>3then376
  181. 388 print"":print,,"[150][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  182. 390 fore=1to9:print,,"[161]            [161][146]":nexte:print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
  183. 396 print"[152]1. cassette size ":print"[150]2. cassette type [146]"
  184. 398 print"":print,,"1.[150] standard "
  185. 400 print,,"2.[150] chrome ":print,,"3.[150] ferric "
  186. 402 print,,"4.[150] metal  "
  187. 404 getct$:ifct$=""then404
  188. 406 ct=val(ct$):ifct<1orct>4then404
  189. 410 gosub1034:print"[156]title [159]"g$(a):print"[156]number[159]"e$(3)
  190. 412 print"[156]size [159]c"e$(1):gosub708:print"[156]type[159] "e$(4)
  191. 414 print"[152]correct details (y/n)"
  192. 416 getp$:ifp$=""then416
  193. 418 ifp$="n"thene$(1)="":e$(2)="":goto340
  194. 422 ifp$<>"y"orp$<>"n"then416
  195. 424 print"[147][149]"x$(1);"[194][158]      track entries to a new file     [149][194]";
  196. 426 print"[194][129]   press return to fill blank tracks  [149][194]";
  197. 428 printx$(2)"[146]";
  198. 430 iftl=0thenrc=rc+1:goto434
  199. 432 iftl=1thenrc=rc:tl=0
  200. 434 ifrc<17thents=1
  201. 436 ifrc>17thents=2
  202. 438 print"[155][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
  203. 440 print"[155]^  track nr";rc;tab(23)":[154]side"ts"[155]_"
  204. 442 print"[152][171][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][179]"
  205. 444 print"[151]^[159] maximum 35 characters  [151]_"
  206. 446 print"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
  207. 450 print"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  208. 452 ifao=1thenpoke198,2:poke631,42:poke632,13
  209. 454 print"[159]":inputd$(rc)
  210. 456 l=len(d$(rc)):ifl>35thentl=1:goto470
  211. 458 ifl<2thend$(rc)="-----------":ao=1
  212. 460 ifl<2thenprint"***********"
  213. 462 ifrc=17thenprinttb$,"[145][145][145][145][154]side one is full":poke198,0:ao=0:gosub1000
  214. 464 ifrc=17thenprinttb$,"[145][145][145][145]                ":gosub1006:goto470
  215. 466 ifrc=34thenprinttb$,"[145][145][145][145][154]side two is full":poke198,0:ao=0:gosub1000
  216. 468 ifrc=34thenprinttb$,"[145][145][145][145]                ":nf=1:goto868
  217. 470 print"                                     ":goto430
  218. 472 t$=left$(t$,1):print,"[158][145] checking file bank [146]":open15,fl,15
  219. 474 open5,fl,5,"0:"+g$(a)+","+t$+",r"
  220. 476 input#15,a$:gosub998
  221. 478 ifval(a$)>0thenprint,"[158][145] file does not exist [146]":gosub998
  222. 480 ifval(a$)>0thenclose5:close15:gosub998:goto34
  223. 482 print"[145][144]                                       "
  224. 484 close5:close15:print"[145]":rc=0:r=0
  225. 486 poke198,0:open2,fl,2,g$(a)+",s,r":print"[154][145] reading ";g$(a);" [146]"
  226. 490 forz=1to3:input#2,e$(z):nextz
  227. 492 forr=1to34:input#2,d$(r):rc=rc+1:next:close2
  228. 496 print"[147][129]"x$(1);"[194][158]  cassette files     menu number two  [129][194]";x$(2)"[146]";
  229. 498 print"[151][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  230. 500 forbd=1to17:print"[209]                        [209]":next
  231. 502 printtb$"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"
  232. 504 print""
  233. 506 ifrc>0thenprint,"[151] 1 [146][152]  load file":gosub1012
  234. 508 ifrc<1thenprint,"[158] 1 [146][159]  load file":gosub1012
  235. 510 ifrc>0thenprint,"[158] 2 [146][159]  view data":gosub1012
  236. 512 ifrc<1thenprint,"[151] 2 [146][152]  view data":gosub1012
  237. 514 ifrc<1thenprint,"[151] 3 [146][152]  print page":gosub1012
  238. 516 ifrc>0thenprint,"[158] 3 [146][159]  print page":gosub1012
  239. 518 ifrc>0thenprint,"[158] 4 [146][159]  add/amend tracks":gosub1012
  240. 520 ifrc<1thenprint,"[151] 4 [146][152]  add/amend tracks":gosub1012
  241. 522 ifrc<1thenprint,"[151] 5 [146][152]  print label":gosub1012
  242. 524 ifrc>0thenprint,"[158] 5 [146][159]  print label":gosub1012
  243. 526 ifrc>0thenprint,"[158] 6 [146][159]  title amend":gosub1012
  244. 528 ifrc<1thenprint,"[151] 6 [146][152]  title amend":gosub1012
  245. 530 print,"[158] 7 [146][159]  main menu":gosub1012
  246. 532 print,"[154][176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]":print,"[154]^[152]select number[154]_"
  247. 536 print,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
  248. 538 getp$:ifp$=""then538
  249. 542 s=val(p$):ifs=1andrc>0then538
  250. 544 ifs=1thenfc=1:s=0:ss=1:goto130
  251. 546 ifs=2andrc>0then562
  252. 548 ifs=3andrc>0then718
  253. 550 ifs=4andrc>0thenta=1:goto592
  254. 552 ifs=5andrc>0then652
  255. 554 ifs=6andrc>0then784
  256. 556 ifs=7then34
  257. 558 ifs<1ors>7then496
  258. 562 input"[156]side nr.[152](0=menu)";v$
  259. 566 v=val(v$):ifv=0then496
  260. 568 ifv=1thenr1=1:goto574
  261. 570 ifv=2thenr1=18:goto574
  262. 572 ifv<0orv>2then562
  263. 574 gosub708:print"[147]title: ";g$(a)tab(28)":[154]side "v
  264. 576 print"[156] size: c";e$(1)""tab(10)": type:";e$(4)tab(28)":[158]c/nr [146]";a
  265. 578 print"[159][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  266. 580 r2=r1+16:ifr2>rcthenr2=rc
  267. 582 k$="[150]":forc=r1tor2
  268. 584 print"[152]"c;tab(4)k$;d$(c)
  269. 586 ifk$="[150]"thenk$="[154]":goto590
  270. 588 ifk$="[154]"thenk$="[150]"
  271. 590 gosub1012:nextc:goto562
  272. 592 print"[147]":forc=j1toj2
  273. 594 ifc<18thenk$="":goto598
  274. 596 ifc>=17thenk$="[153]"
  275. 598 print"[152]"c;tab(4)k$;d$(c):gosub1012:nextc
  276. 602 pokevp,14:print"[145][145]":print"[158][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
  277. 604 print"^[159]      add and amend tracks      [146][158]_"
  278. 606 print"^[154]  f1=see more  f7=select track  [146][158]_"
  279. 608 print"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
  280. 610 geta$:ifa$=""then610
  281. 612 ifa$=chr$(133)andj2=34thenj1=1:j2=11:goto592
  282. 614 ifa$=chr$(133)andj2=22thenj1=j2+1:j2=j2+12:goto592
  283. 616 ifa$=chr$(133)thenj1=j2+1:j2=j2+11:goto592
  284. 618 ifa$=chr$(136)then624
  285. 620 ifa$<chr$(133)ora$>chr$(136)then610
  286. 622 ifa$=chr$(134)ora$=chr$(135)then610
  287. 624 pokevp,18:print"[145][145]":pokehp,1:input"[154]which track number";c
  288. 626 ifc<j1orc>j2then624
  289. 628 pokevp,18:print"[145][145]":pokehp,1:print"                                   "
  290. 630 pokevp,18:print"[145][145]":pokehp,1:print"[157][152]"c;k$;d$(c)
  291. 632 pokevp,19:print"[145][145]":pokehp,1:print"[158]please input new track name[154]"
  292. 634 pokevp,20:print"[145][145]":pokehp,3:print"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174][159]"
  293. 636 pokevp,21:print"[145][145]":pokehp,1:inputd$(c)
  294. 638 l=len(d$(c)):ifl>35then592
  295. 640 ifl<2thend$(c)="-----------"
  296. 642 pokevp,23:print"[145][145]":pokehp,13:print"[153] add more(y/n) "
  297. 644 getf$:iff$=""then644
  298. 646 iff$="n"thenta=0:nf=2:printtb$"[156] storing file to disk ":goto880
  299. 648 iff$="y"then592
  300. 650 iff$<>"y"orf$<>"n"then644
  301. 652 print""x$(1);"[194] [153]      printing cassette label        [194]";x$(2)"[146]";
  302. 654 gosub708:c1$=g$(a):sp$="                  ":c1$=left$(c1$+sp$,18)
  303. 656 fori=1to18:ac=asc(mid$(c1$,i,1))
  304. 658 pb$=pb$+chr$(ac):nexti
  305. 660 ifval(e$(1))=60orval(e$(1))=90thenc2$="c"+e$(1)+"  "+e$(4)+"  ":goto664
  306. 662 ifval(e$(1))=120thenc2$="c"+e$(1)+" "+e$(4)+"  "
  307. 664 ifval(e$(3))<10thencn$="00"+e$(3):goto670
  308. 666 ifval(e$(3))>9andval(e$(3))<100thencn$="0"+e$(3):goto670
  309. 668 ifval(e$(3))>99thencn$=e$(3)
  310. 670 bt$=c2$+cn$
  311. 672 printtb$,"[154] printer off ":open4,4:print#4
  312. 674 ifst<>0thengosub998:close4:goto496
  313. 676 ifst=0thenprinttb$,"[158] print label"
  314. 678 print#4,chr$(14)chr$(27)"1";x$(6):print#4,chr$(10)
  315. 680 print#4,chr$(27);"@";:print#4,chr$(27);chr$(15);
  316. 682 print#4,chr$(27);"3";chr$(23);:print#4," side 2.";chr$(13)
  317. 684 print#4,chr$(27)"d";chr$(5);chr$(0);:forn=18to34
  318. 686 print#4,n;chr$(9);d$(n):next
  319. 688 print#4,chr$(10):print#4,chr$(27);"@";:print#4,chr$(14)chr$(27)"1";x$(6)
  320. 690 print#4,chr$(10):print#4,chr$(27);"@";:print#4,chr$(27);chr$(15);
  321. 692 print#4,chr$(27);"3";chr$(23);:print#4," side 1.";chr$(13)
  322. 694 print#4,chr$(27)"d";chr$(5);chr$(0);:forn=1to17
  323. 696 print#4,n;chr$(9);d$(n):next
  324. 698 print#4,chr$(27);"@":print#4,chr$(14)chr$(27)"1";x$(7)
  325. 700 print#4,chr$(27)"1";"[221]";pb$;"[146][221]":print#4,chr$(27)"1";x$(8)
  326. 702 print#4,chr$(27)"1";"[221]";bt$;"[146][221]":print#4,chr$(27)"1";x$(5)
  327. 704 print#4,chr$(27);"@";:forpu=1to2:print#4,chr$(10):nextpu
  328. 706 print#4:close4:c1$="":c2$="":pb$="":cn$="":goto496
  329. 708 ife$(2)="s"thene$(4)="standard"
  330. 710 ife$(2)="c"thene$(4)=" chrome "
  331. 712 ife$(2)="f"thene$(4)=" ferric "
  332. 714 ife$(2)="m"thene$(4)=" metal  "
  333. 716 return
  334. 718 cp$(2)="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  335. 720 cp$(2)="[221]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]o[221]"
  336. 722 cp$(3)="[221] [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201] [221]"
  337. 724 cp$(4)="[221] [194][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][194] [221]        [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  338. 726 cp$(5)="[221] [221][213][192][201][176][192][192][192][192][192][192][192][192][192][174][213][192][201][221] [221]"
  339. 728 cp$(6)="[221] [221][221][215][221][221])[166][166][166]   [166]([221][221][215][221][221] [221]        [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  340. 730 cp$(7)="[221] [221][202][192][203][173][192][192][192][192][192][192][192][192][192][189][202][192][203][221] [221]        [166]    cassette file printout     [146][166]"
  341. 732 cp$(8)="[181] [221]   [177][177][177][177][177][177][177][177][177][177][177] s1[221] [182]        [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  342. 734 cp$(9)="[181] [221]tdk ma 90[146][209][209][209][209][209][209][209][209][221] [182]"
  343. 736 cp$(10)="[181] [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203] [182]        [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  344. 738 cp$(11)="[181]   [206][163][163][163][163][163][163][163][163][163][163][163][163][163][205]   [182]"
  345. 740 cp$(12)="[181]o [217] [209] [209]   o   [209] [209] [212] o[182]"
  346. 742 cp$(13)="[173][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][189]        [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  347. 744 print""x$(1);"[194][150]    cassette pages printing service   [194]";x$(2)"[146]";
  348. 746 printtb$,"[154] printer off ":open4,4:print#4
  349. 748 ifst<>0thengosub998:close4:goto496
  350. 750 ifst=0thenprinttb$," print page "
  351. 752 printchr$(15):formm=1to13
  352. 754 printchr$(27);"1";tab(8)cp$(mm):nextmm
  353. 756 printchr$(27);"s0";:printtab(8)"(c) shadowgraphics 1992":printchr$(27);"@";
  354. 758 printchr$(14)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";:gosub708
  355. 760 print"cassette name "g$(a)
  356. 762 print"cassette size "e$(1):print"cassette type "e$(4)
  357. 764 print"cassette number "e$(3)
  358. 766 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";:print"side one"
  359. 770 printchr$(15):printchr$(27)chr$(108):forl=1to17
  360. 772 printchr$(27);"1";chr$(10);l;:printd$(l):nextl:printchr$(27);"1";chr$(0);
  361. 774 printchr$(14)"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  362. 776 print"side two":printchr$(15):printchr$(27)chr$(108):forl=18to34
  363. 778 printchr$(27);"1";chr$(10);l;:printd$(l):nextl:printchr$(27);"1";chr$(0);
  364. 780 printchr$(27)chr$(108)chr$(0)chr$(15)
  365. 782 printchr$(27);"@";:print#4:close4:goto498
  366. 784 print"[147][154]"x$(1);
  367. 786 print"[194][159]        cassette titles update        [154][194]";:printx$(2)"[146]";
  368. 788 print"[156][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
  369. 790 fore=1to7:print"[161]                                      [161][146]";:nexte
  370. 792 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
  371. 794 print"[159]1. change title [154]";g$(a)
  372. 796 print"[159]2. change size  [154]c";e$(1)
  373. 798 gosub708:print"[159]3. change type [154]";e$(4)
  374. 800 getcd$:ifcd$=""then800
  375. 802 cd=val(cd$)
  376. 804 ifcd<1orcd>3then800
  377. 806 print"":oncdgoto808,816,838
  378. 808 print"[159][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]":n$(a)=g$(a)
  379. 810 input"new cassette title[154]";g$(a)
  380. 812 l=len(g$(a)):ifl>16thenprint"[145][145]":goto810
  381. 814 goto854
  382. 816 print"[129][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  383. 818 fore=1to7:print"[161]           [161][146]":nexte
  384. 820 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][146]";:print"[159]1. c 60 [154]"
  385. 822 print"[159]2. c 90 [154]":print"[159]3. c 120 [154]"
  386. 824 getcs$:ifcs$=""then824
  387. 828 cs=val(cs$):ifcs=1thene$(1)="60":goto834
  388. 830 ifcs=2thene$(1)="90":goto834
  389. 832 ifcs=3thene$(1)="120"
  390. 834 ifcs<1orcs>3then824
  391. 836 goto854
  392. 838 print"[153][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  393. 840 fore=1to9:print"[161]             [161][146]":nexte
  394. 842 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146]";
  395. 844 print"[159]1. standard [154]":print"[159]2. chrome [154]"
  396. 846 print"[159]3. ferric [154]":print"[159]4. metal  [154]"
  397. 848 getct$:ifct$=""then848
  398. 850 ct=val(ct$):ifct<1orct>4then848
  399. 852 gosub1034
  400. 854 print"":print,"[155] do you wish to change"
  401. 856 print,"[152]more information ? (y/n)"
  402. 858 getp$:ifp$=""then858
  403. 860 ifp$="n"then866
  404. 862 ifp$="y"then784
  405. 864 ifp$<>"y"orp$<>"n"then858
  406. 866 e$(3)=str$(a):tf=1
  407. 868 printtb$"[158][176][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
  408. 870 print"^                          _"
  409. 872 print"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][189]":ifnf=1then878
  410. 874 printtb$" storing index 1       ":gosub1022
  411. 876 open2,fl,15:print#2,"s:";n$(a):close2:nm=a
  412. 878 printtb$"[156] storing file to disk  "
  413. 880 open2,fs,2,"@0:"+g$(a)+",s,w":forz=1to3:print#2,e$(z):nextz
  414. 882 forr=1to34:print#2,d$(r):nextr:close2
  415. 884 ifnf=0then888
  416. 886 ifnf=1ornf=2thennf=0:goto34
  417. 888 iftf<1then496
  418. 890 iftf=1thentf=0
  419. 892 forq=1to16:ifmid$(n$(a),q,1)=chr$(32)thenjq$=jq$+chr$(160):goto896
  420. 894 jq$=jq$+mid$(n$(a),q,1)
  421. 896 nextq:n$(a)=jq$:yy$="(   "+")  "+n$(a):jq$=""
  422. 898 forq=1to16:ifmid$(g$(a),q,1)=chr$(32)thencq$=cq$+chr$(160):goto902
  423. 900 cq$=cq$+mid$(g$(a),q,1)
  424. 902 nextq:g$(a)=cq$
  425. 904 printtb$"[152] reading index 2       ":gosub1014:g$(141)=yy$
  426. 906 forn=141to1step-1
  427. 908 ifmid$(g$(n),8)=n$(a)theng$(n)="(   "+")  "+"[209][209][209]"
  428. 910 next:n$=""
  429. 912 forn=1to140step1:printtb$"[154] busy           "
  430. 914 ifmid$(g$(n),8)>mid$(g$(n+1),8)thenb$=g$(n):g$(n)=g$(n+1):g$(n+1)=b$
  431. 916 printtb$" busy":next:a=nm
  432. 918 g$(j)=left$("(  ",5-len(str$(nm)))+mid$(str$(nm),2)+")  "+cq$
  433. 920 forn=141to1step-1
  434. 922 printtb$"[150] busy"
  435. 924 ifmid$(g$(n),8)<mid$(g$(n-1),8)thenb$=g$(n):g$(n)=g$(n-1):g$(n-1)=b$
  436. 926 printtb$" busy":next
  437. 928 printtb$"[159] storing index 2":gosub1018:cq$="":yy$="":b$="":goto34
  438. 930 print"[147]"x$(1);"[194][158]  alphabetical  cassette files  menu  [194]";x$(2)"[146]";
  439. 932 s0=1:print"[209] 1 [146][129]  display alphabetical index":gosub1012
  440. 934 print"[209] 2 [146][129]  print alphabetical index":gosub1012
  441. 936 print"[209] 3 [146][129]  main menu":gosub1012
  442. 938 printtb$,"[145][129][176][175][175][175][175][175][175][175][175][175][175][175][175][175][174]"
  443. 940 printtb$,"^[150]select number[129]_"
  444. 942 printtb$,"[173][172][172][172][172][172][172][172][172][172][172][172][172][172][189]"
  445. 944 getp$:ifp$=""then944
  446. 948 so=val(p$):ifso=1orso=2then954
  447. 950 ifso=3then34
  448. 952 ifso<1orso>3then944
  449. 954 ifil=2then958
  450. 956 ifil<2thenprinttb$"[153]";x$(10):gosub1014:ifso=2then300
  451. 958 ifso=2then300
  452. 960 gosub1002:print"[147]":pg=1:tn=1:ln=20:a=0:g$(a)=""
  453. 962 poke198,0:print"[155] page";pg;tab(7)"[156]:f1=page on:[129]f3=page back:[159]f7=menu";
  454. 964 forx=tntoln:print"[152]                                [146][145]":gosub1012
  455. 966 print"                                [145]"
  456. 968 printtab(1)x;"[154]"tab(6)g$(x):nextx
  457. 970 printtb$"[129] page  number [146]";
  458. 972 geta$:ifa$=""thengosub1008
  459. 974 ifa$>""then980
  460. 976 printtb$"[156] page  number [146]";
  461. 978 geta$:ifa$=""thengosub1008:goto970
  462. 980 ifa$<chr$(133)ora$>chr$(136)then970
  463. 982 ifa$=chr$(133)andx>139thentn=1:ln=20:pg=1:goto962
  464. 984 ifa$=chr$(134)andx<22thentn=121:ln=140:pg=7:goto962
  465. 986 ifa$=chr$(136)then930
  466. 988 ifa$=chr$(133)thentn=ln+1:ln=ln+20:pg=pg+1:goto962
  467. 990 ifa$=chr$(134)thentn=ln-39:ln=ln-20:pg=pg-1:goto962
  468. 992 ifa$=chr$(135)then972
  469. 994 forw=1to2000:next
  470. 996 forw=1to1000:next
  471. 998 forw=1to500:next
  472. 1000 forw=1to400:next
  473. 1002 forw=1to300:next
  474. 1004 forw=1to200:next
  475. 1006 forw=1to100:next
  476. 1008 forw=1to40:next
  477. 1010 forw=1to30:next
  478. 1012 forw=1to20:next:return
  479. 1014 ifil=2thenreturn
  480. 1016 open2,xl,2,e$(6)+",s,r":forj=1to140:input#2,g$(j):next:close2:il=2
  481. 1018 open2,xs,2,"@0:"+e$(6)+",s,w":forj=1to140:print#2,g$(j):next:close2
  482. 1020 goto1032
  483. 1022 open2,xs,2,"@0:"+e$(5)+",s,w":forj=1to140:print#2,g$(j):next:close2
  484. 1024 goto1032
  485. 1026 ifil=1thenreturn
  486. 1028 open2,xl,2,e$(5)+",s,r":forj=1to140:input#2,g$(j):nextj:close2:il=1
  487. 1030 open1,xl,15:print#1,"i":close1:gosub1002:return
  488. 1032 open1,xs,15:print#1,"i":close1:gosub1002:return
  489. 1034 ifct=1thene$(2)="s"
  490. 1036 ifct=2thene$(2)="c"
  491. 1038 ifct=3thene$(2)="f"
  492. 1040 ifct=4thene$(2)="m"
  493. 1042 return
  494. 1044 x$(1)="[213][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][192][192][192][192][201]":j1=1
  495. 1046 x$(7)="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":x$(8)="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":e$(6)="index 2"
  496. 1048 x$(5)="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":x$(6)="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":e$(5)="index 1"
  497. 1050 x$(2)="[202][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][192][192][192][192][203]":x$(10)="reading index"
  498. 1052 x$(3)="[221]   cassette  file    cassette  file   [221]":dimd$(34),g$(141),a(140)
  499. 1054 x$(4)="[221]   cassette  index   cassette  index  [221]":dimcp$(14):vp=214:hp=211
  500. 1056 tb$="":bk=53280:pk=bk+1:x$(9)="writing index":j2=11
  501. 1058 e$(8)="this title is already on disk":e$(9)="index is full":dimn$(140)
  502. 1060 return
  503.