$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) '/*------------------------------------------------------------------*/ $CODE SEG "MLIB11" '/*------------------------------------------------------------------*/ SUB PRTSCRN(OPT$) PUBLIC OPT$ = UCASE$(OPT$) FCRLF = INSTR(1,OPT$,CHR$(13)+CHR$(10)) FFF = INSTR(1,OPT$,"FF") FOR ROW = 1 TO 25 T$ = "" FOR COL = 1 TO 80 T$ = T$ + CHR$(SCREEN(ROW,COL,0)) NEXT COL LPRINT T$; IF FCRLF > 0 THEN LPRINT CHR$(13);CHR$(10); END IF NEXT ROW IF FFF > 0 THEN LPRINT CHR$(12) END SUB '/*------------------------------------------------------------------*/ ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" ' SETHP "PORT12" ' SHELL "D C:\*.*" ' PRTSCRN "FF" ' SETHP "PORT10" ' SHELL "D C:\*.*" ' PRTSCRN "FF" ' SETHP "LAND16" ' SHELL "D C:\*.*" ' PRTSCRN "FF"