home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / 1520-3-COL-DIR (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  187 lines
  1. 100 REM  SET UP SOUND REGISTERS
  2. 101 : GOSUB263:  REM SOUND ROUTINE
  3. 102 :
  4. 103 REM  SET UP SCREEN COLORS
  5. 104 : POKE 53280,12  :REM BORDER MEDIUM GRAY
  6. 105 : POKE 53281,15  :REM BACKGROUND LIGHT GRAY
  7. 106 : POKE 646,11    :REM TEXT DARK GRAY
  8. 107 :
  9. 108 REM  TEST IF PLOTTER PRESENT
  10. 109 : PRINT "[147]"              :REM  POSITION CURSOR
  11. 110 : SC$=""                             :REM  RED REVERSE VIDEO
  12. 111 : OPEN 4,6,0                           :REM  OPEN ASCII PORT
  13. 112 : CLOSE 4                              :REM  CLOSE PORT, ST=0 IF PRESENT
  14. 113 : IF ST=0 THEN128:REM  GO OPEN PRINTER PORTS
  15. 114 : IF BL=0 THEN BL=1: GOSUB272:REM  SOUND BELL, ONCE IS ENOUGH
  16. 115 : PRINT "[145][145][145][145][145][145]"                       :REM  CURSOR UP TO OVERLAY
  17. 116 : PRINT TAB(8);"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  18. 117 : PRINT TAB(8);"[221]";SC$;"                      [146][151][221]"
  19. 118 : PRINT TAB(8);"[221]";SC$;"  MAKE PLOTTER READY  [146][151][221]"
  20. 119 : PRINT TAB(8);"[221]";SC$;"                      [146][151][221]"
  21. 120 : PRINT TAB(8);"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  22. 121 : IF SC$="" THEN SC$="[155]": GOTO123:REM  ALTERNATE BETWEEN INVISIBLE
  23. 122 : IF SC$="[155]" THEN SC$=""             :REM    (LIGHT GRAY) AND RED REVERSE
  24. 123 : GT=TI                                :REM  SAVE TIMER VALUE
  25. 124 : IF TI-GT<60 THEN124:REM  LOOP FOR 60 JIFFIES
  26. 125 : GOTO111:REM  GO RETRY PLOTTER
  27. 126 :
  28. 127 REM  PLOTTER IS PRESENT, OPEN THE PORTS
  29. 128 : OPEN 1,6,1  :REM PLOTTING PORT
  30. 129 : OPEN 2,6,2  :REM PEN COLOR SELECT PORT
  31. 130 : OPEN 3,6,3  :REM CHARACTER SIZE PORT
  32. 131 : OPEN 4,6,0  :REM ASCII PORT
  33. 132 :
  34. 133 : WIDTH=3: WD=WI-1: REM WIDTH=COLUMNS
  35. 134 :
  36. 135 : DIM B$(200)
  37. 136 : OPEN15,8,15:PRINT#15,"U;":CLOSE15
  38. 137 :
  39. 138 :  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][174][146]"
  40. 139 :  PRINT "       [221]  *3 COLUMN DIRECTORY* [221][146]"
  41. 140 :  PRINT "       [221]  FOR THE 1520 PLOTTER [221][146]"
  42. 141 :  PRINT "       [221]         FROM          [221][146]"
  43. 142 :  PRINT "       [221]   THE PLOTTING SHED   [221][146]"
  44. 143 :  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][189][151][146]"
  45. 144 : PRINT"DO YOU WANT TO PRINT THE DATE
  46. 145 : [133]"ON THE DIRECTORY LISTING (Y.N)  NCMDCMDCMD";QU$
  47. 146 : [143]:INPUT"ON THE DIRECTORY LISTING <Y/N>";QU$
  48. 147 : [139] QU$ [178] "N" [167]155
  49. 148 : [139] QU$ [178] "Y" [167]150
  50. 149 : [137]155
  51. 150 : [153]"     PLEASE, NO COMMAS!STOP"
  52. 151 : [153]"    MAX  LENGTH   "
  53. 152 : [153]"<---+----+----+-->WAIT"
  54. 153 : [133]"";DA$
  55. 154 : [139] [195](DA$)[177]18 [167] [153]"DATE STRING TOO LONG":[137]144
  56. 155 [129] I[178]1 [164] 7:[135] A$(I): [130]
  57. 156 [153]"LOAD": J[178]0 :[129] I [178] 1 [164] 200: B$(I)[178]"": [130]
  58. 157 [129] I[178]1 [164] 10: [153]"     "A$(I)"": [130]
  59. 158 [161] Q$:[139] Q$[177]"" [167]158
  60. 159 [161] Q$:[139] Q$[178]"" [167]159
  61. 160 [143]:IF Q$="A" THEN PRINT"155":GOTO1150
  62. 161 [139] Q$[179][177]"S" [175] Q$[179][177]"U" [175] Q$[179][177]"N" [175] Q$[179][177]"Q" [167]156
  63. 162 [139] Q$[178]"Q" [167] [160] 15: [153]"LOAD": [128]
  64. 163 [143]:IF Q$<>"S" AND Q$<>"U" AND Q$<>"N" AND Q$<>"A" THEN660
  65. 164 [153]"LOAD                                    WAIT": Z[178][171]1
  66. 165 [141]234
  67. 166 [161]#1,A$,B$
  68. 167 [161]#1,A$,B$
  69. 168 [161]#1,A$,B$
  70. 169 C[178]0
  71. 170 [139] A$[179][177]"" [167] C[178][198](A$)
  72. 171 [139] B$[179][177]"" [167] C[178]C[170][198](B$)[172]256
  73. 172 Z$[178][202]([196](C),2)
  74. 173 [139] [195](Z$)[179]1 [167] Z$[178]"   "
  75. 174 [139] [195](Z$)[178]1 [167] Z$[178]"  "[170]Z$
  76. 175 [139] [195](Z$)[178]2 [167] Z$[178]" "[170]Z$
  77. 176 B$(J)[178]" "[170]Z$[170]" "[170][199](34)
  78. 177 LZ[178]0
  79. 178 [161]#1,B$: [139] ST[179][177]0 [167] [137]189
  80. 179 [139] B$[179][177][199](34) [167]178
  81. 180 [161]#1,B$: [139] B$[179][177][199](34) [167] B$(J)[178]B$(J)[170]B$: LZ[178]LZ[170]1: [137]180
  82. 181 [161]#1,B$: [139] B$[178][199](32) [167]181
  83. 182 B$(J)[178]B$(J)[170][199](34):[139]LZ[177]15[167]184
  84. 183 [129] JZ[178]LZ [164] 15: B$(J)[178]B$(J)[170]" ": [130] JZ
  85. 184 C$[178]""
  86. 185 C$[178]C$[170]B$: [161]#1,B$: [139] B$[179][177]""  [167]185
  87. 186 SS[178]ST: B$(J)[178]B$(J)[170][200](C$,3)
  88. 187 [153] "      "B$(J)"    WAIT": J[178]J[170]1
  89. 188 [139] SS[178]0 [167]167
  90. 189 B$(J)[178][200](B$(J),[195](B$(J))[171]1)[170]" BLOCKS FREE."
  91. 190 [153] "      "B$(J)"            WAIT": [160] 1
  92. 191 [139] Q$[179][177]"N" [167]196
  93. 192 [161] Q$:[139] Q$[177]"" [167]192
  94. 193 [153]"    PRESS ANY KEY ....."
  95. 194 [161] Q$:[139] Q$[178]"" [167]194
  96. 195 [137]156
  97. 196 [139] Q$[178]"U" [167]207
  98. 197 LB[178]2
  99. 198 : [129] II[178]J[171]1 [164] LB [169] [171]1
  100. 199 :   [139] [202](B$(II[171]1),7,15) [179][178] [202](B$(II),7,15) [167]204
  101. 200 :   EX$ [178] B$(II)
  102. 201 :   B$(II) [178] B$(II[171]1)
  103. 202 :   B$(II[171]1) [178] EX$
  104. 203 :   FX [178] II
  105. 204 : [130] II
  106. 205 [139] LB[178]FX[170]1 [167]207
  107. 206 LB [178] FX[170]1: [137]198
  108. 207 [160]4:[159] 4,6:TF[178]4
  109. 208 [160]3:[159]3,6,3:[152]3,0
  110. 209 :
  111. 210 [143] PRINT THE HEADER
  112. 211 [153]"    PLEASE WAIT ....."
  113. 212 [152]4,[202](B$(0),5,21);
  114. 213 [139] DA$[178]"" [167]215
  115. 214 [152]4,[199](15);[166]25[171][195](DA$));"DIR. DATE: ";DA$;
  116. 215 [152]4:[152]4
  117. 216 :
  118. 217 [143] NOW PRINT THE DIRECTORY
  119. 218 RW [178] [181]((J [170] WD)[173] WI)
  120. 219 : [129] I[178]1 [164] RW: [129] W[178]1 [164] WI
  121. 220 :   [139](I[170](W[171]1)[172]RW)[177]J[167] [152]4,"                          ";:[137]222
  122. 221 :   [152]4,B$(I[170](W[171]1)[172]RW);
  123. 222 :   [130] W
  124. 223 :   [152]4:TF[178]TF[170]1
  125. 224 : [130] I
  126. 225 : [129] II[178]1 [164] 3
  127. 226 :   [152]4
  128. 227 : [130]
  129. 228 :
  130. 229 [143] SWITCH PRINTER TO NORMAL
  131. 230 [160]4
  132. 231 [160]3
  133. 232 [160]4
  134. 233 [137]244
  135. 234 [160]1: [160] 15: [159] 15,8,15
  136. 235 [159] 1,8,0,"$0"
  137. 236 [132]15,E1,E2$,E3,E4
  138. 237 [139]E1[177]0[167][141]250:[153] "LOAD            "E2$:[160]1:[137]241
  139. 238 [142]
  140. 239 :
  141. 240 [143]
  142. 241 [161] W$: [139] W$[177]"" [167]241
  143. 242 [161] W$: [139] W$[178]"" [167]242
  144. 243 [137]235
  145. 244 [153]"LOADPRINT DIRECTORY AGAIN?  <Y/N>"
  146. 245 [161]Q$:[139]Q$[178]""[167]245
  147. 246 [139] Q$[179][177]"Y"[167]156
  148. 247 [139]Q$[178]"Y"[167][153]"SYSSET NEW PAGE IN PRINTER AND HIT RETURNLIST"
  149. 248 [161]Q$:[139]Q$[178]""[167]248
  150. 249 [137]207
  151. 250 S[178]54272:CC[178][194](53280):[151]53280,2
  152. 251 [129] T[178]0 [164] 15 [169].5:[130]
  153. 252 [151]S[170]1,100
  154. 253 [151]S[170]5,10
  155. 254 [151]S[170]15,255
  156. 255 [151]S[170]24,15
  157. 256 [151]S[170]4,21
  158. 257 [129] T[178]1  [164] 1000:[130]:[151]S[170]4,20
  159. 258 [129] T[178]15 [164] 0 [169][171].5:[130]T
  160. 259 [151]53280,CC
  161. 260 [142]
  162. 261 :
  163. 262 [143]  SOUND BELL SUBROUTINE
  164. 263 : [151] SD[170]24,15  :[143] VOICE 1 VOLUME AND FILTER SELECT
  165. 264 : [151] SD[170]4,17  :[143] VOICE 1 CONTROL, START ATTACK
  166. 265 : [151] SD[170]4,16  :[143] VOICE 1 CONTROL, START RELEASE
  167. 266 : TB[178]TI
  168. 267 : [139] (TI[171]TB)[179]60 [167]267
  169. 268 : [151] SD[170]24,0  :[143] VOICE 1 CONTROL, CLEAR VOLUME
  170. 269 : [142]
  171. 270 :
  172. 271 [143]  SET UP SID REGISTERS FOR BELL SOUND
  173. 272 : SD[178]54272       :[143] ADDRESS OF SID CHIP
  174. 273 : [151] SD,  100  :[143] VOICE 1 FREQUENCY, LOW BYTE
  175. 274 : [151] SD[170] 1,56  :[143] VOICE 1 FREQUENCY, HIGH BYTE
  176. 275 : [151] SD[170] 5, 8  :[143] VOICE 1 ATTACK/DECAY
  177. 276 : [151] SD[170] 6,(9[172]16[170]10):[143] VOICE 1 SUSTAIN/RELEASE
  178. 277 [142]
  179. 278 :
  180. 279 [131]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  181. 280 DATA"[194]                            [194]
  182. 281 [131]"PEEK 'S' SORTED    'U' UNSORTED PEEK
  183. 282 DATA"[194] 'N' NO PRINT  'Q' QUIT     [194]
  184. 283 [131]"PEEK                            PEEK
  185. 284 DATA"[194] => PRESS DESIRED LETTER    [194]
  186. 285 [131]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  187.