home *** CD-ROM | disk | FTP | other *** search
- 10 REM *******************************
- 12 REM **FOX VALLEY '64' USERS GROUP**
- 14 REM ****** DISK JACKET MAKER ******
- 16 REM ******* BY DAVE WOOTEN *******
- 18 REM ******** JULY 30, 1984 ********
- 20 REM *******************************
- 22 REM ** MODIFIED FOR A **
- 24 REM ** SEIKOSHA SP-1000VC **
- 26 REM ** BY WILFRED HATCH **
- 28 REM ** 21 MAY 1987 **
- 30 REM *******************************
- 32 REM FOR NON-EPSON THREE COLUMN JACKET CHANGE P$ TO CORRECT
- 34 REM PRINTER CONTROL CODE IN LINE #250
- 36 REM ** PR$ - PRINTER TYPE
- 38 REM ** P$ - PRINTER CONTROL CODE
- 40 DIM A$(200),B$(200),C$(200)
- 42 PRINT"[147]":IF PEEK(231)=79 THEN POKE 230,21:POKE 231,60: REM CENTER 80-COL
- 44 POKE 53280,6:POKE 53281,0
- 46 PRINT"[147] DISK JACKET MAKER " "
- 48 [153]" EWAITPSON, CWAITOMMODORE OR SWAITEIKOSHA PRINTER?"
- 50 [161] PR$:[139] PR$[178]""[167]50
- 52 [139]PR$[178]"E" [167][153]" EPSON ":P$[178][199](15):[137] 60
- 54 [139]PR$[178]"C" [167] [153]" COMMODORE ":[137] 60
- 56 [139] PR$[178]"S" [167] [153]" SEIKOSHA ":[137] 60
- 58 [137] 46
- 60 [153]" OWAITNE OR TWAITWO DISK SIDES?"
- 62 [161] SI$:[139] SI$[178]"" [167]62
- 64 [139] SI$[178]"T" [167] [153]" TWO SIDES ":[137] 70
- 66 [139] SI$[178]"O" [167] [153]" ONE SIDE ":[137] 70
- 68 [137] 46
- 70 [153] [163]5)"INSERT DISK AND PRESS RETURN";
- 72 [161] R$:[139] R$[178]"" [167] 72
- 74 [153]"LOAD WORKING "
- 76 [153]" DO NOT TOUCH DRIVE"
- 78 [141] 116
- 80 [153]"LOAD PRINTING "
- 82 [153]" DO NOT TOUCH PRINTER"
- 84 [139] PR$[178]"E" [176] PR$[178]"S" [167] [141] 150:[137] 88
- 86 [141] 192
- 88 [139] SI$[178]"O" [167] [141] 298:[141] 312:[137] 104
- 90 [153]"TURN DISK OVER - PRESS RETURN"
- 92 [161] R$:[139] R$[178]"" [167] 92
- 94 [153]"LOAD WORKING "
- 96 [153]"DO NOT TOUCH DRIVE":[141] 392:[141] 116
- 98 [153]"LOAD PRINTING "
- 100 [153]"DO NOT TOUCH PRINTER"
- 102 [141] 234:[141] 312
- 104 [153]" MAKE ANOTHER JACKET?";
- 106 [161] R$:[139] R$[178]""[167] 106
- 108 [139] R$[178]"Y" [167] [138]
- 110 [139] [194](230)[178]21 [175] [194](231)[178]60 [167] [151] 230,0:[151] 231,79
- 112 [128]
- 114 [143] ** GET DIRECTORY ENTRIES **
- 116 [159]1,8,0,"$0"
- 118 I[178]0:N$[178][199](0)
- 120 SP$[178]"":[129] N[178]1 [164] 25:SP$[178]SP$[170]" ":[130]
- 122 [161]#1,D$,D$
- 124 [143] ** BEGIN MAIN LOOP **
- 126 I[178]I[170]1
- 128 [161]#1,D$,D$
- 130 [139] D$[178]"" [167] 144
- 132 [161]#1,A$(I),B$(I)
- 134 C$(I)[178][196]([198](A$(I)[170]N$)[170][198](B$(I)[170]N$)[172]256)
- 136 [161]#1,D$
- 138 [139] D$[178]"" [167] 126
- 140 C$(I)[178]C$(I)[170]D$
- 142 C$(I)[178][200](C$(I),25):[137] 136
- 144 [160]1
- 146 [142]
- 148 [143] *** EPSON PRINT ROUTINE ***
- 150 [129] N[178]1 [164] 118:DA$[178]DA$[170]"-":[130]
- 152 [129] N[178]1 [164] 79:CN$[178]CN$[170]" ":[130]
- 154 [129] N[178]1 [164] 98:BL$[178]BL$[170]"-":[130]
- 156 LS$[178]"! ! ":RS$[178]" ! !"
- 158 [139] PR$[178]"S" [167] 320
- 160 [159]4,4
- 162 [152]4,P$;DA$;" CUT"
- 164 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
- 166 [152]4,P$;"SIDE 1";[201](RS$,18)
- 168 [152]4,LS$;CN$;RS$
- 170 [129] J[178]2 [164] I [169]3
- 172 [139]C$(J)[178]""[167]C$(J)[178]SP$
- 174 [139]C$(J[170]1)[178]""[167]C$(J[170]1)[178]SP$
- 176 [139]C$(J[170]2)[178]""[167]C$(J[170]2)[178]SP$
- 178 [152]4,LS$;C$(J);" ";C$(J[170]1);" ";C$(J[170]2);RS$
- 180 LC[178]LC[170]1
- 182 [130]
- 184 [129] L[178]1 [164] 21[171]LC:[152]4,LS$;CN$;RS$:[130]
- 186 [152]4,DA$;" FOLD"
- 188 LS$[178]" ! ":RS$[178]" !"
- 190 [160]4:[142]
- 192 [143] *** COMMODORE PRINT ROUTINE ***
- 194 [129] N[178]1 [164] 69:DA$[178]DA$[170]"-":[130]
- 196 [129] N[178]1 [164] 52:CN$[178]CN$[170]" ":[130]
- 198 [129] N[178]1 [164] 56:BL$[178]BL$[170]"-":[130]
- 200 [159]4,4
- 202 [139] C$(J)[178]"" [167] C$(J)[178]SP$
- 204 [152]4,P$;DA$;" CUT"
- 206 LS$[178]"! ! ":RS$[178]" ! !"
- 208 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]3);
- 210 [152]4,[199](15)[199](146)" SIDE 1 "RS$
- 212 [152]4,LS$;CN$;RS$
- 214 [129] J[178]2 [164] I [169]2
- 216 [139] C$(J)[178]"" [167] C$(J)[178]SP$
- 218 [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
- 220 [152]4,LS$;C$(J);" ";C$(J[170]1);RS$
- 222 LC[178]LC[170]1
- 224 [130]
- 226 [129] L[178]1 [164] 21[171]LC:[152]4,LS$;CN$;RS$:[130]
- 228 [152]4,DA$;" FOLD"
- 230 LS$[178]" !":RS$[178]" !"
- 232 [160]4:[142]
- 234 [143] *** SIDE 2 PRINT ROUTINE *** :
- 236 LC[178]0
- 238 [139] PR$[178]"E" [167] 268
- 240 [139] PR$[178]"S" [167] 358
- 242 [159] 4,4:[152]4,LS$;CN$;RS$
- 244 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);
- 246 [152]4,[199](15);[199](146)" SIDE 2 "RS$
- 248 [152]4,LS$;CN$;RS$
- 250 [129] J[178]2 [164] I [169] 2
- 252 [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
- 254 [152]4,LS$;C$(J);" ";C$(J[170]1);RS$
- 256 LC[178]LC[170]1
- 258 [130]
- 260 [129] L[178]1 [164] 25[171]LC:[152]4,LS$;CN$;RS$:[130]
- 262 [152]4,[163]7);:[152]4,BL$;" CUT"
- 264 [152]4:[160] 4:[137] 296
- 266 [143] *** EPSON SIDE 2 ***
- 268 [159]4,4:[152]4,LS$;CN$;RS$
- 270 [152]4,LS$;:[152]4,[199](14)[201](C$(1),[195](C$(1))[171]2);[199](20);
- 272 [152]4,P$;"SIDE 2";[201](RS$,18)
- 274 [152]4,LS$;CN$;RS$
- 276 [129] J[178]2 [164] I [169] 3
- 278 [139] C$(J)[178]"" [167] C$(J)[178]SP$
- 280 [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
- 282 [139] C$(J[170]2)[178]"" [167] C$(J[170]2)[178]SP$
- 284 [152]4,LS$;C$(J);" ";C$(J[170]1);" ";C$(J[170]2);RS$
- 286 LC[178]LC[170]1
- 288 [130]
- 290 [129] L[178]1 [164] 25[171]LC:[152]4,LS$;CN$;RS$:[130]
- 292 [152]4,[163]10);:[152]4,BL$;" CUT"
- 294 [152]4:[160]4
- 296 [142]
- 298 [143] *** BLANK SIDE 2 ***
- 300 [159]4,4
- 302 [129] C[178]1 [164] 27:[152]4,LS$;CN$;RS$:[130]
- 304 [139] PR$[178]"C" [167] [152]4," "BL$;" CUT":[137] 308
- 306 [139] PR$[178]"E" [176] PR$[178]"S" [167] [152]4,[163]10);:[152]4,BL$;" CUT"
- 308 [152]4:[160]4
- 310 [142]
- 312 [143] ** FORM FEED ** :
- 314 [159]4,4:[152]4,[199](12):[160]4
- 316 [142]
- 318 [143] *** SEIKOSHA PRINT ROUTINE ***
- 320 [159] 13,4,13:[152]13:[160] 13
- 322 [159]4,4
- 324 [152]4,DA$;" CUT"
- 326 [152]4,LS$;[200](SP$,14);
- 328 [152]4,[199](14)[201](C$(1),[195](C$(1))[171]3);[199](15);
- 330 [152]4," SIDE 1";[200](SP$,15);[201](RS$,18)
- 332 [152]4,LS$;CN$;RS$
- 334 [129] J[178]2 [164] I [169]3
- 336 [139] C$(J)[178]"" [167] C$(J)[178]SP$
- 338 [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
- 340 [139] C$(J[170]2)[178]"" [167] C$(J[170]2)[178]SP$
- 342 [152]4,LS$;C$(J);" ";C$(J[170]1);" ";C$(J[170]2);RS$
- 344 LC[178]LC[170]1
- 346 [130]
- 348 [129] L[178]1 [164] 21[171]LC:[152]4,LS$;CN$;RS$:[130]
- 350 [152]4,DA$;" FOLD"
- 352 LS$[178]" ! ":RS$[178]" !"
- 354 [160]4:[142]
- 356 [143] *** SEIKOSHA SIDE 2 ****
- 358 [159]4,4:[152]4,LS$;CN$;RS$
- 360 [152]4,LS$;[200](SP$,14);
- 362 [152]4,[199](14)[201](C$(1),[195](C$(1))[171]3);[199](15);
- 364 [152]4," SIDE 2";[200](SP$,13);[201](RS$,18)
- 366 [152]4,LS$;CN$;RS$
- 368 [129] J[178]2 [164] I [169]3
- 370 [139] C$(J)[178]"" [167] C$(J)[178]SP$
- 372 [139] C$(J[170]1)[178]"" [167] C$(J[170]1)[178]SP$
- 374 [139] C$(J[170]2)[178]"" [167] C$(J[170]2)[178]SP$
- 376 [152]4,LS$;C$(J);" ";C$(J[170]1);" ";C$(J[170]2);RS$
- 378 LC[178]LC[170]1
- 380 [130]
- 382 [129] L[178]1 [164] 25[171]LC:[152]4,LS$;CN$;RS$:[130]
- 384 [152]4,[163]10);:[152]4,BL$;" CUT"
- 386 [152]4:[160]4
- 388 [142]
- 390 [143] **** CLEAR ARRAY ***
- 392 [129] K[178]0 [164] I:C$(K)[178]"":[130]
- 394 [142]
-