1 'SETLZP.BA v.1  07/31/01 R H Pigford
2 'added CR=CR+LF CR=CR only
5 GOSUB300'modif 07/31/01 M100
10 CLS:PRINTR$+"SET LASERJETIII SETTINGS using HPGL5"+I$
16 PRINT@40,"<"+N1$(X)+"> Def PC-8 12cpi 10pt 60 ln mrgn 96"
20 PRINT@80,"<"+N2$(Y)+"> Compr 16.67 cpi 80 ln mrgn 132"
30 PRINT@120,"<"+N3$(Z)+"> Send a left margin = 10 command"
32 PRINT@160,"<"+N4$(Q)+"> Reset left margin = 0."
33 PRINT@200,"<"+N5$(R)+"> CR=CR+LF"
34 PRINT@220,"<"+N6$(S)+"> CR=CR only"
35 PRINT@240,"<ENTER> SEND SETUP TO PRINTER.":PRINT@280,"<ESC> to BAIL OUT.";
40 A$=INKEY$:IFA$=""THEN40
41 IF VAL(A$)=1THEN X=1:Y=0:GOTO16
42 IF VAL(A$)=2THEN X=0:Y=1:GOTO16
43 IF VAL(A$)=3THEN Z=1:Q=0:GOTO16
44 IF VAL(A$)=4THEN Q=1:Z=0:GOTO16
45 IF VAL(A$)=5THEN R=1:S=0:GOTO16
46 IF VAL(A$)=6THEN R=0:S=1:GOTO16
47 IF A$=CHR$(13)THEN100 'print cmds
48 IF A$=CHR$(27)THEN MENU
49 BEEP:GOTO40
99 'PCL printer commands
100 IF X=1 THEN F$="Default PC-8":LPRINT E$+"E";:LPRINT E$+"&l0O";:LPRINT E$+"(10U";:LPRINT E$+"(s0p12h10v0s0b3T";:LPRINT E$+"&l6D";:LPRINT E$+"&l2E";:LPRINT E$+"&l61F";
110 IF Y=1THEN F$="Compressed":LPRINT E$+"E";:LPRINT E$+"&l0O";:LPRINT E$+"(10U";:LPRINT E$+"(s0p16.67h8.5v0s0b0T";:LPRINT E$+"&l8D";:LPRINT E$+"&l3E";:LPRINT E$+"&l81F";
112 'reset (clr prev), set portrait mode, select symbol set, select font attributes, set vert spacing, set top mgn, set text lth (#lns)
115 IF Z=1 THEN M$="Lft mrn 10":LPRINT E$+"&a10L";
120 IF Q=1 THEN M$="Lft mgn 0":LPRINT E$+"&a0L";
250 IFR=1THENLPRINT CHR$(27)+"&k1G";
270 IFS=1THENLPRINT CHR$(27)+"&k0G";
280 LPRINT E$+"&a0R";'cursor to top row
290 PRINT@280,E$+"K";:BEEP:PRINT@290,R$+" Printer is set "+I$;
295 FOR T=1TO200:NEXT:MENU
299 'set default strings
300 E$=CHR$(27):R$=E$+"p":I$=E$+"q"
310 N1$(1)=R$+"1"+I$
320 N1$(0)="1"
330 N2$(1)=R$+"2"+I$
340 N2$(0)="2"
350 N3$(1)=R$+"3"+I$
360 N3$(0)="3"
370 N4$(1)=R$+"4"+I$
380 N4$(0)="4"
382 N5$(1)=R$+"5"+I$
384 N5$(0)="5"
386 N6$(1)=R$+"6"+I$
388 N6$(0)="6"
400 X=0:Y=1:Z=1:S=1
500 RETURN