home *** CD-ROM | disk | FTP | other *** search
/ The Commodore Format PowerPacks 23 / Commodore_Format_PowerPacks_The_23_1992_Future_GB.d64 / catalog (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  171 lines
  1. 100 rem **************************
  2. 110 rem *                        *
  3. 120 rem *    commodore format    *
  4. 130 rem * tape catalogue program *
  5. 140 rem *   based on a program   *
  6. 141 rem *      by paulissen      *
  7. 142 rem *                        *
  8. 150 rem **************************
  9. 160 :
  10. 170 goto1010:rem **initialize**
  11. 180 :
  12. 190 rem ** create catalogue **
  13. 200 :
  14. 210 pokebo,0:pokeba,0:print"[147]section create"
  15. 220 print"[163][163][163][163][163][163][163][160][163][163][163][163][163][163]"
  16. 230 print"(input of files on the cassette tape)"
  17. 240 print"type in the name of each file that you
  18. 250 [153]"have saved on the tape."
  19. 260 [153]"when done type *def to end the input"
  20. 270 [140]:[135] d:aa[178]d
  21. 280 [133]"contfile name";n$
  22. 290 [139]n$[179][177]"*"[167]n$(d)[178]n$:d[178]d[170]1:[137]280
  23. 300 ee[178]d:d[178]aa:[139]([194](w1)[175]w2)[178]w2[167]330
  24. 310 [153]"loadpress the":[153]"stopwait key"
  25. 320 [153]"on the recorder":[146]w1,w2,255[171]w2
  26. 330 [153]"loadplease press the f.fwdwait key."
  27. 340 [153]"start the motor by pressing any key, "
  28. 350 [153]"then stop at the start of the required "
  29. 360 [153]"file in the same way - i.e. press any "
  30. 370 [153]"key."
  31. 380 [146] w1,w2,w2:[141]1190:dt[178]0
  32. 390 [141]1160:[141]1170:t1[178]ti
  33. 400 [153]"loadplease stop at start of:-"
  34. 410 [153]""n$(d)
  35. 420 [141]1160:[141]1190:dt[178]ti[171]t1[170]dt:[143] compute difference
  36. 430 ss(d)[178]dt[171]10:dt[178]dt[170]10:d[178]d[170]1
  37. 440 [139] d[179]ee[167][153]"okay, computed! press any key":[137]390
  38. 450 [153] "load  storing program info in data lines"
  39. 460 [153]"  tab(tab(tab(tab(tab(tab(tab(closetab(tab(tab(tab(tab(tab(tab(closetab(tab(tab(tab(closetab(tab(closetab(tab(tab(tab(closetab(tab(tab(tab(tab("
  40. 470 [153]" 1250 data "d
  41. 480 [129]i[178]aa[164] ee[171]1:[153]1260[170]i"data "n$(i)", "ss(i)
  42. 490 [130]:[153]"stopgoto510":[153]"defpausing...":[129] x[178]1[164]2000:[130]
  43. 500 [151]198,11:[129]i[178]0[164]10:[151]631[170]i,13:[130]:[153]"":[128]
  44. 510 [153]"loadsysnow wind back the tape to the beginning"
  45. 520 [153]"and store this updated version of the"
  46. 530 [153]"program over the previous version":[141]1170:[128]
  47. 540 :
  48. 550 [143] ** loading from catalogue **
  49. 560 :
  50. 570 [140]:[135]d:[129] i[178]0[164]d[171]1:[135]n$(i),ss(i):[130]
  51. 580 [151]ba,6:[151]bo,6:[153]"load load requestor"
  52. 590 [153]" tab(tab(tab(tab( tab(tab(tab(tab("
  53. 600 [153]"cont      (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  54. 610 [153]"     (NULL) f1 = move pointer up list   cont(NULL)"
  55. 620 [153]"     (NULL) f3 = move pointer down list cont(NULL)"
  56. 630 [153]"     (NULL) return selects file to load cont(NULL)"
  57. 640 [153]"     /tantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL) "
  58. 650 [153]"     hit  any key wait to list catalogue":[141] 1160:aa[178]0
  59. 660 [153]"loadsyscatalogue":a[178]0:[153]
  60. 670 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab("
  61. 680 [129] i[178]aa[164]aa[170]8:[139]n$(i)[179][177]""[167] [153] [163]3)"list"n$(i)
  62. 690 [130]
  63. 700 [151]bs[170]x1[170]a[172]x2,62:[151]bc[170]x1[170]a[172]x2,cc
  64. 710 [141]1160
  65. 720 [139]([198](k$)[178]133)[175](a[177]0)[167][151]bs[170]x1[170]a[172]x2,32:a[178]a[171]1:[137]700
  66. 730 [139]([198](k$)[178]134)[175](a[179]8)[175](n$(aa[170]a[170]1)[179][177]"")[167][151]bs[170]x1[170]a[172]x2,32:a[178]a[170]1:[137]700
  67. 740 [139][198](k$)[178]13[167]780
  68. 750 [139][198](k$)[178]133[175]a[178]0[175]aa[167]aa[178]aa[171]9:[137]660
  69. 760 [139]([198](k$)[178]134)[175](n$(i))[179][177]""[175](a[178]8)[167]aa[178]aa[170]9:[137]660
  70. 770 [137]700
  71. 780 :
  72. 790 [139]([194](w1)[175]w2)[178]w2[167]820
  73. 800 [153]"load >>> list press the stopwait key on the
  74. 810 print"      datassette":waitw1,w2,255-w2
  75. 820 print"[147]catalogue"
  76. 830 print"[163][163][163][163][163][163][163][163][163]"
  77. 840 print" >>> [155] press the f.fwd[146] key on the"
  78. 850 print "      datassette"
  79. 860 wait w1,w2,w2
  80. 870 print"okay..."
  81. 880 t1=ti:t2=t1+ss(a+aa)
  82. 890 ift2<ti then910
  83. 900 goto890
  84. 910 gosub1190
  85. 920 print"[147]catalogue"
  86. 930 print"[163][163][163][163][163][163][163][163][163]"
  87. 935 print"searching! found - "chr$(34)n$(a+aa)chr$(34)
  88. 940 print"now press the play[146] key"
  89. 950 print"when ready strike the spacebar to load"
  90. 960 print"the program":gosub1160
  91. 970 print"[147]load";chr$(34)(n$(a+aa))chr$(34)
  92. 980 poke198,1:poke631,13:poke37148,252:print"":end
  93. 990 rem ** initialize program **
  94. 1000 :
  95. 1010 bs=1023:bc=55295:cc=13:bo=53280:ba=bo+1
  96. 1020 w1=1:w2=16:dim n$(50),ss(59):x1=163:x2=80
  97. 1030 poke650,128:pokebo,8:pokeba,9:print"[147]"
  98. 1040 printtab(12)"[158]commodore format"
  99. 1050 printtab(9)"tape cassette catalogue"
  100. 1060 printtab(9)"[163][163][163][163][160][163][163][163][163][163][163][163][163][160][163][163][163][163][163][163][163][163][163]"
  101. 1070 printtab(10)"[153]please make selection"
  102. 1080 printtab(10)"c[146] [150]create new catalogue."
  103. 1090 printtab(10)"l[146] [150]load from catalogue."
  104. 1095 printtab(10)"r[146] [150]read instructions."
  105. 1100 gosub1160:ifk$="l"then570
  106. 1105 ifk$="r"thengosub3000:goto 1030
  107. 1110 ifk$<>"c"then1100
  108. 1120 goto 190
  109. 1130 :
  110. 1140 rem ** 'wait' routines **
  111. 1150 :
  112. 1160 poke198,0:wait198,1:getk$:return
  113. 1170 poke192,0:poke1,peek(1)and223
  114. 1180 return
  115. 1190 poke192,1:poke1,peek(1)or32
  116. 1200 return
  117. 1210 :
  118. 1220 :
  119. 1230 rem ** data for catalogue **
  120. 1240 :
  121. 1250 data  0
  122. 2997 :
  123. 2998 rem ** instructions **
  124. 2999 :
  125. 3000 pokeba,6:pokebo,6:print"[147]"
  126. 3040 print"[147]save this program at the beginning of"
  127. 3050 print"a new cassette tape. after doing this"
  128. 3060 print"then save each program you wish to be"
  129. 3070 print"catalogued, one after the other, from"
  130. 3080 print"this program.  allow about ten seconds"
  131. 3090 print"of time to elapse after this program"
  132. 3100 print"before saving the first program in"
  133. 3110 print"your catalogue. then allow around ten"
  134. 3120 print"seconds of time between each save.":gosub4000
  135. 3130 print"[147]you can store up to eight programs on"
  136. 3140 print"the tape for your catalogue."
  137. 3150 print"as you save each program, make a note"
  138. 3160 print"of the counter together with the file"
  139. 3170 print"name so that when you use the catalogue"
  140. 3180 print"to load a file it does have a correct"
  141. 3190 print"file name to work with.":gosub4000
  142. 3200 print"[147]having saved all your programs for the"
  143. 3210 print"catalogue, now rewind the tape back to"
  144. 3220 print"the beginning and load this program."
  145. 3230 print"select [154]'create new catalogue' and then"
  146. 3240 print"enter the file names as prompted"
  147. 3250 print"you will then be requested to adjust the"
  148. 3260 print"fast forward key [154](f.fwd).":gosub4000
  149. 3265 print"[147]you can now start and stop the "
  150. 3270 print"datassette by using the spacebar."
  151. 3280 print"do this to reach the counter"
  152. 3290 print"positions which you noted for each"
  153. 3300 print"program."
  154. 3310 print"when you have entered all the programs "
  155. 3320 print"on the tape, then rewind it to the very"
  156. 3330 print"beginning and save this program over"
  157. 3340 print"the top of the old one.  this saves"
  158. 3350 print"all the relevent data for the catalogue":gosub4000
  159. 3360 print"[147]now you can use '[154]load from catalogue'"
  160. 3370 print"when you want a particular program from"
  161. 3380 print"your catalogue."
  162. 3385 print"by simply following the prompts you "
  163. 3390 print"can automatically wind the tape to the"
  164. 3400 print"correct position [154](f.fwd), and then"
  165. 3405 print"by pressing [154]play on the datassette"
  166. 3410 print"followed by the [154]spacebar the selected"
  167. 3420 print"program will be loaded into the memory"
  168. 3430 print"of the computer, ready to use."
  169. 3440 print"have fun....[154]ends >>> any key":gosub1160:return
  170. 4000 print"[154]....more >>> any key":gosub1160:return
  171.