Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 4.ddi / LASEREP1.SC_ / LASEREP1.bin
Unknown | 1994-04-28 | 9.4 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	Adobe Photoshop Color swatch, version 0, 293 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)
`99%`	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 25 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| 56 bc 5a 82 40 3c e3 f6 | 93 a3 d5 ed 31 82 84 8c |V.Z.@<..|....1...|
|00000210| 00 00 00 01 00 00 00 13 | 22 4c 61 73 65 72 64 69 |........|"Laserdi|
|00000220| 73 6b 20 52 65 70 6f 72 | 74 73 22 b4 33 02 dc 48 |sk Repor|ts".3..H|
|00000230| bb 00 00 00 01 00 00 00 | 2d 49 46 20 5f 64 6f 73 |........|-IF _dos|
|00000240| 0d 0a 09 53 48 4f 57 20 | 47 45 54 20 61 63 74 69 |...SHOW |GET acti|
|00000250| 6f 6e 32 2c 32 20 44 49 | 53 41 42 4c 45 0d 0a 45 |on2,2 DI|SABLE..E|
|00000260| 4e 44 49 46 0d 0a 00 00 | 00 00 00 00 00 00 00 00 |NDIF....|........|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 59 50 52 49 56 41 |........|..YPRIVA|
|00000280| 54 45 20 61 63 74 69 6f | 6e 2c 20 6e 75 6d 62 72 |TE actio|n, numbr|
|00000290| 65 63 73 2c 20 77 68 69 | 63 68 72 65 70 2c 20 64 |ecs, whi|chrep, d|
|000002a0| 65 73 74 69 6e 79 0d 0a | 0d 0a 77 68 69 63 68 72 |estiny..|..whichr|
|000002b0| 65 70 20 3d 20 31 0d 0a | 6e 75 6d 62 72 65 63 73 |ep = 1..|numbrecs|
|000002c0| 20 3d 20 31 30 30 0d 0a | 61 63 74 69 6f 6e 20 3d | = 100..|action =|
|000002d0| 20 33 0d 0a 00 00 00 00 | 00 01 00 00 00 08 22 52 | 3......|......"R|
|000002e0| 65 70 6f 72 74 22 00 00 | 00 00 00 00 00 00 00 00 |eport"..|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 08 77 |........|.......w|
|00000300| 68 69 63 68 72 65 70 00 | 00 00 00 00 00 00 00 00 |hichrep.|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 4b |........|.......K|
|00000320| 22 40 2a 52 56 4e 20 5c | 3c 49 6e 20 41 6c 70 68 |"@*RVN \|<In Alph|
|00000330| 61 62 65 74 69 63 61 6c | 20 4f 72 64 65 72 3b 5c |abetical| Order;\|
|00000340| 3c 42 79 20 43 61 74 65 | 67 6f 72 79 3b 5c 3c 54 |<By Cate|gory;\<T|
|00000350| 68 65 20 4d 6f 73 74 20 | 52 65 63 65 6e 74 20 41 |he Most |Recent A|
|00000360| 71 75 69 73 69 74 69 6f | 6e 73 22 00 00 00 00 00 |quisitio|ns".....|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00000380| 00 00 cd 44 4f 20 43 41 | 53 45 0d 0a 09 43 41 53 |...DO CA|SE...CAS|
|00000390| 45 20 77 68 69 63 68 72 | 65 70 20 3d 20 31 0d 0a |E whichr|ep = 1..|
|000003a0| 09 09 53 48 4f 57 20 47 | 45 54 20 6e 75 6d 62 72 |..SHOW G|ET numbr|
|000003b0| 65 63 73 20 44 49 53 41 | 42 4c 45 0d 0a 09 43 41 |ecs DISA|BLE...CA|
|000003c0| 53 45 20 77 68 69 63 68 | 72 65 70 20 3d 20 32 0d |SE which|rep = 2.|
|000003d0| 0a 09 09 53 48 4f 57 20 | 47 45 54 20 6e 75 6d 62 |...SHOW |GET numb|
|000003e0| 72 65 63 73 20 44 49 53 | 41 42 4c 45 0d 0a 09 43 |recs DIS|ABLE...C|
|000003f0| 41 53 45 20 77 68 69 63 | 68 72 65 70 20 3d 20 33 |ASE whic|hrep = 3|
|00000400| 0d 0a 09 09 53 48 4f 57 | 20 47 45 54 20 6e 75 6d |....SHOW| GET num|
|00000410| 62 72 65 63 73 20 45 4e | 41 42 4c 45 0d 0a 09 09 |brecs EN|ABLE....|
|00000420| 5f 43 55 52 4f 42 4a 20 | 3d 20 4f 42 4a 4e 55 4d |_CUROBJ |= OBJNUM|
|00000430| 28 6e 75 6d 62 72 65 63 | 73 29 0d 0a 45 4e 44 43 |(numbrec|s)..ENDC|
|00000440| 41 53 45 0d 0a 53 48 4f | 57 20 47 45 54 53 0d 0a |ASE..SHO|W GETS..|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 01 00 00 | 00 17 22 49 6e 20 41 6c |........|.."In Al|
|00000470| 70 68 61 62 65 74 69 63 | 61 6c 20 4f 72 64 65 72 |phabetic|al Order|
|00000480| 22 00 00 00 00 00 01 00 | 00 00 08 6e 75 6d 62 72 |".......|...numbr|
|00000490| 65 63 73 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ecs.....|........|
|000004a0| 00 00 00 00 00 00 00 01 | 00 00 00 04 22 40 4b 22 |........|...."@K"|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 01 00 00 00 79 49 46 20 |........|....yIF |
|000004d0| 6e 75 6d 62 72 65 63 73 | 20 3e 20 52 45 43 43 4f |numbrecs| > RECCO|
|000004e0| 55 4e 54 28 29 0d 0a 09 | 6e 75 6d 62 72 65 63 73 |UNT()...|numbrecs|
|000004f0| 20 3d 20 52 45 43 43 4f | 55 4e 54 28 29 0d 0a 09 | = RECCO|UNT()...|
|00000500| 53 48 4f 57 20 47 45 54 | 53 0d 0a 45 4e 44 49 46 |SHOW GET|S..ENDIF|
|00000510| 0d 0a 49 46 20 6e 75 6d | 62 72 65 63 73 20 3c 3d |..IF num|brecs <=|
|00000520| 20 30 0d 0a 09 6e 75 6d | 62 72 65 63 73 20 3d 20 | 0...num|brecs = |
|00000530| 31 0d 0a 09 53 48 4f 57 | 20 47 45 54 53 0d 0a 45 |1...SHOW| GETS..E|
|00000540| 4e 44 49 46 0d 0a 00 00 | 00 00 00 00 01 00 00 00 |NDIF....|........|
|00000550| 07 61 63 74 69 6f 6e 31 | 00 00 00 00 00 00 00 00 |.action1|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000570| 00 20 22 40 2a 48 4e 20 | 5c 3c 50 72 69 6e 74 65 |. "@*HN |\<Printe|
|00000580| 72 3b 50 72 69 6e 74 20 | 50 72 65 5c 3c 76 69 65 |r;Print |Pre\<vie|
|00000590| 77 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |w"......|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000005b0| 00 00 02 d3 50 52 49 56 | 41 54 45 20 6f 6c 64 6f |....PRIV|ATE oldo|
|000005c0| 72 64 65 72 0d 0a 44 4f | 20 43 41 53 45 0d 0a 09 |rder..DO| CASE...|
|000005d0| 43 41 53 45 20 61 63 74 | 69 6f 6e 31 20 3d 20 31 |CASE act|ion1 = 1|
|000005e0| 0d 0a 09 09 64 65 73 74 | 69 6e 79 20 3d 20 22 54 |....dest|iny = "T|
|000005f0| 4f 20 50 52 49 4e 54 45 | 52 20 50 52 4f 4d 50 54 |O PRINTE|R PROMPT|
|00000600| 20 4e 4f 43 4f 4e 53 4f | 4c 45 22 0d 0a 09 43 41 | NOCONSO|LE"...CA|
|00000610| 53 45 20 61 63 74 69 6f | 6e 31 20 3d 20 32 0d 0a |SE actio|n1 = 2..|
|00000620| 09 09 64 65 73 74 69 6e | 79 20 3d 20 22 50 52 45 |..destin|y = "PRE|
|00000630| 56 49 45 57 22 0d 0a 45 | 4e 44 43 41 53 45 0d 0a |VIEW"..E|NDCASE..|
|00000640| 0d 0a 6f 6c 64 6f 72 64 | 65 72 20 3d 20 4f 52 44 |..oldord|er = ORD|
|00000650| 45 52 28 29 0d 0a 44 4f | 20 43 41 53 45 0d 0a 09 |ER()..DO| CASE...|
|00000660| 43 41 53 45 20 77 68 69 | 63 68 72 65 70 20 3d 20 |CASE whi|chrep = |
|00000670| 31 0d 0a 09 09 53 45 54 | 20 4f 52 44 45 52 20 54 |1....SET| ORDER T|
|00000680| 4f 20 54 49 54 4c 45 0d | 0a 09 09 52 45 50 4f 52 |O TITLE.|...REPOR|
|00000690| 54 20 46 4f 52 4d 20 6c | 61 73 65 72 2e 66 72 78 |T FORM l|aser.frx|
|000006a0| 20 26 64 65 73 74 69 6e | 79 0d 0a 09 09 44 4f 20 | &destin|y....DO |
|000006b0| 72 65 73 74 6f 72 65 6f | 72 64 0d 0a 09 43 41 53 |restoreo|rd...CAS|
|000006c0| 45 20 77 68 69 63 68 72 | 65 70 20 3d 20 32 0d 0a |E whichr|ep = 2..|
|000006d0| 09 09 53 45 54 20 4f 52 | 44 45 52 20 54 4f 20 6e |..SET OR|DER TO n|
|000006e0| 63 61 74 74 69 74 6c 65 | 0d 0a 09 09 52 45 50 4f |cattitle|....REPO|
|000006f0| 52 54 20 46 4f 52 4d 20 | 6c 61 73 65 72 2e 66 72 |RT FORM |laser.fr|
|00000700| 78 20 26 64 65 73 74 69 | 6e 79 0d 0a 09 09 44 4f |x &desti|ny....DO|
|00000710| 20 72 65 73 74 6f 72 65 | 6f 72 64 0d 0a 09 43 41 | restore|ord...CA|
|00000720| 53 45 20 77 68 69 63 68 | 72 65 70 20 3d 20 33 0d |SE which|rep = 3.|
|00000730| 0a 09 09 53 45 4c 45 43 | 54 20 2a 3b 0d 0a 09 09 |...SELEC|T *;....|
|00000740| 09 46 52 4f 4d 20 6c 61 | 73 65 72 3b 0d 0a 09 09 |.FROM la|ser;....|
|00000750| 09 57 48 45 52 45 20 52 | 45 43 4e 4f 28 29 20 3e |.WHERE R|ECNO() >|
|00000760| 20 52 45 43 43 4f 55 4e | 54 28 29 20 2d 20 6e 75 | RECCOUN|T() - nu|
|00000770| 6d 62 72 65 63 73 3b 0d | 0a 09 09 09 4f 52 44 45 |mbrecs;.|....ORDE|
|00000780| 52 20 42 59 20 6c 61 73 | 65 72 2e 74 69 74 6c 65 |R BY las|er.title|
|00000790| 3b 0d 0a 09 09 09 49 4e | 54 4f 20 43 55 52 53 4f |;.....IN|TO CURSO|
|000007a0| 52 20 6c 61 73 65 6e 65 | 77 32 0d 0a 09 09 52 45 |R lasene|w2....RE|
|000007b0| 50 4f 52 54 20 46 4f 52 | 4d 20 6c 61 73 65 72 2e |PORT FOR|M laser.|
|000007c0| 66 72 78 20 26 64 65 73 | 74 69 6e 79 0d 0a 09 09 |frx &des|tiny....|
|000007d0| 55 53 45 0d 0a 09 09 53 | 45 4c 45 43 54 20 6c 61 |USE....S|ELECT la|
|000007e0| 73 65 72 0d 0a 09 09 43 | 4c 45 41 52 20 52 45 41 |ser....C|LEAR REA|
|000007f0| 44 0d 0a 45 4e 44 43 41 | 53 45 0d 0a 52 45 54 55 |D..ENDCA|SE..RETU|
|00000800| 52 4e 0d 0a 0d 0a 50 52 | 4f 43 45 44 55 52 45 20 |RN....PR|OCEDURE |
|00000810| 72 65 73 74 6f 72 65 6f | 72 64 0d 0a 49 46 20 4c |restoreo|rd..IF L|
|00000820| 45 4e 28 6f 6c 64 6f 72 | 64 65 72 29 20 3d 20 30 |EN(oldor|der) = 0|
|00000830| 0d 0a 09 53 45 54 20 4f | 52 44 45 52 20 54 4f 0d |...SET O|RDER TO.|
|00000840| 0a 45 4c 53 45 0d 0a 09 | 53 45 54 20 4f 52 44 45 |.ELSE...|SET ORDE|
|00000850| 52 20 54 4f 20 28 6f 6c | 64 6f 72 64 65 72 29 0d |R TO (ol|dorder).|
|00000860| 0a 45 4e 44 49 46 0d 0a | 47 4f 20 54 4f 50 0d 0a |.ENDIF..|GO TOP..|
|00000870| 43 4c 45 41 52 20 52 45 | 41 44 0d 0a 53 48 4f 57 |CLEAR RE|AD..SHOW|
|00000880| 20 47 45 54 53 0d 0a d0 | 48 53 49 5a 92 de 46 2c | GETS...|HSIZ..F,|
|00000890| 2c 14 e0 7f 27 1a 29 e0 | 2c 2a 3f d0 a0 f1 0f 04 |,...'.).|,*?.....|
|000008a0| e0 f0 46 00 00 00 01 00 | 00 00 09 22 50 72 69 6e |..F.....|..."Prin|
|000008b0| 74 65 72 22 00 00 00 00 | 00 00 00 00 00 00 00 00 |ter"....|........|
|000008c0| 00 00 00 00 00 00 00 01 | 00 00 00 07 61 63 74 69 |........|....acti|
|000008d0| 6f 6e 32 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |on2.....|........|
|000008e0| 00 00 00 00 00 00 00 00 | 01 00 00 00 34 22 40 2a |........|....4"@*|
|000008f0| 48 4e 20 5c 3c 41 53 43 | 49 49 20 54 65 78 74 20 |HN \<ASC|II Text |
|00000900| 46 69 6c 65 3b 5c 3c 46 | 69 6c 65 20 74 68 72 6f |File;\<F|ile thro|
|00000910| 75 67 68 20 50 72 69 6e | 74 20 44 72 69 76 65 72 |ugh Prin|t Driver|
|00000920| 22 00 00 00 00 00 00 00 | 00 00 01 00 00 03 77 50 |".......|......wP|
|00000930| 52 49 56 41 54 45 20 6f | 6c 64 6f 72 64 65 72 0d |RIVATE o|ldorder.|
|00000940| 0a 0d 0a 44 4f 20 43 41 | 53 45 0d 0a 09 43 41 53 |...DO CA|SE...CAS|
|00000950| 45 20 61 63 74 69 6f 6e | 32 20 3d 20 31 0d 0a 09 |E action|2 = 1...|
|00000960| 09 53 45 4c 45 43 54 20 | 30 0d 0a 09 09 55 53 45 |.SELECT |0....USE|
|00000970| 20 6c 61 73 65 72 2e 66 | 72 78 0d 0a 09 09 43 4f | laser.f|rx....CO|
|00000980| 50 59 20 54 4f 20 6c 61 | 73 65 72 64 6f 73 2e 66 |PY TO la|serdos.f|
|00000990| 72 78 20 46 4f 52 20 70 | 6c 61 74 66 6f 72 6d 20 |rx FOR p|latform |
|000009a0| 3d 20 27 44 4f 53 27 0d | 0a 09 09 55 53 45 0d 0a |= 'DOS'.|...USE..|
|000009b0| 09 09 53 45 4c 45 43 54 | 20 6c 61 73 65 72 0d 0a |..SELECT| laser..|
|000009c0| 09 09 64 65 73 74 69 6e | 79 20 3d 20 22 6c 61 73 |..destin|y = "las|
|000009d0| 65 72 64 6f 73 2e 66 72 | 78 20 54 4f 20 46 49 4c |erdos.fr|x TO FIL|
|000009e0| 45 20 6c 61 73 65 72 2e | 74 78 74 20 4e 4f 43 4f |E laser.|txt NOCO|
|000009f0| 4e 53 4f 4c 45 22 0d 0a | 09 43 41 53 45 20 61 63 |NSOLE"..|.CASE ac|
|00000a00| 74 69 6f 6e 32 20 3d 20 | 32 0d 0a 09 09 64 65 73 |tion2 = |2....des|
|00000a10| 74 69 6e 79 20 3d 20 22 | 6c 61 73 65 72 2e 66 72 |tiny = "|laser.fr|
|00000a20| 78 20 54 4f 20 46 49 4c | 45 20 6c 61 73 65 72 2e |x TO FIL|E laser.|
|00000a30| 70 72 74 20 4e 4f 43 4f | 4e 53 4f 4c 45 22 0d 0a |prt NOCO|NSOLE"..|
|00000a40| 45 4e 44 43 41 53 45 0d | 0a 0d 0a 6f 6c 64 6f 72 |ENDCASE.|...oldor|
|00000a50| 64 65 72 20 3d 20 4f 52 | 44 45 52 28 29 0d 0a 44 |der = OR|DER()..D|
|00000a60| 4f 20 43 41 53 45 0d 0a | 09 43 41 53 45 20 77 68 |O CASE..|.CASE wh|
|00000a70| 69 63 68 72 65 70 20 3d | 20 31 0d 0a 09 09 53 45 |ichrep =| 1....SE|
|00000a80| 54 20 4f 52 44 45 52 20 | 54 4f 20 54 49 54 4c 45 |T ORDER |TO TITLE|
|00000a90| 0d 0a 09 09 52 45 50 4f | 52 54 20 46 4f 52 4d 20 |....REPO|RT FORM |
|00000aa0| 26 64 65 73 74 69 6e 79 | 0d 0a 09 09 44 4f 20 72 |&destiny|....DO r|
|00000ab0| 65 73 74 6f 72 65 6f 72 | 64 0d 0a 09 43 41 53 45 |estoreor|d...CASE|
|00000ac0| 20 77 68 69 63 68 72 65 | 70 20 3d 20 32 0d 0a 09 | whichre|p = 2...|
|00000ad0| 09 53 45 54 20 4f 52 44 | 45 52 20 54 4f 20 6e 63 |.SET ORD|ER TO nc|
|00000ae0| 61 74 74 69 74 6c 65 0d | 0a 09 09 52 45 50 4f 52 |attitle.|...REPOR|
|00000af0| 54 20 46 4f 52 4d 20 26 | 64 65 73 74 69 6e 79 0d |T FORM &|destiny.|
|00000b00| 0a 09 09 44 4f 20 72 65 | 73 74 6f 72 65 6f 72 64 |...DO re|storeord|
|00000b10| 0d 0a 09 43 41 53 45 20 | 77 68 69 63 68 72 65 70 |...CASE |whichrep|
|00000b20| 20 3d 20 33 0d 0a 09 09 | 53 45 4c 45 43 54 20 2a | = 3....|SELECT *|
|00000b30| 3b 0d 0a 09 09 09 46 52 | 4f 4d 20 6c 61 73 65 72 |;.....FR|OM laser|
|00000b40| 3b 0d 0a 09 09 09 57 48 | 45 52 45 20 52 45 43 4e |;.....WH|ERE RECN|
|00000b50| 4f 28 29 20 3e 20 52 45 | 43 43 4f 55 4e 54 28 29 |O() > RE|CCOUNT()|
|00000b60| 20 2d 20 6e 75 6d 62 72 | 65 63 73 3b 0d 0a 09 09 | - numbr|ecs;....|
|00000b70| 09 4f 52 44 45 52 20 42 | 59 20 6c 61 73 65 72 2e |.ORDER B|Y laser.|
|00000b80| 74 69 74 6c 65 3b 0d 0a | 09 09 09 49 4e 54 4f 20 |title;..|...INTO |
|00000b90| 43 55 52 53 4f 52 20 6c | 61 73 65 6e 65 77 32 0d |CURSOR l|asenew2.|
|00000ba0| 0a 09 09 52 45 50 4f 52 | 54 20 46 4f 52 4d 20 26 |...REPOR|T FORM &|
|00000bb0| 64 65 73 74 69 6e 79 0d | 0a 09 09 55 53 45 0d 0a |destiny.|...USE..|
|00000bc0| 09 09 53 45 4c 45 43 54 | 20 6c 61 73 65 72 0d 0a |..SELECT| laser..|
|00000bd0| 09 09 43 4c 45 41 52 20 | 52 45 41 44 0d 0a 45 4e |..CLEAR |READ..EN|
|00000be0| 44 43 41 53 45 0d 0a 44 | 45 4c 45 54 45 20 46 49 |DCASE..D|ELETE FI|
|00000bf0| 4c 45 20 6c 61 73 65 72 | 64 6f 73 2e 66 72 78 0d |LE laser|dos.frx.|
|00000c00| 0a 44 45 4c 45 54 45 20 | 46 49 4c 45 20 6c 61 73 |.DELETE |FILE las|
|00000c10| 65 72 64 6f 73 2e 66 72 | 74 0d 0a 52 45 54 55 52 |erdos.fr|t..RETUR|
|00000c20| 4e 0d 0a 0d 0a 50 52 4f | 43 45 44 55 52 45 20 72 |N....PRO|CEDURE r|
|00000c30| 65 73 74 6f 72 65 6f 72 | 64 0d 0a 49 46 20 4c 45 |estoreor|d..IF LE|
|00000c40| 4e 28 6f 6c 64 6f 72 64 | 65 72 29 20 3d 20 30 0d |N(oldord|er) = 0.|
|00000c50| 0a 09 53 45 54 20 4f 52 | 44 45 52 20 54 4f 0d 0a |..SET OR|DER TO..|
|00000c60| 45 4c 53 45 0d 0a 09 53 | 45 54 20 4f 52 44 45 52 |ELSE...S|ET ORDER|
|00000c70| 20 54 4f 20 28 6f 6c 64 | 6f 72 64 65 72 29 0d 0a | TO (old|order)..|
|00000c80| 45 4e 44 49 46 0d 0a 47 | 4f 20 54 4f 50 0d 0a 43 |ENDIF..G|O TOP..C|
|00000c90| 4c 45 41 52 20 52 45 41 | 44 0d 0a 53 48 4f 57 20 |LEAR REA|D..SHOW |
|00000ca0| 47 45 54 53 0d 0a 00 00 | 00 00 00 00 00 00 00 00 |GETS....|........|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 00 00 00 01 00 | 00 00 11 22 41 53 43 49 |........|..."ASCI|
|00000cd0| 49 20 54 65 78 74 20 46 | 69 6c 65 22 00 00 00 00 |I Text F|ile"....|
|00000ce0| 00 00 00 00 00 00 00 01 | 00 00 00 0a 22 50 72 69 |........|...."Pri|
|00000cf0| 6e 74 20 54 6f 22 00 00 | 00 00 00 00 00 00 00 00 |nt To"..|........|
|00000d00| 00 00 00 00 00 00 00 00 | 01 00 00 00 05 63 6c 6f |........|.....clo|
|00000d10| 73 65 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |se......|........|
|00000d20| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0f 22 40 |........|......"@|
|00000d30| 2a 48 54 20 5c 3f 43 61 | 6e 63 65 6c 22 00 00 00 |*HT \?Ca|ncel"...|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 08 22 |........|......."|
|00000d50| 43 61 6e 63 65 6c 22 00 | 00 00 00 00 00 00 00 00 |Cancel".|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 13 |........|........|
|00000d70| 22 4c 61 73 65 72 64 69 | 73 6b 20 52 65 70 6f 72 |"Laserdi|sk Repor|
|00000d80| 74 73 22 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |ts".....|........|
|00000d90| 86 50 52 49 56 41 54 45 | 20 61 63 74 69 6f 6e 2c |.PRIVATE| action,|
|00000da0| 20 6e 75 6d 62 72 65 63 | 73 2c 20 77 68 69 63 68 | numbrec|s, which|
|00000db0| 72 65 70 2c 20 64 65 73 | 74 69 6e 79 0d 0a 0d 0a |rep, des|tiny....|
|00000dc0| 77 68 69 63 68 72 65 70 | 20 3d 20 31 0d 0a 6e 75 |whichrep| = 1..nu|
|00000dd0| 6d 62 72 65 63 73 20 3d | 20 31 30 30 0d 0a 61 63 |mbrecs =| 100..ac|
|00000de0| 74 69 6f 6e 20 3d 20 33 | 0d 0a 49 46 20 5f 64 6f |tion = 3|..IF _do|
|00000df0| 73 0d 0a 09 53 48 4f 57 | 20 47 45 54 20 61 63 74 |s...SHOW| GET act|
|00000e00| 69 6f 6e 32 2c 32 20 44 | 49 53 41 42 4c 45 0d 0a |ion2,2 D|ISABLE..|
|00000e10| 45 4e 44 49 46 0d 0a 9c | 52 4b 42 f9 14 00 da f8 |ENDIF...|RKB.....|
|00000e20| 4d 52 23 ef 06 4d 6d 38 | 74 cc 26 02 00 00 00 00 |MR#..Mm8|t.&.....|
|00000e30| 00 01 00 00 00 08 22 52 | 65 70 6f 72 74 22 00 00 |......"R|eport"..|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 01 00 00 00 08 77 | 68 69 63 68 72 65 70 00 |.......w|hichrep.|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 01 00 00 00 4b | 22 40 2a 52 56 4e 20 5c |.......K|"@*RVN \|
|00000e80| 3c 49 6e 20 41 6c 70 68 | 61 62 65 74 69 63 61 6c |<In Alph|abetical|
|00000e90| 20 4f 72 64 65 72 3b 5c | 3c 42 79 20 43 61 74 65 | Order;\|<By Cate|
|00000ea0| 67 6f 72 79 3b 5c 3c 54 | 68 65 20 4d 6f 73 74 20 |gory;\<T|he Most |
|00000eb0| 52 65 63 65 6e 74 20 41 | 71 75 69 73 69 74 69 6f |Recent A|quisitio|
|00000ec0| 6e 73 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ns".....|........|
|00000ed0| 00 00 00 00 00 00 01 00 | 00 00 cd 44 4f 20 43 41 |........|...DO CA|
|00000ee0| 53 45 0d 0a 09 43 41 53 | 45 20 77 68 69 63 68 72 |SE...CAS|E whichr|
|00000ef0| 65 70 20 3d 20 31 0d 0a | 09 09 53 48 4f 57 20 47 |ep = 1..|..SHOW G|
|00000f00| 45 54 20 6e 75 6d 62 72 | 65 63 73 20 44 49 53 41 |ET numbr|ecs DISA|
|00000f10| 42 4c 45 0d 0a 09 43 41 | 53 45 20 77 68 69 63 68 |BLE...CA|SE which|
|00000f20| 72 65 70 20 3d 20 32 0d | 0a 09 09 53 48 4f 57 20 |rep = 2.|...SHOW |
|00000f30| 47 45 54 20 6e 75 6d 62 | 72 65 63 73 20 44 49 53 |GET numb|recs DIS|
|00000f40| 41 42 4c 45 0d 0a 09 43 | 41 53 45 20 77 68 69 63 |ABLE...C|ASE whic|
|00000f50| 68 72 65 70 20 3d 20 33 | 0d 0a 09 09 53 48 4f 57 |hrep = 3|....SHOW|
|00000f60| 20 47 45 54 20 6e 75 6d | 62 72 65 63 73 20 45 4e | GET num|brecs EN|
|00000f70| 41 42 4c 45 0d 0a 09 09 | 5f 43 55 52 4f 42 4a 20 |ABLE....|_CUROBJ |
|00000f80| 3d 20 4f 42 4a 4e 55 4d | 28 6e 75 6d 62 72 65 63 |= OBJNUM|(numbrec|
|00000f90| 73 29 0d 0a 45 4e 44 43 | 41 53 45 0d 0a 53 48 4f |s)..ENDC|ASE..SHO|
|00000fa0| 57 20 47 45 54 53 0d 0a | 00 00 00 00 00 00 00 00 |W GETS..|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000fc0| 00 17 22 49 6e 20 41 6c | 70 68 61 62 65 74 69 63 |.."In Al|phabetic|
|00000fd0| 61 6c 20 4f 72 64 65 72 | 22 00 00 00 00 00 01 00 |al Order|".......|
|00000fe0| 00 00 08 6e 75 6d 62 72 | 65 63 73 00 00 00 00 00 |...numbr|ecs.....|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001000| 00 00 00 04 22 40 4b 22 | 00 00 00 00 00 00 00 00 |...."@K"|........|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 01 00 00 00 79 49 46 20 | 6e 75 6d 62 72 65 63 73 |....yIF |numbrecs|
|00001030| 20 3e 20 52 45 43 43 4f | 55 4e 54 28 29 0d 0a 09 | > RECCO|UNT()...|
|00001040| 6e 75 6d 62 72 65 63 73 | 20 3d 20 52 45 43 43 4f |numbrecs| = RECCO|
|00001050| 55 4e 54 28 29 0d 0a 09 | 53 48 4f 57 20 47 45 54 |UNT()...|SHOW GET|
|00001060| 53 0d 0a 45 4e 44 49 46 | 0d 0a 49 46 20 6e 75 6d |S..ENDIF|..IF num|
|00001070| 62 72 65 63 73 20 3c 3d | 20 30 0d 0a 09 6e 75 6d |brecs <=| 0...num|
|00001080| 62 72 65 63 73 20 3d 20 | 31 0d 0a 09 53 48 4f 57 |brecs = |1...SHOW|
|00001090| 20 47 45 54 53 0d 0a 45 | 4e 44 49 46 0d 0a 00 00 | GETS..E|NDIF....|
|000010a0| 00 00 00 00 01 00 00 00 | 07 61 63 74 69 6f 6e 31 |........|.action1|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 01 00 00 | 00 20 22 40 2a 48 4e 20 |........|. "@*HN |
|000010d0| 5c 3c 50 72 69 6e 74 65 | 72 3b 50 72 69 6e 74 20 |\<Printe|r;Print |
|000010e0| 50 72 65 5c 3c 76 69 65 | 77 22 00 00 00 00 00 00 |Pre\<vie|w"......|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 00 00 00 00 00 00 01 | 00 00 02 d3 50 52 49 56 |........|....PRIV|
|00001110| 41 54 45 20 6f 6c 64 6f | 72 64 65 72 0d 0a 44 4f |ATE oldo|rder..DO|
|00001120| 20 43 41 53 45 0d 0a 09 | 43 41 53 45 20 61 63 74 | CASE...|CASE act|
|00001130| 69 6f 6e 31 20 3d 20 31 | 0d 0a 09 09 64 65 73 74 |ion1 = 1|....dest|
|00001140| 69 6e 79 20 3d 20 22 54 | 4f 20 50 52 49 4e 54 45 |iny = "T|O PRINTE|
|00001150| 52 20 50 52 4f 4d 50 54 | 20 4e 4f 43 4f 4e 53 4f |R PROMPT| NOCONSO|
|00001160| 4c 45 22 0d 0a 09 43 41 | 53 45 20 61 63 74 69 6f |LE"...CA|SE actio|
|00001170| 6e 31 20 3d 20 32 0d 0a | 09 09 64 65 73 74 69 6e |n1 = 2..|..destin|
|00001180| 79 20 3d 20 22 50 52 45 | 56 49 45 57 22 0d 0a 45 |y = "PRE|VIEW"..E|
|00001190| 4e 44 43 41 53 45 0d 0a | 0d 0a 6f 6c 64 6f 72 64 |NDCASE..|..oldord|
|000011a0| 65 72 20 3d 20 4f 52 44 | 45 52 28 29 0d 0a 44 4f |er = ORD|ER()..DO|
|000011b0| 20 43 41 53 45 0d 0a 09 | 43 41 53 45 20 77 68 69 | CASE...|CASE whi|
|000011c0| 63 68 72 65 70 20 3d 20 | 31 0d 0a 09 09 53 45 54 |chrep = |1....SET|
|000011d0| 20 4f 52 44 45 52 20 54 | 4f 20 54 49 54 4c 45 0d | ORDER T|O TITLE.|
|000011e0| 0a 09 09 52 45 50 4f 52 | 54 20 46 4f 52 4d 20 6c |...REPOR|T FORM l|
|000011f0| 61 73 65 72 2e 66 72 78 | 20 26 64 65 73 74 69 6e |aser.frx| &destin|
|00001200| 79 0d 0a 09 09 44 4f 20 | 72 65 73 74 6f 72 65 6f |y....DO |restoreo|
|00001210| 72 64 0d 0a 09 43 41 53 | 45 20 77 68 69 63 68 72 |rd...CAS|E whichr|
|00001220| 65 70 20 3d 20 32 0d 0a | 09 09 53 45 54 20 4f 52 |ep = 2..|..SET OR|
|00001230| 44 45 52 20 54 4f 20 6e | 63 61 74 74 69 74 6c 65 |DER TO n|cattitle|
|00001240| 0d 0a 09 09 52 45 50 4f | 52 54 20 46 4f 52 4d 20 |....REPO|RT FORM |
|00001250| 6c 61 73 65 72 2e 66 72 | 78 20 26 64 65 73 74 69 |laser.fr|x &desti|
|00001260| 6e 79 0d 0a 09 09 44 4f | 20 72 65 73 74 6f 72 65 |ny....DO| restore|
|00001270| 6f 72 64 0d 0a 09 43 41 | 53 45 20 77 68 69 63 68 |ord...CA|SE which|
|00001280| 72 65 70 20 3d 20 33 0d | 0a 09 09 53 45 4c 45 43 |rep = 3.|...SELEC|
|00001290| 54 20 2a 3b 0d 0a 09 09 | 09 46 52 4f 4d 20 6c 61 |T *;....|.FROM la|
|000012a0| 73 65 72 3b 0d 0a 09 09 | 09 57 48 45 52 45 20 52 |ser;....|.WHERE R|
|000012b0| 45 43 4e 4f 28 29 20 3e | 20 52 45 43 43 4f 55 4e |ECNO() >| RECCOUN|
|000012c0| 54 28 29 20 2d 20 6e 75 | 6d 62 72 65 63 73 3b 0d |T() - nu|mbrecs;.|
|000012d0| 0a 09 09 09 4f 52 44 45 | 52 20 42 59 20 6c 61 73 |....ORDE|R BY las|
|000012e0| 65 72 2e 74 69 74 6c 65 | 3b 0d 0a 09 09 09 49 4e |er.title|;.....IN|
|000012f0| 54 4f 20 43 55 52 53 4f | 52 20 6c 61 73 65 6e 65 |TO CURSO|R lasene|
|00001300| 77 32 0d 0a 09 09 52 45 | 50 4f 52 54 20 46 4f 52 |w2....RE|PORT FOR|
|00001310| 4d 20 6c 61 73 65 72 2e | 66 72 78 20 26 64 65 73 |M laser.|frx &des|
|00001320| 74 69 6e 79 0d 0a 09 09 | 55 53 45 0d 0a 09 09 53 |tiny....|USE....S|
|00001330| 45 4c 45 43 54 20 6c 61 | 73 65 72 0d 0a 09 09 43 |ELECT la|ser....C|
|00001340| 4c 45 41 52 20 52 45 41 | 44 0d 0a 45 4e 44 43 41 |LEAR REA|D..ENDCA|
|00001350| 53 45 0d 0a 52 45 54 55 | 52 4e 0d 0a 0d 0a 50 52 |SE..RETU|RN....PR|
|00001360| 4f 43 45 44 55 52 45 20 | 72 65 73 74 6f 72 65 6f |OCEDURE |restoreo|
|00001370| 72 64 0d 0a 49 46 20 4c | 45 4e 28 6f 6c 64 6f 72 |rd..IF L|EN(oldor|
|00001380| 64 65 72 29 20 3d 20 30 | 0d 0a 09 53 45 54 20 4f |der) = 0|...SET O|
|00001390| 52 44 45 52 20 54 4f 0d | 0a 45 4c 53 45 0d 0a 09 |RDER TO.|.ELSE...|
|000013a0| 53 45 54 20 4f 52 44 45 | 52 20 54 4f 20 28 6f 6c |SET ORDE|R TO (ol|
|000013b0| 64 6f 72 64 65 72 29 0d | 0a 45 4e 44 49 46 0d 0a |dorder).|.ENDIF..|
|000013c0| 47 4f 20 54 4f 50 0d 0a | 43 4c 45 41 52 20 52 45 |GO TOP..|CLEAR RE|
|000013d0| 41 44 0d 0a 53 48 4f 57 | 20 47 45 54 53 0d 0a 00 |AD..SHOW| GETS...|
|000013e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001400| 00 00 09 22 50 72 69 6e | 74 65 72 22 00 00 00 00 |..."Prin|ter"....|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001420| 00 00 00 07 61 63 74 69 | 6f 6e 32 00 00 00 00 00 |....acti|on2.....|
|00001430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001440| 01 00 00 00 34 22 40 2a | 48 4e 20 5c 3c 41 53 43 |....4"@*|HN \<ASC|
|00001450| 49 49 20 54 65 78 74 20 | 46 69 6c 65 3b 5c 3c 46 |II Text |File;\<F|
|00001460| 69 6c 65 20 74 68 72 6f | 75 67 68 20 50 72 69 6e |ile thro|ugh Prin|
|00001470| 74 20 44 72 69 76 65 72 | 22 00 00 00 00 00 00 00 |t Driver|".......|
|00001480| 00 00 01 00 00 03 77 50 | 52 49 56 41 54 45 20 6f |......wP|RIVATE o|
|00001490| 6c 64 6f 72 64 65 72 0d | 0a 0d 0a 44 4f 20 43 41 |ldorder.|...DO CA|
|000014a0| 53 45 0d 0a 09 43 41 53 | 45 20 61 63 74 69 6f 6e |SE...CAS|E action|
|000014b0| 32 20 3d 20 31 0d 0a 09 | 09 53 45 4c 45 43 54 20 |2 = 1...|.SELECT |
|000014c0| 30 0d 0a 09 09 55 53 45 | 20 6c 61 73 65 72 2e 66 |0....USE| laser.f|
|000014d0| 72 78 0d 0a 09 09 43 4f | 50 59 20 54 4f 20 6c 61 |rx....CO|PY TO la|
|000014e0| 73 65 72 64 6f 73 2e 66 | 72 78 20 46 4f 52 20 70 |serdos.f|rx FOR p|
|000014f0| 6c 61 74 66 6f 72 6d 20 | 3d 20 27 44 4f 53 27 0d |latform |= 'DOS'.|
|00001500| 0a 09 09 55 53 45 0d 0a | 09 09 53 45 4c 45 43 54 |...USE..|..SELECT|
|00001510| 20 6c 61 73 65 72 0d 0a | 09 09 64 65 73 74 69 6e | laser..|..destin|
|00001520| 79 20 3d 20 22 6c 61 73 | 65 72 64 6f 73 2e 66 72 |y = "las|erdos.fr|
|00001530| 78 20 54 4f 20 46 49 4c | 45 20 6c 61 73 65 72 2e |x TO FIL|E laser.|
|00001540| 74 78 74 20 4e 4f 43 4f | 4e 53 4f 4c 45 22 0d 0a |txt NOCO|NSOLE"..|
|00001550| 09 43 41 53 45 20 61 63 | 74 69 6f 6e 32 20 3d 20 |.CASE ac|tion2 = |
|00001560| 32 0d 0a 09 09 64 65 73 | 74 69 6e 79 20 3d 20 22 |2....des|tiny = "|
|00001570| 6c 61 73 65 72 2e 66 72 | 78 20 54 4f 20 46 49 4c |laser.fr|x TO FIL|
|00001580| 45 20 6c 61 73 65 72 2e | 70 72 74 20 4e 4f 43 4f |E laser.|prt NOCO|
|00001590| 4e 53 4f 4c 45 22 0d 0a | 45 4e 44 43 41 53 45 0d |NSOLE"..|ENDCASE.|
|000015a0| 0a 0d 0a 6f 6c 64 6f 72 | 64 65 72 20 3d 20 4f 52 |...oldor|der = OR|
|000015b0| 44 45 52 28 29 0d 0a 44 | 4f 20 43 41 53 45 0d 0a |DER()..D|O CASE..|
|000015c0| 09 43 41 53 45 20 77 68 | 69 63 68 72 65 70 20 3d |.CASE wh|ichrep =|
|000015d0| 20 31 0d 0a 09 09 53 45 | 54 20 4f 52 44 45 52 20 | 1....SE|T ORDER |
|000015e0| 54 4f 20 54 49 54 4c 45 | 0d 0a 09 09 52 45 50 4f |TO TITLE|....REPO|
|000015f0| 52 54 20 46 4f 52 4d 20 | 26 64 65 73 74 69 6e 79 |RT FORM |&destiny|
|00001600| 0d 0a 09 09 44 4f 20 72 | 65 73 74 6f 72 65 6f 72 |....DO r|estoreor|
|00001610| 64 0d 0a 09 43 41 53 45 | 20 77 68 69 63 68 72 65 |d...CASE| whichre|
|00001620| 70 20 3d 20 32 0d 0a 09 | 09 53 45 54 20 4f 52 44 |p = 2...|.SET ORD|
|00001630| 45 52 20 54 4f 20 6e 63 | 61 74 74 69 74 6c 65 0d |ER TO nc|attitle.|
|00001640| 0a 09 09 52 45 50 4f 52 | 54 20 46 4f 52 4d 20 26 |...REPOR|T FORM &|
|00001650| 64 65 73 74 69 6e 79 0d | 0a 09 09 44 4f 20 72 65 |destiny.|...DO re|
|00001660| 73 74 6f 72 65 6f 72 64 | 0d 0a 09 43 41 53 45 20 |storeord|...CASE |
|00001670| 77 68 69 63 68 72 65 70 | 20 3d 20 33 0d 0a 09 09 |whichrep| = 3....|
|00001680| 53 45 4c 45 43 54 20 2a | 3b 0d 0a 09 09 09 46 52 |SELECT *|;.....FR|
|00001690| 4f 4d 20 6c 61 73 65 72 | 3b 0d 0a 09 09 09 57 48 |OM laser|;.....WH|
|000016a0| 45 52 45 20 52 45 43 4e | 4f 28 29 20 3e 20 52 45 |ERE RECN|O() > RE|
|000016b0| 43 43 4f 55 4e 54 28 29 | 20 2d 20 6e 75 6d 62 72 |CCOUNT()| - numbr|
|000016c0| 65 63 73 3b 0d 0a 09 09 | 09 4f 52 44 45 52 20 42 |ecs;....|.ORDER B|
|000016d0| 59 20 6c 61 73 65 72 2e | 74 69 74 6c 65 3b 0d 0a |Y laser.|title;..|
|000016e0| 09 09 09 49 4e 54 4f 20 | 43 55 52 53 4f 52 20 6c |...INTO |CURSOR l|
|000016f0| 61 73 65 6e 65 77 32 0d | 0a 09 09 52 45 50 4f 52 |asenew2.|...REPOR|
|00001700| 54 20 46 4f 52 4d 20 26 | 64 65 73 74 69 6e 79 0d |T FORM &|destiny.|
|00001710| 0a 09 09 55 53 45 0d 0a | 09 09 53 45 4c 45 43 54 |...USE..|..SELECT|
|00001720| 20 6c 61 73 65 72 0d 0a | 09 09 43 4c 45 41 52 20 | laser..|..CLEAR |
|00001730| 52 45 41 44 0d 0a 45 4e | 44 43 41 53 45 0d 0a 44 |READ..EN|DCASE..D|
|00001740| 45 4c 45 54 45 20 46 49 | 4c 45 20 6c 61 73 65 72 |ELETE FI|LE laser|
|00001750| 64 6f 73 2e 66 72 78 0d | 0a 44 45 4c 45 54 45 20 |dos.frx.|.DELETE |
|00001760| 46 49 4c 45 20 6c 61 73 | 65 72 64 6f 73 2e 66 72 |FILE las|erdos.fr|
|00001770| 74 0d 0a 52 45 54 55 52 | 4e 0d 0a 0d 0a 50 52 4f |t..RETUR|N....PRO|
|00001780| 43 45 44 55 52 45 20 72 | 65 73 74 6f 72 65 6f 72 |CEDURE r|estoreor|
|00001790| 64 0d 0a 49 46 20 4c 45 | 4e 28 6f 6c 64 6f 72 64 |d..IF LE|N(oldord|
|000017a0| 65 72 29 20 3d 20 30 0d | 0a 09 53 45 54 20 4f 52 |er) = 0.|..SET OR|
|000017b0| 44 45 52 20 54 4f 0d 0a | 45 4c 53 45 0d 0a 09 53 |DER TO..|ELSE...S|
|000017c0| 45 54 20 4f 52 44 45 52 | 20 54 4f 20 28 6f 6c 64 |ET ORDER| TO (old|
|000017d0| 6f 72 64 65 72 29 0d 0a | 45 4e 44 49 46 0d 0a 47 |order)..|ENDIF..G|
|000017e0| 4f 20 54 4f 50 0d 0a 43 | 4c 45 41 52 20 52 45 41 |O TOP..C|LEAR REA|
|000017f0| 44 0d 0a 53 48 4f 57 20 | 47 45 54 53 0d 0a 00 00 |D..SHOW |GETS....|
|00001800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001820| 00 00 11 22 41 53 43 49 | 49 20 54 65 78 74 20 46 |..."ASCI|I Text F|
|00001830| 69 6c 65 22 00 00 00 00 | 00 00 00 00 00 00 00 01 |ile"....|........|
|00001840| 00 00 00 0a 22 50 72 69 | 6e 74 20 54 6f 22 00 00 |...."Pri|nt To"..|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 01 00 00 00 05 63 6c 6f | 73 65 00 00 00 00 00 00 |.....clo|se......|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 01 00 00 00 0f 22 40 | 2a 48 54 20 5c 3f 43 61 |......"@|*HT \?Ca|
|00001890| 6e 63 65 6c 22 00 00 00 | 00 00 00 00 00 00 00 00 |ncel"...|........|
|000018a0| 00 00 01 00 00 00 08 22 | 43 61 6e 63 65 6c 22 00 |......."|Cancel".|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 01 00 00 00 17 | 22 2e 2e 5c 42 4d 50 53 |........|"..\BMPS|
|000018d0| 50 52 47 53 5c 44 49 53 | 4b 32 2e 42 4d 50 22 00 |PRGS\DIS|K2.BMP".|
|000018e0| 00 00 00 00 01 00 00 00 | 13 22 4c 61 73 65 72 64 |........|."Laserd|
|000018f0| 69 73 6b 20 52 65 70 6f | 72 74 73 22 00 00 00 00 |isk Repo|rts"....|
|00001900| 00 00 00 00 00 01 00 00 | 00 0d 4d 53 20 53 61 6e |........|..MS San|
|00001910| 73 20 53 65 72 69 66 00 | 00 00 00 00 00 00 00 00 |s Serif.|........|
|00001920| 00 00 00 00 00 00 01 00 | 00 00 86 50 52 49 56 41 |........|...PRIVA|
|00001930| 54 45 20 61 63 74 69 6f | 6e 2c 20 6e 75 6d 62 72 |TE actio|n, numbr|
|00001940| 65 63 73 2c 20 77 68 69 | 63 68 72 65 70 2c 20 64 |ecs, whi|chrep, d|
|00001950| 65 73 74 69 6e 79 0d 0a | 0d 0a 77 68 69 63 68 72 |estiny..|..whichr|
|00001960| 65 70 20 3d 20 31 0d 0a | 6e 75 6d 62 72 65 63 73 |ep = 1..|numbrecs|
|00001970| 20 3d 20 31 30 30 0d 0a | 61 63 74 69 6f 6e 20 3d | = 100..|action =|
|00001980| 20 33 0d 0a 49 46 20 5f | 64 6f 73 0d 0a 09 53 48 | 3..IF _|dos...SH|
|00001990| 4f 57 20 47 45 54 20 61 | 63 74 69 6f 6e 32 2c 32 |OW GET a|ction2,2|
|000019a0| 20 44 49 53 41 42 4c 45 | 0d 0a 45 4e 44 49 46 0d | DISABLE|..ENDIF.|
|000019b0| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 08 |........|........|
|000019d0| 22 52 65 70 6f 72 74 22 | 00 00 00 00 00 00 00 00 |"Report"|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000019f0| 0d 4d 53 20 53 61 6e 73 | 20 53 65 72 69 66 00 00 |.MS Sans| Serif..|
|00001a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001a10| 00 1a 22 4d 6f 73 74 20 | 52 65 63 65 6e 74 20 41 |.."Most |Recent A|
|00001a20| 63 71 75 69 73 69 74 69 | 6f 6e 73 22 00 00 00 00 |cquisiti|ons"....|
|00001a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001a50| 00 00 00 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |....MS S|ans Seri|
|00001a60| 66 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f.......|........|
|00001a70| 01 00 00 00 08 77 68 69 | 63 68 72 65 70 00 00 00 |.....whi|chrep...|
|00001a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a90| 00 01 00 00 00 33 22 40 | 2a 52 56 4e 20 5c 3c 49 |.....3"@|*RVN \<I|
|00001aa0| 6e 20 41 6c 70 68 61 62 | 65 74 69 63 61 6c 20 4f |n Alphab|etical O|
|00001ab0| 72 64 65 72 3b 5c 3c 42 | 79 20 43 61 74 65 67 6f |rder;\<B|y Catego|
|00001ac0| 72 79 3b 5c 3c 54 68 65 | 22 00 00 00 00 00 00 00 |ry;\<The|".......|
|00001ad0| 00 00 00 01 00 00 00 0d | 4d 53 20 53 61 6e 73 20 |........|MS Sans |
|00001ae0| 53 65 72 69 66 00 00 00 | 00 00 00 00 00 00 00 00 |Serif...|........|
|00001af0| 00 00 00 00 01 00 00 00 | cd 44 4f 20 43 41 53 45 |........|.DO CASE|
|00001b00| 0d 0a 09 43 41 53 45 20 | 77 68 69 63 68 72 65 70 |...CASE |whichrep|
|00001b10| 20 3d 20 31 0d 0a 09 09 | 53 48 4f 57 20 47 45 54 | = 1....|SHOW GET|
|00001b20| 20 6e 75 6d 62 72 65 63 | 73 20 44 49 53 41 42 4c | numbrec|s DISABL|
|00001b30| 45 0d 0a 09 43 41 53 45 | 20 77 68 69 63 68 72 65 |E...CASE| whichre|
|00001b40| 70 20 3d 20 32 0d 0a 09 | 09 53 48 4f 57 20 47 45 |p = 2...|.SHOW GE|
|00001b50| 54 20 6e 75 6d 62 72 65 | 63 73 20 44 49 53 41 42 |T numbre|cs DISAB|
|00001b60| 4c 45 0d 0a 09 43 41 53 | 45 20 77 68 69 63 68 72 |LE...CAS|E whichr|
|00001b70| 65 70 20 3d 20 33 0d 0a | 09 09 53 48 4f 57 20 47 |ep = 3..|..SHOW G|
|00001b80| 45 54 20 6e 75 6d 62 72 | 65 63 73 20 45 4e 41 42 |ET numbr|ecs ENAB|
|00001b90| 4c 45 0d 0a 09 09 5f 43 | 55 52 4f 42 4a 20 3d 20 |LE...._C|UROBJ = |
|00001ba0| 4f 42 4a 4e 55 4d 28 6e | 75 6d 62 72 65 63 73 29 |OBJNUM(n|umbrecs)|
|00001bb0| 0d 0a 45 4e 44 43 41 53 | 45 0d 0a 53 48 4f 57 20 |..ENDCAS|E..SHOW |
|00001bc0| 47 45 54 53 0d 0a 00 00 | 00 00 00 00 00 00 00 00 |GETS....|........|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 17 |........|........|
|00001be0| 22 49 6e 20 41 6c 70 68 | 61 62 65 74 69 63 61 6c |"In Alph|abetical|
|00001bf0| 20 4f 72 64 65 72 22 00 | 00 00 00 00 01 00 00 00 | Order".|........|
|00001c00| 08 6e 75 6d 62 72 65 63 | 73 00 00 00 00 00 00 00 |.numbrec|s.......|
|00001c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001c20| 00 04 22 40 4b 22 00 00 | 00 00 00 00 00 00 00 00 |.."@K"..|........|
|00001c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001c40| 00 00 0d 4d 53 20 53 61 | 6e 73 20 53 65 72 69 66 |...MS Sa|ns Serif|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001c60| 00 00 00 79 49 46 20 6e | 75 6d 62 72 65 63 73 20 |...yIF n|umbrecs |
|00001c70| 3e 20 52 45 43 43 4f 55 | 4e 54 28 29 0d 0a 09 6e |> RECCOU|NT()...n|
|00001c80| 75 6d 62 72 65 63 73 20 | 3d 20 52 45 43 43 4f 55 |umbrecs |= RECCOU|
|00001c90| 4e 54 28 29 0d 0a 09 53 | 48 4f 57 20 47 45 54 53 |NT()...S|HOW GETS|
|00001ca0| 0d 0a 45 4e 44 49 46 0d | 0a 49 46 20 6e 75 6d 62 |..ENDIF.|.IF numb|
|00001cb0| 72 65 63 73 20 3c 3d 20 | 30 0d 0a 09 6e 75 6d 62 |recs <= |0...numb|
|00001cc0| 72 65 63 73 20 3d 20 31 | 0d 0a 09 53 48 4f 57 20 |recs = 1|...SHOW |
|00001cd0| 47 45 54 53 0d 0a 45 4e | 44 49 46 0d 0a 00 00 00 |GETS..EN|DIF.....|
|00001ce0| 00 00 00 01 00 00 00 07 | 61 63 74 69 6f 6e 31 00 |........|action1.|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 00 00 00 00 01 00 00 00 | 20 22 40 2a 48 4e 20 5c |........| "@*HN \|
|00001d10| 3c 50 72 69 6e 74 65 72 | 3b 50 72 69 6e 74 20 50 |<Printer|;Print P|
|00001d20| 72 65 5c 3c 76 69 65 77 | 22 00 00 00 00 00 00 00 |re\<view|".......|
|00001d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d40| 00 00 00 00 00 00 01 00 | 00 00 0d 4d 53 20 53 61 |........|...MS Sa|
|00001d50| 6e 73 20 53 65 72 69 66 | 00 00 00 00 00 00 00 00 |ns Serif|........|
|00001d60| 00 00 00 00 00 00 00 01 | 00 00 02 d3 50 52 49 56 |........|....PRIV|
|00001d70| 41 54 45 20 6f 6c 64 6f | 72 64 65 72 0d 0a 44 4f |ATE oldo|rder..DO|
|00001d80| 20 43 41 53 45 0d 0a 09 | 43 41 53 45 20 61 63 74 | CASE...|CASE act|
|00001d90| 69 6f 6e 31 20 3d 20 31 | 0d 0a 09 09 64 65 73 74 |ion1 = 1|....dest|
|00001da0| 69 6e 79 20 3d 20 22 54 | 4f 20 50 52 49 4e 54 45 |iny = "T|O PRINTE|
|00001db0| 52 20 50 52 4f 4d 50 54 | 20 4e 4f 43 4f 4e 53 4f |R PROMPT| NOCONSO|
|00001dc0| 4c 45 22 0d 0a 09 43 41 | 53 45 20 61 63 74 69 6f |LE"...CA|SE actio|
|00001dd0| 6e 31 20 3d 20 32 0d 0a | 09 09 64 65 73 74 69 6e |n1 = 2..|..destin|
|00001de0| 79 20 3d 20 22 50 52 45 | 56 49 45 57 22 0d 0a 45 |y = "PRE|VIEW"..E|
|00001df0| 4e 44 43 41 53 45 0d 0a | 0d 0a 6f 6c 64 6f 72 64 |NDCASE..|..oldord|
|00001e00| 65 72 20 3d 20 4f 52 44 | 45 52 28 29 0d 0a 44 4f |er = ORD|ER()..DO|
|00001e10| 20 43 41 53 45 0d 0a 09 | 43 41 53 45 20 77 68 69 | CASE...|CASE whi|
|00001e20| 63 68 72 65 70 20 3d 20 | 31 0d 0a 09 09 53 45 54 |chrep = |1....SET|
|00001e30| 20 4f 52 44 45 52 20 54 | 4f 20 54 49 54 4c 45 0d | ORDER T|O TITLE.|
|00001e40| 0a 09 09 52 45 50 4f 52 | 54 20 46 4f 52 4d 20 6c |...REPOR|T FORM l|
|00001e50| 61 73 65 72 2e 66 72 78 | 20 26 64 65 73 74 69 6e |aser.frx| &destin|
|00001e60| 79 0d 0a 09 09 44 4f 20 | 72 65 73 74 6f 72 65 6f |y....DO |restoreo|
|00001e70| 72 64 0d 0a 09 43 41 53 | 45 20 77 68 69 63 68 72 |rd...CAS|E whichr|
|00001e80| 65 70 20 3d 20 32 0d 0a | 09 09 53 45 54 20 4f 52 |ep = 2..|..SET OR|
|00001e90| 44 45 52 20 54 4f 20 6e | 63 61 74 74 69 74 6c 65 |DER TO n|cattitle|
|00001ea0| 0d 0a 09 09 52 45 50 4f | 52 54 20 46 4f 52 4d 20 |....REPO|RT FORM |
|00001eb0| 6c 61 73 65 72 2e 66 72 | 78 20 26 64 65 73 74 69 |laser.fr|x &desti|
|00001ec0| 6e 79 0d 0a 09 09 44 4f | 20 72 65 73 74 6f 72 65 |ny....DO| restore|
|00001ed0| 6f 72 64 0d 0a 09 43 41 | 53 45 20 77 68 69 63 68 |ord...CA|SE which|
|00001ee0| 72 65 70 20 3d 20 33 0d | 0a 09 09 53 45 4c 45 43 |rep = 3.|...SELEC|
|00001ef0| 54 20 2a 3b 0d 0a 09 09 | 09 46 52 4f 4d 20 6c 61 |T *;....|.FROM la|
|00001f00| 73 65 72 3b 0d 0a 09 09 | 09 57 48 45 52 45 20 52 |ser;....|.WHERE R|
|00001f10| 45 43 4e 4f 28 29 20 3e | 20 52 45 43 43 4f 55 4e |ECNO() >| RECCOUN|
|00001f20| 54 28 29 20 2d 20 6e 75 | 6d 62 72 65 63 73 3b 0d |T() - nu|mbrecs;.|
|00001f30| 0a 09 09 09 4f 52 44 45 | 52 20 42 59 20 6c 61 73 |....ORDE|R BY las|
|00001f40| 65 72 2e 74 69 74 6c 65 | 3b 0d 0a 09 09 09 49 4e |er.title|;.....IN|
|00001f50| 54 4f 20 43 55 52 53 4f | 52 20 6c 61 73 65 6e 65 |TO CURSO|R lasene|
|00001f60| 77 32 0d 0a 09 09 52 45 | 50 4f 52 54 20 46 4f 52 |w2....RE|PORT FOR|
|00001f70| 4d 20 6c 61 73 65 72 2e | 66 72 78 20 26 64 65 73 |M laser.|frx &des|
|00001f80| 74 69 6e 79 0d 0a 09 09 | 55 53 45 0d 0a 09 09 53 |tiny....|USE....S|
|00001f90| 45 4c 45 43 54 20 6c 61 | 73 65 72 0d 0a 09 09 43 |ELECT la|ser....C|
|00001fa0| 4c 45 41 52 20 52 45 41 | 44 0d 0a 45 4e 44 43 41 |LEAR REA|D..ENDCA|
|00001fb0| 53 45 0d 0a 52 45 54 55 | 52 4e 0d 0a 0d 0a 50 52 |SE..RETU|RN....PR|
|00001fc0| 4f 43 45 44 55 52 45 20 | 72 65 73 74 6f 72 65 6f |OCEDURE |restoreo|
|00001fd0| 72 64 0d 0a 49 46 20 4c | 45 4e 28 6f 6c 64 6f 72 |rd..IF L|EN(oldor|
|00001fe0| 64 65 72 29 20 3d 20 30 | 0d 0a 09 53 45 54 20 4f |der) = 0|...SET O|
|00001ff0| 52 44 45 52 20 54 4f 0d | 0a 45 4c 53 45 0d 0a 09 |RDER TO.|.ELSE...|
|00002000| 53 45 54 20 4f 52 44 45 | 52 20 54 4f 20 28 6f 6c |SET ORDE|R TO (ol|
|00002010| 64 6f 72 64 65 72 29 0d | 0a 45 4e 44 49 46 0d 0a |dorder).|.ENDIF..|
|00002020| 47 4f 20 54 4f 50 0d 0a | 43 4c 45 41 52 20 52 45 |GO TOP..|CLEAR RE|
|00002030| 41 44 0d 0a 53 48 4f 57 | 20 47 45 54 53 0d 0a 64 |AD..SHOW| GETS..d|
|00002040| 2a 32 a7 39 d0 bb 5f 08 | a4 88 f6 ed 2d 66 08 fd |*2.9.._.|....-f..|
|00002050| 54 95 70 1a 08 f7 03 63 | 2f 04 82 00 00 00 01 00 |T.p....c|/.......|
|00002060| 00 00 09 22 50 72 69 6e | 74 65 72 22 00 00 00 00 |..."Prin|ter"....|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002080| 00 00 00 07 61 63 74 69 | 6f 6e 32 00 00 00 00 00 |....acti|on2.....|
|00002090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020a0| 01 00 00 00 34 22 40 2a | 48 4e 20 5c 3c 41 53 43 |....4"@*|HN \<ASC|
|000020b0| 49 49 20 54 65 78 74 20 | 46 69 6c 65 3b 5c 3c 46 |II Text |File;\<F|
|000020c0| 69 6c 65 20 74 68 72 6f | 75 67 68 20 50 72 69 6e |ile thro|ugh Prin|
|000020d0| 74 20 44 72 69 76 65 72 | 22 00 00 00 00 00 00 00 |t Driver|".......|
|000020e0| 00 00 01 00 00 00 0d 4d | 53 20 53 61 6e 73 20 53 |.......M|S Sans S|
|000020f0| 65 72 69 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |erif....|........|
|00002100| 00 00 00 01 00 00 03 77 | 50 52 49 56 41 54 45 20 |.......w|PRIVATE |
|00002110| 6f 6c 64 6f 72 64 65 72 | 0d 0a 0d 0a 44 4f 20 43 |oldorder|....DO C|
|00002120| 41 53 45 0d 0a 09 43 41 | 53 45 20 61 63 74 69 6f |ASE...CA|SE actio|
|00002130| 6e 32 20 3d 20 31 0d 0a | 09 09 53 45 4c 45 43 54 |n2 = 1..|..SELECT|
|00002140| 20 30 0d 0a 09 09 55 53 | 45 20 6c 61 73 65 72 2e | 0....US|E laser.|
|00002150| 66 72 78 0d 0a 09 09 43 | 4f 50 59 20 54 4f 20 6c |frx....C|OPY TO l|
|00002160| 61 73 65 72 64 6f 73 2e | 66 72 78 20 46 4f 52 20 |aserdos.|frx FOR |
|00002170| 70 6c 61 74 66 6f 72 6d | 20 3d 20 27 44 4f 53 27 |platform| = 'DOS'|
|00002180| 0d 0a 09 09 55 53 45 0d | 0a 09 09 53 45 4c 45 43 |....USE.|...SELEC|
|00002190| 54 20 6c 61 73 65 72 0d | 0a 09 09 64 65 73 74 69 |T laser.|...desti|
|000021a0| 6e 79 20 3d 20 22 6c 61 | 73 65 72 64 6f 73 2e 66 |ny = "la|serdos.f|
|000021b0| 72 78 20 54 4f 20 46 49 | 4c 45 20 6c 61 73 65 72 |rx TO FI|LE laser|
|000021c0| 2e 74 78 74 20 4e 4f 43 | 4f 4e 53 4f 4c 45 22 0d |.txt NOC|ONSOLE".|
|000021d0| 0a 09 43 41 53 45 20 61 | 63 74 69 6f 6e 32 20 3d |..CASE a|ction2 =|
|000021e0| 20 32 0d 0a 09 09 64 65 | 73 74 69 6e 79 20 3d 20 | 2....de|stiny = |
|000021f0| 22 6c 61 73 65 72 2e 66 | 72 78 20 54 4f 20 46 49 |"laser.f|rx TO FI|
|00002200| 4c 45 20 6c 61 73 65 72 | 2e 70 72 74 20 4e 4f 43 |LE laser|.prt NOC|
|00002210| 4f 4e 53 4f 4c 45 22 0d | 0a 45 4e 44 43 41 53 45 |ONSOLE".|.ENDCASE|
|00002220| 0d 0a 0d 0a 6f 6c 64 6f | 72 64 65 72 20 3d 20 4f |....oldo|rder = O|
|00002230| 52 44 45 52 28 29 0d 0a | 44 4f 20 43 41 53 45 0d |RDER()..|DO CASE.|
|00002240| 0a 09 43 41 53 45 20 77 | 68 69 63 68 72 65 70 20 |..CASE w|hichrep |
|00002250| 3d 20 31 0d 0a 09 09 53 | 45 54 20 4f 52 44 45 52 |= 1....S|ET ORDER|
|00002260| 20 54 4f 20 54 49 54 4c | 45 0d 0a 09 09 52 45 50 | TO TITL|E....REP|
|00002270| 4f 52 54 20 46 4f 52 4d | 20 26 64 65 73 74 69 6e |ORT FORM| &destin|
|00002280| 79 0d 0a 09 09 44 4f 20 | 72 65 73 74 6f 72 65 6f |y....DO |restoreo|
|00002290| 72 64 0d 0a 09 43 41 53 | 45 20 77 68 69 63 68 72 |rd...CAS|E whichr|
|000022a0| 65 70 20 3d 20 32 0d 0a | 09 09 53 45 54 20 4f 52 |ep = 2..|..SET OR|
|000022b0| 44 45 52 20 54 4f 20 6e | 63 61 74 74 69 74 6c 65 |DER TO n|cattitle|
|000022c0| 0d 0a 09 09 52 45 50 4f | 52 54 20 46 4f 52 4d 20 |....REPO|RT FORM |
|000022d0| 26 64 65 73 74 69 6e 79 | 0d 0a 09 09 44 4f 20 72 |&destiny|....DO r|
|000022e0| 65 73 74 6f 72 65 6f 72 | 64 0d 0a 09 43 41 53 45 |estoreor|d...CASE|
|000022f0| 20 77 68 69 63 68 72 65 | 70 20 3d 20 33 0d 0a 09 | whichre|p = 3...|
|00002300| 09 53 45 4c 45 43 54 20 | 2a 3b 0d 0a 09 09 09 46 |.SELECT |*;.....F|
|00002310| 52 4f 4d 20 6c 61 73 65 | 72 3b 0d 0a 09 09 09 57 |ROM lase|r;.....W|
|00002320| 48 45 52 45 20 52 45 43 | 4e 4f 28 29 20 3e 20 52 |HERE REC|NO() > R|
|00002330| 45 43 43 4f 55 4e 54 28 | 29 20 2d 20 6e 75 6d 62 |ECCOUNT(|) - numb|
|00002340| 72 65 63 73 3b 0d 0a 09 | 09 09 4f 52 44 45 52 20 |recs;...|..ORDER |
|00002350| 42 59 20 6c 61 73 65 72 | 2e 74 69 74 6c 65 3b 0d |BY laser|.title;.|
|00002360| 0a 09 09 09 49 4e 54 4f | 20 43 55 52 53 4f 52 20 |....INTO| CURSOR |
|00002370| 6c 61 73 65 6e 65 77 32 | 0d 0a 09 09 52 45 50 4f |lasenew2|....REPO|
|00002380| 52 54 20 46 4f 52 4d 20 | 26 64 65 73 74 69 6e 79 |RT FORM |&destiny|
|00002390| 0d 0a 09 09 55 53 45 0d | 0a 09 09 53 45 4c 45 43 |....USE.|...SELEC|
|000023a0| 54 20 6c 61 73 65 72 0d | 0a 09 09 43 4c 45 41 52 |T laser.|...CLEAR|
|000023b0| 20 52 45 41 44 0d 0a 45 | 4e 44 43 41 53 45 0d 0a | READ..E|NDCASE..|
|000023c0| 44 45 4c 45 54 45 20 46 | 49 4c 45 20 6c 61 73 65 |DELETE F|ILE lase|
|000023d0| 72 64 6f 73 2e 66 72 78 | 0d 0a 44 45 4c 45 54 45 |rdos.frx|..DELETE|
|000023e0| 20 46 49 4c 45 20 6c 61 | 73 65 72 64 6f 73 2e 66 | FILE la|serdos.f|
|000023f0| 72 74 0d 0a 52 45 54 55 | 52 4e 0d 0a 0d 0a 50 52 |rt..RETU|RN....PR|
|00002400| 4f 43 45 44 55 52 45 20 | 72 65 73 74 6f 72 65 6f |OCEDURE |restoreo|
|00002410| 72 64 0d 0a 49 46 20 4c | 45 4e 28 6f 6c 64 6f 72 |rd..IF L|EN(oldor|
|00002420| 64 65 72 29 20 3d 20 30 | 0d 0a 09 53 45 54 20 4f |der) = 0|...SET O|
|00002430| 52 44 45 52 20 54 4f 0d | 0a 45 4c 53 45 0d 0a 09 |RDER TO.|.ELSE...|
|00002440| 53 45 54 20 4f 52 44 45 | 52 20 54 4f 20 28 6f 6c |SET ORDE|R TO (ol|
|00002450| 64 6f 72 64 65 72 29 0d | 0a 45 4e 44 49 46 0d 0a |dorder).|.ENDIF..|
|00002460| 47 4f 20 54 4f 50 0d 0a | 43 4c 45 41 52 20 52 45 |GO TOP..|CLEAR RE|
|00002470| 41 44 0d 0a 53 48 4f 57 | 20 47 45 54 53 0d 0a 00 |AD..SHOW| GETS...|
|00002480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000024a0| 00 00 00 11 22 41 53 43 | 49 49 20 54 65 78 74 20 |...."ASC|II Text |
|000024b0| 46 69 6c 65 22 00 00 00 | 00 00 00 00 00 00 00 00 |File"...|........|
|000024c0| 01 00 00 00 0a 22 50 72 | 69 6e 74 20 54 6f 22 00 |....."Pr|int To".|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 01 00 00 00 0d 4d 53 | 20 53 61 6e 73 20 53 65 |......MS| Sans Se|
|000024f0| 72 69 66 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |rif.....|........|
|00002500| 00 00 01 00 00 00 05 63 | 6c 6f 73 65 00 00 00 00 |.......c|lose....|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 01 00 00 00 0f | 22 40 2a 48 54 20 5c 3f |........|"@*HT \?|
|00002530| 43 61 6e 63 65 6c 22 00 | 00 00 00 00 00 00 00 00 |Cancel".|........|
|00002540| 00 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00002550| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00002560| 00 00 00 00 00 01 00 00 | 00 08 22 43 61 6e 63 65 |........|.."Cance|
|00002570| 6c 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |l"......|........|
|00002580| 00 00 00 00 00 00 01 00 | 00 00 0d 4d 53 20 53 61 |........|...MS Sa|
|00002590| 6e 73 20 53 65 72 69 66 | 00 00 00 00 00 00 00 00 |ns Serif|........|
|000025a0| 00 00 00 00 00 00 00 01 | 00 00 00 0d 4d 53 20 53 |........|....MS S|
|000025b0| 61 6e 73 20 53 65 72 69 | 66 64 f0 d9 de 72 4d 41 |ans Seri|fd...rMA|
|000025c0| ab f1 1d 80 4c          |                         |....L   |        |
+--------+-------------------------+-------------------------+--------+--------+