'd *******************************Mn **FOX VALLEY '64' USERS GROUP**sx ****** DISK JACKET MAKER ****** ****** BY DAVE WOOTEN ********* ****** JULY 30, 1984 ********** *******************************0 : FOR NON-EPSON THREE COLUMN JACKET CHANGE P$ TO CORRECTi PRINTER CONTROL CODE IN LINE #240 ** PR$ - PRINTER TYPE ** P$ - PRINTER CONTROL CODE : A$(200),B$(200),C$(200) 53280,6:53281,0 " DISK JACKET MAKER " "; " EPSON OR COMMODORE PRINTER?";P PR$:PR$""240| PR$"E""  EPSON ":P$(15):280 PR$"C""  COMMODORE ":280 220 " ONE OR TWO DISK SIDES?"; "SI$:SI$""290 ,SI$"T""  TWO SIDES ":3303 6SI$"O""  ONE SIDE ":330< @220f J5)"INSERT DISK AND PRESS RETURN";y TR$:R$""340 ^" WORKING " h" DO NOT TOUCH DRIVE" r500 w" PRINTING ") x" DO NOT TOUCH PRINTER"@ |PR$"E"720:400I 930g SI$"O"1450:1530:450 "TURN DISK OVER - PRESS RETURN" R$:R$""420 " WORKING " "DO NOT TOUCH DRIVE":500, " PRINTING "U "DO NOT TOUCH PRINTER"e 1140:1530 " MAKE ANOTHER JACKET?"; R$:R$""460 R$"Y"   ** GET DIRECTORY ENTRIES ** : 1,8,0,"$0" I0:N$(0)N125:SP$SP$" ":%#1,D$,D$+:H& ** BEGIN MAIN LOOP **R0II1`:#1,D$,D$fD:uND$""700{X:b#1,A$(I),B$(I)lC$(I)((A$(I)N$)(B$(I)N$)256)v:#1,D$:D$""560:C$(I)C$(I)D$C$(I)(C$(I),25):6401E *** EPSON PRINT ROUTINE *** :`N1118:DA$DA$"-":zN179:CN$CN$" ":N198:BL$BL$"-":LS$"! ! ":RS$" ! !"4,4 4,P$;DA$;" CUT"4,LS$;:4,(14)(C$(1),(C$(1))2);(20);8 4,P$;"SIDE 1";(RS$,18)K*4,LS$;CN$;RS$Y4J2I 3q>C$(J)""C$(J)SP$HC$(J1)""C$(J1)SP$RC$(J2)""C$(J2)SP$\4,LS$;C$(J);" ";C$(J1);" ";C$(J2);RS$fLCLC1p zL121LC:4,LS$;CN$;RS$:4,DA$;" FOLD"NLS$" ! ":RS$" !"W4:} *** COMMODORE PRINT ROUTINE ***N169:DA$DA$"-":N152:CN$CN$" ":N156:BL$BL$"-":4,4C$(J)""C$(J)SP$4,P$;DA$;" CUT"%LS$"! ! ":RS$" ! !"N4,LS$;:4,(14)(C$(1),(C$(1))2);n4,(15)(146)" SIDE 1 "RS$4,LS$;CN$;RS$J2I 2C$(J)""C$(J)SP$$C$(J1)""C$(J1)SP$.4,LS$;C$(J);" ";C$(J1);RS$8LCLC1BLL121LC:4,LS$;CN$;RS$:,V4,DA$;" FOLD"I`LS$" !":RS$" !"Rj4:xt *** SIDE 2 PRINT ROUTINE *** :~LC0PR$"E"12904,4:4,LS$;CN$;RS$4,LS$;:4,(14)(C$(1),(C$(1))2);4,(15);(146)" SIDE 2 "RS$4,LS$;CN$;RS$J2I 22C$(J1)""C$(J1)SP$T4,LS$;C$(J);" ";C$(J1);RS$`LCLC1fL125LC:4,LS$;CN$;RS$:4,7);:4,BL$;" CUT"4:4:1440  *** 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)O24,LS$;CN$;RS$]<J2I 3uFC$(J)""C$(J)SP$PC$(J1)""C$(J1)SP$ZC$(J2)""C$(J2)SP$d4,LS$;C$(J);" ";C$(J1);" ";C$(J2);RS$nLCLC1xL125LC:4,LS$;CN$;RS$:+4,10);:4,BL$;" CUT"54:4;W *** BLANK SIDE 2 ***`4,4}C127:4,LS$;CN$;RS$:PR$"E"15004," "BL$;" CUT":15104,10);:4,BL$;" CUT"4:4 ** FORM FEED ** :4,4:4,(12):4