Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 15.ddi / PRTSETUP.SC_ / PRTSETUP.bin
Unknown | 1994-03-10 | 13.9 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	AMOS Picture Packer `(image/amosPicturePacker)`	ext	Supported
`1%`	dexvert	Debian floppy split `(archive/debianFloppySplit)`	ext	Unsupported
`1%`	dexvert	Sound Images sound sample `(audio/soundImagesSoundSample)`	ext	Unsupported
`1%`	dexvert	STarKos tune `(music/sTarKosTune)`	ext	Unsupported
`1%`	dexvert	CADVANCE drawing `(image/cadvanceDrawing)`	ext	Unsupported
`1%`	dexvert	DESI-III drawing `(image/desiIIIDrawing)`	ext	Unsupported
`1%`	dexvert	MS-DOS PMODE extender executable `(executable/msdosPMODEExtenderExecutable)`	ext	Unsupported
`1%`	dexvert	Alien Trilogytextures `(other/alienTrilogyTextures)`	ext	Unsupported
`1%`	dexvert	APT cache data `(other/aptCacheData)`	ext	Unsupported
`1%`	dexvert	CADVANCE 2D symbol `(other/cadvance2DSymbol)`	ext	Unsupported
`1%`	dexvert	Cakewalk Groove `(other/cakewalkGroove)`	ext	Unsupported
`1%`	dexvert	Comic Book Creator Background `(other/comicBookCreatorBackground)`	ext	Unsupported
`1%`	dexvert	Comic Book Creator shape Table `(other/comicBookCreatorShapeTable)`	ext	Unsupported
`1%`	dexvert	CorelTRACE configuration `(other/corelTRACEConfiguration)`	ext	Unsupported
`1%`	dexvert	Dreamcast Disc `(other/dreamcastDisc)`	ext	Unsupported
`1%`	dexvert	EST flat binary `(other/estFlatBinary)`	ext	Unsupported
`1%`	dexvert	Finale Enigma Binary Format `(other/finaleEnigmaBinaryFormat)`	ext	Unsupported
`1%`	dexvert	Sega Genesis/Megadrive/32x ROM `(other/genesisROM)`	ext	Unsupported
`1%`	dexvert	Myth: The Fallen Lords game archive `(other/mythTheFallenLordsGameArchive)`	ext	Unsupported
`1%`	dexvert	Sega Saturn ROM `(other/segaSaturnROM)`	ext	Unsupported
`1%`	dexvert	Sound Images Sound Driver `(other/soundImagesSoundDriver)`	ext	Unsupported
`1%`	dexvert	Symantec/Norton Config `(other/symantecNortonConfig)`	ext	Unsupported
`1%`	dexvert	Vectrex ROM `(other/vectrexROM)`	ext	Unsupported
`1%`	dexvert	Adrenaline Rush Hour game data `(other/adrenalineRushHourGameData)`	ext	Unsupported
`1%`	dexvert	Bandai Tamagochi game data `(other/bandaiTamagochiGameData)`	ext	Unsupported
`1%`	dexvert	BIS raP encoded format `(other/bisraPEncoded)`	ext	Unsupported
`1%`	dexvert	Linksys RT31P2-NA firmware `(other/linksysRT31P2NAFirmware)`	ext	Unsupported
`1%`	dexvert	Pascal Script binary `(other/pascalScriptBinary)`	ext	Unsupported
`1%`	dexvert	7th Level game data archive `(other/seventhLevelGameDataArchive)`	ext	Unsupported
`1%`	dexvert	Star Wars Galaxies TRE archive `(other/starWarsGalaxiesTREArchive)`	ext	Unsupported
`1%`	dexvert	Statistica MFM data `(other/statisticaMFMData)`	ext	Unsupported
`1%`	dexvert	Surf's Up game data archive `(other/surfsUpGameDataArchive)`	ext	Unsupported
`1%`	dexvert	TP-Link router firmware `(other/tpLinkRouterFirmware)`	ext	Unsupported
`1%`	dexvert	Binary Text `(image/binaryText)`	fallback	Supported
`100%`	file	MPEG sequence, v4	default (weak)
`99%`	file	Adobe Photoshop Color swatch, version 0, 432 colors; 1st RGB space (0), w 0x21, x 0, y 0, z 0 ; 2nd RGB space (0), w 0, x 0, y 0, z 0	default (weak)
`98%`	file	data	default
`100%`	TrID	MacBinary 1	default (weak)
`100%`	siegfried	x-fmt/342 Microsoft FoxPro Memo	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 01 b0 00 00 00 21 | 00 00 00 00 00 00 00 00 |.......!|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 01 00 00 00 16 | 22 50 72 69 6e 74 69 6e |........|"Printin|
|00000220| 67 20 44 65 73 74 69 6e | 61 74 69 6f 6e 22 00 00 |g Destin|ation"..|
|00000230| 00 00 00 00 01 00 00 00 | 17 3f 3f 20 43 48 52 28 |........|.?? CHR(|
|00000240| 37 29 0d 0a 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |7)..RETU|RN .F...|
|00000250| 00 00 00 00 00 01 00 00 | 00 e1 49 46 20 55 50 50 |........|..IF UPP|
|00000260| 45 52 28 70 64 65 73 74 | 29 20 3d 20 27 46 49 4c |ER(pdest|) = 'FIL|
|00000270| 45 27 0d 0a 20 20 20 53 | 48 4f 57 20 47 45 54 20 |E'..   S|HOW GET |
|00000280| 70 66 69 6c 6e 61 6d 65 | 20 45 4e 41 42 4c 45 0d |pfilname| ENABLE.|
|00000290| 0a 20 20 20 49 46 20 45 | 4d 50 54 59 28 70 66 69 |.   IF E|MPTY(pfi|
|000002a0| 6c 6e 61 6d 65 29 0d 0a | 20 20 20 20 20 20 53 48 |lname)..|      SH|
|000002b0| 4f 57 20 47 45 54 20 6f | 6b 62 75 74 20 44 49 53 |OW GET o|kbut DIS|
|000002c0| 41 42 4c 45 0d 0a 20 20 | 20 45 4c 53 45 0d 0a 20 |ABLE..  | ELSE.. |
|000002d0| 20 20 20 20 20 53 48 4f | 57 20 47 45 54 20 6f 6b |     SHO|W GET ok|
|000002e0| 62 75 74 20 45 4e 41 42 | 4c 45 0d 0a 20 20 20 45 |but ENAB|LE..   E|
|000002f0| 4e 44 49 46 0d 0a 45 4c | 53 45 0d 0a 20 20 20 53 |NDIF..EL|SE..   S|
|00000300| 48 4f 57 20 47 45 54 20 | 70 66 69 6c 6e 61 6d 65 |HOW GET |pfilname|
|00000310| 20 44 49 53 41 42 4c 45 | 0d 0a 20 20 20 53 48 4f | DISABLE|..   SHO|
|00000320| 57 20 47 45 54 20 6f 6b | 62 75 74 20 45 4e 41 42 |W GET ok|but ENAB|
|00000330| 4c 45 0d 0a 45 4e 44 49 | 46 0d 0a 00 00 00 00 00 |LE..ENDI|F.......|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000360| 01 d3 23 54 52 41 4e 20 | 53 4e 49 50 50 45 54 20 |..#TRAN |SNIPPET |
|00000370| 4f 4e 4c 59 0d 0a 23 52 | 45 41 44 43 4c 41 55 53 |ONLY..#R|EADCLAUS|
|00000380| 45 53 20 4d 4f 44 41 4c | 0d 0a 0d 0a 73 6b 69 70 |ES MODAL|....skip|
|00000390| 76 61 72 20 3d 20 2e 54 | 2e 0d 0a 70 66 69 6c 6e |var = .T|...pfiln|
|000003a0| 61 6d 65 20 3d 20 53 50 | 41 43 45 28 36 37 29 0d |ame = SP|ACE(67).|
|000003b0| 0a 0d 0a 70 64 65 73 74 | 20 3d 20 53 45 54 28 27 |...pdest| = SET('|
|000003c0| 50 52 49 4e 54 45 52 27 | 2c 31 29 0d 0a 49 46 20 |PRINTER'|,1)..IF |
|000003d0| 22 3a 22 20 24 20 70 64 | 65 73 74 0d 0a 20 20 20 |":" $ pd|est..   |
|000003e0| 70 64 65 73 74 20 3d 20 | 4c 45 46 54 28 70 64 65 |pdest = |LEFT(pde|
|000003f0| 73 74 2c 41 54 28 27 3a | 27 2c 70 64 65 73 74 29 |st,AT(':|',pdest)|
|00000400| 2d 31 29 0d 0a 45 4e 44 | 49 46 0d 0a 49 46 20 21 |-1)..END|IF..IF !|
|00000410| 49 4e 4c 49 53 54 28 70 | 64 65 73 74 2c 27 50 52 |INLIST(p|dest,'PR|
|00000420| 4e 27 2c 27 4c 50 54 31 | 27 2c 27 4c 50 54 32 27 |N','LPT1|','LPT2'|
|00000430| 2c 27 4c 50 54 33 27 2c | 27 43 4f 4d 31 27 2c 27 |,'LPT3',|'COM1','|
|00000440| 43 4f 4d 32 27 2c 27 43 | 4f 4d 33 27 29 0d 0a 20 |COM2','C|OM3').. |
|00000450| 20 20 70 66 69 6c 6e 61 | 6d 65 20 3d 20 50 41 44 |  pfilna|me = PAD|
|00000460| 52 28 70 64 65 73 74 2c | 36 37 29 0d 0a 20 20 20 |R(pdest,|67)..   |
|00000470| 70 64 65 73 74 20 3d 20 | 27 46 69 6c 65 27 0d 0a |pdest = |'File'..|
|00000480| 45 4e 44 49 46 0d 0a 6f | 72 69 67 64 65 73 74 20 |ENDIF..o|rigdest |
|00000490| 3d 20 70 64 65 73 74 0d | 0a 70 72 74 5f 69 6e 66 |= pdest.|.prt_inf|
|000004a0| 69 6c 65 20 3d 70 66 69 | 6c 6e 61 6d 65 0d 0a 0d |ile =pfi|lname...|
|000004b0| 0a 49 46 20 53 45 54 28 | 27 50 52 49 4e 54 27 29 |.IF SET(|'PRINT')|
|000004c0| 20 3d 20 27 4f 4e 27 0d | 0a 20 20 20 70 72 74 73 | = 'ON'.|.   prts|
|000004d0| 74 61 74 20 3d 20 31 0d | 0a 45 4c 53 45 0d 0a 20 |tat = 1.|.ELSE.. |
|000004e0| 20 20 70 72 74 73 74 61 | 74 20 3d 20 32 0d 0a 45 |  prtsta|t = 2..E|
|000004f0| 4e 44 49 46 0d 0a 6f 72 | 69 67 70 72 74 73 74 61 |NDIF..or|igprtsta|
|00000500| 74 20 3d 20 70 72 74 73 | 74 61 74 0d 0a 0d 0a 70 |t = prts|tat....p|
|00000510| 64 72 69 76 73 74 75 70 | 20 3d 20 49 49 46 28 4c |drivstup| = IIF(L|
|00000520| 45 4e 28 5f 50 44 52 49 | 56 45 52 29 3d 30 2c 30 |EN(_PDRI|VER)=0,0|
|00000530| 2c 31 29 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |,1).....|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 02 |........|........|
|00000550| 2e 44 4f 20 43 41 53 45 | 0d 0a 43 41 53 45 20 6f |.DO CASE|..CASE o|
|00000560| 6b 62 75 74 20 3d 20 31 | 0d 0a 20 20 20 53 45 54 |kbut = 1|..   SET|
|00000570| 20 50 52 49 4e 54 45 52 | 20 54 4f 0d 0a 0d 0a 20 | PRINTER| TO.... |
|00000580| 20 20 49 46 20 70 72 74 | 73 74 61 74 20 3d 20 31 |  IF prt|stat = 1|
|00000590| 0d 0a 20 20 20 20 20 20 | 53 45 54 20 50 52 49 4e |..      |SET PRIN|
|000005a0| 54 20 4f 4e 0d 0a 20 20 | 20 45 4c 53 45 0d 0a 20 |T ON..  | ELSE.. |
|000005b0| 20 20 20 20 20 53 45 54 | 20 50 52 49 4e 54 20 4f |     SET| PRINT O|
|000005c0| 46 46 0d 0a 20 20 20 45 | 4e 44 49 46 0d 0a 0d 0a |FF..   E|NDIF....|
|000005d0| 20 20 20 70 64 65 73 74 | 20 3d 20 41 4c 4c 54 52 |   pdest| = ALLTR|
|000005e0| 49 4d 28 55 50 50 45 52 | 28 70 64 65 73 74 29 29 |IM(UPPER|(pdest))|
|000005f0| 0d 0a 20 20 20 44 4f 20 | 43 41 53 45 0d 0a 20 20 |..   DO |CASE..  |
|00000600| 20 43 41 53 45 20 70 64 | 65 73 74 20 3d 20 27 46 | CASE pd|est = 'F|
|00000610| 49 4c 45 27 0d 0a 20 20 | 20 20 20 20 49 46 20 21 |ILE'..  |    IF !|
|00000620| 45 4d 50 54 59 28 70 66 | 69 6c 6e 61 6d 65 29 0d |EMPTY(pf|ilname).|
|00000630| 0a 20 20 20 20 20 20 20 | 20 20 53 45 54 20 50 52 |.       |  SET PR|
|00000640| 49 4e 54 45 52 20 54 4f | 20 28 70 66 69 6c 6e 61 |INTER TO| (pfilna|
|00000650| 6d 65 29 0d 0a 20 20 20 | 20 20 20 45 4c 53 45 0d |me)..   |   ELSE.|
|00000660| 0a 20 20 20 20 20 20 20 | 20 20 53 45 54 20 50 52 |.       |  SET PR|
|00000670| 49 4e 54 45 52 20 54 4f | 0d 0a 20 20 20 20 20 20 |INTER TO|..      |
|00000680| 45 4e 44 49 46 0d 0a 20 | 20 20 4f 54 48 45 52 57 |ENDIF.. |  OTHERW|
|00000690| 49 53 45 0d 0a 20 20 20 | 20 20 20 70 66 69 6c 6e |ISE..   |   pfiln|
|000006a0| 61 6d 65 20 3d 20 27 27 | 0d 0a 20 20 20 20 20 20 |ame = ''|..      |
|000006b0| 53 45 54 20 50 52 49 4e | 54 45 52 20 54 4f 20 26 |SET PRIN|TER TO &|
|000006c0| 70 64 65 73 74 0d 0a 20 | 20 20 45 4e 44 43 41 53 |pdest.. |  ENDCAS|
|000006d0| 45 0d 0a 43 41 53 45 20 | 63 61 6e 63 62 75 74 20 |E..CASE |cancbut |
|000006e0| 3d 20 31 0d 0a 20 20 20 | 49 46 20 6f 72 69 67 70 |= 1..   |IF origp|
|000006f0| 72 74 73 74 61 74 20 3d | 20 31 0d 0a 20 20 20 20 |rtstat =| 1..    |
|00000700| 20 20 53 45 54 20 50 52 | 49 4e 54 20 4f 4e 0d 0a |  SET PR|INT ON..|
|00000710| 20 20 20 45 4c 53 45 0d | 0a 20 20 20 20 20 20 53 |   ELSE.|.      S|
|00000720| 45 54 20 50 52 49 4e 54 | 20 4f 46 46 0d 0a 20 20 |ET PRINT| OFF..  |
|00000730| 20 45 4e 44 49 46 0d 0a | 20 20 20 70 64 65 73 74 | ENDIF..|   pdest|
|00000740| 20 3d 20 6f 72 69 67 64 | 65 73 74 0d 0a 20 20 20 | = origd|est..   |
|00000750| 70 66 69 6c 6e 61 6d 65 | 20 3d 20 70 72 74 5f 69 |pfilname| = prt_i|
|00000760| 6e 66 69 6c 65 0d 0a 45 | 4e 44 43 41 53 45 0d 0a |nfile..E|NDCASE..|
|00000770| 73 6b 69 70 76 61 72 20 | 3d 20 2e 46 2e 0d 0a 00 |skipvar |= .F....|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000007a0| 00 00 0b 22 50 72 69 6e | 74 20 74 6f 3a 22 00 00 |..."Prin|t to:"..|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000007c0| 00 00 00 10 22 50 72 69 | 6e 74 65 72 20 53 65 74 |...."Pri|nter Set|
|000007d0| 75 70 3a 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |up:"....|........|
|000007e0| 01 00 00 00 05 70 64 65 | 73 74 00 00 00 00 00 00 |.....pde|st......|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 01 00 00 00 2b 22 40 | 5e 20 46 69 6c 65 3b 50 |.....+"@|^ File;P|
|00000810| 52 4e 3b 4c 50 54 31 3b | 4c 50 54 32 3b 4c 50 54 |RN;LPT1;|LPT2;LPT|
|00000820| 33 3b 43 4f 4d 31 3b 43 | 4f 4d 32 3b 43 4f 4d 33 |3;COM1;C|OM2;COM3|
|00000830| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00000840| 00 00 00 01 00 00 00 3c | 49 46 20 55 50 50 45 52 |.......<|IF UPPER|
|00000850| 28 70 64 65 73 74 29 20 | 3d 20 27 46 49 4c 45 27 |(pdest) |= 'FILE'|
|00000860| 0d 0a 20 20 20 5f 43 55 | 52 4f 42 4a 20 3d 20 33 |..   _CU|ROBJ = 3|
|00000870| 0d 0a 45 4e 44 49 46 0d | 0a 53 48 4f 57 20 47 45 |..ENDIF.|.SHOW GE|
|00000880| 54 53 0d 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 |TS......|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 01 00 | 00 00 06 22 4c 50 54 31 |........|..."LPT1|
|000008b0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|000008c0| 00 00 00 00 00 00 00 01 | 00 00 00 05 66 6c 69 73 |........|....flis|
|000008d0| 74 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|000008e0| 00 00 00 00 00 00 00 00 | 01 00 00 00 10 22 40 2a |........|....."@*|
|000008f0| 48 4e 20 5c 3c 46 69 6c | 65 2e 2e 2e 22 00 00 00 |HN \<Fil|e..."...|
|00000900| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 ef 49 46 |........|......IF|
|00000910| 20 66 6c 69 73 74 20 3d | 20 31 0d 0a 20 20 20 6f | flist =| 1..   o|
|00000920| 72 69 67 66 69 6c 65 20 | 3d 20 70 66 69 6c 6e 61 |rigfile |= pfilna|
|00000930| 6d 65 0d 0a 20 20 20 70 | 66 69 6c 6e 61 6d 65 20 |me..   p|filname |
|00000940| 3d 20 47 45 54 46 49 4c | 45 28 27 27 2c 27 50 72 |= GETFIL|E('','Pr|
|00000950| 69 6e 74 20 74 6f 3a 27 | 29 0d 0a 20 20 20 49 46 |int to:'|)..   IF|
|00000960| 20 45 4d 50 54 59 28 70 | 66 69 6c 6e 61 6d 65 29 | EMPTY(p|filname)|
|00000970| 0d 0a 20 20 20 20 20 20 | 70 66 69 6c 6e 61 6d 65 |..      |pfilname|
|00000980| 20 3d 20 6f 72 69 67 66 | 69 6c 65 0d 0a 20 20 20 | = origf|ile..   |
|00000990| 45 4e 44 49 46 0d 0a 45 | 4e 44 49 46 0d 0a 70 66 |ENDIF..E|NDIF..pf|
|000009a0| 69 6c 6e 61 6d 65 20 3d | 20 55 50 50 45 52 28 50 |ilname =| UPPER(P|
|000009b0| 41 44 52 28 70 66 69 6c | 6e 61 6d 65 2c 36 37 29 |ADR(pfil|name,67)|
|000009c0| 29 0d 0a 49 46 20 21 45 | 4d 50 54 59 28 70 66 69 |)..IF !E|MPTY(pfi|
|000009d0| 6c 6e 61 6d 65 29 0d 0a | 20 20 20 70 64 65 73 74 |lname)..|   pdest|
|000009e0| 20 3d 20 27 46 69 6c 65 | 27 0d 0a 45 4e 44 49 46 | = 'File|'..ENDIF|
|000009f0| 0d 0a 53 48 4f 57 20 47 | 45 54 53 0d 0a 00 00 00 |..SHOW G|ETS.....|
|00000a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a10| 00 01 00 00 00 09 22 46 | 69 6c 65 2e 2e 2e 22 00 |......"F|ile...".|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 01 00 00 00 08 70 | 66 69 6c 6e 61 6d 65 00 |.......p|filname.|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 01 00 00 00 07 | 22 40 33 53 36 37 22 00 |........|"@3S67".|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 01 00 00 00 | 66 70 66 69 6c 6e 61 6d |........|fpfilnam|
|00000a80| 65 20 3d 20 50 41 44 52 | 28 55 50 50 45 52 28 4c |e = PADR|(UPPER(L|
|00000a90| 54 52 49 4d 28 70 66 69 | 6c 6e 61 6d 65 29 29 2c |TRIM(pfi|lname)),|
|00000aa0| 36 37 29 0d 0a 49 46 20 | 21 45 4d 50 54 59 28 70 |67)..IF |!EMPTY(p|
|00000ab0| 66 69 6c 6e 61 6d 65 29 | 0d 0a 20 20 20 70 64 65 |filname)|..   pde|
|00000ac0| 73 74 20 3d 20 27 46 69 | 6c 65 27 0d 0a 45 4e 44 |st = 'Fi|le'..END|
|00000ad0| 49 46 0d 0a 53 48 4f 57 | 20 47 45 54 53 0d 0a 00 |IF..SHOW| GETS...|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000af0| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 70 72 74 |........|.....prt|
|00000b00| 73 74 61 74 00 00 00 00 | 00 00 00 00 00 00 00 00 |stat....|........|
|00000b10| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 1a 22 40 |........|......"@|
|00000b20| 2a 52 56 4e 20 50 72 69 | 6e 74 20 4f 6e 3b 50 72 |*RVN Pri|nt On;Pr|
|00000b30| 69 6e 74 20 4f 66 66 22 | 00 00 00 00 00 00 00 00 |int Off"|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0b |........|........|
|00000b60| 22 50 72 69 6e 74 20 4f | 66 66 22 00 00 00 00 00 |"Print O|ff".....|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000b80| 08 5f 4c 4d 41 52 47 49 | 4e 00 00 00 00 00 00 00 |._LMARGI|N.......|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000ba0| 00 08 22 40 33 20 39 39 | 39 22 00 00 00 00 00 00 |.."@3 99|9"......|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000bc0| 00 00 27 5f 4c 4d 41 52 | 47 49 4e 20 3d 20 4d 41 |..'_LMAR|GIN = MA|
|00000bd0| 58 28 30 2c 5f 4c 4d 41 | 52 47 49 4e 29 0d 0a 53 |X(0,_LMA|RGIN)..S|
|00000be0| 48 4f 57 20 47 45 54 53 | 0d 0a 00 00 00 00 00 00 |HOW GETS|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 01 00 00 00 08 5f 52 4d | 41 52 47 49 4e 00 00 00 |....._RM|ARGIN...|
|00000c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c20| 00 01 00 00 00 08 22 40 | 33 20 39 39 39 22 00 00 |......"@|3 999"..|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c40| 00 00 01 00 00 00 29 5f | 52 4d 41 52 47 49 4e 20 |......)_|RMARGIN |
|00000c50| 3d 20 4d 49 4e 28 5f 52 | 4d 41 52 47 49 4e 2c 32 |= MIN(_R|MARGIN,2|
|00000c60| 35 35 29 0d 0a 53 48 4f | 57 20 47 45 54 53 0d 0a |55)..SHO|W GETS..|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 00 00 01 00 00 00 | 05 4f 4b 62 75 74 00 00 |........|.OKbut..|
|00000c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ca0| 00 00 00 00 00 01 00 00 | 00 0b 22 40 2a 48 54 20 |........|.."@*HT |
|00000cb0| 5c 21 4f 4b 22 00 00 00 | 00 00 00 00 00 00 00 00 |\!OK"...|........|
|00000cc0| 00 00 00 00 00 00 01 00 | 00 00 04 22 4f 4b 22 00 |........|..."OK".|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 01 | 00 00 00 07 43 61 6e 63 |........|....Canc|
|00000cf0| 42 75 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |But.....|........|
|00000d00| 00 00 00 00 00 00 00 00 | 01 00 00 00 0f 22 40 2a |........|....."@*|
|00000d10| 48 54 20 5c 3f 43 61 6e | 63 65 6c 22 00 00 00 00 |HT \?Can|cel"....|
|00000d20| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 08 22 43 |........|......"C|
|00000d30| 61 6e 63 65 6c 22 00 00 | 00 00 00 00 00 00 00 00 |ancel"..|........|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 09 70 |........|.......p|
|00000d50| 64 72 69 76 73 74 75 70 | 00 00 00 00 00 00 00 00 |drivstup|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 1f |........|........|
|00000d70| 22 40 2a 43 20 50 72 69 | 6e 74 65 72 20 5c 3c 44 |"@*C Pri|nter \<D|
|00000d80| 72 69 76 65 72 20 53 65 | 74 75 70 2e 2e 2e 22 00 |river Se|tup...".|
|00000d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000db0| 00 73 44 4f 20 28 5f 47 | 45 4e 50 44 29 20 57 49 |.sDO (_G|ENPD) WI|
|00000dc0| 54 48 20 31 2c 22 3f 22 | 0d 0a 49 46 20 4c 45 4e |TH 1,"?"|..IF LEN|
|00000dd0| 28 5f 50 44 53 45 54 55 | 50 29 20 3d 20 30 0d 0a |(_PDSETU|P) = 0..|
|00000de0| 20 20 20 70 64 72 69 76 | 73 74 75 70 20 3d 20 30 |   pdriv|stup = 0|
|00000df0| 0d 0a 45 4c 53 45 0d 0a | 20 20 20 70 64 72 69 76 |..ELSE..|   pdriv|
|00000e00| 73 74 75 70 20 3d 20 31 | 0d 0a 45 4e 44 49 46 0d |stup = 1|..ENDIF.|
|00000e10| 0a 53 48 4f 57 20 47 45 | 54 20 70 64 72 69 76 73 |.SHOW GE|T pdrivs|
|00000e20| 74 75 70 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |tup.....|........|
|00000e30| 00 01 00 00 00 0e 22 4c | 65 66 74 20 4d 61 72 67 |......"L|eft Marg|
|00000e40| 69 6e 3a 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |in:"....|........|
|00000e50| 00 00 01 00 00 00 0f 22 | 52 69 67 68 74 20 4d 61 |......."|Right Ma|
|00000e60| 72 67 69 6e 3a 22 00 00 | 00 00 00 00 00 00 00 00 |rgin:"..|........|
|00000e70| 00 00 00 01 00 00 00 16 | 22 50 72 69 6e 74 69 6e |........|"Printin|
|00000e80| 67 20 44 65 73 74 69 6e | 61 74 69 6f 6e 22 00 00 |g Destin|ation"..|
|00000e90| 00 00 00 00 01 00 00 00 | e1 49 46 20 55 50 50 45 |........|.IF UPPE|
|00000ea0| 52 28 70 64 65 73 74 29 | 20 3d 20 27 46 49 4c 45 |R(pdest)| = 'FILE|
|00000eb0| 27 0d 0a 20 20 20 53 48 | 4f 57 20 47 45 54 20 70 |'..   SH|OW GET p|
|00000ec0| 66 69 6c 6e 61 6d 65 20 | 45 4e 41 42 4c 45 0d 0a |filname |ENABLE..|
|00000ed0| 20 20 20 49 46 20 45 4d | 50 54 59 28 70 66 69 6c |   IF EM|PTY(pfil|
|00000ee0| 6e 61 6d 65 29 0d 0a 20 | 20 20 20 20 20 53 48 4f |name).. |     SHO|
|00000ef0| 57 20 47 45 54 20 6f 6b | 62 75 74 20 44 49 53 41 |W GET ok|but DISA|
|00000f00| 42 4c 45 0d 0a 20 20 20 | 45 4c 53 45 0d 0a 20 20 |BLE..   |ELSE..  |
|00000f10| 20 20 20 20 53 48 4f 57 | 20 47 45 54 20 6f 6b 62 |    SHOW| GET okb|
|00000f20| 75 74 20 45 4e 41 42 4c | 45 0d 0a 20 20 20 45 4e |ut ENABL|E..   EN|
|00000f30| 44 49 46 0d 0a 45 4c 53 | 45 0d 0a 20 20 20 53 48 |DIF..ELS|E..   SH|
|00000f40| 4f 57 20 47 45 54 20 70 | 66 69 6c 6e 61 6d 65 20 |OW GET p|filname |
|00000f50| 44 49 53 41 42 4c 45 0d | 0a 20 20 20 53 48 4f 57 |DISABLE.|.   SHOW|
|00000f60| 20 47 45 54 20 6f 6b 62 | 75 74 20 45 4e 41 42 4c | GET okb|ut ENABL|
|00000f70| 45 0d 0a 45 4e 44 49 46 | 0d 0a 00 00 00 00 00 00 |E..ENDIF|........|
|00000f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000fa0| 17 3f 3f 20 43 48 52 28 | 37 29 0d 0a 52 45 54 55 |.?? CHR(|7)..RETU|
|00000fb0| 52 4e 20 2e 46 2e 0d 0a | 00 00 00 00 00 01 00 00 |RN .F...|........|
|00000fc0| 02 2e 44 4f 20 43 41 53 | 45 0d 0a 43 41 53 45 20 |..DO CAS|E..CASE |
|00000fd0| 6f 6b 62 75 74 20 3d 20 | 31 0d 0a 20 20 20 53 45 |okbut = |1..   SE|
|00000fe0| 54 20 50 52 49 4e 54 45 | 52 20 54 4f 0d 0a 0d 0a |T PRINTE|R TO....|
|00000ff0| 20 20 20 49 46 20 70 72 | 74 73 74 61 74 20 3d 20 |   IF pr|tstat = |
|00001000| 31 0d 0a 20 20 20 20 20 | 20 53 45 54 20 50 52 49 |1..     | SET PRI|
|00001010| 4e 54 20 4f 4e 0d 0a 20 | 20 20 45 4c 53 45 0d 0a |NT ON.. |  ELSE..|
|00001020| 20 20 20 20 20 20 53 45 | 54 20 50 52 49 4e 54 20 |      SE|T PRINT |
|00001030| 4f 46 46 0d 0a 20 20 20 | 45 4e 44 49 46 0d 0a 0d |OFF..   |ENDIF...|
|00001040| 0a 20 20 20 70 64 65 73 | 74 20 3d 20 41 4c 4c 54 |.   pdes|t = ALLT|
|00001050| 52 49 4d 28 55 50 50 45 | 52 28 70 64 65 73 74 29 |RIM(UPPE|R(pdest)|
|00001060| 29 0d 0a 20 20 20 44 4f | 20 43 41 53 45 0d 0a 20 |)..   DO| CASE.. |
|00001070| 20 20 43 41 53 45 20 70 | 64 65 73 74 20 3d 20 27 |  CASE p|dest = '|
|00001080| 46 49 4c 45 27 0d 0a 20 | 20 20 20 20 20 49 46 20 |FILE'.. |     IF |
|00001090| 21 45 4d 50 54 59 28 70 | 66 69 6c 6e 61 6d 65 29 |!EMPTY(p|filname)|
|000010a0| 0d 0a 20 20 20 20 20 20 | 20 20 20 53 45 54 20 50 |..      |   SET P|
|000010b0| 52 49 4e 54 45 52 20 54 | 4f 20 28 70 66 69 6c 6e |RINTER T|O (pfiln|
|000010c0| 61 6d 65 29 0d 0a 20 20 | 20 20 20 20 45 4c 53 45 |ame)..  |    ELSE|
|000010d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 53 45 54 20 50 |..      |   SET P|
|000010e0| 52 49 4e 54 45 52 20 54 | 4f 0d 0a 20 20 20 20 20 |RINTER T|O..     |
|000010f0| 20 45 4e 44 49 46 0d 0a | 20 20 20 4f 54 48 45 52 | ENDIF..|   OTHER|
|00001100| 57 49 53 45 0d 0a 20 20 | 20 20 20 20 70 66 69 6c |WISE..  |    pfil|
|00001110| 6e 61 6d 65 20 3d 20 27 | 27 0d 0a 20 20 20 20 20 |name = '|'..     |
|00001120| 20 53 45 54 20 50 52 49 | 4e 54 45 52 20 54 4f 20 | SET PRI|NTER TO |
|00001130| 26 70 64 65 73 74 0d 0a | 20 20 20 45 4e 44 43 41 |&pdest..|   ENDCA|
|00001140| 53 45 0d 0a 43 41 53 45 | 20 63 61 6e 63 62 75 74 |SE..CASE| cancbut|
|00001150| 20 3d 20 31 0d 0a 20 20 | 20 49 46 20 6f 72 69 67 | = 1..  | IF orig|
|00001160| 70 72 74 73 74 61 74 20 | 3d 20 31 0d 0a 20 20 20 |prtstat |= 1..   |
|00001170| 20 20 20 53 45 54 20 50 | 52 49 4e 54 20 4f 4e 0d |   SET P|RINT ON.|
|00001180| 0a 20 20 20 45 4c 53 45 | 0d 0a 20 20 20 20 20 20 |.   ELSE|..      |
|00001190| 53 45 54 20 50 52 49 4e | 54 20 4f 46 46 0d 0a 20 |SET PRIN|T OFF.. |
|000011a0| 20 20 45 4e 44 49 46 0d | 0a 20 20 20 70 64 65 73 |  ENDIF.|.   pdes|
|000011b0| 74 20 3d 20 6f 72 69 67 | 64 65 73 74 0d 0a 20 20 |t = orig|dest..  |
|000011c0| 20 70 66 69 6c 6e 61 6d | 65 20 3d 20 70 72 74 5f | pfilnam|e = prt_|
|000011d0| 69 6e 66 69 6c 65 0d 0a | 45 4e 44 43 41 53 45 0d |infile..|ENDCASE.|
|000011e0| 0a 73 6b 69 70 76 61 72 | 20 3d 20 2e 46 2e 0d 0a |.skipvar| = .F...|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001210| 00 00 01 d3 23 54 52 41 | 4e 20 53 4e 49 50 50 45 |....#TRA|N SNIPPE|
|00001220| 54 20 4f 4e 4c 59 0d 0a | 23 52 45 41 44 43 4c 41 |T ONLY..|#READCLA|
|00001230| 55 53 45 53 20 4d 4f 44 | 41 4c 0d 0a 0d 0a 73 6b |USES MOD|AL....sk|
|00001240| 69 70 76 61 72 20 3d 20 | 2e 54 2e 0d 0a 70 66 69 |ipvar = |.T...pfi|
|00001250| 6c 6e 61 6d 65 20 3d 20 | 53 50 41 43 45 28 36 37 |lname = |SPACE(67|
|00001260| 29 0d 0a 0d 0a 70 64 65 | 73 74 20 3d 20 53 45 54 |)....pde|st = SET|
|00001270| 28 27 50 52 49 4e 54 45 | 52 27 2c 31 29 0d 0a 49 |('PRINTE|R',1)..I|
|00001280| 46 20 22 3a 22 20 24 20 | 70 64 65 73 74 0d 0a 20 |F ":" $ |pdest.. |
|00001290| 20 20 70 64 65 73 74 20 | 3d 20 4c 45 46 54 28 70 |  pdest |= LEFT(p|
|000012a0| 64 65 73 74 2c 41 54 28 | 27 3a 27 2c 70 64 65 73 |dest,AT(|':',pdes|
|000012b0| 74 29 2d 31 29 0d 0a 45 | 4e 44 49 46 0d 0a 49 46 |t)-1)..E|NDIF..IF|
|000012c0| 20 21 49 4e 4c 49 53 54 | 28 70 64 65 73 74 2c 27 | !INLIST|(pdest,'|
|000012d0| 50 52 4e 27 2c 27 4c 50 | 54 31 27 2c 27 4c 50 54 |PRN','LP|T1','LPT|
|000012e0| 32 27 2c 27 4c 50 54 33 | 27 2c 27 43 4f 4d 31 27 |2','LPT3|','COM1'|
|000012f0| 2c 27 43 4f 4d 32 27 2c | 27 43 4f 4d 33 27 29 0d |,'COM2',|'COM3').|
|00001300| 0a 20 20 20 70 66 69 6c | 6e 61 6d 65 20 3d 20 50 |.   pfil|name = P|
|00001310| 41 44 52 28 70 64 65 73 | 74 2c 36 37 29 0d 0a 20 |ADR(pdes|t,67).. |
|00001320| 20 20 70 64 65 73 74 20 | 3d 20 27 46 69 6c 65 27 |  pdest |= 'File'|
|00001330| 0d 0a 45 4e 44 49 46 0d | 0a 6f 72 69 67 64 65 73 |..ENDIF.|.origdes|
|00001340| 74 20 3d 20 70 64 65 73 | 74 0d 0a 70 72 74 5f 69 |t = pdes|t..prt_i|
|00001350| 6e 66 69 6c 65 20 3d 70 | 66 69 6c 6e 61 6d 65 0d |nfile =p|filname.|
|00001360| 0a 0d 0a 49 46 20 53 45 | 54 28 27 50 52 49 4e 54 |...IF SE|T('PRINT|
|00001370| 27 29 20 3d 20 27 4f 4e | 27 0d 0a 20 20 20 70 72 |') = 'ON|'..   pr|
|00001380| 74 73 74 61 74 20 3d 20 | 31 0d 0a 45 4c 53 45 0d |tstat = |1..ELSE.|
|00001390| 0a 20 20 20 70 72 74 73 | 74 61 74 20 3d 20 32 0d |.   prts|tat = 2.|
|000013a0| 0a 45 4e 44 49 46 0d 0a | 6f 72 69 67 70 72 74 73 |.ENDIF..|origprts|
|000013b0| 74 61 74 20 3d 20 70 72 | 74 73 74 61 74 0d 0a 0d |tat = pr|tstat...|
|000013c0| 0a 70 64 72 69 76 73 74 | 75 70 20 3d 20 49 49 46 |.pdrivst|up = IIF|
|000013d0| 28 4c 45 4e 28 5f 50 44 | 52 49 56 45 52 29 3d 30 |(LEN(_PD|RIVER)=0|
|000013e0| 2c 30 2c 31 29 0d 0a 00 | 00 00 00 00 00 00 00 00 |,0,1)...|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001400| 00 00 0b 22 50 72 69 6e | 74 20 74 6f 3a 22 00 00 |..."Prin|t to:"..|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001420| 00 00 00 10 22 50 72 69 | 6e 74 65 72 20 53 65 74 |...."Pri|nter Set|
|00001430| 75 70 3a 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |up:"....|........|
|00001440| 01 00 00 00 05 70 64 65 | 73 74 00 00 00 00 00 00 |.....pde|st......|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 01 00 00 00 2b 22 40 | 5e 20 46 69 6c 65 3b 50 |.....+"@|^ File;P|
|00001470| 52 4e 3b 4c 50 54 31 3b | 4c 50 54 32 3b 4c 50 54 |RN;LPT1;|LPT2;LPT|
|00001480| 33 3b 43 4f 4d 31 3b 43 | 4f 4d 32 3b 43 4f 4d 33 |3;COM1;C|OM2;COM3|
|00001490| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|000014a0| 00 00 00 01 00 00 00 3c | 49 46 20 55 50 50 45 52 |.......<|IF UPPER|
|000014b0| 28 70 64 65 73 74 29 20 | 3d 20 27 46 49 4c 45 27 |(pdest) |= 'FILE'|
|000014c0| 0d 0a 20 20 20 5f 43 55 | 52 4f 42 4a 20 3d 20 33 |..   _CU|ROBJ = 3|
|000014d0| 0d 0a 45 4e 44 49 46 0d | 0a 53 48 4f 57 20 47 45 |..ENDIF.|.SHOW GE|
|000014e0| 54 53 0d 0a 00 00 00 00 | 00 00 00 00 00 00 00 00 |TS......|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001500| 00 00 00 00 00 00 01 00 | 00 00 06 22 4c 50 54 31 |........|..."LPT1|
|00001510| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00001520| 00 00 00 00 00 00 00 01 | 00 00 00 05 66 6c 69 73 |........|....flis|
|00001530| 74 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|00001540| 00 00 00 00 00 00 00 00 | 01 00 00 00 10 22 40 2a |........|....."@*|
|00001550| 48 4e 20 5c 3c 46 69 6c | 65 2e 2e 2e 22 00 00 00 |HN \<Fil|e..."...|
|00001560| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 ef 49 46 |........|......IF|
|00001570| 20 66 6c 69 73 74 20 3d | 20 31 0d 0a 20 20 20 6f | flist =| 1..   o|
|00001580| 72 69 67 66 69 6c 65 20 | 3d 20 70 66 69 6c 6e 61 |rigfile |= pfilna|
|00001590| 6d 65 0d 0a 20 20 20 70 | 66 69 6c 6e 61 6d 65 20 |me..   p|filname |
|000015a0| 3d 20 47 45 54 46 49 4c | 45 28 27 27 2c 27 50 72 |= GETFIL|E('','Pr|
|000015b0| 69 6e 74 20 74 6f 3a 27 | 29 0d 0a 20 20 20 49 46 |int to:'|)..   IF|
|000015c0| 20 45 4d 50 54 59 28 70 | 66 69 6c 6e 61 6d 65 29 | EMPTY(p|filname)|
|000015d0| 0d 0a 20 20 20 20 20 20 | 70 66 69 6c 6e 61 6d 65 |..      |pfilname|
|000015e0| 20 3d 20 6f 72 69 67 66 | 69 6c 65 0d 0a 20 20 20 | = origf|ile..   |
|000015f0| 45 4e 44 49 46 0d 0a 45 | 4e 44 49 46 0d 0a 70 66 |ENDIF..E|NDIF..pf|
|00001600| 69 6c 6e 61 6d 65 20 3d | 20 55 50 50 45 52 28 50 |ilname =| UPPER(P|
|00001610| 41 44 52 28 70 66 69 6c | 6e 61 6d 65 2c 36 37 29 |ADR(pfil|name,67)|
|00001620| 29 0d 0a 49 46 20 21 45 | 4d 50 54 59 28 70 66 69 |)..IF !E|MPTY(pfi|
|00001630| 6c 6e 61 6d 65 29 0d 0a | 20 20 20 70 64 65 73 74 |lname)..|   pdest|
|00001640| 20 3d 20 27 46 69 6c 65 | 27 0d 0a 45 4e 44 49 46 | = 'File|'..ENDIF|
|00001650| 0d 0a 53 48 4f 57 20 47 | 45 54 53 0d 0a 00 00 00 |..SHOW G|ETS.....|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 01 00 00 00 09 22 46 | 69 6c 65 2e 2e 2e 22 00 |......"F|ile...".|
|00001680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001690| 00 00 01 00 00 00 08 70 | 66 69 6c 6e 61 6d 65 00 |.......p|filname.|
|000016a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016b0| 00 00 00 01 00 00 00 07 | 22 40 33 53 36 37 22 00 |........|"@3S67".|
|000016c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016d0| 00 00 00 00 01 00 00 00 | 66 70 66 69 6c 6e 61 6d |........|fpfilnam|
|000016e0| 65 20 3d 20 50 41 44 52 | 28 55 50 50 45 52 28 4c |e = PADR|(UPPER(L|
|000016f0| 54 52 49 4d 28 70 66 69 | 6c 6e 61 6d 65 29 29 2c |TRIM(pfi|lname)),|
|00001700| 36 37 29 0d 0a 49 46 20 | 21 45 4d 50 54 59 28 70 |67)..IF |!EMPTY(p|
|00001710| 66 69 6c 6e 61 6d 65 29 | 0d 0a 20 20 20 70 64 65 |filname)|..   pde|
|00001720| 73 74 20 3d 20 27 46 69 | 6c 65 27 0d 0a 45 4e 44 |st = 'Fi|le'..END|
|00001730| 49 46 0d 0a 53 48 4f 57 | 20 47 45 54 53 0d 0a 00 |IF..SHOW| GETS...|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 70 72 74 |........|.....prt|
|00001760| 73 74 61 74 00 00 00 00 | 00 00 00 00 00 00 00 00 |stat....|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 1a 22 40 |........|......"@|
|00001780| 2a 52 56 4e 20 50 72 69 | 6e 74 20 4f 6e 3b 50 72 |*RVN Pri|nt On;Pr|
|00001790| 69 6e 74 20 4f 66 66 22 | 00 00 00 00 00 00 00 00 |int Off"|........|
|000017a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017b0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0b |........|........|
|000017c0| 22 50 72 69 6e 74 20 4f | 66 66 22 00 00 00 00 00 |"Print O|ff".....|
|000017d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000017e0| 08 5f 4c 4d 41 52 47 49 | 4e 00 00 00 00 00 00 00 |._LMARGI|N.......|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001800| 00 08 22 40 33 20 39 39 | 39 22 00 00 00 00 00 00 |.."@3 99|9"......|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001820| 00 00 27 5f 4c 4d 41 52 | 47 49 4e 20 3d 20 4d 41 |..'_LMAR|GIN = MA|
|00001830| 58 28 30 2c 5f 4c 4d 41 | 52 47 49 4e 29 0d 0a 53 |X(0,_LMA|RGIN)..S|
|00001840| 48 4f 57 20 47 45 54 53 | 0d 0a 00 00 00 00 00 00 |HOW GETS|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 01 00 00 00 08 5f 52 4d | 41 52 47 49 4e 00 00 00 |....._RM|ARGIN...|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 01 00 00 00 08 22 40 | 33 20 39 39 39 22 00 00 |......"@|3 999"..|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 01 00 00 00 29 5f | 52 4d 41 52 47 49 4e 20 |......)_|RMARGIN |
|000018b0| 3d 20 4d 49 4e 28 5f 52 | 4d 41 52 47 49 4e 2c 32 |= MIN(_R|MARGIN,2|
|000018c0| 35 35 29 0d 0a 53 48 4f | 57 20 47 45 54 53 0d 0a |55)..SHO|W GETS..|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 01 00 00 00 | 05 4f 4b 62 75 74 00 00 |........|.OKbut..|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 00 00 00 01 00 00 | 00 0b 22 40 2a 48 54 20 |........|.."@*HT |
|00001910| 5c 21 4f 4b 22 00 00 00 | 00 00 00 00 00 00 00 00 |\!OK"...|........|
|00001920| 00 00 00 00 00 00 01 00 | 00 00 04 22 4f 4b 22 00 |........|..."OK".|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 01 | 00 00 00 07 43 61 6e 63 |........|....Canc|
|00001950| 42 75 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |But.....|........|
|00001960| 00 00 00 00 00 00 00 00 | 01 00 00 00 0f 22 40 2a |........|....."@*|
|00001970| 48 54 20 5c 3f 43 61 6e | 63 65 6c 22 00 00 00 00 |HT \?Can|cel"....|
|00001980| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 08 22 43 |........|......"C|
|00001990| 61 6e 63 65 6c 22 00 00 | 00 00 00 00 00 00 00 00 |ancel"..|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 09 70 |........|.......p|
|000019b0| 64 72 69 76 73 74 75 70 | 00 00 00 00 00 00 00 00 |drivstup|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 1f |........|........|
|000019d0| 22 40 2a 43 20 50 72 69 | 6e 74 65 72 20 5c 3c 44 |"@*C Pri|nter \<D|
|000019e0| 72 69 76 65 72 20 53 65 | 74 75 70 2e 2e 2e 22 00 |river Se|tup...".|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001a10| 00 73 44 4f 20 28 5f 47 | 45 4e 50 44 29 20 57 49 |.sDO (_G|ENPD) WI|
|00001a20| 54 48 20 31 2c 22 3f 22 | 0d 0a 49 46 20 4c 45 4e |TH 1,"?"|..IF LEN|
|00001a30| 28 5f 50 44 53 45 54 55 | 50 29 20 3d 20 30 0d 0a |(_PDSETU|P) = 0..|
|00001a40| 20 20 20 70 64 72 69 76 | 73 74 75 70 20 3d 20 30 |   pdriv|stup = 0|
|00001a50| 0d 0a 45 4c 53 45 0d 0a | 20 20 20 70 64 72 69 76 |..ELSE..|   pdriv|
|00001a60| 73 74 75 70 20 3d 20 31 | 0d 0a 45 4e 44 49 46 0d |stup = 1|..ENDIF.|
|00001a70| 0a 53 48 4f 57 20 47 45 | 54 20 70 64 72 69 76 73 |.SHOW GE|T pdrivs|
|00001a80| 74 75 70 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |tup.....|........|
|00001a90| 00 01 00 00 00 0e 22 4c | 65 66 74 20 4d 61 72 67 |......"L|eft Marg|
|00001aa0| 69 6e 3a 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |in:"....|........|
|00001ab0| 00 00 01 00 00 00 0f 22 | 52 69 67 68 74 20 4d 61 |......."|Right Ma|
|00001ac0| 72 67 69 6e 3a 22 00 00 | 00 00 00 00 00 00 00 00 |rgin:"..|........|
|00001ad0| 00 00 00 01 00 00 00 16 | 22 50 72 69 6e 74 69 6e |........|"Printin|
|00001ae0| 67 20 44 65 73 74 69 6e | 61 74 69 6f 6e 22 00 00 |g Destin|ation"..|
|00001af0| 00 00 00 00 01 00 00 00 | 06 47 65 6e 65 76 61 00 |........|.Geneva.|
|00001b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b10| 00 00 00 00 00 01 00 00 | 00 e1 49 46 20 55 50 50 |........|..IF UPP|
|00001b20| 45 52 28 70 64 65 73 74 | 29 20 3d 20 27 46 49 4c |ER(pdest|) = 'FIL|
|00001b30| 45 27 0d 0a 20 20 20 53 | 48 4f 57 20 47 45 54 20 |E'..   S|HOW GET |
|00001b40| 70 66 69 6c 6e 61 6d 65 | 20 45 4e 41 42 4c 45 0d |pfilname| ENABLE.|
|00001b50| 0a 20 20 20 49 46 20 45 | 4d 50 54 59 28 70 66 69 |.   IF E|MPTY(pfi|
|00001b60| 6c 6e 61 6d 65 29 0d 0a | 20 20 20 20 20 20 53 48 |lname)..|      SH|
|00001b70| 4f 57 20 47 45 54 20 6f | 6b 62 75 74 20 44 49 53 |OW GET o|kbut DIS|
|00001b80| 41 42 4c 45 0d 0a 20 20 | 20 45 4c 53 45 0d 0a 20 |ABLE..  | ELSE.. |
|00001b90| 20 20 20 20 20 53 48 4f | 57 20 47 45 54 20 6f 6b |     SHO|W GET ok|
|00001ba0| 62 75 74 20 45 4e 41 42 | 4c 45 0d 0a 20 20 20 45 |but ENAB|LE..   E|
|00001bb0| 4e 44 49 46 0d 0a 45 4c | 53 45 0d 0a 20 20 20 53 |NDIF..EL|SE..   S|
|00001bc0| 48 4f 57 20 47 45 54 20 | 70 66 69 6c 6e 61 6d 65 |HOW GET |pfilname|
|00001bd0| 20 44 49 53 41 42 4c 45 | 0d 0a 20 20 20 53 48 4f | DISABLE|..   SHO|
|00001be0| 57 20 47 45 54 20 6f 6b | 62 75 74 20 45 4e 41 42 |W GET ok|but ENAB|
|00001bf0| 4c 45 0d 0a 45 4e 44 49 | 46 0d 0a 00 00 00 00 00 |LE..ENDI|F.......|
|00001c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001c20| 00 17 3f 3f 20 43 48 52 | 28 37 29 0d 0a 52 45 54 |..?? CHR|(7)..RET|
|00001c30| 55 52 4e 20 2e 46 2e 0d | 0a 00 00 00 00 00 01 00 |URN .F..|........|
|00001c40| 00 02 2e 44 4f 20 43 41 | 53 45 0d 0a 43 41 53 45 |...DO CA|SE..CASE|
|00001c50| 20 6f 6b 62 75 74 20 3d | 20 31 0d 0a 20 20 20 53 | okbut =| 1..   S|
|00001c60| 45 54 20 50 52 49 4e 54 | 45 52 20 54 4f 0d 0a 0d |ET PRINT|ER TO...|
|00001c70| 0a 20 20 20 49 46 20 70 | 72 74 73 74 61 74 20 3d |.   IF p|rtstat =|
|00001c80| 20 31 0d 0a 20 20 20 20 | 20 20 53 45 54 20 50 52 | 1..    |  SET PR|
|00001c90| 49 4e 54 20 4f 4e 0d 0a | 20 20 20 45 4c 53 45 0d |INT ON..|   ELSE.|
|00001ca0| 0a 20 20 20 20 20 20 53 | 45 54 20 50 52 49 4e 54 |.      S|ET PRINT|
|00001cb0| 20 4f 46 46 0d 0a 20 20 | 20 45 4e 44 49 46 0d 0a | OFF..  | ENDIF..|
|00001cc0| 0d 0a 20 20 20 70 64 65 | 73 74 20 3d 20 41 4c 4c |..   pde|st = ALL|
|00001cd0| 54 52 49 4d 28 55 50 50 | 45 52 28 70 64 65 73 74 |TRIM(UPP|ER(pdest|
|00001ce0| 29 29 0d 0a 20 20 20 44 | 4f 20 43 41 53 45 0d 0a |))..   D|O CASE..|
|00001cf0| 20 20 20 43 41 53 45 20 | 70 64 65 73 74 20 3d 20 |   CASE |pdest = |
|00001d00| 27 46 49 4c 45 27 0d 0a | 20 20 20 20 20 20 49 46 |'FILE'..|      IF|
|00001d10| 20 21 45 4d 50 54 59 28 | 70 66 69 6c 6e 61 6d 65 | !EMPTY(|pfilname|
|00001d20| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 53 45 54 20 |)..     |    SET |
|00001d30| 50 52 49 4e 54 45 52 20 | 54 4f 20 28 70 66 69 6c |PRINTER |TO (pfil|
|00001d40| 6e 61 6d 65 29 0d 0a 20 | 20 20 20 20 20 45 4c 53 |name).. |     ELS|
|00001d50| 45 0d 0a 20 20 20 20 20 | 20 20 20 20 53 45 54 20 |E..     |    SET |
|00001d60| 50 52 49 4e 54 45 52 20 | 54 4f 0d 0a 20 20 20 20 |PRINTER |TO..    |
|00001d70| 20 20 45 4e 44 49 46 0d | 0a 20 20 20 4f 54 48 45 |  ENDIF.|.   OTHE|
|00001d80| 52 57 49 53 45 0d 0a 20 | 20 20 20 20 20 70 66 69 |RWISE.. |     pfi|
|00001d90| 6c 6e 61 6d 65 20 3d 20 | 27 27 0d 0a 20 20 20 20 |lname = |''..    |
|00001da0| 20 20 53 45 54 20 50 52 | 49 4e 54 45 52 20 54 4f |  SET PR|INTER TO|
|00001db0| 20 26 70 64 65 73 74 0d | 0a 20 20 20 45 4e 44 43 | &pdest.|.   ENDC|
|00001dc0| 41 53 45 0d 0a 43 41 53 | 45 20 63 61 6e 63 62 75 |ASE..CAS|E cancbu|
|00001dd0| 74 20 3d 20 31 0d 0a 20 | 20 20 49 46 20 6f 72 69 |t = 1.. |  IF ori|
|00001de0| 67 70 72 74 73 74 61 74 | 20 3d 20 31 0d 0a 20 20 |gprtstat| = 1..  |
|00001df0| 20 20 20 20 53 45 54 20 | 50 52 49 4e 54 20 4f 4e |    SET |PRINT ON|
|00001e00| 0d 0a 20 20 20 45 4c 53 | 45 0d 0a 20 20 20 20 20 |..   ELS|E..     |
|00001e10| 20 53 45 54 20 50 52 49 | 4e 54 20 4f 46 46 0d 0a | SET PRI|NT OFF..|
|00001e20| 20 20 20 45 4e 44 49 46 | 0d 0a 20 20 20 70 64 65 |   ENDIF|..   pde|
|00001e30| 73 74 20 3d 20 6f 72 69 | 67 64 65 73 74 0d 0a 20 |st = ori|gdest.. |
|00001e40| 20 20 70 66 69 6c 6e 61 | 6d 65 20 3d 20 70 72 74 |  pfilna|me = prt|
|00001e50| 5f 69 6e 66 69 6c 65 0d | 0a 45 4e 44 43 41 53 45 |_infile.|.ENDCASE|
|00001e60| 0d 0a 73 6b 69 70 76 61 | 72 20 3d 20 2e 46 2e 0d |..skipva|r = .F..|
|00001e70| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e90| 01 00 00 01 d3 23 54 52 | 41 4e 20 53 4e 49 50 50 |.....#TR|AN SNIPP|
|00001ea0| 45 54 20 4f 4e 4c 59 0d | 0a 23 52 45 41 44 43 4c |ET ONLY.|.#READCL|
|00001eb0| 41 55 53 45 53 20 4d 4f | 44 41 4c 0d 0a 0d 0a 73 |AUSES MO|DAL....s|
|00001ec0| 6b 69 70 76 61 72 20 3d | 20 2e 54 2e 0d 0a 70 66 |kipvar =| .T...pf|
|00001ed0| 69 6c 6e 61 6d 65 20 3d | 20 53 50 41 43 45 28 36 |ilname =| SPACE(6|
|00001ee0| 37 29 0d 0a 0d 0a 70 64 | 65 73 74 20 3d 20 53 45 |7)....pd|est = SE|
|00001ef0| 54 28 27 50 52 49 4e 54 | 45 52 27 2c 31 29 0d 0a |T('PRINT|ER',1)..|
|00001f00| 49 46 20 22 3a 22 20 24 | 20 70 64 65 73 74 0d 0a |IF ":" $| pdest..|
|00001f10| 20 20 20 70 64 65 73 74 | 20 3d 20 4c 45 46 54 28 |   pdest| = LEFT(|
|00001f20| 70 64 65 73 74 2c 41 54 | 28 27 3a 27 2c 70 64 65 |pdest,AT|(':',pde|
|00001f30| 73 74 29 2d 31 29 0d 0a | 45 4e 44 49 46 0d 0a 49 |st)-1)..|ENDIF..I|
|00001f40| 46 20 21 49 4e 4c 49 53 | 54 28 70 64 65 73 74 2c |F !INLIS|T(pdest,|
|00001f50| 27 50 52 4e 27 2c 27 4c | 50 54 31 27 2c 27 4c 50 |'PRN','L|PT1','LP|
|00001f60| 54 32 27 2c 27 4c 50 54 | 33 27 2c 27 43 4f 4d 31 |T2','LPT|3','COM1|
|00001f70| 27 2c 27 43 4f 4d 32 27 | 2c 27 43 4f 4d 33 27 29 |','COM2'|,'COM3')|
|00001f80| 0d 0a 20 20 20 70 66 69 | 6c 6e 61 6d 65 20 3d 20 |..   pfi|lname = |
|00001f90| 50 41 44 52 28 70 64 65 | 73 74 2c 36 37 29 0d 0a |PADR(pde|st,67)..|
|00001fa0| 20 20 20 70 64 65 73 74 | 20 3d 20 27 46 69 6c 65 |   pdest| = 'File|
|00001fb0| 27 0d 0a 45 4e 44 49 46 | 0d 0a 6f 72 69 67 64 65 |'..ENDIF|..origde|
|00001fc0| 73 74 20 3d 20 70 64 65 | 73 74 0d 0a 70 72 74 5f |st = pde|st..prt_|
|00001fd0| 69 6e 66 69 6c 65 20 3d | 70 66 69 6c 6e 61 6d 65 |infile =|pfilname|
|00001fe0| 0d 0a 0d 0a 49 46 20 53 | 45 54 28 27 50 52 49 4e |....IF S|ET('PRIN|
|00001ff0| 54 27 29 20 3d 20 27 4f | 4e 27 0d 0a 20 20 20 70 |T') = 'O|N'..   p|
|00002000| 72 74 73 74 61 74 20 3d | 20 31 0d 0a 45 4c 53 45 |rtstat =| 1..ELSE|
|00002010| 0d 0a 20 20 20 70 72 74 | 73 74 61 74 20 3d 20 32 |..   prt|stat = 2|
|00002020| 0d 0a 45 4e 44 49 46 0d | 0a 6f 72 69 67 70 72 74 |..ENDIF.|.origprt|
|00002030| 73 74 61 74 20 3d 20 70 | 72 74 73 74 61 74 0d 0a |stat = p|rtstat..|
|00002040| 0d 0a 70 64 72 69 76 73 | 74 75 70 20 3d 20 49 49 |..pdrivs|tup = II|
|00002050| 46 28 4c 45 4e 28 5f 50 | 44 52 49 56 45 52 29 3d |F(LEN(_P|DRIVER)=|
|00002060| 30 2c 30 2c 31 29 0d 0a | 00 00 00 00 00 00 00 00 |0,0,1)..|........|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002080| 00 00 00 0b 22 50 72 69 | 6e 74 20 74 6f 3a 22 00 |...."Pri|nt to:".|
|00002090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020a0| 01 00 00 00 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|000020b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020c0| 00 01 00 00 00 10 22 50 | 72 69 6e 74 65 72 20 53 |......"P|rinter S|
|000020d0| 65 74 75 70 3a 22 00 00 | 00 00 00 00 00 00 00 00 |etup:"..|........|
|000020e0| 00 00 01 00 00 00 06 47 | 65 6e 65 76 61 00 00 00 |.......G|eneva...|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 00 00 01 00 00 00 05 | 70 64 65 73 74 00 00 00 |........|pdest...|
|00002110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002120| 00 00 00 00 01 00 00 00 | 2c 22 40 5e 33 20 46 69 |........|,"@^3 Fi|
|00002130| 6c 65 3b 50 52 4e 3b 4c | 50 54 31 3b 4c 50 54 32 |le;PRN;L|PT1;LPT2|
|00002140| 3b 4c 50 54 33 3b 43 4f | 4d 31 3b 43 4f 4d 32 3b |;LPT3;CO|M1;COM2;|
|00002150| 43 4f 4d 33 22 00 00 00 | 00 00 00 00 00 00 00 00 |COM3"...|........|
|00002160| 00 00 00 00 00 00 01 00 | 00 00 06 47 65 6e 65 76 |........|...Genev|
|00002170| 61 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |a.......|........|
|00002180| 00 00 00 00 00 00 00 01 | 00 00 00 3c 49 46 20 55 |........|...<IF U|
|00002190| 50 50 45 52 28 70 64 65 | 73 74 29 20 3d 20 27 46 |PPER(pde|st) = 'F|
|000021a0| 49 4c 45 27 0d 0a 20 20 | 20 5f 43 55 52 4f 42 4a |ILE'..  | _CUROBJ|
|000021b0| 20 3d 20 33 0d 0a 45 4e | 44 49 46 0d 0a 53 48 4f | = 3..EN|DIF..SHO|
|000021c0| 57 20 47 45 54 53 0d 0a | 00 00 00 00 00 00 00 00 |W GETS..|........|
|000021d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 06 22 |........|......."|
|000021f0| 4c 50 54 31 22 00 00 00 | 00 00 00 00 00 00 00 00 |LPT1"...|........|
|00002200| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 05 |........|........|
|00002210| 66 6c 69 73 74 00 00 00 | 00 00 00 00 00 00 00 00 |flist...|........|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002230| 11 22 40 2a 48 4e 33 20 | 5c 3c 46 69 6c 65 2e 2e |."@*HN3 |\<File..|
|00002240| 2e 22 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |."......|........|
|00002250| 00 06 47 65 6e 65 76 61 | 00 00 00 00 00 00 00 00 |..Geneva|........|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002270| 00 00 ef 49 46 20 66 6c | 69 73 74 20 3d 20 31 0d |...IF fl|ist = 1.|
|00002280| 0a 20 20 20 6f 72 69 67 | 66 69 6c 65 20 3d 20 70 |.   orig|file = p|
|00002290| 66 69 6c 6e 61 6d 65 0d | 0a 20 20 20 70 66 69 6c |filname.|.   pfil|
|000022a0| 6e 61 6d 65 20 3d 20 47 | 45 54 46 49 4c 45 28 27 |name = G|ETFILE('|
|000022b0| 27 2c 27 50 72 69 6e 74 | 20 74 6f 3a 27 29 0d 0a |','Print| to:')..|
|000022c0| 20 20 20 49 46 20 45 4d | 50 54 59 28 70 66 69 6c |   IF EM|PTY(pfil|
|000022d0| 6e 61 6d 65 29 0d 0a 20 | 20 20 20 20 20 70 66 69 |name).. |     pfi|
|000022e0| 6c 6e 61 6d 65 20 3d 20 | 6f 72 69 67 66 69 6c 65 |lname = |origfile|
|000022f0| 0d 0a 20 20 20 45 4e 44 | 49 46 0d 0a 45 4e 44 49 |..   END|IF..ENDI|
|00002300| 46 0d 0a 70 66 69 6c 6e | 61 6d 65 20 3d 20 55 50 |F..pfiln|ame = UP|
|00002310| 50 45 52 28 50 41 44 52 | 28 70 66 69 6c 6e 61 6d |PER(PADR|(pfilnam|
|00002320| 65 2c 36 37 29 29 0d 0a | 49 46 20 21 45 4d 50 54 |e,67))..|IF !EMPT|
|00002330| 59 28 70 66 69 6c 6e 61 | 6d 65 29 0d 0a 20 20 20 |Y(pfilna|me)..   |
|00002340| 70 64 65 73 74 20 3d 20 | 27 46 69 6c 65 27 0d 0a |pdest = |'File'..|
|00002350| 45 4e 44 49 46 0d 0a 53 | 48 4f 57 20 47 45 54 53 |ENDIF..S|HOW GETS|
|00002360| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 01 00 | 00 00 09 22 46 69 6c 65 |........|..."File|
|00002380| 2e 2e 2e 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |..."....|........|
|00002390| 00 00 00 00 00 00 00 01 | 00 00 00 08 70 66 69 6c |........|....pfil|
|000023a0| 6e 61 6d 65 00 00 00 00 | 00 00 00 00 00 00 00 00 |name....|........|
|000023b0| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 22 40 33 |........|....."@3|
|000023c0| 53 36 37 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |S67"....|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 06 47 65 |........|......Ge|
|000023e0| 6e 65 76 61 00 00 00 00 | 00 00 00 00 00 00 00 00 |neva....|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 66 70 |........|......fp|
|00002400| 66 69 6c 6e 61 6d 65 20 | 3d 20 50 41 44 52 28 55 |filname |= PADR(U|
|00002410| 50 50 45 52 28 4c 54 52 | 49 4d 28 70 66 69 6c 6e |PPER(LTR|IM(pfiln|
|00002420| 61 6d 65 29 29 2c 36 37 | 29 0d 0a 49 46 20 21 45 |ame)),67|)..IF !E|
|00002430| 4d 50 54 59 28 70 66 69 | 6c 6e 61 6d 65 29 0d 0a |MPTY(pfi|lname)..|
|00002440| 20 20 20 70 64 65 73 74 | 20 3d 20 27 46 69 6c 65 |   pdest| = 'File|
|00002450| 27 0d 0a 45 4e 44 49 46 | 0d 0a 53 48 4f 57 20 47 |'..ENDIF|..SHOW G|
|00002460| 45 54 53 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |ETS.....|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002480| 00 00 07 70 72 74 73 74 | 61 74 00 00 00 00 00 00 |...prtst|at......|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000024a0| 00 00 00 1b 22 40 2a 52 | 56 4e 33 20 50 72 69 6e |...."@*R|VN3 Prin|
|000024b0| 74 20 4f 6e 3b 50 72 69 | 6e 74 20 4f 66 66 22 00 |t On;Pri|nt Off".|
|000024c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 01 00 00 00 06 47 65 | 6e 65 76 61 00 00 00 00 |......Ge|neva....|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 01 00 00 00 0b 22 | 50 72 69 6e 74 20 4f 66 |......."|Print Of|
|00002510| 66 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f"......|........|
|00002520| 00 00 00 01 00 00 00 08 | 5f 4c 4d 41 52 47 49 4e |........|_LMARGIN|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 01 00 00 00 | 08 22 40 33 20 39 39 39 |........|."@3 999|
|00002550| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00002560| 00 00 00 00 00 01 00 00 | 00 06 47 65 6e 65 76 61 |........|..Geneva|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 00 00 00 00 01 00 | 00 00 27 5f 4c 4d 41 52 |........|..'_LMAR|
|00002590| 47 49 4e 20 3d 20 4d 41 | 58 28 30 2c 5f 4c 4d 41 |GIN = MA|X(0,_LMA|
|000025a0| 52 47 49 4e 29 0d 0a 53 | 48 4f 57 20 47 45 54 53 |RGIN)..S|HOW GETS|
|000025b0| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025c0| 00 00 00 00 00 00 00 00 | 01 00 00 00 08 5f 52 4d |........|....._RM|
|000025d0| 41 52 47 49 4e 00 00 00 | 00 00 00 00 00 00 00 00 |ARGIN...|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 08 22 40 |........|......"@|
|000025f0| 33 20 39 39 39 22 00 00 | 00 00 00 00 00 00 00 00 |3 999"..|........|
|00002600| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 06 47 |........|.......G|
|00002610| 65 6e 65 76 61 00 00 00 | 00 00 00 00 00 00 00 00 |eneva...|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 29 |........|.......)|
|00002630| 5f 52 4d 41 52 47 49 4e | 20 3d 20 4d 49 4e 28 5f |_RMARGIN| = MIN(_|
|00002640| 52 4d 41 52 47 49 4e 2c | 32 35 35 29 0d 0a 53 48 |RMARGIN,|255)..SH|
|00002650| 4f 57 20 47 45 54 53 0d | 0a 00 00 00 00 00 00 00 |OW GETS.|........|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002670| 00 05 4f 4b 62 75 74 00 | 00 00 00 00 00 00 00 00 |..OKbut.|........|
|00002680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002690| 00 00 0c 22 40 2a 48 54 | 33 20 5c 21 4f 4b 22 00 |..."@*HT|3 \!OK".|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000026b0| 00 00 00 06 47 65 6e 65 | 76 61 00 00 00 00 00 00 |....Gene|va......|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 01 00 00 00 04 22 4f 4b | 22 00 00 00 00 00 00 00 |....."OK|".......|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 01 00 00 00 07 43 61 | 6e 63 42 75 74 00 00 00 |......Ca|ncBut...|
|00002700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002710| 00 00 01 00 00 00 10 22 | 40 2a 48 54 33 20 5c 3f |......."|@*HT3 \?|
|00002720| 43 61 6e 63 65 6c 22 00 | 00 00 00 00 00 00 00 00 |Cancel".|........|
|00002730| 00 00 00 01 00 00 00 06 | 47 65 6e 65 76 61 00 00 |........|Geneva..|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 01 00 00 00 | 08 22 43 61 6e 63 65 6c |........|."Cancel|
|00002760| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00002770| 00 00 00 00 00 01 00 00 | 00 09 70 64 72 69 76 73 |........|..pdrivs|
|00002780| 74 75 70 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |tup.....|........|
|00002790| 00 00 00 00 00 00 01 00 | 00 00 20 22 40 2a 43 33 |........|.. "@*C3|
|000027a0| 20 50 72 69 6e 74 65 72 | 20 5c 3c 44 72 69 76 65 | Printer| \<Drive|
|000027b0| 72 20 53 65 74 75 70 2e | 2e 2e 22 00 00 00 00 00 |r Setup.|..".....|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 01 00 00 00 06 47 65 6e |........|.....Gen|
|000027e0| 65 76 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |eva.....|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 73 44 4f |........|.....sDO|
|00002800| 20 28 5f 47 45 4e 50 44 | 29 20 57 49 54 48 20 31 | (_GENPD|) WITH 1|
|00002810| 2c 22 3f 22 0d 0a 49 46 | 20 4c 45 4e 28 5f 50 44 |,"?"..IF| LEN(_PD|
|00002820| 53 45 54 55 50 29 20 3d | 20 30 0d 0a 20 20 20 70 |SETUP) =| 0..   p|
|00002830| 64 72 69 76 73 74 75 70 | 20 3d 20 30 0d 0a 45 4c |drivstup| = 0..EL|
|00002840| 53 45 0d 0a 20 20 20 70 | 64 72 69 76 73 74 75 70 |SE..   p|drivstup|
|00002850| 20 3d 20 31 0d 0a 45 4e | 44 49 46 0d 0a 53 48 4f | = 1..EN|DIF..SHO|
|00002860| 57 20 47 45 54 20 70 64 | 72 69 76 73 74 75 70 0d |W GET pd|rivstup.|
|00002870| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002880| 00 0e 22 4c 65 66 74 20 | 4d 61 72 67 69 6e 3a 22 |.."Left |Margin:"|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000028a0| 00 00 06 47 65 6e 65 76 | 61 00 00 00 00 00 00 00 |...Genev|a.......|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000028c0| 00 00 00 0f 22 52 69 67 | 68 74 20 4d 61 72 67 69 |...."Rig|ht Margi|
|000028d0| 6e 3a 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |n:".....|........|
|000028e0| 01 00 00 00 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 01 00 00 00 06 47 65 | 6e 65 76 61 00 00 00 00 |......Ge|neva....|
|00002910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002920| 00 00 01 00 00 00 06 47 | 65 6e 65 76 61 00 00 00 |.......G|eneva...|
|00002930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002940| 00 00 00 01 00 00 00 16 | 22 50 72 69 6e 74 69 6e |........|"Printin|
|00002950| 67 20 44 65 73 74 69 6e | 61 74 69 6f 6e 22 00 00 |g Destin|ation"..|
|00002960| 00 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00002970| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00002980| 00 00 00 00 00 01 00 00 | 00 e1 49 46 20 55 50 50 |........|..IF UPP|
|00002990| 45 52 28 70 64 65 73 74 | 29 20 3d 20 27 46 49 4c |ER(pdest|) = 'FIL|
|000029a0| 45 27 0d 0a 20 20 20 53 | 48 4f 57 20 47 45 54 20 |E'..   S|HOW GET |
|000029b0| 70 66 69 6c 6e 61 6d 65 | 20 45 4e 41 42 4c 45 0d |pfilname| ENABLE.|
|000029c0| 0a 20 20 20 49 46 20 45 | 4d 50 54 59 28 70 66 69 |.   IF E|MPTY(pfi|
|000029d0| 6c 6e 61 6d 65 29 0d 0a | 20 20 20 20 20 20 53 48 |lname)..|      SH|
|000029e0| 4f 57 20 47 45 54 20 6f | 6b 62 75 74 20 44 49 53 |OW GET o|kbut DIS|
|000029f0| 41 42 4c 45 0d 0a 20 20 | 20 45 4c 53 45 0d 0a 20 |ABLE..  | ELSE.. |
|00002a00| 20 20 20 20 20 53 48 4f | 57 20 47 45 54 20 6f 6b |     SHO|W GET ok|
|00002a10| 62 75 74 20 45 4e 41 42 | 4c 45 0d 0a 20 20 20 45 |but ENAB|LE..   E|
|00002a20| 4e 44 49 46 0d 0a 45 4c | 53 45 0d 0a 20 20 20 53 |NDIF..EL|SE..   S|
|00002a30| 48 4f 57 20 47 45 54 20 | 70 66 69 6c 6e 61 6d 65 |HOW GET |pfilname|
|00002a40| 20 44 49 53 41 42 4c 45 | 0d 0a 20 20 20 53 48 4f | DISABLE|..   SHO|
|00002a50| 57 20 47 45 54 20 6f 6b | 62 75 74 20 45 4e 41 42 |W GET ok|but ENAB|
|00002a60| 4c 45 0d 0a 45 4e 44 49 | 46 0d 0a 00 00 00 00 00 |LE..ENDI|F.......|
|00002a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002a90| 00 17 3f 3f 20 43 48 52 | 28 37 29 0d 0a 52 45 54 |..?? CHR|(7)..RET|
|00002aa0| 55 52 4e 20 2e 46 2e 0d | 0a 00 00 00 00 00 01 00 |URN .F..|........|
|00002ab0| 00 02 2e 44 4f 20 43 41 | 53 45 0d 0a 43 41 53 45 |...DO CA|SE..CASE|
|00002ac0| 20 6f 6b 62 75 74 20 3d | 20 31 0d 0a 20 20 20 53 | okbut =| 1..   S|
|00002ad0| 45 54 20 50 52 49 4e 54 | 45 52 20 54 4f 0d 0a 0d |ET PRINT|ER TO...|
|00002ae0| 0a 20 20 20 49 46 20 70 | 72 74 73 74 61 74 20 3d |.   IF p|rtstat =|
|00002af0| 20 31 0d 0a 20 20 20 20 | 20 20 53 45 54 20 50 52 | 1..    |  SET PR|
|00002b00| 49 4e 54 20 4f 4e 0d 0a | 20 20 20 45 4c 53 45 0d |INT ON..|   ELSE.|
|00002b10| 0a 20 20 20 20 20 20 53 | 45 54 20 50 52 49 4e 54 |.      S|ET PRINT|
|00002b20| 20 4f 46 46 0d 0a 20 20 | 20 45 4e 44 49 46 0d 0a | OFF..  | ENDIF..|
|00002b30| 0d 0a 20 20 20 70 64 65 | 73 74 20 3d 20 41 4c 4c |..   pde|st = ALL|
|00002b40| 54 52 49 4d 28 55 50 50 | 45 52 28 70 64 65 73 74 |TRIM(UPP|ER(pdest|
|00002b50| 29 29 0d 0a 20 20 20 44 | 4f 20 43 41 53 45 0d 0a |))..   D|O CASE..|
|00002b60| 20 20 20 43 41 53 45 20 | 70 64 65 73 74 20 3d 20 |   CASE |pdest = |
|00002b70| 27 46 49 4c 45 27 0d 0a | 20 20 20 20 20 20 49 46 |'FILE'..|      IF|
|00002b80| 20 21 45 4d 50 54 59 28 | 70 66 69 6c 6e 61 6d 65 | !EMPTY(|pfilname|
|00002b90| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 53 45 54 20 |)..     |    SET |
|00002ba0| 50 52 49 4e 54 45 52 20 | 54 4f 20 28 70 66 69 6c |PRINTER |TO (pfil|
|00002bb0| 6e 61 6d 65 29 0d 0a 20 | 20 20 20 20 20 45 4c 53 |name).. |     ELS|
|00002bc0| 45 0d 0a 20 20 20 20 20 | 20 20 20 20 53 45 54 20 |E..     |    SET |
|00002bd0| 50 52 49 4e 54 45 52 20 | 54 4f 0d 0a 20 20 20 20 |PRINTER |TO..    |
|00002be0| 20 20 45 4e 44 49 46 0d | 0a 20 20 20 4f 54 48 45 |  ENDIF.|.   OTHE|
|00002bf0| 52 57 49 53 45 0d 0a 20 | 20 20 20 20 20 70 66 69 |RWISE.. |     pfi|
|00002c00| 6c 6e 61 6d 65 20 3d 20 | 27 27 0d 0a 20 20 20 20 |lname = |''..    |
|00002c10| 20 20 53 45 54 20 50 52 | 49 4e 54 45 52 20 54 4f |  SET PR|INTER TO|
|00002c20| 20 26 70 64 65 73 74 0d | 0a 20 20 20 45 4e 44 43 | &pdest.|.   ENDC|
|00002c30| 41 53 45 0d 0a 43 41 53 | 45 20 63 61 6e 63 62 75 |ASE..CAS|E cancbu|
|00002c40| 74 20 3d 20 31 0d 0a 20 | 20 20 49 46 20 6f 72 69 |t = 1.. |  IF ori|
|00002c50| 67 70 72 74 73 74 61 74 | 20 3d 20 31 0d 0a 20 20 |gprtstat| = 1..  |
|00002c60| 20 20 20 20 53 45 54 20 | 50 52 49 4e 54 20 4f 4e |    SET |PRINT ON|
|00002c70| 0d 0a 20 20 20 45 4c 53 | 45 0d 0a 20 20 20 20 20 |..   ELS|E..     |
|00002c80| 20 53 45 54 20 50 52 49 | 4e 54 20 4f 46 46 0d 0a | SET PRI|NT OFF..|
|00002c90| 20 20 20 45 4e 44 49 46 | 0d 0a 20 20 20 70 64 65 |   ENDIF|..   pde|
|00002ca0| 73 74 20 3d 20 6f 72 69 | 67 64 65 73 74 0d 0a 20 |st = ori|gdest.. |
|00002cb0| 20 20 70 66 69 6c 6e 61 | 6d 65 20 3d 20 70 72 74 |  pfilna|me = prt|
|00002cc0| 5f 69 6e 66 69 6c 65 0d | 0a 45 4e 44 43 41 53 45 |_infile.|.ENDCASE|
|00002cd0| 0d 0a 73 6b 69 70 76 61 | 72 20 3d 20 2e 46 2e 0d |..skipva|r = .F..|
|00002ce0| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d00| 01 00 00 01 d3 23 54 52 | 41 4e 20 53 4e 49 50 50 |.....#TR|AN SNIPP|
|00002d10| 45 54 20 4f 4e 4c 59 0d | 0a 23 52 45 41 44 43 4c |ET ONLY.|.#READCL|
|00002d20| 41 55 53 45 53 20 4d 4f | 44 41 4c 0d 0a 0d 0a 73 |AUSES MO|DAL....s|
|00002d30| 6b 69 70 76 61 72 20 3d | 20 2e 54 2e 0d 0a 70 66 |kipvar =| .T...pf|
|00002d40| 69 6c 6e 61 6d 65 20 3d | 20 53 50 41 43 45 28 36 |ilname =| SPACE(6|
|00002d50| 37 29 0d 0a 0d 0a 70 64 | 65 73 74 20 3d 20 53 45 |7)....pd|est = SE|
|00002d60| 54 28 27 50 52 49 4e 54 | 45 52 27 2c 31 29 0d 0a |T('PRINT|ER',1)..|
|00002d70| 49 46 20 22 3a 22 20 24 | 20 70 64 65 73 74 0d 0a |IF ":" $| pdest..|
|00002d80| 20 20 20 70 64 65 73 74 | 20 3d 20 4c 45 46 54 28 |   pdest| = LEFT(|
|00002d90| 70 64 65 73 74 2c 41 54 | 28 27 3a 27 2c 70 64 65 |pdest,AT|(':',pde|
|00002da0| 73 74 29 2d 31 29 0d 0a | 45 4e 44 49 46 0d 0a 49 |st)-1)..|ENDIF..I|
|00002db0| 46 20 21 49 4e 4c 49 53 | 54 28 70 64 65 73 74 2c |F !INLIS|T(pdest,|
|00002dc0| 27 50 52 4e 27 2c 27 4c | 50 54 31 27 2c 27 4c 50 |'PRN','L|PT1','LP|
|00002dd0| 54 32 27 2c 27 4c 50 54 | 33 27 2c 27 43 4f 4d 31 |T2','LPT|3','COM1|
|00002de0| 27 2c 27 43 4f 4d 32 27 | 2c 27 43 4f 4d 33 27 29 |','COM2'|,'COM3')|
|00002df0| 0d 0a 20 20 20 70 66 69 | 6c 6e 61 6d 65 20 3d 20 |..   pfi|lname = |
|00002e00| 50 41 44 52 28 70 64 65 | 73 74 2c 36 37 29 0d 0a |PADR(pde|st,67)..|
|00002e10| 20 20 20 70 64 65 73 74 | 20 3d 20 27 46 69 6c 65 |   pdest| = 'File|
|00002e20| 27 0d 0a 45 4e 44 49 46 | 0d 0a 6f 72 69 67 64 65 |'..ENDIF|..origde|
|00002e30| 73 74 20 3d 20 70 64 65 | 73 74 0d 0a 70 72 74 5f |st = pde|st..prt_|
|00002e40| 69 6e 66 69 6c 65 20 3d | 70 66 69 6c 6e 61 6d 65 |infile =|pfilname|
|00002e50| 0d 0a 0d 0a 49 46 20 53 | 45 54 28 27 50 52 49 4e |....IF S|ET('PRIN|
|00002e60| 54 27 29 20 3d 20 27 4f | 4e 27 0d 0a 20 20 20 70 |T') = 'O|N'..   p|
|00002e70| 72 74 73 74 61 74 20 3d | 20 31 0d 0a 45 4c 53 45 |rtstat =| 1..ELSE|
|00002e80| 0d 0a 20 20 20 70 72 74 | 73 74 61 74 20 3d 20 32 |..   prt|stat = 2|
|00002e90| 0d 0a 45 4e 44 49 46 0d | 0a 6f 72 69 67 70 72 74 |..ENDIF.|.origprt|
|00002ea0| 73 74 61 74 20 3d 20 70 | 72 74 73 74 61 74 0d 0a |stat = p|rtstat..|
|00002eb0| 0d 0a 70 64 72 69 76 73 | 74 75 70 20 3d 20 49 49 |..pdrivs|tup = II|
|00002ec0| 46 28 4c 45 4e 28 5f 50 | 44 52 49 56 45 52 29 3d |F(LEN(_P|DRIVER)=|
|00002ed0| 30 2c 30 2c 31 29 0d 0a | 00 00 00 00 00 00 00 00 |0,0,1)..|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002ef0| 00 00 00 0b 22 50 72 69 | 6e 74 20 74 6f 3a 22 00 |...."Pri|nt to:".|
|00002f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f10| 01 00 00 00 0d 4d 53 20 | 53 61 6e 73 20 53 65 72 |.....MS |Sans Ser|
|00002f20| 69 66 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |if......|........|
|00002f30| 00 01 00 00 00 10 22 50 | 72 69 6e 74 65 72 20 53 |......"P|rinter S|
|00002f40| 65 74 75 70 3a 22 00 00 | 00 00 00 00 00 00 00 00 |etup:"..|........|
|00002f50| 00 00 01 00 00 00 0d 4d | 53 20 53 61 6e 73 20 53 |.......M|S Sans S|
|00002f60| 65 72 69 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |erif....|........|
|00002f70| 00 00 00 01 00 00 00 05 | 70 64 65 73 74 00 00 00 |........|pdest...|
|00002f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f90| 00 00 00 00 01 00 00 00 | 2b 22 40 5e 20 46 69 6c |........|+"@^ Fil|
|00002fa0| 65 3b 50 52 4e 3b 4c 50 | 54 31 3b 4c 50 54 32 3b |e;PRN;LP|T1;LPT2;|
|00002fb0| 4c 50 54 33 3b 43 4f 4d | 31 3b 43 4f 4d 32 3b 43 |LPT3;COM|1;COM2;C|
|00002fc0| 4f 4d 33 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |OM3"....|........|
|00002fd0| 00 00 00 00 00 00 01 00 | 00 00 0d 4d 53 20 53 61 |........|...MS Sa|
|00002fe0| 6e 73 20 53 65 72 69 66 | 00 00 00 00 00 00 00 00 |ns Serif|........|
|00002ff0| 00 00 00 00 00 00 00 01 | 00 00 00 3c 49 46 20 55 |........|...<IF U|
|00003000| 50 50 45 52 28 70 64 65 | 73 74 29 20 3d 20 27 46 |PPER(pde|st) = 'F|
|00003010| 49 4c 45 27 0d 0a 20 20 | 20 5f 43 55 52 4f 42 4a |ILE'..  | _CUROBJ|
|00003020| 20 3d 20 33 0d 0a 45 4e | 44 49 46 0d 0a 53 48 4f | = 3..EN|DIF..SHO|
|00003030| 57 20 47 45 54 53 0d 0a | 00 00 00 00 00 00 00 00 |W GETS..|........|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 06 22 |........|......."|
|00003060| 4c 50 54 31 22 00 00 00 | 00 00 00 00 00 00 00 00 |LPT1"...|........|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 05 |........|........|
|00003080| 66 6c 69 73 74 00 00 00 | 00 00 00 00 00 00 00 00 |flist...|........|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000030a0| 10 22 40 2a 48 4e 20 5c | 3c 46 69 6c 65 2e 2e 2e |."@*HN \|<File...|
|000030b0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |".......|........|
|000030c0| 00 0d 4d 53 20 53 61 6e | 73 20 53 65 72 69 66 00 |..MS San|s Serif.|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000030e0| 00 00 ef 49 46 20 66 6c | 69 73 74 20 3d 20 31 0d |...IF fl|ist = 1.|
|000030f0| 0a 20 20 20 6f 72 69 67 | 66 69 6c 65 20 3d 20 70 |.   orig|file = p|
|00003100| 66 69 6c 6e 61 6d 65 0d | 0a 20 20 20 70 66 69 6c |filname.|.   pfil|
|00003110| 6e 61 6d 65 20 3d 20 47 | 45 54 46 49 4c 45 28 27 |name = G|ETFILE('|
|00003120| 27 2c 27 50 72 69 6e 74 | 20 74 6f 3a 27 29 0d 0a |','Print| to:')..|
|00003130| 20 20 20 49 46 20 45 4d | 50 54 59 28 70 66 69 6c |   IF EM|PTY(pfil|
|00003140| 6e 61 6d 65 29 0d 0a 20 | 20 20 20 20 20 70 66 69 |name).. |     pfi|
|00003150| 6c 6e 61 6d 65 20 3d 20 | 6f 72 69 67 66 69 6c 65 |lname = |origfile|
|00003160| 0d 0a 20 20 20 45 4e 44 | 49 46 0d 0a 45 4e 44 49 |..   END|IF..ENDI|
|00003170| 46 0d 0a 70 66 69 6c 6e | 61 6d 65 20 3d 20 55 50 |F..pfiln|ame = UP|
|00003180| 50 45 52 28 50 41 44 52 | 28 70 66 69 6c 6e 61 6d |PER(PADR|(pfilnam|
|00003190| 65 2c 36 37 29 29 0d 0a | 49 46 20 21 45 4d 50 54 |e,67))..|IF !EMPT|
|000031a0| 59 28 70 66 69 6c 6e 61 | 6d 65 29 0d 0a 20 20 20 |Y(pfilna|me)..   |
|000031b0| 70 64 65 73 74 20 3d 20 | 27 46 69 6c 65 27 0d 0a |pdest = |'File'..|
|000031c0| 45 4e 44 49 46 0d 0a 53 | 48 4f 57 20 47 45 54 53 |ENDIF..S|HOW GETS|
|000031d0| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 01 00 | 00 00 09 22 46 69 6c 65 |........|..."File|
|000031f0| 2e 2e 2e 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |..."....|........|
|00003200| 00 00 00 00 00 00 00 01 | 00 00 00 08 70 66 69 6c |........|....pfil|
|00003210| 6e 61 6d 65 00 00 00 00 | 00 00 00 00 00 00 00 00 |name....|........|
|00003220| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 22 40 33 |........|....."@3|
|00003230| 53 36 37 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |S67"....|........|
|00003240| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0d 4d 53 |........|......MS|
|00003250| 20 53 61 6e 73 20 53 65 | 72 69 66 00 00 00 00 00 | Sans Se|rif.....|
|00003260| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 66 70 |........|......fp|
|00003270| 66 69 6c 6e 61 6d 65 20 | 3d 20 50 41 44 52 28 55 |filname |= PADR(U|
|00003280| 50 50 45 52 28 4c 54 52 | 49 4d 28 70 66 69 6c 6e |PPER(LTR|IM(pfiln|
|00003290| 61 6d 65 29 29 2c 36 37 | 29 0d 0a 49 46 20 21 45 |ame)),67|)..IF !E|
|000032a0| 4d 50 54 59 28 70 66 69 | 6c 6e 61 6d 65 29 0d 0a |MPTY(pfi|lname)..|
|000032b0| 20 20 20 70 64 65 73 74 | 20 3d 20 27 46 69 6c 65 |   pdest| = 'File|
|000032c0| 27 0d 0a 45 4e 44 49 46 | 0d 0a 53 48 4f 57 20 47 |'..ENDIF|..SHOW G|
|000032d0| 45 54 53 0d 0a 00 00 00 | 00 00 00 00 00 00 00 00 |ETS.....|........|
|000032e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000032f0| 00 00 07 70 72 74 73 74 | 61 74 00 00 00 00 00 00 |...prtst|at......|
|00003300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003310| 00 00 00 1a 22 40 2a 52 | 56 4e 20 50 72 69 6e 74 |...."@*R|VN Print|
|00003320| 20 4f 6e 3b 50 72 69 6e | 74 20 4f 66 66 22 00 00 | On;Prin|t Off"..|
|00003330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003350| 00 01 00 00 00 0d 4d 53 | 20 53 61 6e 73 20 53 65 |......MS| Sans Se|
|00003360| 72 69 66 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |rif.....|........|
|00003370| 00 00 01 00 00 00 0b 22 | 50 72 69 6e 74 20 4f 66 |......."|Print Of|
|00003380| 66 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f"......|........|
|00003390| 00 00 00 01 00 00 00 08 | 5f 4c 4d 41 52 47 49 4e |........|_LMARGIN|
|000033a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000033b0| 00 00 00 00 01 00 00 00 | 08 22 40 33 20 39 39 39 |........|."@3 999|
|000033c0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|000033d0| 00 00 00 00 00 01 00 00 | 00 0d 4d 53 20 53 61 6e |........|..MS San|
|000033e0| 73 20 53 65 72 69 66 00 | 00 00 00 00 00 00 00 00 |s Serif.|........|
|000033f0| 00 00 00 00 00 00 01 00 | 00 00 27 5f 4c 4d 41 52 |........|..'_LMAR|
|00003400| 47 49 4e 20 3d 20 4d 41 | 58 28 30 2c 5f 4c 4d 41 |GIN = MA|X(0,_LMA|
|00003410| 52 47 49 4e 29 0d 0a 53 | 48 4f 57 20 47 45 54 53 |RGIN)..S|HOW GETS|
|00003420| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003430| 00 00 00 00 00 00 00 00 | 01 00 00 00 08 5f 52 4d |........|....._RM|
|00003440| 41 52 47 49 4e 00 00 00 | 00 00 00 00 00 00 00 00 |ARGIN...|........|
|00003450| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 08 22 40 |........|......"@|
|00003460| 33 20 39 39 39 22 00 00 | 00 00 00 00 00 00 00 00 |3 999"..|........|
|00003470| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 4d |........|.......M|
|00003480| 53 20 53 61 6e 73 20 53 | 65 72 69 66 00 00 00 00 |S Sans S|erif....|
|00003490| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 29 |........|.......)|
|000034a0| 5f 52 4d 41 52 47 49 4e | 20 3d 20 4d 49 4e 28 5f |_RMARGIN| = MIN(_|
|000034b0| 52 4d 41 52 47 49 4e 2c | 32 35 35 29 0d 0a 53 48 |RMARGIN,|255)..SH|
|000034c0| 4f 57 20 47 45 54 53 0d | 0a 00 00 00 00 00 00 00 |OW GETS.|........|
|000034d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000034e0| 00 05 4f 4b 62 75 74 00 | 00 00 00 00 00 00 00 00 |..OKbut.|........|
|000034f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00003500| 00 00 0b 22 40 2a 48 54 | 20 5c 21 4f 4b 22 00 00 |..."@*HT| \!OK"..|
|00003510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003520| 00 00 00 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |....MS S|ans Seri|
|00003530| 66 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f.......|........|
|00003540| 01 00 00 00 04 22 4f 4b | 22 00 00 00 00 00 00 00 |....."OK|".......|
|00003550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003560| 00 01 00 00 00 07 43 61 | 6e 63 42 75 74 00 00 00 |......Ca|ncBut...|
|00003570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003580| 00 00 01 00 00 00 0f 22 | 40 2a 48 54 20 5c 3f 43 |......."|@*HT \?C|
|00003590| 61 6e 63 65 6c 22 00 00 | 00 00 00 00 00 00 00 00 |ancel"..|........|
|000035a0| 00 00 00 01 00 00 00 0d | 4d 53 20 53 61 6e 73 20 |........|MS Sans |
|000035b0| 53 65 72 69 66 00 00 00 | 00 00 00 00 00 00 00 00 |Serif...|........|
|000035c0| 00 00 00 00 01 00 00 00 | 08 22 43 61 6e 63 65 6c |........|."Cancel|
|000035d0| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|000035e0| 00 00 00 00 00 01 00 00 | 00 09 70 64 72 69 76 73 |........|..pdrivs|
|000035f0| 74 75 70 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |tup.....|........|
|00003600| 00 00 00 00 00 00 01 00 | 00 00 1f 22 40 2a 43 20 |........|..."@*C |
|00003610| 50 72 69 6e 74 65 72 20 | 5c 3c 44 72 69 76 65 72 |Printer |\<Driver|
|00003620| 20 53 65 74 75 70 2e 2e | 2e 22 00 00 00 00 00 00 | Setup..|."......|
|00003630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003640| 00 00 00 00 00 00 00 00 | 01 00 00 00 0d 4d 53 20 |........|.....MS |
|00003650| 53 61 6e 73 20 53 65 72 | 69 66 00 00 00 00 00 00 |Sans Ser|if......|
|00003660| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 73 44 4f |........|.....sDO|
|00003670| 20 28 5f 47 45 4e 50 44 | 29 20 57 49 54 48 20 31 | (_GENPD|) WITH 1|
|00003680| 2c 22 3f 22 0d 0a 49 46 | 20 4c 45 4e 28 5f 50 44 |,"?"..IF| LEN(_PD|
|00003690| 53 45 54 55 50 29 20 3d | 20 30 0d 0a 20 20 20 70 |SETUP) =| 0..   p|
|000036a0| 64 72 69 76 73 74 75 70 | 20 3d 20 30 0d 0a 45 4c |drivstup| = 0..EL|
|000036b0| 53 45 0d 0a 20 20 20 70 | 64 72 69 76 73 74 75 70 |SE..   p|drivstup|
|000036c0| 20 3d 20 31 0d 0a 45 4e | 44 49 46 0d 0a 53 48 4f | = 1..EN|DIF..SHO|
|000036d0| 57 20 47 45 54 20 70 64 | 72 69 76 73 74 75 70 0d |W GET pd|rivstup.|
|000036e0| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000036f0| 00 0e 22 4c 65 66 74 20 | 4d 61 72 67 69 6e 3a 22 |.."Left |Margin:"|
|00003700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00003710| 00 00 0d 4d 53 20 53 61 | 6e 73 20 53 65 72 69 66 |...MS Sa|ns Serif|
|00003720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00003730| 00 00 00 0f 22 52 69 67 | 68 74 20 4d 61 72 67 69 |...."Rig|ht Margi|
|00003740| 6e 3a 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |n:".....|........|
|00003750| 01 00 00 00 0d 4d 53 20 | 53 61 6e 73 20 53 65 72 |.....MS |Sans Ser|
|00003760| 69 66 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |if......|........|
|00003770| 00 01 00 00 00 0d 4d 53 | 20 53 61 6e 73 20 53 65 |......MS| Sans Se|
|00003780| 72 69 66 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |rif.....|........|
|00003790| 00 00 01 00 00 00 0d 4d | 53 20 53 61 6e 73 20 53 |.......M|S Sans S|
|000037a0| 65 72 69 66             |                         |erif    |        |
+--------+-------------------------+-------------------------+--------+--------+