LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)/Z ......... "PRINTER.SET" ........ .d * * * * * * * * * * * * * * * * * * ,n * PROGRAM FOR SELECTING PRINTER *,s * FUNCTIONS ON THE APPLE DOT *.x * MATRIX AND IMAGEWRITER PRINTERS * , * BY J W LEWICKI (c q5 sLABEL3r s/PRINTER.SET.MOD h,1 o& +PRINTER.SET 1 o, ,PRINTER.TEST ^7 o0 DISKNAME.DAT"%SEG.T jŸ/ LABEL.2?q#sMENU.WORKING -q&!u)LABELER.2 `q !u)LABELER.3 8r r *MENU.MAKER l }>,OKIDATA.MENU v zo!s-*PRINT.TEXTS ; W,PRINTER.MENU.CI H "m !s*III.BSB.100514Bu' )BGRAF.INV(q$!L+.C.ITOH.CONTROL ; 3 o +C.ITOH.TEST }B o" -EPSON.CONTROL 0 2 o -READ.ME.FIRSTZ /O)LABELER.1 >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L) 1985 On /// *- * On Three Feb. 1986 * . * * * * * * * * * * * * * * * * * * 'MENU$(30),PICK$(30),POINTER(30,30)INDEX=129MENU$(INDEX) INDEX.1680: *** PRINT PROGRAM INSTRUCTIONS *** ::/  TION FOR PAPER ALIGNMENT * / * WITH REVERSE/FOWARD FEED * 0 * * * * * * * * * * * * * * * * * * -#1;27);"r":#1;27);"r":#1;27);"f"#1& * * * * * * * * * * * * * * '$ * PRINT OUTPUT DESCRIBING * ')n=70:#1;27);"T"n:POINTER(ORDER,26)=1:10301n=80:#1;27);"T"n:POINTER(ORDER,27)=1:10301n=90:#1;27);"T"n:POINTER(ORDER,28)=1:10301n=99:#1;27);"T"n:POINTER(ORDER,29)=1:1030. * * * * * * * * * * * * * * * * * * . * CORREC1:10301n=25:#1;27);"T"n:POINTER(ORDER,21)=1:10301n=35:#1;27);"T"n:POINTER(ORDER,22)=1:10301n=43:#1;27);"T"n:POINTER(ORDER,23)=1:10301n=53:#1;27);"T"n:POINTER(ORDER,24)=1:10301n=60:#1;27);"T"n:POINTER(ORDER,25)=1:10301ANDS FOR * /a * LINE SPACING BEGIN HERE * /f * * * * * * * * * * * * * * * * * * ;pCHOICE$)890,900,910,920,930,940,950,960,970,980,9901zn=10:#1;27);"T"n:POINTER(ORDER,19)=1:10301n=15:#1;27);"T"n:POINTER(ORDER,20)= *** INPUT SUBROUTINE *** CHOICE$=STORE$*&4CHOICE$)=0ORDER=ORDER-1:10804> *** LIMIT SELECTION BETWEEN 0 AND 11 *** %HCHOICE$)<0CHOICE$)>11680.R * * * * * * * * * * * * * * * * * * .\ * PRINTER CONTROL COMMecial Line Spacing (inches):":INDEX=19310);"<";INDEX;"> ..........";MENU$(INDEX+18) INDEXINDEX=1011210);"<";INDEX;"> .........";MENU$(INDEX+18) INDEX::30);& "Enter Selection (0 to exit)...";(1400: )=1:1030+v#1;27);">":POINTER(ORDER,17)=1:1030+#1;27);"<":POINTER(ORDER,18)=1:1030. * * * * * * * * * * * * * * * * * * . * SPECIAL LINE SPACE MENU BEGINS * - * * * * * * * * * * * * * * * * * *2::"Select Sp1030+:#1;27);"P":POINTER(ORDER,10)=1:1030+D#1;27);"p":POINTER(ORDER,11)=1:1030+N#1;27);"A":POINTER(ORDER,12)=1:1030+X#1;27);"B":POINTER(ORDER,13)=1:1030,b#1;27);"D1":POINTER(ORDER,15)=1:1030,l#1;27);"Z1":POINTER(ORDER,16RDER,3)=1:1030*#1;27);"q":POINTER(ORDER,4)=1:1030*#1;27);"Q":POINTER(ORDER,5)=1:1030*#1;27);"!":POINTER(ORDER,6)=1:1030,#1;27);34):POINTER(ORDER,7)=1:1030&&#1;14):POINTER(ORDER,8)=1:1030&0#1;15):POINTER(ORDER,9)=1:* * * * * * * * * * * * * * * * * * * #1,".PPRINTER"WSELECT$)480,490,500,510,520,530,540,550,560,570,580,590,600,680,610,620,630,640*#1;27);"n":POINTER(ORDER,1)=1:1030*#1;27);"N":POINTER(ORDER,2)=1:1030*#1;27);"E":POINTER(O**5 *** LIMIT SELECTION BETWEEN 0 AND 18 *** %SELECT$)<0SELECT$)>182102ORDER=ORDER+1: MAINTAINS ORDER OF SELECTIONS3 * * * * * * * * * * * * * * * * * * * * 3 * PRINTER CONTROL COMMANDS BEGIN HERE * 3 * INDEX"INDEX=1018/,10);"<";INDEX;"> .........";MENU$(INDEX) 6INDEX@ J30);T'^"Enter Selection (0 to Exit) ...";)h1400: *** INPUT SUBROUTINE *** rSELECT$=STORE$|2SELECT$)=01080: *** LIST CHOICES * * * * * * * * * * * * * * * * * * * / * SELECTION MENU BEGINS HERE * / * * * * * * * * * * * * * * * * * * ;" Select Printer Functions from the following Menu:":INDEX=19010);"<";INDEX;"> ..........";MENU$(INDEX) * COMMANDS SELECTED * '. * * * * * * * * * * * * * * 8BJ=1ORDER LK=129&VPOINTER(J,K)=1PICK$(J)=MENU$(K)`KjJtORDER=01190::8~"Printer Set-Up with The Following Functions ...":INDEX=1ORDER!10);INDEX". ";PICK$(INDEX) INDEX :: 30);1"Another Printer Function Selection (y/n) ?"ANSWER$:"ANSWER$="Y"ANSWER$="y"210* * * * * * * * * * * * * * * * *+ * TEXT FOR MENU DESCRIPTIONS * , .Z ......... "PRINTER.SET.MOD" .... .d * * * * * * * * * * * * * * * * * * ,n * PROGRAM FOR SELECTING PRINTER *,s * FUNCTIONS ON THE APPLE DOT *.x * MATRIX AND IMAGEWRITER PRINTERS * , * BY J W LEWICKI (c)tions back to the normal (default) mode." ::'25);"* PRESS ANY KEY FOR MENU *" MENU$( ......... "PRINTER.SET" ........ommands issued from the menu, the printer mush be ON in the SELECT mode."::"The printing functions selected from this program will remain in the printer until the printer is TURNED OFF. Turning the printer off will reset the printing funcor any combination by oneor two keystrokes. After each selection, the program lists the options choosen."::"Before going to the following menu, MAKE SURE that the PRINTER is ON and in the SELECT mode. In order for the printer to accept the print c N T E R PROGRAM * *"::"The ADMP PRINTER program is designed to setup the print functions for the Apple Dot Matrix Printer. A selection menu is used to chose the many printing optionsavailable. ";"These options may be selected in any order NPUT *** h8);" ";8); rCHAR |STORE$="" 14100 * * * * * * * * * * * * * * * * * * . * INSTRUCTIONS FOR USING PROGRAM */ * * * * * * * * * * * * * * * * * * N9);"* * INTRUCTIONS FOR THE A D M P P R I* 1410;" *** IF INPUT IS NOT A RETURN,CHECK FOR ESC *** ,KEYPRESS$)<>13161068@ *** IF INPUT IS NOT AN ESC, NEXT ENTRY *** JKEYPRESS$<>27)1410TSTORE$=" "1410<^CHAR=1STORE$): *** ESC,DELETE ALL INTRY *** = *** IF INPUT IS NOT A BACKSPACE, CHECK FOR RETURNKEYPRESS$)<>81580STORE$=" "1410"STORE$)=1STORE$=" ":1550 STORE$=STORE$,STORE$)-1)JKEYPRESS$;" ";KEYPRESS$;: *** BACKSPACE AND DELETE CHARACTER **<3215107 *** LIMIT INPUT TO NUMERICAL DATA ONLY *** <KEYPRESS$)<48KEYPRESS$)>57KEYPRESS$)=471410@STORE$)=21410: *** LIMIT INPUT TO 2 CHARACTERS ***STORE$=STORE$+KEYPRESS$KEYPRESS$;#1410: *** NEXT EAKER""Z * * * * * * * * * * * "d * INPUT SUBROUTINE * n * * * * * * * * * * * xSTORE$=""2KEYPRESS$: *** INPUT FROM KEYBOARD *** G *** IF INPUT IS A CONTROL CHARACTER, CHECK FOR BACKSPACE *** KEYPRESS$)Apart,Spacing 1/4 Apart,Spacing 3/8 Apart,Spacing 1/2 Apart,Spacing 5/8 Apartb( Spacing 3/4 Apart,Spacing 7/8 Apart,Spacing 1 Apart,Spacing 1 1/8 Apart,Spacing 1 1/4 Apart 2 <=8:=224F". . . . P R I N T E R R E A D Y . . . .":=24P"MENU.Maracters Off,Small Proportional Spacing,Large Proportional Spacing Six Lines per inch (NORMAL),Eight Lines per inch,Special Line Spacing,Zero with Slash,Zero without Slash,Unidirectional Print,Bidirectional Print r Spacing 1/16 Apart,Spacing 1/8 * * * * * * * * * * * * * * * *  " 9 Characters per inch",10 characters per inch (NORMAL PICA PRINT),12 characters per inch (ELITE PRINT),15 characters per inch,17 characters per inch  Bold Print,Bold Print Off,Elongated Characters,Elongated Ch 1985 On /// *- * On Three Feb. 1986 * / * -MODIFIED- * - * * * * * * * * * * * * * * * * * * 'MENU$(30),PICK$(30),POINTER(30,30)INDEX=130MENU$(INDEX) INDEX.1680: *** P !"#$%&'()*+,-.10);"<";INDEX;"> ..........";MENU$(INDEX+18) INDEXINDEX=1012210);"<";INDEX;"> .........";MENU$(INDEX+18) INDEX::30);& "Enter Selection (0 to exit)...";(1400: *** INPUT SUBROUTINE *** CHOICE$=STORE$*&4vPOINTER(ORDER,17)=1:207: DEFAULT VALUES. * * * * * * * * * * * * * * * * * * . * SPECIAL LINE SPACE MENU BEGINS * - * * * * * * * * * * * * * * * * * *2::"Select Special Line Spacing (inches):":INDEX=193RDER,15)=1:1030: 0 WITHOUT SLASH":POINTER(ORDER,16)=1:1030: UNIDIRECTIONAL>b#1;27);"D";138);"R":POINTER(ORDER,18)=1:1030: A II8lPOINTER(ORDER,13)=1:2475: PAGE LENGTH (INCOMPLETE)*qPOINTER(ORDER,14)=1:2310: MARGIN SET-CE7&#1;14):POINTER(ORDER,8)=1:1030: ELONGATED (X2)70#1;27);"X":POINTER(ORDER,9)=1:1030: UNDERLINED::#1;27);"A":POINTER(ORDER,10)=1:1030: 6 LINES/INCH:D#1;27);"B":POINTER(ORDER,11)=1:1030: 8 LINES/INCH>N#1;27);"Z1":POINTER(ORDER,3)=1:1030: 17 CPI-PICA?#1;27);"P":POINTER(ORDER,5)=1:1030: PROPORTIONAL-ELITE:#1;27);"s";"2":POINTER(ORDER,4)=1:1030: SUBSCRIPT7#1;27);"i";"1":POINTER(ORDER,6)=1:1030: ITALIC5#1;27);"!":POINTER(ORDER,7)=1:1030: BOLDFA* * * * * #1,".PPRINTER"WSELECT$)480,490,500,510,520,530,540,550,560,570,580,680,620,625,590,600,630,6108#1;27);"N":POINTER(ORDER,1)=1:1030: 10 CPI-PICA8#1;27);"E":POINTER(ORDER,2)=1:1030: 12 CPI-PICA8#1;27);"Q":POINTER(OS ***5 *** LIMIT SELECTION BETWEEN 0 AND 18 *** %SELECT$)<0SELECT$)>18210ORDER=ORDER+1:3 * * * * * * * * * * * * * * * * * * * * 3 * PRINTER CONTROL COMMANDS BEGIN HERE * 3 * * * * * * * * * * * * * * * EX) INDEX"INDEX=1018/,10);"<";INDEX;"> .........";MENU$(INDEX) 6INDEX@ J30);T'^"Enter Selection (0 to Exit) ...";)h1400: *** INPUT SUBROUTINE *** rSELECT$=STORE$|2SELECT$)=01080: *** LIST CHOICE (#9)...FOR MENU DRIVEN SELECTION"::=30:"SELECT INSTRUCTION SET NUMBER ";S2S2670,2672,2674,2676,2678,2680,2682,2684,250A:::" Select Printer Functions from the following Menu:":INDEX=19010);"<";INDEX;"> ..........";MENU$(INDe, 6 lines/inch, LM=0, RM=150":="INSTRUCTION SET (#6)... -ABOVE (#5) without boldface":S"INSTRUCTION SET (#7)...PICA-12 print, boldface, 6 lines/inch, LM=0, RM=150":="INSTRUCTION SET (#8)... -ABOVE (#7) without boldface":d" "INSTRUCTION SET (#2)... -ABOVE (#1) without boldface":X"INSTRUCTION SET (#3)...Proportional print, boldface, 6 lines/inch, LM=0, RM=150":="INSTRUCTION SET (#4)... -ABOVE (#3) without boldface":S"INSTRUCTION SET (#5)...PICA-10 print, boldfacM"DO YOU WISH A PREVIOUSLY PREPARED INSTRUCTION SET OR A MENU ? (P/M) ";AN$AN$="M"AN$="m"2507:"80C";"PREVIOUSLY PREPARED INSTRUCTION SETS":V"INSTRUCTION SET (#1)...Compressed print, boldface, 8 lines/inch, LM=10,RM=220":=RINT PROGRAM INSTRUCTIONS ***#1,".PPRINTER"3#1;27);99);49);: SOFTWARE RESET COMMAND0 * * * * * * * * * * * * * * * * * * / * SELECTION MENU BEGINS HERE * / * * * * * * * * * * * * * * * * * * :=8:=12CHOICE$)=0ORDER=ORDER-1:10804> *** LIMIT SELECTION BETWEEN 0 AND 12 *** %HCHOICE$)<0CHOICE$)>12680.R * * * * * * * * * * * * * * * * * * .\ * PRINTER CONTROL COMMANDS FOR * /a * LINE SPACING BEGIN HERE * /f * * * * * * * * * * * * * * * * * * @pCHOICE$)890,900,910,920,930,940,950,960,970,980,990,1000=zn=10:#1;27);"T"n:POINTER(ORDER,19)=1:1030: 1/16" :n=15:#1;27);"T"n:POINTER(ORDER,20)=1:1030: 1/8 "?n=25:#1;27);STORE$)-1)JKEYPRESS$;" ";KEYPRESS$;: *** BACKSPACE AND DELETE CHARACTER *** 1410;" *** IF INPUT IS NOT A RETURN,CHECK FOR ESC *** ,KEYPRESS$)<>13161068@ *** IF INPUT IS NOT AN ESC, NEXT ENTRY *** JKEYPRESS$<> CHARACTERS ***STORE$=STORE$+KEYPRESS$KEYPRESS$;#1410: *** NEXT ENTRY *** = *** IF INPUT IS NOT A BACKSPACE, CHECK FOR RETURNKEYPRESS$)<>81580STORE$=" "1410"STORE$)=1STORE$=" ":1550 STORE$=STORE$, *** IF INPUT IS A CONTROL CHARACTER, CHECK FOR BACKSPACE *** KEYPRESS$)<3215107 *** LIMIT INPUT TO NUMERICAL DATA ONLY *** <KEYPRESS$)<48KEYPRESS$)>57KEYPRESS$)=471410@STORE$)=21410: *** LIMIT INPUT TO 2$="y"1805MP:=8:=22:". . . . P R I N T E R R E A D Y . . . .":=24:"MENU.MAKER""Z * * * * * * * * * * * "d * INPUT SUBROUTINE * n * * * * * * * * * * * xSTORE$=""2KEYPRESS$: *** INPUT FROM KEYBOARD *** G <=8:=224F". . . . P R I N T E R R E A D Y . . . .":=24bH" NOTE: If APPLE II usage was selected an extra line feed will be seen in APPLE III use !!"PJ=12:=15:"DO YOU WISH A SAMPLE PRINT OF THE FONT SELECTED ? (Y/N) ";:Q$LQ$="Y"Qult Values,Apple II Usage r Spacing 1/16 Apart,Spacing 1/8 Apart,Spacing 1/4 Apart,Spacing 3/8 Apart,Spacing 1/2 Apart,Spacing 5/8 Aparto( Spacing 3/4 Apart,Spacing 7/8 Apart,Spacing 1 Apart,Spacing 1 1/8 Apart,Spacing 1 1/4 Apart,N/144 SPACING2nt  Italic Print,Boldface Print,Elongated Characters (x2),Underlined Characters,Six Lines per inch (NORMAL),Eight Lines per inch Special Line Spacing,Page Length (NOT AVAILABLE),Set Margins,Zero without Slash,Unidirectional Printing,Reset to Defa * * * * *+ * TEXT FOR MENU DESCRIPTIONS * , * * * * * * * * * * * * * * * *  10 characters per inch-PICA FONT (NORMAL),12 characters per inch-PICA FONT,17 characters per inch-PICA FONT,Proportional Spacing-ELITE FONT,Subscript Prit-Up with The Following Functions ...":INDEX=1ORDER!10);INDEX". ";PICK$(INDEX) INDEX :: 30);1"Another Printer Function Selection (y/n) ?"ANSWER$:"ANSWER$="Y"ANSWER$="y"250* * * * * * * * * * * * * * * * * * * * * '$ * PRINT OUTPUT DESCRIBING * ') * COMMANDS SELECTED * '. * * * * * * * * * * * * * * 8BJ=1ORDER LK=130&VPOINTER(J,K)=1PICK$(J)=MENU$(K)`KjJtORDER=01190::8~"Printer Se * * * * * * * * * * * * * * * * * * 0 * CORRECTION FOR PAPER ALIGNMENT * 1 * WITH REVERSE/FOWARD FEED * . * * * * * * * * * * * * * * * * * * -#1;27);"r":#1;27);"r":#1;27);"f"#1& * * * * *0: 1 1/4"9:=8:"80C";"******* SPECIAL LINE SPACING *******"&"80C";"-1/144 INCH INCREMENTS-"G=12:=20:"SET LINE SPACING IN 1/144 OF AN INCH ...(n=1 to 99) ";nn<1n>9910106#1;27);"T";n:POINTER(ORDER,30)=1:1030: N/144"0 NTER(ORDER,25)=1:1030: 3/4 " <n=70:#1;27);"T"n:POINTER(ORDER,26)=1:1030: 7/8 " :n=80:#1;27);"T"n:POINTER(ORDER,27)=1:1030: 1 - ":n=90:#1;27);"T"n:POINTER(ORDER,28)=1:1030: 1 1/8":n=99:#1;27);"T"n:POINTER(ORDER,29)=1:103"T"n:POINTER(ORDER,21)=1:1030: 1/4 " =n=35:#1;27);"T"n:POINTER(ORDER,22)=1:1030: 3/8 " >n=43:#1;27);"T"n:POINTER(ORDER,23)=1:1030: 1/2 " >n=53:#1;27);"T"n:POINTER(ORDER,24)=1:1030: 5/8 " ;n=60:#1;27);"T"n:POI27)1410TSTORE$=" "1410<^CHAR=1STORE$): *** ESC,DELETE ALL INPUT *** h8);" ";8); rCHAR |STORE$="" 14100 * * * * * * * * * * * * * * * * * * . * INSTRUCTIONS FOR USING PROGRAM */ * * * * * * * * * * * * * * * * * * N9);"* * INTRUCTIONS FOR THE A D M P P R I N T E R PROGRAM * *"::"The ADMP PRINTER program is designed to setup the print functions for the Apple Dot Matrix Printer. A selection menu is used to chose the m7 *********************************************** 6 * *6 * EPSON Printer Control *8 * Apple /// Printer Control Program * 6 * 138);"R":1330, ......... "PRINTER.SET.MOD" ...., UNFINISHED...PAGE LENGTH 2475-2575 90Lz #1;27);"E";27);"!";27);"A";27);"L";"000";27);"/";"150";:2690B| #1;27);"E";27);"A";27);"L";"000";27);"/";"150";:2690S :=8:=25:"FOR USE IN APPLE II MODE (Y/N) ? ";:AN$:AN$="Y"AN$="y"2696 1330" #1;27);"D";";27);"A";27);"L";"000";27);"/";"150";:2690Bt #1;27);"P";27);"A";27);"L";"000";27);"/";"150";:2690Lv #1;27);"N";27);"!";27);"A";27);"L";"000";27);"/";"150";:2690Bx #1;27);"N";27);"A";27);"L";"000";27);"/";"150";:26;65);64);30); 1030< END OF PAGE LENGTH SETTING PROCEDURE---INCOMPLETE !!Ln #1;27);"Q";27);"!";27);"B";27);"L";"010";27);"/";"250";:2690Bp #1;27);"Q";27);"B";27);"L";"010";27);"/";"250";:2690Lr #1;27);"P";27);"!:2);"The selected line spacing ";L;" inches per inch results in a ";L*11;" maximium line page.". :=28:"SET LINES PER PAGE ";LP LP>L*112490 #1;29);65);64); X=1LP-2 #1;64);64); X #1;67);64); #1EQUESTED OVERLAP--RESET"::=40:U$:2320 #1;27);47);d;e;f;" 1030: *********************< ******* PAGE LENGTH SET PROCEDURE 2475-2575 ******* & 1030: PROCEDURE NOT COMPLETE !!!3 :=8:"80C";"******* LINES PER PAGE *******"i :1802330. a=LM/100)8 b=(LM/10)-a*10)B c=(LM-(a*100+b*10))L #1;27);76);a;b;c;V :*` =28:"SET RIGHT MARGIN TO -- xxx ";RMj RM<102400t d=RM/100)~ e=(RM/10)-d*10) f=(RM-(d*100+e*10))O LM=>RM:::"80C";"MARGINS R500,1510,15209 ******** MARGIN SET PROCEDURE 2310-2470 ******** 4 :=8:"80C";"******* PRINTER MARGINS *******"P "Note: Margins are established in terms of the character set selected.....". ::=28:"SET LEFT MARGIN TO -- xxx ";LM$ LM>pqrstuvwxyz"3#1;"1234567890!@#$%^&*()_+{}|:<>?-=[]\;',./`~">#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"3!#1;"1234567890!@#$%^&*()_+{}|:<>?-=[]\;',./`~" &#1:1360,: ......... "PRINTER.SET" ........ $v CHECK LINES 820,1printer is TURNED OFF. Turning the printer off will reset the printing functions back to the normal (default) mode." ::'25);"* PRESS ANY KEY FOR MENU *" MENU$ #1,".pprinter">#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnoINTER is ON and in the SELECT mode. In order for the printer to accept the print commands issued from the menu, the printer must be ON in the SELECT mode."::"The printing functions selected from this program will remain in the printer until the any printing optionsavailable. ";"These options may be selected in any order or any combination by oneor two keystrokes. After each selection, the program lists the options choosen."::"Before going to the following menu, MAKE SURE that the PR *7 * by J.C. Anderson -- SOURCEWARE * 8 * Littleton, Colorado * 7 * 1 March 1985 * : * * 6 *******/123456789unction=>0function<9)setup$(function,1);:flag(function)=1< function>9setup$(function-11,2);:flag(function-11)=0A*function=9setup$(function,1):::::::flag(function)=0$4function=0i=09:flag(i)=0:>#1H I =19:"80="Test Printer Setup":setup$(9,1)="abcdefghijklmnopqrstuvwxyz" $(function>5function<9)40001:=12:=24:"READY PRINTER AND PRESS RETURN"ret$:ret$=27):20ret$<>13)7);:2000 œ3000 #1,printer$:#1E(fsetup$(6,0)="Skip Perforation":setup$(6,1)=27)+"N":setup$(6,2)=27)+"O"Rsetup$(7,0)="Set Left Margin":setup$(7,1)=27)+"l":setup$(7,2)=27)+"l"+0)Tsetup$(8,0)="Set Right margin":setup$(8,1)=27)+"Q":setup$(8,2)=27)+"Q"+80)Msetup$(9,0) setup$(2,2)=CHR$(20)Msetup$(3,0)="Emphasized Mode":setup$(3,1)=27)+"E":setup$(3,2)=27)+"F"Psetup$(4,0)="Double Strike Mode":setup$(4,1)=27)+"G":setup$(4,2)=27)+"H"Isetup$(5,0)="Italic Mode":setup$(5,1)=27)+"4":setup$(5,2)=27)+"5"N0)="lines to skip":ptrinfo$(1)="left margin":ptrinfo$(2)="right margin"5setup$(0,0)="Reset Printer":setup$(0,1)=27)+"@"Esetup$(1,0)="Compressed Mode":setup$(1,1)=15):setup$(1,2)=18)6setup$(2,0)="Double Width Mode":setup$(2,1)=14):  ay"Lmonth$(6)="June"Vmonth$(7)="July"`month$(8)="August"jmonth$(9)="September"tmonth$(10)="October"~month$(11)="November"month$(12)="December"Csetup$(50,2),flag(10),ptrinfo$(2),value(2):i=09:flag(i)=0:`ptr$="--->":ptrinfo$(+"_"::line1$=line$+"_":line2$=line1$+"_"Gprinter$=".PRINTER": ** Printer driver name **=24:=2::rule$;:month$(12)month$(1)="January"$month$(2)="February".month$(3)="March"8month$(4)="April"Bmonth$(5)="M@function=function$))Jfunction<0function>197);:280Tfunction=20function=9 h2000r160 |::::"MENU.MAKER"Orule$="":length=178:rule$=rule$+" "::rule1$=rule$+" ":rule2$=rule1$+" "Oline$="":length=178:line$=line$;i;" ";::" ";setup$(i,0):P=P+1&=18:=30:"Enter selection ... ";)"function$:function$=""7);:280,function$=27):20o6function$)>175function=function$)-165:function$=function):(function<12function>19)7);:280"80c";"Press ESCAPE to cancel"; :=6:=1P=6 i=09B(i=6i=7)flag(i)VALUE(i-6)>0=P:"(";value(i-6);")";M(i=8flag(i))flag(i)value(i-6)<>80=P:=20:"(";value(i-6);")";flag(i)=P:=26:ptr$;3=P:=30::" "7);:110*selection<1selection>37);:110selection160,380,390::line2$;{:" Select ";34);"number";34);" to set function, ";34);127);"-number";34);" to reset function ":=22:=1:line2$;1=23:=1::er setup"F30)"2) Exit to BASIC" P30)"3) Terminate Program"/Z=16:=28:"Enter selection by number ...";d=23:=1:"80c";line$; n130x5000:110A:selection$=ŝ):check=selection$):selection=selection$)$check<48check>57****************************************C **--> NOTE: Enter your printer driver name in line 1020 <--**%:1000: Define system variables=1:=1::,"80c";"EPSON Printer Control Program"(:"80c";rule$;: 2:::<30)"1) Printc";"Device not available.Press any key.":6);15);7); key$ :2010::line2$;::rule2$:=22:line2$;1=23:=1::"80c";"Press RETURN to cancel";;=8:=5:"Enter ";ptrinfo$(function-6);": ";:"";value$value$="":20value$=""7);:4040value$)>37);:4040value=value$)kfunction=6lineskip=value:setup$(function,1)=setup$(function,1)+lineskip):lineskip=07);:4040; setup$(function,1)=setup$(function,1)+CHR$(lineskip):9 IF linrule1$=rule$+" ":rule2$=rule1$+" "Oline$="":length=178:line$=line$+"_"::line1$=line$+"_":line2$=line1$+"_"Hprinter$=".PPRINTER": ** Printer driver name **=24:=2::rule$;:month$(12)month$(1)="January"$monthn$)-165:function$=function):(function<12function>19)7);:280@function=function$))Jfunction<0function>197);:280Tfunction=20function=9 h2000r160 |::::"MENU.MAKER"Orule$="":length=178:rule$=rule$+" "::=20:"(";value(i-6);")";flag(i)=P:=26:ptr$;3=P:=30::" ";i;" ";::" ";setup$(i,0):P=P+1&=18:=30:"Enter selection ... ";)"function$:function$=""7);:280,function$=27):20o6function$)>175function=functiomber";34);" to reset function ":=22:=1:line2$;1=23:=1::"80c";"Press ESCAPE to cancel"; :=6:=1P=6 i=09B(i=6i=7)flag(i)VALUE(i-6)>0=P:"(";value(i-6);")";M(i=8flag(i))flag(i)value(i-6)<>80=P:=ŝ):check=selection$):selection=selection$)$check<48check>577);:110*selection<1selection>37);:110selection160,380,390::line2$;{:" Select ";34);"number";34);" to set function, ";34);127);"-nuer Control Program"(:"80c";rule$;: 2:::<30)"1) Printer setup"F30)"2) Exit to BASIC" P30)"3) Terminate Program"/Z=16:=28:"Enter selection by number ...";d=23:=1:"80c";line$; n130x5000:110A:selection$*******************************************C **--> NOTE: Enter your printer driver name in line 1020 <--**%:1000: Define system variablesD#1,".PPRINTER":#1;27)+"c"+"1";:#1: RESET DEFAULT VALUES =1:=1::-"80c";"C.ITOH Print:<=>?@ABCDEF *7 * by J.C. Anderson -- SOURCEWARE * 8 * Littleton, Colorado * 7 * 1 March 1985 * : * * 6 ****7 *********************************************** 9 * "C.ITOH.CONTROL" * 6 * EPSON Printer Control *8 * Apple /// Printer Control Program * 6 * egtime$=hour)+ҟ,3,6)+id$=hour))<270);regtime$;" ";:69);regtime$;" ";; 03/22/1986 23:34:42 THANKS A LOT -- Norm Pillsbury/ 03/23/1986 17:30:56 thanks...b doggett ... EPSON.CONTROL ...7);:4040value(function-6)=value":=24:=29today$=Ѡ,2)))+" "+month$(Ҡ,4,2)))+""+Р,2)3);today$;hour=П,2))*hour=>13hour=hour-12:id$="pm":5060<hour=12id$="pm":ۻhour=00hour=12:id$="am":id$="am"!reskip=0 THEN PRINT CHR$(7);:GOTO 4040hfunction=7lmargin=VALUE:setup$(function,1)=setup$(function,1)+lmargin):lmargin=07);:4040vfunction=8rmargin=VALUE:setup$(function,1)=setup$(function,1)+rmargin):(rmargin=80rmargin=0)$(2)="February".month$(3)="March"8month$(4)="April"Bmonth$(5)="May"Lmonth$(6)="June"Vmonth$(7)="July"`month$(8)="August"jmonth$(9)="September"tmonth$(10)="October"~month$(11)="November"month$(12)="December"Csetup$(50,2),flag(10),ptrinfo$(2),value(2):i=09:flag(i)=0:`ptr$="--->":ptrinfo$(0)="lines to skip":ptrinfo$(1)="left margin":ptrinfo$(2)="right margin"Jsetup$(0,0)="Reset Printer (default values)":setup$(0,1)=27)+"c"+"1"Vsetup$(1,0)="Compressed Mode (17 c.d ..... "PRINTER.MENU"...-for Apple DMP- n:Q=0(x"80C";"--- PRINTER FONT MENU ---"z#1,".PPRINTER"f|#1;27);99);49);: SOFTWARE RESET COMMAND-???CHR$(27);CHR$(34);CHR$(15);CHR$(27);CHR$(89)???C=4:=15:"DO YOU WISH TO CHANGE TH270);regtime$;" ";:69);regtime$;" ";; 03/22/1986 23:34:42 THANKS A LOT -- Norm Pillsbury/ 03/23/1986 17:30:56 thanks...b doggett ... EPSON.CONTROL ...) "C.ITOH.CONTROL" D:=24:=2:today$=Ѡ,2)))+" "+month$(Ҡ,4,2)))+" "+Р,2)3);today$;hour=П,2))*hour=>13hour=hour-12:id$="pm":5060<hour=12id$="pm":ۻhour=00hour=12:id$="am":id$="am"!regtime$=hour)+ҟ,3,6)+id$=hour))<(7);:GOTO 4040 Dd=rmargin/100):e=(rmargin/10)-d*10):f=(rmargin-(d*100+e*10))setup$(function,1)=setup$(function,1)+27)+47)+d+48)+e+48)+f+48): IF(rmargin=80 OR rmargin=0) THEN PRINT CHR$(7);:GOTO 4040 value(function-6)=value"+76)+a+48)+b+48)+c+48): IFlmargin=0 THEN PRINT CHR$(7);:GOTO 4040 function=8rmargin=value: setup$(function,1)=setup$(function,1)+CHR$(rmargin):IF(rmargin=80 OR rmargin=0) THEN PRINT CHR$(7);:GOTO 4040 4 IF rmargin<40 THEN PRINT CHR$ setup$(function,1)=setup$(function,1)+CHR$(27)+"L"+"lmargin":REM IF lmargin=0 THEN PRINT CHR$(7);:GOTO 4040 lmargin>1807);:4040Da=lmargin/100):b=(lmargin/10)-a*10):c=(lmargin-(a*100+b*10))z setup$(function,1)=setup$(function,1)+27)skip=value:setup$(function,1)=setup$(function,1)+CHR$(lineskip):IF lineskip=0 THEN PRINT CHR$(7);:GOTO 4040 ; setup$(function,1)=setup$(function,1)+CHR$(lineskip):9 IF lineskip=0 THEN PRINT CHR$(7);:GOTO 4040function=7lmargin=value:=23:=1::"80c";"Press RETURN to cancel";;=8:=5:"Enter ";ptrinfo$(function-6);": ";:"";value$( IF value$="" THEN HOME:GOTO 20 value$=""7);:4040value$)>37);:4040value=value$) IF function=6 THEN linefunction=9setup$(function,1):::::::flag(function)=0$4function=0i=09:flag(i)=0:>#1H I =19:"80c";"Device not available.Press any key.":6);15);7); key$ :2010::line2$;::rule2$:=22:line2$;1READY PRINTER AND PRESS RETURN"ret$:ret$=27):20ret$<>13)7);:2000 œ3000 #1,printer$:#1E(function=>0function<9)setup$(function,1);:flag(function)=1< function>9setup$(function-11,2);:flag(function-11)=0A*27)+"L":setup$(7,2)=27)+"L"+0)Tsetup$(8,0)="Set Right margin":setup$(8,1)=27)+"/":setup$(8,2)=27)+"/"+80)Msetup$(9,0)="Test Printer Setup":setup$(9,1)="abcdefghijklmnopqrstuvwxyz" $(function>6function<9)40001:=12:=24:",1)=27)+"s"+"2":setup$(4,2)=27)+"s"+"0"Qsetup$(5,0)="Italic Mode":setup$(5,1)=27)+"i"+"1":setup$(5,2)=27)+"i"+"0"Vsetup$(6,0)="8 lines/inch (default=6)":setup$(6,1)=27)+"B":setup$(6,2)=27)+"A"Rsetup$(7,0)="Set Left Margin":setup$(7,1)=pi)":setup$(1,1)=27)+"Q":setup$(1,2)=27)+"N":setup$(2,0)="Double Width Mode":setup$(2,1)=27)+"n":  setup$(2,2)=CHR$(20)Msetup$(3,0)="Boldface Mode":setup$(3,1)=27)+"!":setup$(3,2)=27)+34)Tsetup$(4,0)="Subscript Mode":setup$(4E LEFT MARGIN ? (Y/N) ":W$W$="N"W$="n"150W$="Y"W$="y"1361304=15:"SET LEFT MARGIN TO xxx ";LM:LM>1801365a=LM/100):b=(LM/10)-a*10):c=(LM-(a*100+b*10))#1;27);76);a;b;c;K::=15:"ANY OTHER CHANGES ? (Y/N)GIJKLMNOPQ=8:"80C";"******* LINES PER PAGE *******"i::2);"The selected line spacing ";L;" inches per inch results in a ";L*11;" maximium line page.".:=28:"SET LINES PER PAGE ";LPLP>L*11990#1;29);65);64);X=1LP-2);76);a;b;c;z:*=28:"SET RIGHT MARGIN TO -- xxx ";RMRM<10900d=RM/100)e=(RM/10)-d*10)f=(RM-(d*100+e*10))NLM=>RM:::"80C";"MARGINS REQUESTED OVERLAP--RESET"::=40:U$:820#1;27);47);d;e;f; 10803:" ";"LINES PER PAGE = ";:PRINT#1 USING"###";LP*71044:=8:"80C";"******* PRINTER MARGINS *******".>::=28:"SET LEFT MARGIN TO -- xxx ";LMHLM>180830Ra=LM/100)\b=(LM/10)-a*10)fc=(LM-(a*100+b*10))p#1;27e "+#1" ";L$;" ";LS$;LSS$%#1" ";H$;" ";A$PM$="Y"PM$="y"780710> #1" ";"LEFT MARGIN = ";:#1"###";LM>#1" ";"RIGHT MARGIN = ";:#1"###";RMM  PRINT#1);82);RK$="Y"K$="y"" Note an extra line feed will be seen in APPLE III use !!" Q=1720A#1:"80C";"**** RETURNING TO MAIN MENU ****":"MENU.MAKER".#1"You have selected ";X$;", ";W$;" font"-#1" ";Y$;" type styl$;" font and ";Y$;" style":20);"with ";L$;" ";H$;" ";A$;=12:=21:"DO YOU WISH TO SET PRINTER MARGINS ? ":PM$PM$="Y"PM$="y":820@:::=21:"FOR USE WITH THE APPLE II MODE ? (Y/N) ":K$2K$="Y"K$="y"#1;27);68);138570)::55):"UNDERLINE PRINT Y/N ":a$Da$="Y"a$="y"610Na$="N"a$="n"620X=-2:570-b#1;27);88);:A$="and UNDERLINED":630 lA$=""7v:=4:"80C";"FONT AND STYLE SELECTION COMPLETED"f=08:"You have selected ";X$;", ";W-1:450/#1;27);65);:L$="6 LINES PER INCH":510/#1;27);66);:L$="8 LINES PER INCH":510):45):"HEADLINE (X2) Y/N ":h$h$="Y"h$="y"550h$="N"h$="n"560=-2:510*&#1;14);:H$="HEADLINE emphasis":5700H$="":" 1...NORMAL";41);" 2...BOLDFACE",29):"SELECT TYPE STYLE (1-2) ":Y:Y>2Y<1=-2:400Y430,440Y$="NORMAL":450'#1;27);33);:Y$="BOLDFACE":450.35):"LINES PER INCH (6 or 8) ":L L=6490 L=8500=2...SUBSCRIPT";47);"3...ITALIC"BJ19):"SELECT FONT STYLE (1-3) ":W::W>3W<1=-2:330TW350,360,370^W$="":380/h#1;27);115);50);:W$="SUBSCRIPT":380,rW$="ITALIC":#1;27);105);49);:380|25);"STYLE MENU".25);X<1=-1:250X280,290,300,3101#1;27);80);:X$="ELITE PROPORTIONAL":320&"#1;27);78);:X$="PICA-10":320&,#1;27);69);:X$="PICA-12":320&6#1;27);81);:X$="PICA-17":320W@:15);"FONT MENU-2":15);"1...NORMAL";29);"0P=2:"80C";"PRINTER FONT AND TYPE STYLE SELECTION";:"80C";"PROGRAM"::5);"FONT MENU"85);" 1...Elite Proportional";30);" 3...Pica-12"-5);" 2...Pica-10";30);" 4...Pica-17"(9):"SELECT TYPE FONT (1-4) ":XX>4 ":V$:V$="N"V$="n": 710 N=4:=15:"DO YOU WISH A SAMPLE PRINT OF THE FONT SELECTED ? (Y/N) ":Q$Q$="Y"Q$="y"Q=1V=4:=15:"DO YOU WISH THE COMPRESSED, BOLDFACE FONT AT 8 LINES/INCH ? (Y/N)":S$S$="Y"S$="y"117#1;64);64);X$#1;67);64);.#1;65);64);30);98:=8:"80C";"******* SPECIAL LINE SPACING *******" BLSS$=""IL:::=15:"LINE SPACING IS NOW ";L$;". DO YOU WISH TO RESET ?":RS$!VRS$="Y"RS$="y"1120:1160>`:::=28:"SET LINE SPACING IN 1/144 OF AN INCH ...";LS$jLS$<"1"LS$>"99"11000tL$="SPECIAL line spacing":LSS$="/144 inches"~#1;27);84);LS$:::670 ... "PRINTER.MENU" !#1;27);81);:X$="PICA-17""#1;27);33);:Y$="BOLDFACE" END.  THEN &SKIP(PAGELEN - LINENO)  END;   BEGIN #REWRITE(OUTFILE, 'PPRINTER:'); #WRITE('FILE TO PRINT?:'); #READLN(NAME); #WHILE NAME <> '' DO BEGIN &RESET(INFILE, NAME); &FPRINT; &WRITE('FILE TO PRINT?:'); &READLN(NAME); &CLOSE(INFILE) #END 'PAGE ', PAGENO); )SKIP(MARGIN2); )LINENO := MARGIN1 + MARGIN2 + 1 &END; &READLN(INFILE, LINE); &WRITELN(OUTFILE, ' ', LINE); &LINENO := LINENO + 1; &IF LINENO >= BOTTOM THEN BEGIN )SKIP(PAGELEN - LINENO); )LINENO := 0 &END #END; #IF LINENO > 0 = 82; #PAGELEN = 88;   VAR #PAGENO, LINENO: INTEGER; #LINE: STRING;   BEGIN #PAGENO := 0; #LINENO := 0; #WHILE NOT EOF(INFILE) DO BEGIN &IF LINENO = 0 THEN BEGIN )SKIP(MARGIN1); )PAGENO := PAGENO + 1; )WRITELN(OUTFILE, NAME: 22, ' ': 48, PROGRAM PRINT;   VAR #NAME: STRING; #OUTFILE, INFILE: TEXT;   PROCEDURE SKIP(N: INTEGER);   VAR #I: INTEGER;   BEGIN #FOR I := 1 TO N DO &WRITELN(OUTFILE, ' ')  END;   PROCEDURE FPRINT;   CONST #MARGIN1 = 3; #MARGIN2 = 3; #BOTTOMRTUVWXN^xr"PRINTER.MENU"...-for Apple DMP-*#1;27);66);:L$="8 LINES PER INCH"?:::=21:"FOR USE WITH THE APPLE II MODE ? (Y/N) ":K$2K$="Y"K$="y"#1;27);68);138);82);RK$="Y"K$="y"" Note an extra line feed will be seen in APPLE III use !!"700, ..... jklmnopqrstuvwxyz.1234567890"27);80)@"Elite Proportional"," 27-80","*** ELITE PROPORTIONAL ***"G"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"27);110)*"Extended (9 to the inch)"," 27-110"G"ABCDEFGHIJK]_`abcdefghijuvwxyz.1234567890"27);112)#"Pica Proportional"," 27-112"G"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"27);69)9"Elite (12 to the inch)"," 27-69","*** PICA-12 ***"G"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghi2 ....... "PRINTER.TEST" <2000d#1,".PPRINTER":#1 i17);n27);78);7s" PRINTER.TEST ";"DATE...";,"TIME...";:8x"Pica (10 to the inch)"," 27-78","*** PICA-10 ***"G}"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstf above program for use on the C.Itoh printer. PRINTER.MENU An inquiry and response type menu for selecting printer functions for the Apple DMP printer. PRINT.TEXT A PASCAL pe program for use with the C.Itoh printer. EPSON.CONTROL A program for selecting printer functions on the Epson printer. From THREE's COMPANY. C.ITOH.CONTROL Modification oRINTER.SET A program for selecting printer functions on the Apple Dot Matrix and Imagewriter printers. From ON THREE, Feb. 1986. PRINTER.SET.MOD Modification and enlargement of abovrding to your own needs. By looking at your printer manual, you can exchange the control codes in these programs for those of your printer. Thus, you'll have a quick and easy way to set up your printer or print disk labels from Business Basic. PY[\AND PRINTER SET-UP PROGRAMS NUMBER: 3BSB-10 UPDATED October 15, 1994 SIDE TWO PRINTER CONTROL AND LABEL PROGRAMS Please note that while these programs may not correspond directly to your printer, you can adapt them acco /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 WAP /// SIG PUBLIC DOMAIN LIBRARY THE APPLE /// STARTUP DISK LMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"27);113),"Condensed (15 to the inch)"," 27-113"G"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"27);81)B"Ultracondensed (17 to the inch)"," 27-81","*** PICA-17 ***"G"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"27);80);:27);33)>"Elite Proportional,Boldface"," 27-80...27-33...(27-34)"! "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstuvwxyz.1234567890""abcdefghijklmnopqrstuvwxyz.1234567890"%H 27);89): CANCELLS UNDERLINE$R :" --- END OF TEST ---"\ 19):: START AT 2000<FP! ....... "PRINTER.TEST"  ----NOTE...Printer controls listed in C.ITOH manual are inEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstuvwxyz.1234567890"5 15);27);34): CANCELLS BALDFACE & HEADLINE 27);80); 27);88);@* "Elite Proportional,Underlined"," 27-80...27-88...(27-89)"!4 "ABCDEFGHIJKLMNOPQRSTUVWXYZ",> NOTE CHR$(80) NOT REPEATED HERE! > "Elite Proportional,Headline"," 27-80..14..(15); ( X 2 )"! "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstuvwxyz.1234567890" 27);33)3 "Elite Proportional,Boldface-Headline (X 2 )"! "ABCDabcdefghijklmnopqrstuvwxyz.1234567890" 27);80);:27);33)> "Elite Proportional,Boldface"," 27-80...27-33...(27-34)"! "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstuvwxyz.1234567890"& 27);34);: CANCELLS BOLDFACE 3 14):vwxyz.1234567890" 27);78)6 "Pica (10 to the inch) 27-78 *** PICA-10 ***"! "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstuvwxyz.1234567890"  27);80) "Elite Proportional 27-80"! "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "ensed (17 to the inch) 27-81 *** PICA-17 ***"! "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstuvwxyz.1234567890" 27);69)6 "Pica (12 to the inch) 27-69 *** PICA-12 ***"! "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "abcdefghijklmnopqrstu3000%27);34): CANCELLS BOLDFACE 14)(*"***** Headline ***** ..14..(15)" 43000>27);33)%H"***** Boldface-Headline *****" R30005\15);27);34): CANCELLS HEADLINE & BOLDFACE f3200 27);81)@ "UltracondY=0115:620:640 ******** ******** ******** ******** ******** #1,".PPRINTER":#1 17);7" PRINTER.TEST ";"DATE...";,"TIME...";: 300027);33)-"***** Boldface ***** 27-33...(27-34)" fghijklmnopqrstuvwxyz.1234567890"{ 19)Y=0080:620:610Y=0115:620:610Y=0078:620:610Y=0110:620:610Y=0069:620:610Y=0112:620:610Y=0080:620:610Y=0081:620:610Y=0078:620:610Y=0105:620:610*******R ******* T ******* X#1,".PPRINTER":#1 ]17);7^" PRINTER.TEST ";"DATE...";,"TIME...";:`X=0 bX=X+12gX660,662,664,666,668,670,672,674,676,678,680l27);Y);Ov" ";Y;" ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcde#1;" PRINTER.TEST ";"DATE...";,"TIME...";:X=060080#1;27);X);"CHR$(27);CHR$(";X;")-";R#1;" ";X;" ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"X#1"MENU.MAKER"N ******* P z.1234567890"r27);105) |"27-105"G"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"$:" --- END OF TEST ---"19):"MENU.MAKER ******* ******* ******* *******#1,".PPRINTER"=l,Underlined"," 27-80...27-88...(27-89)","*** ELITE PROPORTIONAL UNDERLINED ***"GE"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxyz.1234567890"J27);89)T27);115) ^"27-115"Gh"ABCDEFGHIJKLMNOPQRSTUVWXYZ.abcdefghijklmnopqrstuvwxy27);34);114): ..NOTE CHR$(80) NOT REPEATED HERE!5""Elite Proportional,Headline"," 27-80..14..(15)"!'"ABCDEFGHIJKLMNOPQRSTUVWXYZ",)"abcdefghijklmnopqrstuvwxyz.1234567890" ,15);627);80);:27);88)h@"Elite Proportionaconsistant with actual printer operation !!! Control codes from 1985 manual. #1,".PPRINTER"(#1;27);"c";"1": DEFAULT VALUES 7" PRINTER.TEST ";"DATE...";,"TIME...";:<#1;" PRINTER.TEST ";"DATE...";,"TIME...";:#1 A,B$,C$3B$="END OF FILE"#1;" -end of file-":4380% PRINT A,CHR$(34);B$;CHR$(34) #1;A);34);B$;34)5#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890 ";C$5#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890 ";C$ 4020+h 27,"N","1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),kmnopqrstVOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY ";D$ b44007l 27,"m","0","DATA PROCESSING PRINT MODE {ESC m 0}",v 27,"m","1","MEMO PRINT MODE {esc m 1}"- 27,"m","2","N-L-Q PRINT MODE {esc m 2}"# ....... "PRINTER.TEST" 27,"END OF FILE","END OF FILE" #1:A$&#1,".PPRINTER"0A,B$,C$,D$$:A,34);B$;34),34);C$;34)*D#1;A);34);B$;34);34);C$;34)5N#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890 ";D$5X#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890 7,"$","NORMAL ALPHANUMERIC CHARACTER SET {ESC $}" G DATA 14,CHR$(0),"ELONGATED CHARACTER ON {CHR$(14) CHR$(0)}" E DATA 15,CHR$(0),"ELONGATED CHARACTER OFF {CHR$(15) CHR$(0)}" ; DATA 15,CHR$(0),ELONGATED CHARACTER OFF,APPLE,THREE $C CHR$(34)}" % 27,"X","UNDERLINE ON {ESC X}" & 27,"Y","UNDERLINE OFF {ESC Y}" & 27,"A","6 LINES/INCH {ESC A}" & 27,"B","8 LINES/INCH {ESC B}" , 27,"&","GREEK CHARACTER SET {ESC &}" ( 27,"#","GRAPHIC SYMBOLS {ESC #}" ; 210 CPI - PICA PITCH {ESC N}" -r 27,"E","12 CPI - ELITE PITCH {ESC E}" 2| 27,"Q","17 CPI - COMPRESSED PITCH {ESC Q}" + 27,"P","PROPORTIONAL PITCH {ESC P}" ( 27,"!","BOLDFACE PRINT {ESC !}" ? DATA 27,CHR$(34),"BOLDFACE PRINT OFF {ESCA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:B$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:"U$="n"260#1;27);37);83);"3";D::=20:"ANY OTHER CHANGES ? (Y/N) ":V$:V$="N"V$="n"840N=6:=15:"DO YOU WISH A SAMPLE PRINT OF THE FONT SELECTED ? (Y/N) ":Q$"Q$="Y"Q$="y"Q=1 ,::R6=15:"DO YOU WISH THE Cuwxyz{W$="N"W$="n"230W$="Y"W$="y"2001504=15:"SET LEFT MARGIN TO xxx ";LM:LM>1802005a=LM/100):b=(LM/10)-a*10):c=(LM-(a*100+b*10)) #1;27);37);67);a;b;c;J::=20:"SKIP OVER PERFORATIONS ? (Y/N) ":U$:U$="N:d ..... "PRINTER.MENU"...-For OKIDATA 182 with NLQ- n:Q=0(x"80C";"--- PRINTER FONT MENU ---"#1,".PRINTER".#1;24);: CLEAR BUFFER -PARTIAL RESET G=4:=15:"DO YOU WISH TO CHANGE THE LEFT MARGIN ? (Y/N) ":W$::W$=27)a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!el; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 lev 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXOMPRESSED, ENHANCED FONT AT 8 LINES/INCH ? (Y/N)":S$@S$=27)JS$="Y"S$="y"1160TP^=2:"80C";"PRINTER FONT AND TYPE STYLE SELECTION";:"80C";"PROGRAM"::h5);"FONT MENU"Dr5);" 1...Pica-10";25);" 2...Pica-12";45);" 3...Pica-17.1"(|9):"SELECT TYPE FONT (1-3) ":XX>3X<1=-1:380X410,420,430 #1;30);:X$="PICA-10":440 #1;28);:X$="PICA-12":440"#1;29);:X$="PICA-17.1":440d:15);"FONT MENU-2":07);"1...NORMAL";22);"2...NEARY","UNDERLINE OFF {ESC Y}" & 27,"A","6 LINES/INCH {ESC A}" & 27,"B","8 LINES/INCH {ESC B}" , 27,"&","GREEK CHARACTER SET {ESC &}" ( 27,"#","GRAPHIC SYMBOLS {ESC #}" ; 27,"$","NORMAL ALPHANUMERIC CHARACTER SET {ESC $}" , 14,LITE PITCH {ESC E}" 2| 27,"Q","17 CPI - COMPRESSED PITCH {ESC Q}" + 27,"P","PROPORTIONAL PITCH {ESC P}" ( 27,"!","BOLDFACE PRINT {ESC !}" 7 27,CHR$(34),"BOLDFACE PRINT OFF {ESC CHR$(34)}" % 27,"X","UNDERLINE ON {ESC X}" & 27,"NOPQRSTUVWXYZ.1234567890 ";C$> PRINT#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890 ";C$ 7A;" '";B$;"' -";C$;" PRESS KEY TO CONTINUE..." A$:A$=27)"MENU.MAKER" 4020+h 27,"N","10 CPI - PICA PITCH {ESC N}" -r 27,"E","12 CPI - E|~7" PRINTER.TEST ";"DATE...";,"TIME...";:<#1;" PRINTER.TEST ";"DATE...";,"TIME...";:#1 A,B$,C$)B$="CHR$(34)"#1;27);34):40503B$="END OF FILE"#1;" -end of file-":4380#1;A);B$5#1;"ABCDEFGHIJKLM  ....... "C.ITOH.TEST"  --NOTE...Printer controls listed in C.ITOH manual are inconsistant with actual printer operation !!! Control codes from 1985 manual.#1,".PPRINTER"@ PRINT#1;CHR$(27);CHR$(99);CHR$(49);:REM DEFAULT VALUES ith ";L$;" ";H$;" ";A$; =12:=21:"DO YOU WISH TO SET PRINTER MARGINS ? ":PM$PM$="Y"PM$="y":940@ :::=21:"FOR USE WITH THE APPLE II MODE ? (Y/N) ":K$*K$="Y"K$="y"#1;10);R4K$="Y"K$="y"" Note an extra line fee"and UNDERLINED":752 A$=""E:=4:=15:"DO YOU WISH TO SET FORM LENGTH ? (Y/N) ":F$F$="Y"F$="y"10207:=4:"80C";"FONT AND STYLE SELECTION COMPLETED"f=08:"You have selected ";X$;", ";W$;" font and ";Y$;" style":20);"wTH Y/N ":h$h$="Y"h$="y"680h$="N"h$="n"690=-2:640%#1;31);:H$="DOUBLE WIDTH":700H$="":700):55):"UNDERLINE PRINT Y/N ":a$a$="Y"a$="y"740a$="N"a$="n"750=-2:700-#1;27);67);:A$="LINES PER INCH (6 or 8) "CI" ":L NL=6620 XL=8630b=-2:580/l#1;27);54);:L$="6 LINES PER INCH":640/v#1;27);56);:L$="8 LINES PER INCH":640'45):"DOUBLE WIDSELECT TYPE STYLE (1-4) ":Y:Y>4Y<1=-2:510Y540,550,560,570Y$="NORMAL":580'&#1;27);72);:Y$="ENHANCED":580)0#1;27);84);:Y$="EMPHASIZED":580C:#1;27);72);;27);84);:Y$="ENHANCED and EMPHASIZED":580+D35):-7:4402#1;27);49);:W$="NEAR LETTER QUALITY":580(#1;27);76);:W$="SUBSCRIPT":58010025);"STYLE MENU "j08);" 1...NORMAL";21);" 2...ENHANCED";35);" 3...EMPHASIZED";52);"4...ENHANCED and EMPHASIZED",29):" LETTER QUALITY";48);"3...SUBSCRIPT"B19):"SELECT FONT STYLE (1-3) ":W::W>4W<1=-2:450W470,475,480,485W$="":490|X=310);"NLQ is not available at 17.1 CPI":10);"-another selection please- (#4 for new start)":7);:= ,"ELONGATED PRINT ON {CHR$(14)}" , 15, ,"ELONGATED PRINT OFF {CHR$(15)}" $ 27,"END OF FILE","END OF FILE"7#1:" End of first section.........press key ":a$%!a$=27)a$=3)"MENU.MAKER"&#1,".PPRINTER"0A,B$,C$,D$R5B$="END OF FILE"#1;" End of second section.............":#1:"MENU.MAKER";: PRINT A,CHR$(34);B$;CHR$(34),CHR$(34);C$;CHR$(34) D#1;A);B$;C$5N#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890 ";D$=X PRINT#1;"ABCDEFGHIJKLMNOPQRSTUVWXYZ.1234567890 ";D@d **********************************************************8n DISK LABELER @x ********************************************************** ? : This program prints the directory from an APPLE ///BATA.MENU". This may be renamed and used as the printer menu. If you do this, please save the original printer menu and restore it before leaving. -------------------- LABEL PROGRAMS --------------rogram for printing pascal text files, skipping over page breaks and numbering each page. REQUIRES PASCAL TO USE. OKIDATA.MENU A menu for the OKIDATA 182 printer is contained in "OKID an extra line feed will be seen in APPLE III use !!"830; ..... "PRINTER.MENU"...-For OKIDATA 182 with NLQ- 00 ... "PRINTER.MENU" #1;29);:X$="PICA-17.1""#1;27);72);:Y$="ENHANCED"*#1;27);56);:L$="8 LINES PER INCH"?:::=21:"FOR USE WITH THE APPLE II MODE ? (Y/N) ":K$K$="Y"K$="y"#1;10);RK$="Y"K$="y"" NoteING IS NOW ";L$;". DO YOU WISH TO RESET ?":RS$!LRS$="Y"RS$="y"1110:1150=V:::=28:"SET LINE SPACING IN 1/144 OF AN INCH ...";LS`LS<1LS>12710900jL$="SPECIAL line spacing":LSS$="/144 inches" t#1;27);37);57);LS);~:::8acing ";L;" inches per inch results in a ";L*11;" maximium line page.".:=28:"SET LINES PER PAGE ";LPLP>L*111030$#1;27);70);LP;)9.:=8:"80C";"******* SPECIAL LINE SPACING *******" 8LSS$=""IB:::=15:"LINE SPAC****".::=28:"SET LEFT MARGIN TO -- xxx ";LMLM>80950a=LM/100)b=(LM/10)-a*10)c=(LM-(a*100+b*10)) #1;27);37);67);a;b;c; ::10703:=8:"80C";"******* LINES PER PAGE *******"i::2);"The selected line sp ";H$;" ";A$zPM$="Y"PM$="y"910840>#1" ";"LEFT MARGIN = ";:#1"###";LMM PRINT#1" ";"LINES PER PAGE = ";:PRINT#1 USING"###";LP8404:=8:"80C";"******* PRINTER MARGINS ***d will be seen in APPLE III use !!" >Q=1850AH#1:"80C";"**** RETURNING TO MAIN MENU ****":"MENU.MAKER".R#1"You have selected ";X$;", ";W$;" font"-\#1" ";Y$;" type style "*f#1" ";L$;" ";LS;LSS$%p#1" ILE","END OF FILE","END OF FILE"| ....... "C.ITOH.TEST" 27,"i","1","ITALIC PRINT ON {ESC i 1}" - 27,"i","0","ITALIC PRINT OFF {ESC i 0}"1 27,"s","1","SUPERSCRIPT PRINT ON {ESC s 1}"/ 27,"s","2","SUBSCRIPT PRINT ON {ESC s 2}"6 27,"s","0","SUPER/SUBSCRIPT PRINT OFF {ESC s 0}"2r 27,"END OF F$ A]A;" '";B$;"' '";C$;"' -";D$;" PRESS KEY TO CONTINUE..." ^A$:A$=27)"MENU.MAKER" b44007l 27,"m","0","DATA PROCESSING PRINT MODE {ESC m 0}",v 27,"m","1","MEMO PRINT MODE {esc m 1}"- 27,"m","2","N-L-Q PRINT MODE {esc m 2}"/ : disk on Avery 1.5 inch X 4.0 inch labels. It is set upA : for an Epson MX-100 printer. The printer commands are% : located in lines 730-790.F : Thanks to Ed Gooding for Error trapping routines and mods.:990ȕ on 1 x 3.5 inch, 1-UP labels. It is set up@F : for an Imagewriter printer. The printer commands are%P : located in lines 730-790. Z :$d : Original Author: Unknown Dn : Imagewriter mods, lineup routine, error trapping routinesA : **********************************************************%: DISK LABELERA: ********************************************************** ( :?2 : This program prints the directory from an APPLE ///;< : diskL : A ********************************************************** :#W=68+2: ::: 68 CHARACTERS WIDE'H=12: ::: 12 LINES BETWEEN LABELS :$=(24-H)/2.=(80-W)/2 8I=1W+2 B32);LIV `I=1Hj=(80-W)/2 t3:=6:=13#4,".CONSOLE":#4;"WOULD YOU LIKE TO PRINT ANOTHER DISK (Y/N)?";:C$C$="Y"C$="y":120$C$="N"C$="n":"MENU.MAKER" :930A ********************************************************** ! SET FRAME FOR LABE:J=1 *I=4L4B$(J)=A$(I),16,15)>#2;B$(J);2);HJ/4=J/4)#2;10);RJ/4=J/4)FLAG=1:FLAG=0\I=L#2;10);:890 fJ=J+1pIzFLAG=1900:#2;#2;A$(I+2),2,64);#2;13);': PRINT#2;CARRIAGE RETURN:CLOSE ;: SETS COLUMN WIDTH TO 68 8#2;27);"C";12);: SETS FORM LENGTH TO 12 LINES(#2;27);"G";: SET DOUBLE STRIKE 1 #2"DISK: ";A$;50);"VOLUME: ";A$(1),2,16)I#2;"---------------------------------------------------------------" L=I-3********************************* PRINT ON PRINTER : @ **********************************************************#2,".PRINTER"(#2;15);: SETS CONDENSED PRINT .#2;27);"0";: SETS LINE SPACING TO 1/8 4#2;27);"Q";68)****************************************************** D-N"DISK : ";A$38);"VOLUME: ";A$(1),16)X bL=I-2:J=1 lI=4LvA$(I),16,15);2); I=L660I10):=11:=5A$(I+1);:C$ :120@ ************************** =3:=15"WHAT DISK DRIVE WOULD YOU LIKE TO USE?:";DRIVE$ œ2000#1,DRIVE$ ž#1530i=0 i=i+1 #1;a$(i)500#1A& ********************************************************** 0 PRINT ON SCREEN : B: ****CHOICE? CREEN, OR

RINTER: ";C$C$="S"C$="s":550C$="P"C$="p":690 =1:380@ ********************************************************** READ DIRECTORY : A *********************************************************:"MENU.MAKER"6@430: READ DIRECTORY DJ ********************************************************** T PICK OPTIONS : @^ **********************************************************h=4r"DISK NAME: ";A$|=87"WHAT IS YOUR : CREATE LABEL FRAMEA$(1000),B$(1000)=3'"68C";"*** DISK.LABELER ***" =11:=21#"(...or, use ESCAPE to Quit.)" =7:=157"INSERT DISK AND PRESS ANY KEY TO CONTINUE...":C$ C=C$)"C=3::"MENU.MAKER",C=27:,Gx : 1 x 3.5 label capability added by Ed Gooding - Sept. 30, 1986 : =".d1":'1020: Create label frame5A$(60): Store the catalog entries hereNUM.ACROSS=3:S.NUM.DOWN=5HLINEUP$="1.......10........20... MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"Label Makers and Printer Set-Up occurred - Consult pg. 234-235 of BASIC Reference manual."::Choice$="S"430:ۺ700*::anual."::CHOICE$="S"430:ۺ700*::find that pathname."::CHOICE$="S"430:ۺ700E=32"I can NOT find that volume."::CHOICE$="S"430:ۺ700E=37"I can NOT find that device."::CHOICE$="S"430:ۺ700i%"Error #";;" occurred - Consult pg. 234-235 of BASIC Reference M2);~ W); 32)I=(80-W)/2 I=1W+2 32);I-(84-W)/2+1,(24-H)/2+1(80+W)/2,(24+H)/2 :::Y=29"You entered an invalid pathname - please retry."::CHOICE$="S"430:ۺ700G=31"I can NOT ou to print up a label of up to five lines. You can print as many copies as you wish and change the copy depending on your needs. Uses the .Graphix driver and the bgraf.inv invokable module. l Author: Unknown Imagewriter modifications, lineup routine, error trapping routine, 1 x 3.5 label capability added by Ed Gooding - Sept. 30, 1986 LABELER.3 This Label Maker program by Bob Wiker will simply allow y. LABELER.2 This program prints the directory from an APPLE /// disk on 1 x 3.5 inch, 1-UP labels. It is set up for an Imagewriter printer. The printer commands are located in lines 730-790. Origina----------- LABELER.1 This program prints the directory from an APPLE /// disk on Avery 1.5 inch X 4.0 inch labels. It is set up for an Epson MX-100 printer. The printer commands are located in lines 730-790.....30........40........50........"=2("59C";"*** DISK.LABELER ***";=7-"59C";"(...or press ESCAPE to Quit.)";=5/"59C";"Press RETURN to continue...";:C$ C=C$) ,C=27::".d1/menu.maker"6:P.NUM.DOWN=5@479C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10EM ************************************ REM Error trapping/formatting routine: REM ************************************ 2000 PRINT:PRINT 2030 IF ERR=29 THEN PRINT"You entered an invalid pathname - please retry.":OFF ERR:IF CHOICE$="S" THEN GOTO 43032) 1190 NEXT I 1200 HPOS=(80-LABEL.WIDTH)/2 1210 FOR I=1 TO LABEL.WIDTH+2 1220 PRINT CHR$(32); 1230 NEXT I 1240 WINDOW(84-LABEL.WIDTH)/2+1,(24-LABEL.HEIGHT)/2+1 TO(80+LABEL.WIDTH)/2,(2 4+LABEL.HEIGHT)/2 1250 NORMAL:HOME:RETURN RTO LABEL.WIDTH+2 1090 PRINT CHR$(32); 1100 NEXT I 1110 PRINT 1120 FOR I=1 TO LABEL.HEIGHT 1130 HPOS=(80-LABEL.WIDTH)/2 1140 PRINT CHR$(32); 1150 NORMAL 1160 PRINT SPC(LABEL.WIDTH); 1170 INVERSE 1180 PRINT CHR$(**************************** 1020 TEXT:HOME 1030 LABEL.WIDTH=59+2:REM ::: 59 characters wide 1040 LABEL.HEIGHT=8:::REM ::: 8 print lines per label 1050 INVERSE 1060 VPOS=(24-LABEL.HEIGHT)/2 1070 HPOS=(80-LABEL.WIDTH)/2 1080 FOR I=1 another lineup test? (Y/N): ";:GET ANSWER$:PRINT ANSWER$ 1012 IF ANSWER$ = "Y" OR ANSWER$ = "y" THEN GOTO 1000:ELSE RETURN REM ********************************************************** REM SET FRAME FOR LABEL : REM *************************************************************************** 1000 HOME:VPOS=2:PRINT"Position print head at top of label and press RETURN":GET ANSWER$ 1005 FOR TEST = 1 TO 7 1007 PRINT#2 LINEUP$ 1008 NEXT 1009 PRINT#2 " " 1010 HOME:VPOS=2:PRINT"Want NT CHOICE$ 960 IF CHOICE$="Y" OR CHOICE$="y" THEN CLOSE:GOTO 310 970 IF CHOICE$="N" OR CHOICE$="n" THEN CLOSE:TEXT:HOME:END 980 GOTO 930 REM ********************************************************** REM LABEL LINEUP TEST : REM ************* ":REM Print blank lines down to end of label 866 NEXT 870 PRINT#2 " ":REM One more to pass over space between labels 930 HOME:VPOS=3:HPOS=1 950 PRINT CHR$(31);"Would you like to print another disk catalog? (Y/N): ";:GET CHOICE$:PRIL 853 PRINT#2 " " 854 NUM.LABELS=NUM.LABELS-1 856 IF NUM.LABELS = 0 GOTO 860:ELSE P.NUM.DOWN = 7:GOTO 820 860 IF VERT.CNTL = P.NUM.DOWN THEN PRINT#2;CHR$(13);CHR$(10);:GOTO 870 862 FOR BLANK.LINES = VERT.CNTL TO P.NUM.DOWN 864 PRINT#2 "EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n":ELSE GOTO 700 2050 IF ERR=31 THEN PRINT"I can NOT find that pathname.":OFF ERR:IF CHOICE$="S" THEN GOTO 430:ELSE GOTO 700 2055 IF ERR=32 THEN PRINT"I can NOT find that volume.":OFF ERR:IF CHOICE$="S" THEN GOTO 430:ELSE GOTO 700 2075 IF ERR=37 THEN PRINT"I can NOT find that device.":OFF ERR:IF CHOICE$="S" THEN GOTO 430:ELSE GOTO 700 2085 PRINT"Error #"; ERR;" occurred - Consult pg. 234-235 of BASIC Reference manual.":OFF ERR:IF CHOICE$="S" THEN GOTO 430:ELSE GOTO 700 2090 :: REM -------------lor(%black):REM Use black to 2030 PERFORM fillport:REM erase any previous text in the label area. 2120 PERFORM pencolor(%white) 2150 PERFORM moveto(%left%,%top%-2):REM upper left edge of label 2300 PERFORM xfroption(%1) 2400 PERFORM grafixon VPOS= VPOS-1:HPOS=13:PRINT format$:REM reprint last response if RETURN was pressed 480 IF i$<>"" THEN format$=i$:REM Assign new response to variable 2000 REM Drawing label 2010 PERFORM viewport(%left%,%right%,%bottom%,%top%) 2020 PERFORM pencoS=13:VPOS= VPOS-1:INPUT"";i$:REM repostion and get input 458 IF i$<>"" THEN LET format=VAL(i$):ELSE format=VAL(format$):REM convert to numeric value 460 IF format<1 OR format>3 THEN 400:REM Start over if invalid response received 465 IF i$="" THENtandard, centered or right flush label 410 HOME 420 PRINT:PRINT:PRINT"How would you like the labels printed?":PRINT 430 PRINT"1. left flush" 435 PRINT"2. centered" 440 PRINT"3. right flush" 450 PRINT:PRINT"Your choice:";format$ 455 HPO 326 INPUT"";i$:REM get input 330 IF i$<>"" THEN line$(i)=i$:REM Assign new response to variable 340 IF i$="" THEN VPOS= VPOS-1:HPOS=9:PRINT line$(i):REM reprint last response if RETURN was pressed 350 NEXT i 400 REM menu to choose sct top 7 lines of text and move in a bit 300 REM Getting input for each of the 5 printed lines 305 HOME 310 FOR i=1 TO 5 320 PRINT"Line #";i;":";:REM put up prompt 324 PRINT line$(i);:HPOS=9:REM print previous response & position cursor PRINT USING centered$;"----------------------------" 220 PRINT"This program allows for five printed lines on a six-line label (the 6th line":PRINT"is for spacing). It assumes you're using 1-inch x 4-inch labels." 230 WINDOW 10,7 TO 80,24:REM proteviewport, and fill 120 GOSUB 10000 125 PERFORM viewport(%left%,%right%,%bottom%,%top%) 130 PERFORM fillcolor(%black):PERFORM fillport:REM change to black,shrink, and fill 200 TEXT:HOME:PRINT USING centered$;"The Label Maker by Bob Wiker"; 210 grafixmode(%2,%1):REM mode 2, buffer 1 80 PERFORM fillcolor(%black):PERFORM fillport:REM clear screen to black 90 PERFORM fillcolor(%white) 100 PERFORM viewport(%left%,%right%,%bottom%,%top%) 110 PERFORM fillport:REM set color to white, shrink line$(5) 18 GOSUB 11000:REM initialize some of the defaults 20 white=15:black=0:qty=1 22 i=0:i$="":REM general counter and input variables 30 centered$="80c" 40 format$="2":REM default format is centered 50 OPEN#1,".grafix" 70 PERFORM 0 REM Contributed by Bob Wiker on 12/19/1985 15:04:46 1 :: 2 REM ===>> Program: Label Maker <<=== 3 :: 5 INVOKE"bgraf.inv" 10 REM initialize variables 12 driver$=".DOT":REM name of output device's driver file 16 DIM -------------------------------------------------------------- :REM turn on grafix display 2420 IF format=1 THEN form$="X,39a":ELSE IF format=2 THEN form$="39c":ELSE form$="39r":REM set format for printing on graphics screen 2450 FOR i=1 TO 5 2460 PRINT#1 USING form$;line$(i) 2470 NEXT i 2480 PERFORM xfroption(%0) 2500 REM Get OK before continuing 2505 PERFORM initgrafix 2510 PERFORM moveto(%182,%72):REM 26 columns in and 9 rows up from bottom 2520 PRINT#1;"Is this format OK (Y/N)? " 2530 INPUT i$ 2540 i=ASC(i$):IF i=89 THEN i=121:RhIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kLGA3/1.01/LINr GRAFIXMO 050 RETURN 11000 REM 11100 left%=140:right%=420:bottom%=94:top%=140:margin%=2:REM 40 columns wide x 5 rows high 11999 RETURN TEXT:HOME:END:REM release graphics memory, clear screen, and end 10000 REM subroutine to change left,right,bottom and top margins 10010 left%=left%+margin% 10020 right%=right%-margin% 10030 bottom%=bottom%+margin% 10040 top%=top%-margin% 10T:INPUT"Your choice?";i$ 4270 i=VAL(i$):IF i<1 OR i>3 THEN 4220 4280 IF i=1 THEN CLEAR:GOTO 10:REM User wants to do new labels 4290 IF i=2 THEN 400:REM print more of the same labels 4300 GOTO 9999:REM User wants to quit 9999 PERFORM release: REM More label-printing to do? 4210 WINDOW 10,7 TO 80,24:REM protect top 7 lines of text and move in a bit 4220 HOME 4230 VPOS= VPOS+3 4240 PRINT"1. Print new labels" 4245 PRINT"2. Print more of the same" 4250 PRINT"3. Quit" 4260 PRINormat=2 THEN form$="33c":ELSE form$="33r":REM provide extra room at edges by going 33-wide. 4050 FOR i=1 TO qty 4060 FOR j=1 TO 5 4070 PRINT#2 USING form$;line$(j) 4090 NEXT j 4095 PRINT#2 4100 NEXT i 4110 CLOSE#2 4200 ETURN was pressed 3200 REM Press RETURN when ready to start printing 3210 PRINT:PRINT:INPUT"Press RETURN when ready to begin printing.";i$ 4000 REM Printing the labels 4010 OPEN#2 AS OUTPUT,driver$ 4025 IF format=1 THEN form$="33a":ELSE IF fSend output to what device? ";:PRINT driver$; 3170 HPOS= HPOS-(LEN(driver$)) 3180 INPUT"";i$ 3184 IF i$<>"" THEN driver$=i$:REM Assign new response to variable 3186 IF i$="" THEN VPOS= VPOS-1:HPOS=29:PRINT driver$:REM reprint last response if R to text mode without chaninging WINDOW 3020 HOME 3030 VPOS=5:INPUT"How many labels to print?";i$ 3040 i=VAL(i$):IF i<1 THEN 3020 3050 qty=i:REM assign variable to QTY 3100 REM What output device to send labels to? 3160 PRINT:PRINT:PRINT"EM convert cases to match 2550 IF i<>121 THEN 2600:ELSE 3000 2600 REM Re-initialize before starting again 2630 GOSUB 11000 2640 WINDOW 0,0 TO 80,24 2650 HOME:TEXT:GOTO 80 3000 REM How many labels to print 3010 PRINT CHR$(15):REM Return kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`)``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @```=+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN GPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTAT1/menu.maker"930J:=2:"Position print head at top of label and press RETURN":answer$TEST=17#2LINEUP$ #2" "::=2:"Want another lineup test? (Y/N): ";:ANSWER$:'ANSWER$="Y"ANSWER$="y"1000:ۿ:-LABEL.WIDTend of labelb=f#2" ": One more to pass over space between labels :=3:=1B31);"Would you like to print another disk catalog? (Y/N):";CHOICE$:CHOICE$%CHOICE$="Y"CHOICE$="y":3106CHOICE$="N"CHOICE$="n":::".d60MHORZ.CNTLR#2;13);10);TVERT.CNTL U#2" "VNUM.LABELS=NUM.LABELS-1(XNUM.LABELS=0860:P.NUM.DOWN=7:8200\VERT.CNTL=P.NUM.DOWN#2;13);10);:870&^BLANK.LINES=VERT.CNTLP.NUM.DOWN7`#2" ": Print blank lines down to ----------------------------------------------"*LAST.ENTRY=I-2 ,NUM.LABELS=(LAST.ENTRY-4)/15/CAT.ENTRY=44VERT.CNTL=1P.NUM.DOWN9HORZ.CNTL=1NUM.ACROSS#>#2A$(CAT.ENTRY),16,15);2);CCAT.ENTRY=CAT.ENTRY+1HCAT.ENTRY=LAST.ENTRY85#2;27);"B";: Sets line spacing to 8 LPII =4:=1;31);"Do you want to test your label lineup?(Y/N): ";ANSWER$:ANSWER$$ANSWER$="Y"ANSWER$="y"10008 #2"DISK: ";DISK.NAME$;5);"VOLUME: ";A$(1),2,16)C#2"------------HOICE$="P":=2:=1 31);P"Enter the driver name of your printer (RETURN for.PRINTER):";PRINTER.NAME$1PRINTER.NAME$)=0PRINTER.NAME$=".PRINTER" œ2000#2,PRINTER.NAME$?#2;27);"Q";: Sets ultra-condensed (17 CPI) print AST.ENTRY660HORZ.CNTL913);10);: Print carriage control and line feedVERT.CNTL9NUM.LABELS=NUM.LABELS-1: Decrement label counter.NUM.LABELS=0660:S.NUM.DOWN=7:C$::620 =8:=1!A$(CAT.ENTRY+1),2,57);:C$CCAT.ENTRY=4: Set first pointer in table A$;lVERT.CNTL=1S.NUM.DOWN: Set vertical spacing control>qHORZ.CNTL=1NUM.ACROSS: Set horizontal spacing control !vA$(CAT.ENTRY),16,15);2);{CAT.ENTRY=CAT.ENTRY+1CAT.ENTRY=L Loop back to read next catalog entry#1D:CHOICE$="S"4N"DISK: ";DISK.NAME$;5);"VOLUME: ";A$(1),16)X9bLAST.ENTRY=I-2: Calculate last table entry number>dNUM.LABELS=(LAST.ENTRY-4)/15: Calculate number of labelsAgat disk drive will you use? (.D1, etc.):";DRIVE$ œ2000#1,DRIVE$ ž#15303I=0: Clear the index for table A$7I=I+1: Increment the index for table A$8#1;A$(I): Read the disk's catalog into table A$7500:30h=4.r"Please enter the disk name: ";DISK.NAME$ |=8:=1931);"What is your choice? creen or

rinter:";CHOICE$:CHOICE$%CHOICE$="S"CHOICE$="s":580%CHOICE$="P"CHOICE$="p":700380 =3:=1 31);8"WhYLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC H=59+2: ::: 59 characters wide3LABEL.HEIGHT=8::: ::: 8 print lines per label$=(24-LABEL.HEIGHT)/2.=(80-LABEL.WIDTH)/28I=1LABEL.WIDTH+2 B32);LIV`I=1LABEL.HEIGHTj=(80-LABEL.WIDTH)/2 t32);~LABEL.WIDTH); 32)I=(80-LABEL.WIDTH)/2I=1LABEL.WIDTH+2 32);IW(84-LABEL.WIDTH)/2+1,(24-LABEL.HEIGHT)/2+1(80+LABEL.WIDTH)/2,(24+label.height)/2 :::Y=29"You entered an invalid pathname - please retry." print: 15): Return to text mode without chaninging WINDOW ' =5:"How many labels to print?";i$ i=i$):i<13020" qty=i: assign variable to QTY+ What output device to send labels to?2X ::"Send output to what device? ";:driver$ 26 columns in and 9 rows up from bottom$ #1;"Is this format OK (Y/N)? " i$1 i=i$):i=89i=121: convert cases to match i<>1212600:3000)( Re-initialize before starting again F 11000P 0,080,24 Z ::80 How many labels to of labelxfroption(%1)&` grafixon: turn on grafix displayAt format=1form$="X,39a":ۻformat=2form$="39c":form$="39R" i=15 #1form$;line$(i) i xfroption(%0) Get OK before continuing initgrafix? moveto(%182,%72): Assign new response to variable. Drawing label,viewport(%left%,%right%,%bottom%,%top%)$pencolor(%black): Use black to:fillport: erase any previous text in the label area.Hpencolor(%white)6fmoveto(%left%,%top%-2): upper left edge=-1:"";i$: repostion and get input7i$<>""format=i$):format=format$): convert=format<1format>3400: Start over if invalid responseNi$=""=-1:=13:format$: reprint last response if RETURN was pressed.:i$<>""format$=i$:=-1:=9:line$(i): reprint last^i< menu to choose standard, centered or right flush label3::"How would you like the labels printed?":"1. left flush""2. centered""3. right flush":"Your choice:";format$/=13:4, Getting input for each of the 5 printed lines1 6i=15$@"Line #";i;":";: put up prompt>Dline$(i);:=9: print previous response & position cursorF"";i$: get input:Ji$<>""line$(i)=i$: Assign new response to variable.Ti$="" to black,shrink,and fill4::centered$;"The Label Maker by Bob Wiker";/centered$;"----------------------------"D"This program allows for five printed lines on a six-line label@10,780,24: protect top 7 lines of text and move in a bitillport: clear screen to blackZfillcolor(%white),dviewport(%left%,%right%,%bottom%,%top%)=nfillport: set color to white, shrink viewport, and fill x10000,}viewport(%left%,%right%,%bottom%,%top%) fillcolor(%black):fillport% change initialize some of the defaultswhite=15:black=0:qty=13i=0:i$="": general counter and input variablescentered$="80c",(format$="2": default format is centered2#1,".grafix")Fgrafixmode(%2,%1): mode 2, buffer 18Pfillcolor(%black):f7 Contributed by Bob Wiker on 12/19/1985 15:04:46::4 ===>> Program: Label Maker <<===::".d1/bgraf.inv" initialize variablesB driver$=".Printer": change if this doesn't match your driver! line$(5),11000:::Choice$="S"430:ۺ700G=31"I can NOT find that pathname."::Choice$="S"430:ۺ700E=32"I can NOT find that volume."::Choice$="S"430:ۺ700E=37"I can NOT find that device."::Choice$="S"430:ۺ700i%"Error #";;" ;b =-(driver$)) l "";i$9p i$<>""driver$=i$: Assign new response to variable.r i$=""=-1:=29:driver$: reprint last/ Press RETURN when ready to start printing8 ::"Press RETURN when ready to begin printing.";i$ Printing the : ****************************************************& *** Make Menu Program ***  ; ****************************************************  dummy lineJ Lines 18 - 130 are input data for the menu to be created. Onj%#x%;"10 dte$="+34)+dte$+34)0#x%;"15 print chr$(6):rem turn cursor off"#x%;"20 pointer%= 8"i=1number%>$#x%;30+2*i)+" menu$("+i)+") = "+34)+menu$(i)+34)A)#x%;30+2*i+1)+" b%("+i)+") = "+(80-menu$(i)))/2)s are closed, lines 10-5000 are deleted< (line7) and the menu text file is execed (line 50010).I Delete the extraneous lines 1 - 9 and 50000 - 50010 and the menu  program is ready to run.file.name$,#2,file.name$:j=1100:e at the menu in lines 150 -170.I Printing the text file to the console allows you to review it z before writing to a disk file. After writing the text file to a disk, 995 REM the program is exited via line 167.D At this point the fileturned to line 530.,no$)<49no$)>48+number%=17:530 &i=no$)0=i:=15:"";menu$(i):500X1502REMLines1000-1470themenuafile,eitherthez console or to a text file 'file.name$', depending upon the choice 992 REM mad15);menu$(i)i=17:"Enter item number to correct or '0' to accept: ";no$no$="0"600I Line 540 will accept only a '1', '2', ... (to the number of menu G entries). All other character inputs are rejected and control is  re:410,i=no$):=i:=16:"";title$(i):=5:410,"The number of menu entries = ";number%,"Is the number of entries correct? ";y$;y$<>"Y"y$<>"y""Enter the correct number:";number%420i=1number%""Menu item ";i;$(i)|i=5:"Enter line number to correct or '0' to accept: ";no$no$="0"420 Line 417 will accept ONLY a '1' or '2'. All other character inputs 417 REM are rejected and control is returned to line 410.#no$)<49no$)>50=5)<49x$)>52150 x%=x$)x%1020,1000,300,4000& Edit Routine: Lines 300 - 600,"6"The current date is - ";dte$@J"Is entry correct? ";y$(Ty$<>"Y"y$<>"y"=1:=23:"";dte$^ hi=12$r"Title line ";i;" - ";titler '2' to print to disk: ")"Enter '3' to review/edit entries: """Enter '4' to exit program: "=20@"NOTE: You MUST write the menu program to disk (#2) before"D" exiting if you want to generate the BASIC menu program."x$x$ menu: ";file.name$(: Line 140 opens the console driver#1,".console"z: Lines150-180presentmenuoptions TO PRINT createdfile TO theconsole OR TO adiskfile,editfile OR exitprogram. /:=10::"Enter '1' to print to console: "#"Entes for menu header:" 2i=12!<"Line ";i;:=8:"";title$(i)Fi9P:"Enter number of menu items - max of 10: ";number%(Z:"Enter title of each menu item: "di=1number% n"Item ";i;:=8:"";menu$(i)xi6:"Enter path name for createde or K two lines of text for the menu header, the creation date, up to 10 H lines for menu items and the file name for the menu to be created.#10);"Menu Generator Program"":"Enter current date: ";dte$/(:"Enter up to two line).i8#x%;"100 home:vpos=3" Bi=12Ga%=(80-title$(i)))/2)DL#x%;100+10*i)+" print tab("+a%)+");"+34)+title$(i)+34) V#x%;100+10*i+5)+" print"`i9b#x%;"130 c$="+34)+"Latest Update: "+34)+"+dte$"1d#x%;"140 prinu want to EXEC and RUN your file? - (Y/N) ";y$y$="Y"y$="y"5000:ۀ;Pú7: branch to top of program to delete lines 10-5000 MZfile.name$:: EXEC command from deferred mode must befollowed by an ENDmust befollowed by an ENDcursor on"U#x%;"run 10": this command will run menu program after EXECcommand is complete.-"Press RETURN to display options: ";:y$ :150::=10:" Do you want to save your file? - (Y/N) ";y$y$="Y"y$="y"150;" Do yo1number%4x#x%;1000*i)+" rem item "+i)+" on the menu"iv#x%;"15000 home:vpos=10:hpos=15:print"+34)+"You selected item"+34)+";pointer%-7;"+34)+" ON themenu"+34)#x%;"15010 vpos=22"7#x%;"15020 print chr$(5):end:rem turn 1 #x%;"360 if choice$=chr$(13) then goto 380"R#x%;"370 vpos=last.point%:hpos=b%(last.point%-7):PRINT menu$(last.point%-7)"(#x%;"375 goto 300"%2a$="380 on pointer%-7 goto 1000"<i=2number%Fa$=a$+","+1000*i)Pi Z#x%;a$ni=310 get choice$"<#x%;"320 if choice$=chr$(10) then pointer%=pointer%+1"=#x%;"330 if pointer%>"+7+number%)+" then pointer%= 8"<#x%;"340 if choice$=chr$(11) then pointer%=pointer%-1":#x%;"350 if pointer%< 8 then pointer%="+7+number%);"190 vpos=pointer%"&#x%;"200 for i=1 to "+number%))#x%;"210 print tab(b%(i));menu$(i)"#x%;"220 next i"X#x%;"300 vpos=pointer%:hpos=b%(pointer%-7):inverse:PRINT menu$(pointer%-7);:NORMAL$#x%;"305 last.point%=pointer%"#x%;"e 'up' and 'down' arrow keys TO changeselection.|"+34)[#x%;"186 hpos=12:print"+34)+"| Press RETURN or ENTER TO selectchoice|"+34)e#x%;"188 hpos=12:print"+34)+"|_______________________________________________________|"+34)#x%t tab(INT((80-LEN(c$))/2));c$"kj#x%;"180 vpos=20:hpos=13:print"+34)+"_______________________________________________________"+34)Mt#x%;"182 hpos=12:print"+34)+"| |"+34)b~#x%;"184 hpos=12:print"+34)+"| Us=420:bottom%=94:top%=140:margin%=2: 40 columns.lumns.labels9999: User wants to quit"'release:::".d1/menu.maker"<' subroutine to change left,right,bottom and top margins'left%=left%+margin%$'right%=right%-margin%.'bottom%=bottom%+margin%8'top%=top%-margin%B'*C\+left%=140:right% 7 lines of text and move in a bit | =+3"1. Print new labels" "2. Print more of the same""3. Quit":"Your choice?";i$i=i$):i<1i>34220-i=1:10: User wants to do new labels-i=2400: print more of the same labels#2,driver$2format=1form$="33a":ۻformat=2form$="33c"/form$="33r": provide extra room at edges. i=1qty j=15#2form$;line$(j)j#2i#2 h More label-printing to do?Ar10,780,24: protect top