$CPU 8086 ' make compatible with XT systems $LIB ALL OFF ' turn off all PowerBASIC libraries $ERROR ALL OFF ' turn off all PowerBASIC error checking $OPTIMIZE SIZE ' optimize for smaller code $COMPILE UNIT ' compile to a UNIT (.PBU) '$COMPILE EXE ' compile to a UNIT (.PBU) DEFINT A-Z ' Required for all numeric functions, forces PB to not ' include floating point in UNIT (makes it smaller) '/*------------------------------------------------------------------*/ DECLARE FUNCTION SPACE(BYVAL X AS STRING, BYVAL N AS INTEGER, BYVAL PAD AS STRING) AS STRING DECLARE FUNCTION CENTER(BYVAL X AS STRING, BYVAL L AS INTEGER, BYVAL PAD AS STRING) AS STRING DECLARE FUNCTION FILESPEC(BYVAL OPT AS STRING, BYVAL FLNAME AS STRING) AS STRING DECLARE FUNCTION PROGNAME() AS STRING DECLARE FUNCTION SUBSTR(BYVAL X AS STRING, BYVAL N AS INTEGER, BYVAL L AS INTEGER, BYVAL PAD AS STRING) AS STRING DECLARE SUB PUTSCREEN(BYVAL X AS STRING) DECLARE FUNCTION GETSCREEN() AS STRING DECLARE FUNCTION MBOX(ROW,COL,ATTR,MSG$(),OPT$,BTYPE) AS STRING '/*------------------------------------------------------------------*/ $CODE SEG "MLIB9" '/*------------------------------------------------------------------*/ SUB PL2C(FSPEC$,UD$,OPT,MPOINT&) PUBLIC REDIM MSG$(10) HPATH$ = FILESPEC("H",PROGNAME) F$ = FSPEC$ IF UD$ = "" THEN UD$ = STRING$(172," ") ELSE UD$ = SPACE(UD$,1," ") UD$ = CENTER(UD$,172," ") END IF '/*--- GET LASER CODES FRAMES --- IF OPT = 1 THEN T$ = "" '/*--- 2 COL FRAMED LJ INSTRUCTIONS - 715 ELEMENTS -------------------- T$=T$+CHR$( 27, 69, 27, 38, 108, 48, 83, 27, 38, 108, 49, 79, 27, 40, 49, 48) T$=T$+CHR$( 85, 27, 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53, 118, 115, 98) T$=T$+CHR$( 84, 27, 38, 107, 55, 46, 50, 72, 27, 38, 108, 53, 46, 50, 99, 76) T$=T$+CHR$( 27, 38, 108, 69, 27, 38, 97, 76, 27, 38, 97, 49, 53, 53, 104, 53) T$=T$+CHR$( 52, 48, 86, 27, 42, 99, 55, 51, 50, 53, 104, 49, 118, 80, 27, 38) T$=T$+CHR$( 97, 49, 53, 53, 104, 53, 55, 52, 48, 86, 27, 42, 99, 55, 51, 50, 53) T$=T$+CHR$( 104, 49, 118, 80, 27, 38, 97, 49, 53, 53, 104, 53, 52, 48, 86, 27) T$=T$+CHR$( 42, 99, 49, 104, 53, 50, 48, 48, 118, 80, 27, 38, 97, 51, 56, 51) T$=T$+CHR$( 48, 104, 53, 52, 48, 86, 27, 42, 99, 49, 104, 53, 50, 48, 48, 118) T$=T$+CHR$( 80, 27, 38, 97, 55, 52, 56, 48, 104, 53, 52, 48, 86, 27, 42, 99, 49) T$=T$+CHR$( 104, 53, 50, 48, 48, 118, 80, 27, 40, 49, 48, 85, 27, 40, 115, 112) T$=T$+CHR$( 49, 54, 46, 54, 104, 56, 46, 53, 118, 115, 98, 84, 27, 38, 107, 55) T$=T$+CHR$( 46, 50, 48, 50, 57, 72, 27, 38, 108, 53, 46, 50, 99, 76, 27, 38, 97) T$=T$+CHR$( 49, 53, 53, 104, 53, 52, 48, 86, 13, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 74, 117, 110, 32, 50, 54, 44, 32, 49, 57, 57, 56, 32, 80, 97, 103) T$=T$+CHR$( 101, 32, 49, 32, 111, 102, 32, 49, 52, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 13, 27, 38) T$=T$+CHR$( 97, 43, 53, 104, 45, 51, 86, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 74, 117) T$=T$+CHR$( 110, 32, 50, 54, 44, 32, 49, 57, 57, 56, 32, 80, 97, 103, 101, 32) T$=T$+CHR$( 49, 32, 111, 102, 32, 49, 52, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 27, 38, 97, 45, 53) T$=T$+CHR$( 104, 43, 51, 86, 27, 38, 108, 55, 69, 27, 38, 97, 54, 108, 104, 86) T$=T$+CHR$( 13, 27, 38, 108, 53, 46, 50, 48, 48, 67, 10, 27, 40, 49, 48, 85, 27) T$=T$+CHR$( 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53, 118, 115, 98, 84, 27) T$=T$+CHR$( 38, 107, 55, 46, 50, 72, 27, 38, 108, 48, 53, 46, 50, 48, 48, 67) T$=T$+CHR$( 179, 27, 38, 107, 55, 46, 50, 48, 50, 57, 72, 27, 38, 97, 57, 49) T$=T$+CHR$( 108, 104, 86, 13, 27, 38, 108, 53, 46, 50, 48, 48, 67, 10, 27, 40) T$=T$+CHR$( 49, 48, 85, 27, 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53, 118) T$=T$+CHR$( 115, 98, 84, 27, 38, 107, 55, 46, 50, 72, 27, 38, 108, 48, 53, 46) T$=T$+CHR$( 50, 48, 48, 67, 179) C1$ = T$ MID$(C1$,221,172) = UD$ MID$(C1$,404,172) = UD$ ELSE '/*--- 2 COL NO FRAMES LJ INSTRUCTIONS - 602 ELEMENTS ----------------- T$ = "" T$=T$+CHR$( 27, 69, 27, 38, 108, 48, 83, 27, 38, 108, 49, 79, 27, 40, 49, 48) T$=T$+CHR$( 85, 27, 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53, 118, 115, 98) T$=T$+CHR$( 84, 27, 38, 107, 55, 46, 50, 72, 27, 38, 108, 53, 46, 50, 99, 76) T$=T$+CHR$( 27, 38, 108, 69, 27, 38, 97, 76, 27, 40, 49, 48, 85, 27, 40, 115) T$=T$+CHR$( 112, 49, 54, 46, 54, 104, 56, 46, 53, 118, 115, 98, 84, 27, 38, 107) T$=T$+CHR$( 55, 46, 50, 48, 50, 57, 72, 27, 38, 108, 53, 46, 50, 99, 76, 27, 38) T$=T$+CHR$( 97, 49, 53, 53, 104, 53, 52, 48, 86, 13, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 74, 117, 110, 32, 50, 54, 44, 32, 49, 57, 57, 56, 32, 80, 97) T$=T$+CHR$( 103, 101, 32, 49, 32, 111, 102, 32, 49, 52, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 13, 27) T$=T$+CHR$( 38, 97, 43, 53, 104, 45, 51, 86, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 74) T$=T$+CHR$( 117, 110, 32, 50, 54, 44, 32, 49, 57, 57, 56, 32, 80, 97, 103, 101) T$=T$+CHR$( 32, 49, 32, 111, 102, 32, 49, 52, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32) T$=T$+CHR$( 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 27, 38, 97, 45) T$=T$+CHR$( 53, 104, 43, 51, 86, 27, 38, 108, 55, 69, 27, 38, 97, 54, 108, 104) T$=T$+CHR$( 86, 13, 27, 38, 108, 53, 46, 50, 48, 48, 67, 10, 27, 40, 49, 48, 85) T$=T$+CHR$( 27, 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53, 118, 115, 98, 84) T$=T$+CHR$( 27, 38, 107, 55, 46, 50, 72, 27, 38, 108, 48, 53, 46, 50, 48, 48) T$=T$+CHR$( 67, 179, 27, 38, 107, 55, 46, 50, 48, 50, 57, 72, 27, 38, 97, 57) T$=T$+CHR$( 49, 108, 104, 86, 13, 27, 38, 108, 53, 46, 50, 48, 48, 67, 10, 27) T$=T$+CHR$( 40, 49, 48, 85, 27, 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53) T$=T$+CHR$( 118, 115, 98, 84, 27, 38, 107, 55, 46, 50, 72, 27, 38, 108, 48, 53) T$=T$+CHR$( 46, 50, 48, 48, 67, 179, 46, 50, 48, 48, 67, 10, 27, 40, 49, 48, 85) T$=T$+CHR$( 27, 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53, 118, 115, 98, 84) T$=T$+CHR$( 27, 38, 107, 55, 46, 50, 72, 27, 38, 108, 48, 53, 46, 50, 48, 48) T$=T$+CHR$( 67, 179, 27, 38, 107, 55, 46, 50, 48, 50, 57, 72, 27, 38, 97, 57) T$=T$+CHR$( 49, 108, 104, 86, 13, 27, 38, 108, 53, 46, 50, 48, 48, 67, 10, 27) T$=T$+CHR$( 40, 49, 48, 85, 27, 40, 115, 112, 49, 54, 46, 54, 104, 56, 46, 53) T$=T$+CHR$( 118, 115, 98, 84, 27, 38, 107, 55, 46, 50, 72, 27, 38, 108, 48, 53) T$=T$+CHR$( 46, 50, 48, 48, 67, 179) C1$ = T$ MID$(C1$,108,172) = UD$ MID$(C1$,291,172) = UD$ END IF '/*--- Header --- SP1 = 1 EP1 = INSTR(SP1+1,C1$,"³") SL1 = EP1-SP1 '/*--- Col2 --- SP2 = EP1+1 EP2 = INSTR(SP2,C1$,"³") SL2 = EP2-SP2 '/* --- CREATE PRINT FILE --- FBN = FREEFILE OPEN"I",FBN,F$ FBO = FREEFILE OPEN"O",FBO,HPATH$+"2COL.OUT" CNT = 0 PCNT& = 0 WHILE NOT EOF(FBN) LINE INPUT#FBN,T$ INCR PCNT& T$ = SUBSTR(T$,1,80," ") INCR CNT IF CNT = 1 THEN T$ = MID$(C1$,SP1,SL1) + T$ IF CNT = 67 THEN T$ = MID$(C1$,SP2,SL2) + T$ IF CNT = 132 THEN T$ = T$ + CHR$(12) CNT = 0 END IF PRINT#FBO,T$ IF MPOINT& > 0 AND (MPOINT& = PCNT&) THEN CLOSE#FBO C$ = "COPY "+HPATH$+"2COL.OUT PRN > nul" SHELL C$ TSCREEN$ = GETSCREEN MSG$(1) = "First Pass Completed" MSG$(2) = "When Printer is Finished Printing" MSG$(3) = "Return Paper to Paper Bin" MSG$(4) = "Press ANY key to Print Back Sides" MSG$(5) = "" T$ = MBOX(0,0,79,MSG$(),"",7) PUTSCREEN TSCREEN$ OPEN"O",FBO,HPATH$+"2COL.OUT" END IF WEND PRINT#FBO,"E" CLOSE#FBN CLOSE#FBO C$ = "COPY "+HPATH$+"2COL.OUT PRN > nul" SHELL C$ KILL HPATH$+"2COL.OUT" '/*----------------------------------------------------------------------- EEXITPL2C: END SUB '/*----------------------------------------------------------------------- ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" ' F$ = "" ' POPT = 0 ' MPOINT& = 0 ' CMD$ = UCASE$(COMMAND$) ' F$ = WORD(CMD$,1) ' UD$ = "" ' POPT = VAL(WORD(CMD$,2)) ' MPOINT& = VAL(WORD(CMD$,3)) ' PL2C F$,UD$,POPT,MPOINT&