;:SETLZP.BA v.1 07/31/01 R H Pigford\:added CR=CR+LF CR=CR only{300:modif 07/31/01 M100 :R$"SET LASERJETIII SETTINGS using HPGL5"I$@40,"<"N1$(X)"> Def PC-8 12cpi 10pt 60 ln mrgn 96" @80,"<"N2$(Y)"> Compr 16.67 cpi 80 ln mrgn 132"Y@120,"<"N3$(Z)"> Send a left margin = 10 command" @160,"<"N4$(Q)"> Reset left margin = 0."!@200,"<"N5$(R)"> CR=CR+LF"Ϥ"@220,"<"N6$(S)"> CR=CR only"#@240," SEND SETUP TO PRINTER.":@280," to BAIL OUT.";)(A$:A$""40D) (A$)1 X1:Y0:16_* (A$)2 X0:Y1:16z+ (A$)3 Z1:Q0:16, (A$)4 Q1:Z0:16- (A$)5 R1:S0:16˥. (A$)6 R0:S1:16/ A$(13)100 :print cmds0 A$(27) 1:40$c:PCL printer commandsd X1 F$"Default PC-8": E$"E";: E$"&l0O";: E$"(10U";: E$"(s0p12h10v0s0b3T";: E$"&l6D";: E$"&l2E";: E$"&l61F";+n Y1 F$"Compressed": E$"E";: E$"&l0O";: E$"(10U";: E$"(s0p16.67h8.5v0s0b0T";: E$"&l8D";: E$"&l3E";: E$"&l81F";p:reset (clr prev), set portrait mode, select symbol set, select font attributes, set vert spacing, set top mgn, set text lth (#lns)ߧs Z1 M$"Lft mrn 10": E$"&a10L";x Q1 M$"Lft mgn 0": E$"&a0L"; R1͠ (27)"&k1G";9S1͠ (27)"&k0G";^ E$"&a0R";:cursor to top row"@280,E$"K";::@290,R$" Printer is set "I$;' T1200::+:set default strings,E$(27):R$E$"p":I$E$"q"6N1$(1)R$"1"I$@N1$(0)"1"JN2$(1)R$"2"I$(TN2$(0)"2"=^N3$(1)R$"3"I$LhN3$(0)"3"arN4$(1)R$"4"I$p|N4$(0)"4"~N5$(1)R$"5"I$N5$(0)"5"N6$(1)R$"6"I$N6$(0)"6"̩X0:Y1:Z1:S1ҩ