' *******************************M **FOX VALLEY '64' USERS GROUP**s ****** DISK JACKET MAKER ****** ******* BY DAVE WOOTEN ******* ******** JULY 30, 1984 ******** *******************************  ** MODIFIED FOR A **1  ** SEIKOSHA SP-1000VC **W  ** BY WILFRED HATCH **}  ** 21 MAY 1987 **  ******************************* FOR NON-EPSON THREE COLUMN JACKET CHANGE P$ TO CORRECT " PRINTER CONTROL CODE IN LINE #250% $ ** PR$ - PRINTER TYPEJ & ** P$ - PRINTER CONTROL CODEh ( A$(200),B$(200),C$(200) *"": (231)79 230,21: 231,60: CENTER 80-COL , 53280,6: 53281,0 ." DISK JACKET MAKER " "! 0" EPSON, COMMODORE OR SEIKOSHA PRINTER?"7 2 PR$: PR$""50b 4PR$"E" "  EPSON ":P$(15): 60 6PR$"C" "  COMMODORE ": 60 8 PR$"S" "  SEIKOSHA ": 60 : 46 <" ONE OR TWO DISK SIDES?" > SI$: SI$"" 62 @ SI$"T" "  TWO SIDES ": 70? B SI$"O" "  ONE SIDE ": 70H D 46s F 5)"INSERT DISK AND PRESS RETURN"; H R$: R$"" 72 J" WORKING " L" DO NOT TOUCH DRIVE" N 116 P" PRINTING ": R" DO NOT TOUCH PRINTER"_ T PR$"E" PR$"S" 150: 88i V 192 X SI$"O" 298: 312: 104 Z"TURN DISK OVER - PRESS RETURN" \ R$: R$"" 92 ^" WORKING ".`"DO NOT TOUCH DRIVE": 392: 116Zb" PRINTING "d"DO NOT TOUCH PRINTER"f 234: 312h" MAKE ANOTHER JACKET?";j R$: R$"" 106l R$"Y" n (230)21 (231)60 230,0: 231,79p<r ** GET DIRECTORY ENTRIES **Lt1,8,0,"$0"\vI0:N$(0)xSP$"": N1 25:SP$SP$" ":z#1,D$,D$| ** BEGIN MAIN LOOP **~II1#1,D$,D$ D$"" 144#1,A$(I),B$(I)C$(I)((A$(I)N$)(B$(I)N$)256)#1,D$/ D$"" 126BC$(I)C$(I)D$^C$(I)(C$(I),25): 136e1k *** EPSON PRINT ROUTINE *** N1 118:DA$DA$"-": N1 79:CN$CN$" ": N1 98:BL$BL$"-":LS$"! ! ":RS$" ! !"2 PR$"S" 320;4,4Q4,P$;DA$;" CUT"4,LS$;:4,(14)(C$(1),(C$(1))2);(20);4,P$;"SIDE 1";(RS$,18)4,LS$;CN$;RS$ J2 I 3 C$(J)""C$(J)SP$ C$(J1)""C$(J1)SP$ C$(J2)""C$(J2)SP$P 4,LS$;C$(J);" ";C$(J1);" ";C$(J2);RS$` LCLC1f L1 21LC:4,LS$;CN$;RS$:4,DA$;" FOLD"LS$" ! ":RS$" !"4: *** COMMODORE PRINT ROUTINE *** N1 69:DA$DA$"-":6 N1 52:CN$CN$" ":S N1 56:BL$BL$"-":\4,4w C$(J)"" C$(J)SP$4,P$;DA$;" CUT"LS$"! ! ":RS$" ! !"4,LS$;:4,(14)(C$(1),(C$(1))3);4,(15)(146)" SIDE 1 "RS$ 4,LS$;CN$;RS$ J2 I 2< C$(J)"" C$(J)SP$_ C$(J1)"" C$(J1)SP$ 4,LS$;C$(J);" ";C$(J1);RS$ LCLC1 L1 21LC:4,LS$;CN$;RS$:4,DA$;" FOLD"LS$" !":RS$" !"4: *** SIDE 2 PRINT ROUTINE *** :(LC0< PR$"E" 268P PR$"S" 358i 4,4:4,LS$;CN$;RS$4,LS$;:4,(14)(C$(1),(C$(1))2);4,(15);(146)" SIDE 2 "RS$4,LS$;CN$;RS$ J2 I 2 C$(J1)"" C$(J1)SP$! 4,LS$;C$(J);" ";C$(J1);RS$1 LCLC17Z L1 25LC:4,LS$;CN$;RS$:v4,7);:4,BL$;" CUT"4: 4: 296  *** EPSON SIDE 2 *** 4,4:4,LS$;CN$;RS$4,LS$;:4,(14)(C$(1),(C$(1))2);(20);4,P$;"SIDE 2";(RS$,18)4,LS$;CN$;RS$, J2 I 3G C$(J)"" C$(J)SP$j C$(J1)"" C$(J1)SP$ C$(J2)"" C$(J2)SP$ 4,LS$;C$(J);" ";C$(J1);" ";C$(J2);RS$ LCLC1 " L1 25LC:4,LS$;CN$;RS$:$4,10);:4,BL$;" CUT" &4:4&(B* *** BLANK SIDE 2 ***K,4,4k. C1 27:4,LS$;CN$;RS$:0 PR$"C" 4," "BL$;" CUT": 3082 PR$"E" PR$"S" 4,10);:4,BL$;" CUT"44:468 ** FORM FEED ** ::4,4:4,(12):4<C> *** SEIKOSHA PRINT ROUTINE ***Z@ 13,4,13:13: 13cB4,4vD4,DA$;" CUT"F4,LS$;(SP$,14);H4,(14)(C$(1),(C$(1))3);(15);J4," SIDE 1";(SP$,15);(RS$,18)L4,LS$;CN$;RS$N J2 I 3P C$(J)"" C$(J)SP$?R C$(J1)"" C$(J1)SP$bT C$(J2)"" C$(J2)SP$V 4,LS$;C$(J);" ";C$(J1);" ";C$(J2);RS$X LCLC1Z\ L1 21LC:4,LS$;CN$;RS$:^4,DA$;" FOLD"`LS$" ! ":RS$" !"b4:;d *** SEIKOSHA SIDE 2 ****Sf4,4:4,LS$;CN$;RS$ih4,LS$;(SP$,14);j4,(14)(C$(1),(C$(1))3);(15);l4," SIDE 2";(SP$,13);(RS$,18)n4,LS$;CN$;RS$p J2 I 3r C$(J)"" C$(J)SP$t C$(J1)"" C$(J1)SP$?v C$(J2)"" C$(J2)SP$rx 4,LS$;C$(J);" ";C$(J1);" ";C$(J2);RS$z LCLC1|~ L1 25LC:4,LS$;CN$;RS$:4,10);:4,BL$;" CUT"4:4 **** CLEAR ARRAY ***  K0 I:C$(K)"":