home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / DISK-JACKET.SP-1000VC (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  194 lines
  1. 10 REM *******************************
  2. 12 REM **FOX VALLEY '64' USERS GROUP**
  3. 14 REM ****** DISK JACKET MAKER ******
  4. 16 REM ******* BY  DAVE WOOTEN *******
  5. 18 REM ******** JULY 30, 1984 ********
  6. 20 REM *******************************
  7. 22 REM **       MODIFIED FOR A      **
  8. 24 REM **     SEIKOSHA SP-1000VC    **
  9. 26 REM **      BY WILFRED HATCH     **
  10. 28 REM **        21 MAY 1987        **
  11. 30 REM *******************************
  12. 32 REM FOR NON-EPSON THREE COLUMN JACKET CHANGE P$ TO CORRECT
  13. 34 REM PRINTER CONTROL CODE IN LINE #250
  14. 36 REM ** PR$  - PRINTER TYPE
  15. 38 REM ** P$   - PRINTER CONTROL CODE
  16. 40 DIM A$(200),B$(200),C$(200)
  17. 42 PRINT"[147]":IF PEEK(231)=79 THEN POKE 230,21:POKE 231,60:  REM CENTER 80-COL
  18. 44 POKE 53280,6:POKE 53281,0
  19. 46 PRINT"[147] DISK JACKET MAKER "    "
  20. 48 [153]" EWAITPSON, CWAITOMMODORE OR SWAITEIKOSHA PRINTER?"
  21. 50 [161] PR$:[139] PR$[178]""[167]50
  22. 52 [139]PR$[178]"E" [167][153]"  EPSON   ":P$[178][199](15):[137] 60
  23. 54 [139]PR$[178]"C" [167] [153]"  COMMODORE ":[137] 60
  24. 56 [139] PR$[178]"S" [167] [153]"  SEIKOSHA  ":[137] 60
  25. 58 [137] 46
  26. 60 [153]" OWAITNE OR TWAITWO DISK SIDES?"
  27. 62 [161] SI$:[139] SI$[178]"" [167]62
  28. 64 [139] SI$[178]"T" [167] [153]"  TWO SIDES ":[137] 70
  29. 66 [139] SI$[178]"O" [167] [153]"  ONE SIDE  ":[137] 70
  30. 68 [137] 46
  31. 70 [153] [163]5)"INSERT DISK AND PRESS RETURN";
  32. 72 [161] R$:[139] R$[178]"" [167] 72
  33. 74 [153]"LOAD WORKING "
  34. 76 [153]"           DO NOT TOUCH DRIVE"
  35. 78 [141] 116
  36. 80 [153]"LOAD PRINTING "
  37. 82 [153]"          DO NOT TOUCH PRINTER"
  38. 84 [139] PR$[178]"E" [176] PR$[178]"S" [167] [141] 150:[137] 88
  39. 86 [141] 192
  40. 88 [139] SI$[178]"O" [167] [141] 298:[141] 312:[137] 104
  41. 90 [153]"TURN DISK OVER - PRESS RETURN"
  42. 92 [161] R$:[139] R$[178]"" [167] 92
  43. 94 [153]"LOAD WORKING "
  44. 96 [153]"DO NOT TOUCH DRIVE":[141] 392:[141] 116
  45. 98 [153]"LOAD PRINTING "
  46. 100 [153]"DO NOT TOUCH PRINTER"
  47. 102 [141] 234:[141] 312
  48. 104 [153]"          MAKE ANOTHER JACKET?";
  49. 106 [161] R$:[139] R$[178]""[167] 106
  50. 108 [139] R$[178]"Y" [167] [138]
  51. 110 [139] [194](230)[178]21 [175] [194](231)[178]60 [167] [151] 230,0:[151] 231,79
  52. 112 [128]
  53. 114 [143]  ** GET DIRECTORY ENTRIES **
  54. 116 [159]1,8,0,"$0"
  55. 118 I[178]0:N$[178][199](0)
  56. 120 SP$[178]"":[129] N[178]1 [164] 25:SP$[178]SP$[170]" ":[130]
  57. 122 [161]#1,D$,D$
  58. 124 [143]  ** BEGIN MAIN LOOP **
  59. 126 I[178]I[170]1
  60. 128 [161]#1,D$,D$
  61. 130 [139] D$[178]"" [167] 144
  62. 132 [161]#1,A$(I),B$(I)
  63. 134 C$(I)[178][196]([198](A$(I)[170]N$)[170][198](B$(I)[170]N$)[172]256)
  64. 136 [161]#1,D$
  65. 138 [139] D$[178]"" [167] 126
  66. 140 C$(I)[178]C$(I)[170]D$
  67. 142 C$(I)[178][200](C$(I),25):[137] 136
  68. 144 [160]1
  69. 146 [142]
  70. 148 [143] *** EPSON PRINT ROUTINE ***
  71. 150 [129] N[178]1 [164] 118:DA$[178]DA$[170]"-":[130]
  72. 152 [129] N[178]1 [164] 79:CN$[178]CN$[170]" ":[130]
  73. 154 [129] N[178]1 [164] 98:BL$[178]BL$[170]"-":[130]
  74. 156 LS$[178]"!         !        ":RS$[178]"         !         !"
  75. 158 [139] PR$[178]"S" [167] 320
  76. 160 [159]4,4
  77. 162 [152]4,P$;DA$;"  CUT"
  78. 164 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
  79. 166 [152]4,P$;"SIDE 1";[201](RS$,18)
  80. 168 [152]4,LS$;CN$;RS$
  81. 170 [129] J[178]2 [164] I [169]3
  82. 172     [139]C$(J)[178]""[167]C$(J)[178]SP$
  83. 174     [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
  84. 176     [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
  85. 178     [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
  86. 180     LC[178]LC[170]1
  87. 182 [130]
  88. 184 [129] L[178]1 [164] 21[171]LC:[152]4,LS$;CN$;RS$:[130]
  89. 186 [152]4,DA$;"   FOLD"
  90. 188 LS$[178]"          !        ":RS$[178]"         !"
  91. 190 [160]4:[142]
  92. 192 [143] *** COMMODORE PRINT ROUTINE ***
  93. 194 [129] N[178]1 [164] 69:DA$[178]DA$[170]"-":[130]
  94. 196 [129] N[178]1 [164] 52:CN$[178]CN$[170]" ":[130]
  95. 198 [129] N[178]1 [164] 56:BL$[178]BL$[170]"-":[130]
  96. 200 [159]4,4
  97. 202 [139] C$(J)[178]"" [167] C$(J)[178]SP$
  98. 204 [152]4,P$;DA$;"  CUT"
  99. 206 LS$[178]"!      ! ":RS$[178]" !     !"
  100. 208 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]3);
  101. 210 [152]4,[199](15)[199](146)" SIDE 1 "RS$
  102. 212 [152]4,LS$;CN$;RS$
  103. 214 [129] J[178]2 [164] I [169]2
  104. 216     [139] C$(J)[178]"" [167] C$(J)[178]SP$
  105. 218     [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
  106. 220     [152]4,LS$;C$(J);"  ";C$(J[170]1);RS$
  107. 222     LC[178]LC[170]1
  108. 224 [130]
  109. 226 [129] L[178]1 [164] 21[171]LC:[152]4,LS$;CN$;RS$:[130]
  110. 228 [152]4,DA$;"   FOLD"
  111. 230 LS$[178]"       !":RS$[178]"  !"
  112. 232 [160]4:[142]
  113. 234 [143] *** SIDE 2 PRINT ROUTINE ***  :
  114. 236 LC[178]0
  115. 238 [139] PR$[178]"E" [167] 268
  116. 240 [139] PR$[178]"S" [167] 358
  117. 242 [159] 4,4:[152]4,LS$;CN$;RS$
  118. 244 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
  119. 246 [152]4,[199](15);[199](146)" SIDE 2 "RS$
  120. 248 [152]4,LS$;CN$;RS$
  121. 250 [129] J[178]2 [164] I [169] 2
  122. 252     [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
  123. 254     [152]4,LS$;C$(J);"  ";C$(J[170]1);RS$
  124. 256     LC[178]LC[170]1
  125. 258 [130]
  126. 260 [129] L[178]1 [164] 25[171]LC:[152]4,LS$;CN$;RS$:[130]
  127. 262 [152]4,[163]7);:[152]4,BL$;"   CUT"
  128. 264 [152]4:[160] 4:[137] 296
  129. 266 [143]  *** EPSON SIDE 2 ***
  130. 268 [159]4,4:[152]4,LS$;CN$;RS$
  131. 270 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
  132. 272 [152]4,P$;"SIDE 2";[201](RS$,18)
  133. 274 [152]4,LS$;CN$;RS$
  134. 276 [129] J[178]2 [164] I [169] 3
  135. 278 [139] C$(J)[178]"" [167] C$(J)[178]SP$
  136. 280     [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
  137. 282     [139] C$(J[170]2)[178]"" [167] C$(J[170]2)[178]SP$
  138. 284     [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
  139. 286     LC[178]LC[170]1
  140. 288 [130]
  141. 290 [129] L[178]1 [164] 25[171]LC:[152]4,LS$;CN$;RS$:[130]
  142. 292 [152]4,[163]10);:[152]4,BL$;"   CUT"
  143. 294 [152]4:[160]4
  144. 296 [142]
  145. 298 [143]  *** BLANK SIDE 2 ***
  146. 300 [159]4,4
  147. 302 [129] C[178]1 [164] 27:[152]4,LS$;CN$;RS$:[130]
  148. 304 [139] PR$[178]"C" [167] [152]4,"       "BL$;"   CUT":[137] 308
  149. 306 [139] PR$[178]"E" [176] PR$[178]"S" [167] [152]4,[163]10);:[152]4,BL$;"   CUT"
  150. 308 [152]4:[160]4
  151. 310 [142]
  152. 312 [143] ** FORM FEED **               :
  153. 314 [159]4,4:[152]4,[199](12):[160]4
  154. 316 [142]
  155. 318 [143] *** SEIKOSHA PRINT ROUTINE ***
  156. 320 [159] 13,4,13:[152]13:[160] 13
  157. 322 [159]4,4
  158. 324 [152]4,DA$;"  CUT"
  159. 326 [152]4,LS$;[200](SP$,14);
  160. 328 [152]4,[199](14)[201](C$(1),[195](C$(1))[171]3);[199](15);
  161. 330 [152]4,"  SIDE 1";[200](SP$,15);[201](RS$,18)
  162. 332 [152]4,LS$;CN$;RS$
  163. 334 [129] J[178]2 [164] I [169]3
  164. 336     [139] C$(J)[178]"" [167] C$(J)[178]SP$
  165. 338     [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
  166. 340     [139] C$(J[170]2)[178]"" [167] C$(J[170]2)[178]SP$
  167. 342     [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
  168. 344     LC[178]LC[170]1
  169. 346 [130]
  170. 348 [129] L[178]1 [164] 21[171]LC:[152]4,LS$;CN$;RS$:[130]
  171. 350 [152]4,DA$;"   FOLD"
  172. 352 LS$[178]"          !        ":RS$[178]"         !"
  173. 354 [160]4:[142]
  174. 356 [143]  *** SEIKOSHA SIDE 2 ****
  175. 358 [159]4,4:[152]4,LS$;CN$;RS$
  176. 360 [152]4,LS$;[200](SP$,14);
  177. 362 [152]4,[199](14)[201](C$(1),[195](C$(1))[171]3);[199](15);
  178. 364 [152]4,"  SIDE 2";[200](SP$,13);[201](RS$,18)
  179. 366 [152]4,LS$;CN$;RS$
  180. 368 [129] J[178]2 [164] I [169]3
  181. 370     [139] C$(J)[178]"" [167] C$(J)[178]SP$
  182. 372     [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
  183. 374     [139] C$(J[170]2)[178]"" [167] C$(J[170]2)[178]SP$
  184. 376     [152]4,LS$;C$(J);"  ";C$(J[170]1);"  ";C$(J[170]2);RS$
  185. 378     LC[178]LC[170]1
  186. 380 [130]
  187. 382 [129] L[178]1 [164] 25[171]LC:[152]4,LS$;CN$;RS$:[130]
  188. 384 [152]4,[163]10);:[152]4,BL$;"   CUT"
  189. 386 [152]4:[160]4
  190. 388 [142]
  191. 390 [143] **** CLEAR ARRAY ***
  192. 392 [129] K[178]0 [164] I:C$(K)[178]"":[130]
  193. 394 [142]
  194.