home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-06-02 | 12.2 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
| Westwood ADL (music/westwoodADL)
| ext
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| dexmagic
| PrintFox/Pagefox WEAK
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 52 47 4d 41 49 4e 20 | 20 20 00 c3 20 20 20 20 |PRGMAIN | .. |
|00000010| 15 1b 41 44 4c 20 20 20 | 20 20 20 20 20 20 20 20 |..ADL | |
|00000020| 41 20 20 31 30 33 41 30 | 30 30 30 33 4e 20 32 31 |A 103A0|0003N 21|
|00000030| 34 41 20 20 20 20 36 41 | 30 30 30 30 32 43 20 20 |4A 6A|00002C |
|00000040| 20 31 30 6f 4c 61 73 65 | 72 53 63 72 6e 43 30 30 | 10oLase|rScrnC00|
|00000050| 30 30 38 7b 7c 7c 20 4e | 49 4c 7d 41 30 30 30 30 |008{|| N|IL}A0000|
|00000060| 32 43 20 20 20 20 37 6f | 44 62 56 69 65 77 43 30 |2C 7o|DbViewC0|
|00000070| 30 30 30 38 7b 7c 7c 20 | 4e 49 4c 7d 41 30 30 30 |0008{|| |NIL}A000|
|00000080| 30 32 43 20 20 20 31 31 | 6f 42 72 6f 77 73 65 53 |02C 11|oBrowseS|
|00000090| 63 72 6e 43 30 30 30 30 | 38 7b 7c 7c 20 4e 49 4c |crnC0000|8{|| NIL|
|000000a0| 7d 41 30 30 30 30 32 43 | 20 20 20 20 39 6f 4c 61 |}A00002C| 9oLa|
|000000b0| 73 65 72 54 61 62 43 30 | 30 30 30 38 7b 7c 7c 20 |serTabC0|0008{|| |
|000000c0| 4e 49 4c 7d 41 30 30 30 | 30 32 43 20 20 20 31 30 |NIL}A000|02C 10|
|000000d0| 6f 4c 61 73 65 72 48 65 | 6c 70 43 30 30 30 30 38 |oLaserHe|lpC00008|
|000000e0| 7b 7c 7c 20 4e 49 4c 7d | 41 30 30 30 30 32 43 20 |{|| NIL}|A00002C |
|000000f0| 20 20 20 35 6f 44 65 73 | 63 43 30 30 30 30 38 7b | 5oDes|cC00008{|
|00000100| 7c 7c 20 4e 49 4c 7d 4e | 20 32 33 38 41 30 30 30 ||| NIL}N| 238A000|
|00000110| 30 33 4e 20 32 31 34 41 | 20 20 20 20 34 41 30 30 |03N 214A| 4A00|
|00000120| 30 30 32 43 20 20 20 20 | 39 6f 4c 61 73 65 72 52 |002C |9oLaserR|
|00000130| 65 70 43 30 30 30 30 38 | 7b 7c 7c 20 4e 49 4c 7d |epC00008|{|| NIL}|
|00000140| 41 30 30 30 30 32 43 20 | 20 20 31 31 6f 4c 61 73 |A00002C | 11oLas|
|00000150| 65 72 43 68 61 72 74 43 | 30 30 30 30 38 7b 7c 7c |erChartC|00008{|||
|00000160| 20 4e 49 4c 7d 41 30 30 | 30 30 32 43 20 20 20 20 | NIL}A00|002C |
|00000170| 38 48 65 6c 70 54 65 78 | 74 43 30 30 30 30 38 7b |8HelpTex|tC00008{|
|00000180| 7c 7c 20 4e 49 4c 7d 41 | 30 30 30 30 32 43 20 20 ||| NIL}A|00002C |
|00000190| 20 20 35 6e 48 65 6c 70 | 43 30 30 30 30 38 7b 7c | 5nHelp|C00008{||
|000001a0| 7c 20 4e 49 4c 7d 4e 20 | 32 33 39 41 30 30 30 30 || NIL}N |239A0000|
|000001b0| 33 4e 20 32 31 34 41 20 | 20 20 20 36 41 30 30 30 |3N 214A | 6A000|
|000001c0| 30 32 43 20 20 20 20 36 | 6e 45 76 65 6e 74 43 30 |02C 6|nEventC0|
|000001d0| 30 30 30 38 7b 7c 7c 20 | 4e 49 4c 7d 41 30 30 30 |0008{|| |NIL}A000|
|000001e0| 30 32 43 20 20 20 20 38 | 6c 52 65 66 72 65 73 68 |02C 8|lRefresh|
|000001f0| 43 30 30 30 30 38 7b 7c | 7c 20 4e 49 4c 7d 41 30 |C00008{||| NIL}A0|
|00000200| 30 30 30 32 43 20 20 20 | 20 36 61 42 75 74 74 73 |0002C | 6aButts|
|00000210| 43 30 30 30 30 38 7b 7c | 7c 20 4e 49 4c 7d 41 30 |C00008{||| NIL}A0|
|00000220| 30 30 30 32 43 20 20 20 | 20 36 61 43 61 74 65 67 |0002C | 6aCateg|
|00000230| 43 30 30 30 30 38 7b 7c | 7c 20 4e 49 4c 7d 41 30 |C00008{||| NIL}A0|
|00000240| 30 30 30 32 43 20 20 20 | 20 37 6e 4d 65 6d 6f 72 |0002C | 7nMemor|
|00000250| 79 43 30 30 30 30 38 7b | 7c 7c 20 4e 49 4c 7d 41 |yC00008{||| NIL}A|
|00000260| 30 30 30 30 32 43 20 20 | 20 20 38 4c 61 73 65 72 |00002C | 8Laser|
|00000270| 52 65 70 43 30 30 30 30 | 38 7b 7c 7c 20 4e 49 4c |RepC0000|8{|| NIL|
|00000280| 7d 4e 20 32 34 30 41 30 | 30 30 30 33 4e 20 32 31 |}N 240A0|0003N 21|
|00000290| 34 41 20 20 20 20 35 41 | 30 30 30 30 32 43 20 20 |4A 5A|00002C |
|000002a0| 20 31 30 6f 50 72 69 6e | 74 53 63 72 6e 43 30 30 | 10oPrin|tScrnC00|
|000002b0| 30 30 38 7b 7c 7c 20 4e | 49 4c 7d 41 30 30 30 30 |008{|| N|IL}A0000|
|000002c0| 32 43 20 20 20 20 38 6f | 4c 61 73 65 72 57 50 43 |2C 8o|LaserWPC|
|000002d0| 30 30 30 30 38 7b 7c 7c | 20 4e 49 4c 7d 41 30 30 |00008{||| NIL}A00|
|000002e0| 30 30 32 43 20 20 20 20 | 39 6f 4c 61 73 65 72 4c |002C |9oLaserL|
|000002f0| 53 54 43 30 30 30 30 38 | 7b 7c 7c 20 4e 49 4c 7d |STC00008|{|| NIL}|
|00000300| 41 30 30 30 30 32 43 20 | 20 20 20 39 6f 4c 61 73 |A00002C | 9oLas|
|00000310| 65 72 31 32 33 43 30 30 | 30 30 38 7b 7c 7c 20 4e |er123C00|008{|| N|
|00000320| 49 4c 7d 41 30 30 30 30 | 32 43 20 20 20 20 39 6f |IL}A0000|2C 9o|
|00000330| 4c 61 73 65 72 54 58 54 | 43 30 30 30 30 38 7b 7c |LaserTXT|C00008{||
|00000340| 7c 20 4e 49 4c 7d 4e 20 | 32 34 31 41 30 30 30 30 || NIL}N |241A0000|
|00000350| 33 4e 20 32 31 34 41 20 | 20 20 20 31 41 30 30 30 |3N 214A | 1A000|
|00000360| 30 32 43 20 20 20 20 38 | 6d 74 65 78 74 20 20 20 |02C 8|mtext |
|00000370| 43 20 20 20 33 32 7b 7c | 7c 20 20 7b 22 46 69 6c |C 32{||| {"Fil|
|00000380| 65 22 2c 20 20 22 45 64 | 69 74 22 2c 20 22 41 62 |e", "Ed|it", "Ab|
|00000390| 6f 75 74 22 7d 7d 4e 20 | 32 34 34 41 30 30 30 30 |out"}}N |244A0000|
|000003a0| 33 4e 20 32 31 34 41 20 | 20 20 20 31 41 30 30 30 |3N 214A | 1A000|
|000003b0| 30 32 43 20 20 20 20 38 | 6d 6b 65 79 20 20 20 20 |02C 8|mkey |
|000003c0| 43 20 20 20 32 38 7b 7c | 7c 20 20 7b 20 32 38 39 |C 28{||| { 289|
|000003d0| 2c 20 20 20 20 20 32 37 | 34 2c 20 20 20 32 38 36 |, 27|4, 286|
|000003e0| 7d 7d 4e 20 32 34 35 41 | 30 30 30 30 33 4e 20 32 |}}N 245A|00003N 2|
|000003f0| 31 34 41 20 20 20 20 31 | 41 30 30 30 30 32 43 20 |14A 1|A00002C |
|00000400| 20 20 20 38 6d 66 69 6c | 65 5f 74 20 43 20 20 20 | 8mfil|e_t C |
|00000410| 37 37 7b 7c 7c 20 20 7b | 7b 22 42 72 6f 77 73 65 |77{|| {|{"Browse|
|00000420| 22 2c 20 22 43 68 61 72 | 74 22 2c 20 22 52 65 70 |", "Char|t", "Rep|
|00000430| 6f 72 74 22 2c 20 22 45 | 78 69 74 22 7d 2c 20 7b |ort", "E|xit"}, {|
|00000440| 22 4e 65 78 74 22 2c 22 | 50 72 65 76 69 6f 75 73 |"Next","|Previous|
|00000450| 22 7d 2c 20 7b 22 41 62 | 6f 75 74 22 7d 7d 7d 4e |"}, {"Ab|out"}}}N|
|00000460| 20 32 34 36 41 30 30 30 | 30 33 4e 20 32 31 34 41 | 246A000|03N 214A|
|00000470| 20 20 20 20 31 41 30 30 | 30 30 32 43 20 20 20 20 | 1A00|002C |
|00000480| 38 6d 66 69 6c 65 5f 6b | 20 43 20 20 20 34 38 7b |8mfile_k| C 48{|
|00000490| 7c 7c 20 20 7b 7b 20 39 | 38 2c 20 39 39 2c 20 20 ||| {{ 9|8, 99, |
|000004a0| 31 31 34 2c 20 20 20 32 | 37 7d 2c 7b 34 2c 20 20 |114, 2|7},{4, |
|000004b0| 31 39 7d 2c 20 7b 20 20 | 31 32 30 33 7d 7d 7d 4e |19}, { |1203}}}N|
|000004c0| 20 32 34 37 41 30 30 30 | 30 33 4e 20 32 31 37 41 | 247A000|03N 217A|
|000004d0| 20 20 20 20 31 41 30 30 | 30 30 32 43 20 20 20 20 | 1A00|002C |
|000004e0| 38 63 61 74 6e 6f 62 6c | 6b 43 20 20 20 31 37 7b |8catnobl|kC 17{|
|000004f0| 7c 7c 20 6c 61 73 65 72 | 2d 3e 63 61 74 6e 6f 7d ||| laser|->catno}|
|00000500| 4e 20 32 35 30 41 30 30 | 30 30 33 4e 20 32 31 37 |N 250A00|003N 217|
|00000510| 41 20 20 20 20 31 41 30 | 30 30 30 32 43 20 20 20 |A 1A0|0002C |
|00000520| 20 38 74 69 74 6c 65 62 | 6c 6b 43 20 20 20 32 37 | 8titleb|lkC 27|
|00000530| 7b 7c 7c 20 6c 65 66 74 | 28 6c 61 73 65 72 2d 3e |{|| left|(laser->|
|00000540| 74 69 74 6c 65 2c 20 32 | 35 29 7d 4e 20 32 35 31 |title, 2|5)}N 251|
|00000550| 41 30 30 30 30 33 4e 20 | 32 31 37 41 20 20 20 20 |A00003N |217A |
|00000560| 31 41 30 30 30 30 32 43 | 20 20 20 20 38 70 72 69 |1A00002C| 8pri|
|00000570| 63 65 62 6c 6b 43 20 20 | 20 33 37 7b 7c 7c 20 74 |ceblkC | 37{|| t|
|00000580| 72 61 6e 73 66 6f 72 6d | 28 6c 61 73 65 72 2d 3e |ransform|(laser->|
|00000590| 70 72 69 63 65 2c 20 27 | 23 23 2e 23 23 27 29 7d |price, '|##.##')}|
|000005a0| 4e 20 32 35 32 41 30 30 | 30 30 33 4e 20 32 31 37 |N 252A00|003N 217|
|000005b0| 41 20 20 20 20 31 41 30 | 30 30 30 32 43 20 20 20 |A 1A0|0002C |
|000005c0| 20 34 62 62 6c 6b 43 20 | 20 20 33 38 7b 7c 7c 20 | 4bblkC | 38{|| |
|000005d0| 20 6f 44 62 56 69 65 77 | 3a 53 65 6e 64 28 27 47 | oDbView|:Send('G|
|000005e0| 6f 42 6f 74 74 6f 6d 27 | 2c 27 4c 41 53 45 52 27 |oBottom'|,'LASER'|
|000005f0| 29 7d 4e 20 32 35 35 41 | 30 30 30 30 33 4e 20 32 |)}N 255A|00003N 2|
|00000600| 31 37 41 20 20 20 20 31 | 41 30 30 30 30 32 43 20 |17A 1|A00002C |
|00000610| 20 20 20 34 74 62 6c 6b | 43 20 20 20 33 35 7b 7c | 4tblk|C 35{||
|00000620| 7c 20 20 6f 44 62 56 69 | 65 77 3a 53 65 6e 64 28 || oDbVi|ew:Send(|
|00000630| 27 47 6f 54 6f 70 27 2c | 27 4c 41 53 45 52 27 29 |'GoTop',|'LASER')|
|00000640| 7d 4e 20 32 35 36 41 30 | 30 30 30 33 4e 20 32 31 |}N 256A0|0003N 21|
|00000650| 37 41 20 20 20 20 31 41 | 30 30 30 30 32 43 20 20 |7A 1A|00002C |
|00000660| 20 20 34 73 62 6c 6b 43 | 20 20 20 33 36 7b 7c 6e | 4sblkC| 36{|n|
|00000670| 7c 20 6f 44 62 56 69 65 | 77 3a 53 65 6e 64 28 27 || oDbVie|w:Send('|
|00000680| 53 6b 69 70 27 2c 27 4c | 41 53 45 52 27 2c 6e 29 |Skip','L|ASER',n)|
|00000690| 7d 4e 20 32 35 37 41 30 | 30 30 30 33 4e 20 32 31 |}N 257A0|0003N 21|
|000006a0| 37 41 20 20 20 20 31 41 | 30 30 30 30 32 43 20 20 |7A 1A|00002C |
|000006b0| 20 20 34 61 62 6c 6b 43 | 20 20 20 33 36 7b 7c 6e | 4ablkC| 36{|n|
|000006c0| 6b 65 79 7c 20 20 73 65 | 6c 66 3a 53 65 6e 64 28 |key| se|lf:Send(|
|000006d0| 27 4e 6f 45 64 69 74 73 | 27 2c 20 6e 6b 65 79 29 |'NoEdits|', nkey)|
|000006e0| 7d 4e 20 32 36 30 41 30 | 30 30 30 33 4e 20 32 31 |}N 260A0|0003N 21|
|000006f0| 34 41 20 20 20 20 31 41 | 30 30 30 30 32 43 20 20 |4A 1A|00002C |
|00000700| 20 20 35 62 63 6f 6c 73 | 43 20 20 20 37 32 7b 7c | 5bcols|C 72{||
|00000710| 7c 20 7b 7b 27 43 41 54 | 4c 4f 47 20 4e 4f 27 2c || {{'CAT|LOG NO',|
|00000720| 20 63 61 74 6e 6f 62 6c | 6b 7d 2c 20 7b 27 54 49 | catnobl|k}, {'TI|
|00000730| 54 4c 45 27 2c 20 74 69 | 74 6c 65 62 6c 6b 7d 2c |TLE', ti|tleblk},|
|00000740| 20 7b 27 50 52 49 43 45 | 27 2c 20 70 72 69 63 65 | {'PRICE|', price|
|00000750| 62 6c 6b 7d 7d 7d 4e 20 | 32 36 33 41 30 30 30 30 |blk}}}N |263A0000|
|00000760| 33 4e 20 32 31 37 41 20 | 20 20 20 31 41 30 30 30 |3N 217A | 1A000|
|00000770| 30 32 43 20 20 20 20 35 | 62 46 6c 64 31 43 20 20 |02C 5|bFld1C |
|00000780| 20 31 36 7b 7c 7c 6c 61 | 73 65 72 2d 3e 63 61 74 | 16{||la|ser->cat|
|00000790| 6e 6f 7d 4e 20 32 36 36 | 41 30 30 30 30 33 4e 20 |no}N 266|A00003N |
|000007a0| 32 31 37 41 20 20 20 20 | 31 41 30 30 30 30 32 43 |217A |1A00002C|
|000007b0| 20 20 20 20 35 62 46 6c | 64 32 43 20 20 20 31 36 | 5bFl|d2C 16|
|000007c0| 7b 7c 7c 6c 61 73 65 72 | 2d 3e 74 69 74 6c 65 7d |{||laser|->title}|
|000007d0| 4e 20 32 36 37 41 30 30 | 30 30 33 4e 20 32 31 37 |N 267A00|003N 217|
|000007e0| 41 20 20 20 20 31 41 30 | 30 30 30 32 43 20 20 20 |A 1A0|0002C |
|000007f0| 20 35 62 46 6c 64 33 43 | 20 20 20 32 33 7b 7c 7c | 5bFld3C| 23{|||
|00000800| 61 63 61 74 65 67 5b 6c | 61 73 65 72 2d 3e 6e 63 |acateg[l|aser->nc|
|00000810| 61 74 5d 7d 4e 20 32 36 | 38 41 30 30 30 30 33 4e |at]}N 26|8A00003N|
|00000820| 20 32 31 34 41 20 20 20 | 20 31 41 30 30 30 30 32 | 214A | 1A00002|
|00000830| 43 20 20 20 20 35 61 46 | 6c 64 31 43 20 20 20 37 |C 5aF|ld1C 7|
|00000840| 31 7b 7c 7c 20 7b 62 46 | 6c 64 31 2c 20 27 6c 61 |1{|| {bF|ld1, 'la|
|00000850| 73 65 72 2d 3e 63 61 74 | 6e 6f 27 2c 20 27 43 27 |ser->cat|no', 'C'|
|00000860| 2c 20 7b 27 43 61 74 61 | 6c 6f 67 20 4e 75 6d 62 |, {'Cata|log Numb|
|00000870| 65 72 27 7d 2c 20 31 30 | 2c 20 30 2c 20 2e 46 2e |er'}, 10|, 0, .F.|
|00000880| 2c 20 27 40 21 27 7d 7d | 4e 20 32 37 31 41 30 30 |, '@!'}}|N 271A00|
|00000890| 30 30 33 4e 20 32 31 34 | 41 20 20 20 20 31 41 30 |003N 214|A 1A0|
|000008a0| 30 30 30 32 43 20 20 20 | 20 35 61 46 6c 64 32 43 |0002C | 5aFld2C|
|000008b0| 20 20 20 36 37 7b 7c 7c | 20 7b 62 46 6c 64 32 2c | 67{||| {bFld2,|
|000008c0| 20 27 6c 61 73 65 72 2d | 3e 74 69 74 6c 65 27 2c | 'laser-|>title',|
|000008d0| 20 27 43 27 2c 20 7b 27 | 46 69 6c 6d 20 54 69 74 | 'C', {'|Film Tit|
|000008e0| 6c 65 27 7d 2c 20 35 30 | 2c 20 30 2c 20 2e 46 2e |le'}, 50|, 0, .F.|
|000008f0| 2c 20 27 40 21 27 7d 7d | 4e 20 32 37 32 41 30 30 |, '@!'}}|N 272A00|
|00000900| 30 30 33 4e 20 32 31 34 | 41 20 20 20 20 31 41 30 |003N 214|A 1A0|
|00000910| 30 30 30 32 43 20 20 20 | 20 35 61 46 6c 64 33 43 |0002C | 5aFld3C|
|00000920| 20 20 20 37 32 7b 7c 7c | 20 7b 62 46 6c 64 33 2c | 72{||| {bFld3,|
|00000930| 20 27 61 63 61 74 65 67 | 5b 6c 61 73 65 72 2d 3e | 'acateg|[laser->|
|00000940| 6e 63 61 74 5d 27 2c 20 | 27 43 27 2c 20 7b 27 43 |ncat]', |'C', {'C|
|00000950| 61 74 65 67 6f 72 79 27 | 7d 2c 20 31 38 2c 20 30 |ategory'|}, 18, 0|
|00000960| 2c 20 2e 46 2e 2c 20 27 | 40 21 27 7d 7d 4e 20 32 |, .F., '|@!'}}N 2|
|00000970| 37 33 41 30 30 30 30 33 | 4e 30 32 31 30 43 20 20 |73A00003|N0210C |
|00000980| 31 31 30 7b 7c 7c 20 4c | 61 73 65 72 72 65 70 3a |110{|| L|aserrep:|
|00000990| 3d 7b 7b 27 4c 61 73 65 | 72 20 43 6f 6c 6c 65 63 |={{'Lase|r Collec|
|000009a0| 74 69 6f 6e 27 2c 27 4c | 69 73 74 69 6e 67 20 6f |tion','L|isting o|
|000009b0| 66 20 46 69 6c 6d 73 27 | 7d 2c 38 30 2c 30 2c 30 |f Films'|},80,0,0|
|000009c0| 2c 36 36 2c 31 2c 2e 66 | 2e 2c 2e 66 2e 2c 2e 66 |,66,1,.f|.,.f.,.f|
|000009d0| 2e 2c 2e 66 2e 2c 7b 61 | 66 6c 64 31 2c 61 66 6c |.,.f.,{a|fld1,afl|
|000009e0| 64 32 2c 61 66 6c 64 33 | 7d 2c 7b 7d 2c 27 27 7d |d2,afld3|},{},''}|
|000009f0| 7d 4e 20 32 37 36 41 30 | 30 30 30 33 4e 30 32 31 |}N 276A0|0003N021|
|00000a00| 30 43 20 20 31 33 38 7b | 7c 7c 20 61 43 61 74 65 |0C 138{||| aCate|
|00000a10| 67 3a 3d 7b 27 41 63 74 | 69 6f 6e 27 2c 27 4d 79 |g:={'Act|ion','My|
|00000a20| 73 74 65 72 79 27 2c 27 | 53 75 73 70 65 6e 73 65 |stery','|Suspense|
|00000a30| 27 2c 27 43 68 69 6c 64 | 72 65 6e 73 27 2c 27 43 |','Child|rens','C|
|00000a40| 6f 6d 65 64 79 27 2c 27 | 44 6f 63 75 6d 65 6e 74 |omedy','|Document|
|00000a50| 65 72 79 27 2c 27 44 72 | 61 6d 61 27 2c 27 46 6f |ery','Dr|ama','Fo|
|00000a60| 72 65 69 67 6e 27 2c 27 | 48 6f 72 72 6f 72 27 2c |reign','|Horror',|
|00000a70| 27 4d 75 73 69 63 27 2c | 27 4d 75 73 69 63 61 6c |'Music',|'Musical|
|00000a80| 27 2c 27 53 63 69 2d 66 | 69 63 74 69 6f 6e 27 7d |','Sci-f|iction'}|
|00000a90| 7d 4e 20 32 38 30 41 30 | 30 30 30 33 4e 30 32 31 |}N 280A0|0003N021|
|00000aa0| 30 43 20 20 20 34 33 7b | 7c 7c 20 6f 44 62 56 69 |0C 43{||| oDbVi|
|00000ab0| 65 77 3a 3d 20 20 20 20 | 41 44 4c 43 6c 61 73 73 |ew:= |ADLClass|
|00000ac0| 28 27 44 42 46 27 2c 20 | 6c 61 73 65 72 76 65 77 |('DBF', |laservew|
|00000ad0| 29 7d 4e 20 32 38 33 41 | 30 30 30 30 33 4e 30 32 |)}N 283A|00003N02|
|00000ae0| 31 30 43 20 20 20 32 35 | 7b 7c 7c 20 6f 44 62 56 |10C 25|{|| oDbV|
|00000af0| 69 65 77 3a 53 65 6e 64 | 28 27 4f 70 65 6e 27 29 |iew:Send|('Open')|
|00000b00| 7d 4e 20 32 38 34 41 30 | 30 30 30 33 4e 30 32 31 |}N 284A0|0003N021|
|00000b10| 30 43 20 20 20 33 35 7b | 7c 7c 20 6f 44 62 56 69 |0C 35{||| oDbVi|
|00000b20| 65 77 3a 53 65 6e 64 28 | 27 53 65 74 4f 72 64 65 |ew:Send(|'SetOrde|
|00000b30| 72 27 2c 31 29 20 20 20 | 20 7d 4e 20 32 38 35 41 |r',1) | }N 285A|
|00000b40| 30 30 30 30 33 4e 30 32 | 31 30 43 20 20 20 34 34 |00003N02|10C 44|
|00000b50| 7b 7c 7c 20 6f 42 72 6f | 77 73 65 53 63 72 6e 3a |{|| oBro|wseScrn:|
|00000b60| 3d 20 41 44 4c 43 6c 61 | 73 73 28 27 53 43 4e 27 |= ADLCla|ss('SCN'|
|00000b70| 2c 20 6c 61 73 65 72 62 | 72 77 29 7d 4e 20 32 38 |, laserb|rw)}N 28|
|00000b80| 37 41 30 30 30 30 33 4e | 30 32 31 30 43 20 20 20 |7A00003N|0210C |
|00000b90| 34 34 7b 7c 7c 20 6f 4c | 61 73 65 72 53 63 72 6e |44{|| oL|aserScrn|
|00000ba0| 3a 3d 20 20 41 44 4c 43 | 6c 61 73 73 28 27 53 43 |:= ADLC|lass('SC|
|00000bb0| 4e 27 2c 20 6c 61 73 65 | 72 73 63 72 29 7d 4e 20 |N', lase|rscr)}N |
|00000bc0| 32 38 38 41 30 30 30 30 | 33 4e 30 32 31 30 43 20 |288A0000|3N0210C |
|00000bd0| 20 20 34 34 7b 7c 7c 20 | 6f 4c 61 73 65 72 43 68 | 44{|| |oLaserCh|
|00000be0| 61 72 74 3a 3d 20 41 44 | 4c 43 6c 61 73 73 28 27 |art:= AD|LClass('|
|00000bf0| 53 43 4e 27 2c 20 6c 61 | 73 65 72 63 68 74 29 7d |SCN', la|sercht)}|
|00000c00| 4e 20 32 38 39 41 30 30 | 30 30 33 4e 30 32 31 30 |N 289A00|003N0210|
|00000c10| 43 20 20 20 34 34 7b 7c | 7c 20 6f 4c 61 73 65 72 |C 44{||| oLaser|
|00000c20| 48 65 6c 70 3a 3d 20 20 | 41 44 4c 43 6c 61 73 73 |Help:= |ADLClass|
|00000c30| 28 27 53 43 4e 27 2c 20 | 6c 61 73 65 72 68 6c 70 |('SCN', |laserhlp|
|00000c40| 29 7d 4e 20 32 39 30 41 | 30 30 30 30 33 4e 30 32 |)}N 290A|00003N02|
|00000c50| 31 30 43 20 20 20 34 34 | 7b 7c 7c 20 6f 50 72 69 |10C 44|{|| oPri|
|00000c60| 6e 74 53 63 72 6e 3a 3d | 20 20 41 44 4c 43 6c 61 |ntScrn:=| ADLCla|
|00000c70| 73 73 28 27 53 43 4e 27 | 2c 20 6c 61 73 65 72 70 |ss('SCN'|, laserp|
|00000c80| 72 6e 29 7d 4e 20 32 39 | 31 41 30 30 30 30 33 4e |rn)}N 29|1A00003N|
|00000c90| 30 32 31 30 43 20 20 20 | 34 34 7b 7c 7c 20 6f 4c |0210C |44{|| oL|
|00000ca0| 61 73 65 72 52 65 70 3a | 3d 20 20 20 41 44 4c 43 |aserRep:|= ADLC|
|00000cb0| 6c 61 73 73 28 27 52 45 | 50 27 2c 20 6c 61 73 65 |lass('RE|P', lase|
|00000cc0| 72 72 65 70 29 7d 4e 20 | 32 39 32 41 30 30 30 30 |rrep)}N |292A0000|
|00000cd0| 33 4e 30 32 31 30 43 20 | 20 20 36 37 7b 7c 7c 20 |3N0210C | 67{|| |
|00000ce0| 6f 4c 61 73 65 72 54 61 | 62 20 3a 3d 20 20 41 44 |oLaserTa|b := AD|
|00000cf0| 4c 43 6c 61 73 73 28 27 | 54 41 42 27 2c 20 7b 62 |LClass('|TAB', {b|
|00000d00| 63 6f 6c 73 2c 20 62 62 | 6c 6b 2c 20 74 62 6c 6b |cols, bb|lk, tblk|
|00000d10| 2c 20 73 62 6c 6b 2c 20 | 61 62 6c 6b 7d 29 7d 4e |, sblk, |ablk})}N|
|00000d20| 20 32 39 33 41 30 30 30 | 30 33 4e 30 32 31 30 43 | 293A000|03N0210C|
|00000d30| 20 20 20 35 39 7b 7c 7c | 20 6f 4c 61 73 65 72 57 | 59{||| oLaserW|
|00000d40| 70 3a 3d 20 20 20 20 41 | 44 4c 43 6c 61 73 73 28 |p:= A|DLClass(|
|00000d50| 27 57 50 27 2c 20 7b 27 | 57 50 27 2c 20 27 6c 61 |'WP', {'|WP', 'la|
|00000d60| 73 65 72 2e 64 6f 63 27 | 2c 20 27 27 7d 20 29 7d |ser.doc'|, ''} )}|
|00000d70| 4e 20 32 39 34 41 30 30 | 30 30 33 4e 30 32 31 30 |N 294A00|003N0210|
|00000d80| 43 20 20 20 34 37 7b 7c | 7c 20 6f 4c 61 73 65 72 |C 47{||| oLaser|
|00000d90| 54 78 74 3a 3d 20 20 20 | 41 44 4c 43 6c 61 73 73 |Txt:= |ADLClass|
|00000da0| 28 27 54 58 54 27 2c 20 | 27 6c 61 73 65 72 2e 64 |('TXT', |'laser.d|
|00000db0| 6f 63 27 29 7d 4e 20 32 | 39 35 41 30 30 30 30 33 |oc')}N 2|95A00003|
|00000dc0| 4e 30 32 31 30 43 20 20 | 20 33 34 7b 7c 7c 20 6f |N0210C | 34{|| o|
|00000dd0| 4c 61 73 65 72 4c 53 54 | 3a 3d 20 20 20 41 44 4c |LaserLST|:= ADL|
|00000de0| 43 6c 61 73 73 28 27 50 | 52 4e 27 29 7d 4e 20 32 |Class('P|RN')}N 2|
|00000df0| 39 36 41 30 30 30 30 33 | 4e 30 32 31 30 43 20 20 |96A00003|N0210C |
|00000e00| 20 36 30 7b 7c 7c 20 6f | 4c 61 73 65 72 31 32 33 | 60{|| o|Laser123|
|00000e10| 3a 3d 20 20 20 41 44 4c | 43 6c 61 73 73 28 27 57 |:= ADL|Class('W|
|00000e20| 50 27 2c 20 7b 27 31 32 | 33 27 2c 20 27 6c 61 73 |P', {'12|3', 'las|
|00000e30| 65 72 2e 77 6b 31 27 2c | 20 27 27 7d 20 29 7d 4e |er.wk1',| ''} )}N|
|00000e40| 20 32 39 37 41 30 30 30 | 30 33 4e 30 32 31 30 43 | 297A000|03N0210C|
|00000e50| 20 20 20 32 32 7b 7c 7c | 20 53 65 74 54 69 6d 65 | 22{||| SetTime|
|00000e60| 72 28 37 35 30 29 20 20 | 20 20 7d 4e 20 32 39 39 |r(750) | }N 299|
|00000e70| 41 30 30 30 30 33 4e 30 | 32 31 30 43 20 20 20 33 |A00003N0|210C 3|
|00000e80| 37 7b 7c 7c 20 6f 44 62 | 56 69 65 77 3a 53 65 6e |7{|| oDb|View:Sen|
|00000e90| 64 28 27 52 65 61 64 27 | 2c 27 4c 41 53 45 52 27 |d('Read'|,'LASER'|
|00000ea0| 29 20 20 20 20 7d 4e 20 | 33 31 30 31 41 30 30 30 |) }N |3101A000|
|00000eb0| 30 33 4e 30 32 31 30 43 | 20 20 20 33 33 7b 7c 7c |03N0210C| 33{|||
|00000ec0| 20 6e 43 61 74 3a 3d 70 | 61 64 28 61 43 61 74 65 | nCat:=p|ad(aCate|
|00000ed0| 67 20 5b 6e 43 61 74 5d | 2c 20 31 35 29 7d 4e 20 |g [nCat]|, 15)}N |
|00000ee0| 33 31 30 32 41 30 30 30 | 30 33 4e 30 32 31 30 43 |3102A000|03N0210C|
|00000ef0| 20 20 20 39 35 7b 7c 7c | 20 6f 4c 61 73 65 72 53 | 95{||| oLaserS|
|00000f00| 63 72 6e 3a 53 65 6e 64 | 28 27 41 74 74 61 63 68 |crn:Send|('Attach|
|00000f10| 4d 65 6e 75 27 2c 20 7b | 27 4c 61 73 65 72 20 44 |Menu', {|'Laser D|
|00000f20| 69 73 6b 20 43 6f 6c 6c | 65 63 74 69 6f 6e 20 53 |isk Coll|ection S|
|00000f30| 79 73 74 65 6d 27 2c 6d | 74 65 78 74 2c 6d 6b 65 |ystem',m|text,mke|
|00000f40| 79 2c 6d 66 69 6c 65 5f | 74 2c 6d 66 69 6c 65 5f |y,mfile_|t,mfile_|
|00000f50| 6b 7d 29 7d 4e 20 33 31 | 30 34 41 30 30 30 30 33 |k})}N 31|04A00003|
|00000f60| 4e 30 32 31 30 43 20 20 | 20 32 37 7b 7c 7c 20 6f |N0210C | 27{|| o|
|00000f70| 4c 61 73 65 72 53 63 72 | 6e 3a 53 65 6e 64 28 27 |LaserScr|n:Send('|
|00000f80| 42 61 72 27 29 7d 4e 20 | 33 31 30 35 41 30 30 30 |Bar')}N |3105A000|
|00000f90| 30 33 4e 30 32 31 30 43 | 20 20 20 34 30 7b 7c 7c |03N0210C| 40{|||
|00000fa0| 20 6f 4c 61 73 65 72 53 | 63 72 6e 3a 53 65 6e 64 | oLaserS|crn:Send|
|00000fb0| 28 27 44 69 73 70 6c 61 | 79 27 2c 73 61 6e 73 65 |('Displa|y',sanse|
|00000fc0| 72 69 66 29 7d 4e 20 33 | 31 30 36 41 30 30 30 30 |rif)}N 3|106A0000|
|00000fd0| 33 4e 30 32 31 30 43 20 | 20 20 35 30 7b 7c 7c 20 |3N0210C | 50{|| |
|00000fe0| 6f 44 65 73 63 3a 3d 6f | 4c 61 73 65 72 53 63 72 |oDesc:=o|LaserScr|
|00000ff0| 6e 3a 53 65 6e 64 28 27 | 4f 62 6a 65 63 74 27 2c |n:Send('|Object',|
|00001000| 20 27 44 45 53 43 27 29 | 20 20 20 20 20 7d 4e 20 | 'DESC')| }N |
|00001010| 33 31 30 37 41 30 30 30 | 30 33 4e 30 32 31 30 43 |3107A000|03N0210C|
|00001020| 20 20 20 31 38 7b 7c 7c | 20 6c 52 65 66 72 65 73 | 18{||| lRefres|
|00001030| 68 3a 3d 2e 46 2e 7d 4e | 20 33 31 30 39 41 30 30 |h:=.F.}N| 3109A00|
|00001040| 30 30 33 4e 30 32 31 30 | 43 20 20 20 32 37 7b 7c |003N0210|C 27{||
|00001050| 7c 20 6e 48 65 6c 70 3a | 3d 31 20 20 20 20 20 20 || nHelp:|=1 |
|00001060| 20 20 20 20 20 20 20 20 | 7d 4e 20 33 31 31 30 41 | |}N 3110A|
|00001070| 30 30 30 30 33 4e 30 32 | 31 30 43 20 20 20 33 36 |00003N02|10C 36|
|00001080| 7b 7c 7c 20 6e 45 76 65 | 6e 74 3a 3d 6f 4c 61 73 |{|| nEve|nt:=oLas|
|00001090| 65 72 53 63 72 6e 3a 53 | 65 6e 64 28 27 52 65 61 |erScrn:S|end('Rea|
|000010a0| 64 27 29 7d 4e 20 33 31 | 31 31 41 30 30 30 30 33 |d')}N 31|11A00003|
|000010b0| 4e 30 32 20 38 43 20 20 | 20 20 39 7b 7c 7c 20 20 |N02 8C | 9{|| |
|000010c0| 2e 54 2e 7d 4e 20 33 31 | 31 34 41 30 30 30 30 33 |.T.}N 31|14A00003|
|000010d0| 4e 30 32 20 31 43 20 20 | 20 34 35 7b 7c 7c 20 6e |N02 1C | 45{|| n|
|000010e0| 45 76 65 6e 74 20 3d 20 | 20 20 32 37 20 20 20 20 |Event = | 27 |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001100| 20 20 20 20 20 20 20 7d | 4e 20 33 31 31 37 41 30 | }|N 3117A0|
|00001110| 30 30 30 33 4e 30 32 20 | 31 43 20 20 20 34 38 7b |0003N02 |1C 48{|
|00001120| 7c 7c 20 59 45 53 4e 4f | 42 4f 58 20 28 27 57 61 ||| YESNO|BOX ('Wa|
|00001130| 72 6e 69 6e 67 27 2c 20 | 27 44 6f 20 79 6f 75 20 |rning', |'Do you |
|00001140| 77 69 73 68 20 74 6f 20 | 51 75 69 74 27 29 7d 4e |wish to |Quit')}N|
|00001150| 20 33 31 31 39 41 30 30 | 30 30 33 4e 30 32 20 36 | 3119A00|003N02 6|
|00001160| 43 20 20 20 20 30 4e 20 | 33 31 32 30 41 30 30 30 |C 0N |3120A000|
|00001170| 30 33 4e 30 32 20 35 43 | 20 20 20 20 30 4e 20 33 |03N02 5C| 0N 3|
|00001180| 31 32 31 41 30 30 30 30 | 33 4e 30 32 20 32 43 20 |121A0000|3N02 2C |
|00001190| 20 20 34 30 7b 7c 7c 20 | 6e 45 76 65 6e 74 20 3d | 40{|| |nEvent =|
|000011a0| 20 34 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 4 | |
|000011b0| 20 20 20 20 20 20 20 20 | 20 20 20 7d 4e 20 33 31 | | }N 31|
|000011c0| 32 33 41 30 30 30 30 33 | 4e 30 32 20 31 43 20 20 |23A00003|N02 1C |
|000011d0| 20 34 33 7b 7c 7c 20 21 | 20 6f 44 62 56 69 65 77 | 43{|| !| oDbView|
|000011e0| 3a 53 65 6e 64 28 27 53 | 6b 69 70 27 2c 20 27 4c |:Send('S|kip', 'L|
|000011f0| 41 53 45 52 27 2c 20 31 | 29 20 3d 20 30 7d 4e 20 |ASER', 1|) = 0}N |
|00001200| 33 31 32 34 41 30 30 30 | 30 33 4e 30 32 31 30 43 |3124A000|03N0210C|
|00001210| 20 20 20 31 38 7b 7c 7c | 20 6c 52 65 66 72 65 73 | 18{||| lRefres|
|00001220| 68 3a 3d 2e 54 2e 7d 4e | 20 33 31 32 35 41 30 30 |h:=.T.}N| 3125A00|
|00001230| 30 30 33 4e 30 32 20 35 | 43 20 20 20 20 30 4e 20 |003N02 5|C 0N |
|00001240| 33 31 32 36 41 30 30 30 | 30 33 4e 30 32 20 32 43 |3126A000|03N02 2C|
|00001250| 20 20 20 34 33 7b 7c 7c | 20 6e 45 76 65 6e 74 20 | 43{||| nEvent |
|00001260| 3d 20 20 31 39 20 20 20 | 20 20 20 20 20 20 20 20 |= 19 | |
|00001270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|00001280| 4e 20 33 31 32 38 41 30 | 30 30 30 33 4e 30 32 20 |N 3128A0|0003N02 |
|00001290| 31 43 20 20 20 34 34 7b | 7c 7c 20 21 20 6f 44 62 |1C 44{||| ! oDb|
|000012a0| 56 69 65 77 3a 53 65 6e | 64 28 27 53 6b 69 70 27 |View:Sen|d('Skip'|
|000012b0| 2c 20 27 4c 41 53 45 52 | 27 2c 20 2d 31 29 20 3d |, 'LASER|', -1) =|
|000012c0| 20 30 7d 4e 20 33 31 32 | 39 41 30 30 30 30 33 4e | 0}N 312|9A00003N|
|000012d0| 30 32 31 30 43 20 20 20 | 31 38 7b 7c 7c 20 6c 52 |0210C |18{|| lR|
|000012e0| 65 66 72 65 73 68 3a 3d | 2e 54 2e 7d 4e 20 33 31 |efresh:=|.T.}N 31|
|000012f0| 33 30 41 30 30 30 30 33 | 4e 30 32 20 35 43 20 20 |30A00003|N02 5C |
|00001300| 20 20 30 4e 20 33 31 33 | 31 41 30 30 30 30 33 4e | 0N 313|1A00003N|
|00001310| 30 32 20 32 43 20 20 20 | 34 34 7b 7c 7c 20 6e 45 |02 2C |44{|| nE|
|00001320| 76 65 6e 74 20 3d 20 20 | 31 38 20 20 20 20 20 20 |vent = |18 |
|00001330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001340| 20 20 20 20 20 7d 4e 20 | 33 31 33 33 41 30 30 30 | }N |3133A000|
|00001350| 30 33 4e 30 32 20 31 43 | 20 20 20 34 35 7b 7c 7c |03N02 1C| 45{|||
|00001360| 20 21 20 6f 44 62 56 69 | 65 77 3a 53 65 6e 64 28 | ! oDbVi|ew:Send(|
|00001370| 27 53 6b 69 70 27 2c 20 | 27 4c 41 53 45 52 27 2c |'Skip', |'LASER',|
|00001380| 20 2d 31 30 29 20 3d 20 | 30 7d 4e 20 33 31 33 34 | -10) = |0}N 3134|
|00001390| 41 30 30 30 30 33 4e 30 | 32 31 30 43 20 20 20 31 |A00003N0|210C 1|
|000013a0| 38 7b 7c 7c 20 6c 52 65 | 66 72 65 73 68 3a 3d 2e |8{|| lRe|fresh:=.|
|000013b0| 54 2e 7d 4e 20 33 31 33 | 35 41 30 30 30 30 33 4e |T.}N 313|5A00003N|
|000013c0| 30 32 20 35 43 20 20 20 | 20 30 4e 20 33 31 33 36 |02 5C | 0N 3136|
|000013d0| 41 30 30 30 30 33 4e 30 | 32 20 32 43 20 20 20 34 |A00003N0|2 2C 4|
|000013e0| 33 7b 7c 7c 20 6e 45 76 | 65 6e 74 20 3d 20 20 33 |3{|| nEv|ent = 3|
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001400| 20 20 20 20 20 20 20 20 | 20 20 20 7d 4e 20 33 31 | | }N 31|
|00001410| 33 38 41 30 30 30 30 33 | 4e 30 32 20 31 43 20 20 |38A00003|N02 1C |
|00001420| 20 34 34 7b 7c 7c 20 21 | 20 6f 44 62 56 69 65 77 | 44{|| !| oDbView|
|00001430| 3a 53 65 6e 64 28 27 53 | 6b 69 70 27 2c 20 27 4c |:Send('S|kip', 'L|
|00001440| 41 53 45 52 27 2c 20 31 | 30 29 20 3d 20 30 7d 4e |ASER', 1|0) = 0}N|
|00001450| 20 33 31 33 39 41 30 30 | 30 30 33 4e 30 32 31 30 | 3139A00|003N0210|
|00001460| 43 20 20 20 31 38 7b 7c | 7c 20 6c 52 65 66 72 65 |C 18{||| lRefre|
|00001470| 73 68 3a 3d 2e 54 2e 7d | 4e 20 33 31 34 30 41 30 |sh:=.T.}|N 3140A0|
|00001480| 30 30 30 33 4e 30 32 20 | 35 43 20 20 20 20 30 4e |0003N02 |5C 0N|
|00001490| 20 33 31 34 31 41 30 30 | 30 30 33 4e 30 32 20 32 | 3141A00|003N02 2|
|000014a0| 43 20 20 20 34 32 7b 7c | 7c 20 6e 45 76 65 6e 74 |C 42{||| nEvent|
|000014b0| 20 3d 20 20 31 20 20 20 | 20 20 20 20 20 20 20 20 | = 1 | |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 7d | | }|
|000014d0| 4e 20 33 31 34 33 41 30 | 30 30 30 33 4e 30 32 31 |N 3143A0|0003N021|
|000014e0| 30 43 20 20 20 33 35 7b | 7c 7c 20 6f 44 62 56 69 |0C 35{||| oDbVi|
|000014f0| 65 77 3a 53 65 6e 64 28 | 27 47 6f 54 6f 70 27 2c |ew:Send(|'GoTop',|
|00001500| 20 27 4c 41 53 45 52 27 | 29 7d 4e 20 33 31 34 34 | 'LASER'|)}N 3144|
|00001510| 41 30 30 30 30 33 4e 30 | 32 31 30 43 20 20 20 31 |A00003N0|210C 1|
|00001520| 38 7b 7c 7c 20 6c 52 65 | 66 72 65 73 68 3a 3d 2e |8{|| lRe|fresh:=.|
|00001530| 54 2e 7d 4e 20 33 31 34 | 35 41 30 30 30 30 33 4e |T.}N 314|5A00003N|
|00001540| 30 32 20 32 43 20 20 20 | 34 34 7b 7c 7c 20 6e 45 |02 2C |44{|| nE|
|00001550| 76 65 6e 74 20 3d 20 20 | 20 36 20 20 20 20 20 20 |vent = | 6 |
|00001560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001570| 20 20 20 20 20 7d 4e 20 | 33 31 34 37 41 30 30 30 | }N |3147A000|
|00001580| 30 33 4e 30 32 31 30 43 | 20 20 20 33 38 7b 7c 7c |03N0210C| 38{|||
|00001590| 20 6f 44 62 56 69 65 77 | 3a 53 65 6e 64 28 27 47 | oDbView|:Send('G|
|000015a0| 6f 42 6f 74 74 6f 6d 27 | 2c 20 27 4c 41 53 45 52 |oBottom'|, 'LASER|
|000015b0| 27 29 7d 4e 20 33 31 34 | 38 41 30 30 30 30 33 4e |')}N 314|8A00003N|
|000015c0| 30 32 31 30 43 20 20 20 | 31 38 7b 7c 7c 20 6c 52 |0210C |18{|| lR|
|000015d0| 65 66 72 65 73 68 3a 3d | 2e 54 2e 7d 4e 20 33 31 |efresh:=|.T.}N 31|
|000015e0| 34 39 41 30 30 30 30 33 | 4e 30 32 20 32 43 20 20 |49A00003|N02 2C |
|000015f0| 20 31 37 7b 7c 7c 20 6e | 45 76 65 6e 74 20 3d 20 | 17{|| n|Event = |
|00001600| 20 39 38 7d 4e 20 33 31 | 35 31 41 30 30 30 30 33 | 98}N 31|51A00003|
|00001610| 4e 30 32 31 30 43 20 20 | 20 31 33 7b 7c 7c 20 6e |N0210C | 13{|| n|
|00001620| 48 65 6c 70 3a 3d 32 7d | 4e 20 33 31 35 32 41 30 |Help:=2}|N 3152A0|
|00001630| 30 30 30 33 4e 30 32 31 | 30 43 20 20 20 32 39 7b |0003N021|0C 29{|
|00001640| 7c 7c 20 73 65 6c 66 3a | 53 65 6e 64 28 27 42 72 ||| self:|Send('Br|
|00001650| 6f 77 73 65 4c 61 73 65 | 72 27 29 7d 4e 20 33 31 |owseLase|r')}N 31|
|00001660| 35 33 41 30 30 30 30 33 | 4e 30 32 20 32 43 20 20 |53A00003|N02 2C |
|00001670| 20 31 38 7b 7c 7c 20 6e | 45 76 65 6e 74 20 3d 20 | 18{|| n|Event = |
|00001680| 20 31 31 34 7d 4e 20 33 | 31 35 35 41 30 30 30 30 | 114}N 3|155A0000|
|00001690| 33 4e 30 32 31 30 43 20 | 20 20 32 37 7b 7c 7c 20 |3N0210C | 27{|| |
|000016a0| 73 65 6c 66 3a 53 65 6e | 64 28 27 4c 61 73 65 72 |self:Sen|d('Laser|
|000016b0| 4c 69 73 74 27 29 7d 4e | 20 33 31 35 36 41 30 30 |List')}N| 3156A00|
|000016c0| 30 30 33 4e 30 32 20 32 | 43 20 20 20 31 36 7b 7c |003N02 2|C 16{||
|000016d0| 7c 20 6e 45 76 65 6e 74 | 20 3d 20 39 39 7d 4e 20 || nEvent| = 99}N |
|000016e0| 33 31 35 38 41 30 30 30 | 30 33 4e 30 32 20 31 43 |3158A000|03N02 1C|
|000016f0| 20 20 20 35 39 7b 7c 7c | 20 59 45 53 4e 4f 42 4f | 59{||| YESNOBO|
|00001700| 58 28 27 43 68 61 72 74 | 20 43 61 74 65 67 6f 72 |X('Chart| Categor|
|00001710| 69 65 73 27 2c 27 44 6f | 20 79 6f 75 20 77 69 73 |ies','Do| you wis|
|00001720| 68 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 27 29 7d |h to con|tinue')}|
|00001730| 4e 20 33 31 35 39 41 30 | 30 30 30 33 4e 30 32 31 |N 3159A0|0003N021|
|00001740| 30 43 20 20 20 32 33 7b | 7c 7c 20 6e 48 65 6c 70 |0C 23{||| nHelp|
|00001750| 3a 3d 33 20 20 20 20 20 | 20 20 20 20 20 7d 4e 20 |:=3 | }N |
|00001760| 33 31 36 30 41 30 30 30 | 30 33 4e 30 32 31 30 43 |3160A000|03N0210C|
|00001770| 20 20 20 34 39 7b 7c 7c | 20 6f 4c 61 73 65 72 53 | 49{||| oLaserS|
|00001780| 63 72 6e 3a 53 65 6e 64 | 28 27 4d 65 73 73 61 67 |crn:Send|('Messag|
|00001790| 65 27 2c 20 27 50 6c 65 | 61 73 65 20 57 61 69 74 |e', 'Ple|ase Wait|
|000017a0| 2e 2e 2e 27 29 7d 4e 20 | 33 31 36 31 41 30 30 30 |...')}N |3161A000|
|000017b0| 30 33 4e 30 32 31 30 43 | 20 20 20 32 38 7b 7c 7c |03N0210C| 28{|||
|000017c0| 20 73 65 6c 66 3a 53 65 | 6e 64 28 27 4c 61 73 65 | self:Se|nd('Lase|
|000017d0| 72 43 68 61 72 74 27 29 | 7d 4e 20 33 31 36 32 41 |rChart')|}N 3162A|
|000017e0| 30 30 30 30 33 4e 30 32 | 20 35 43 20 20 20 20 30 |00003N02| 5C 0|
|000017f0| 4e 20 33 31 36 33 41 30 | 30 30 30 33 4e 30 32 20 |N 3163A0|0003N02 |
|00001800| 32 43 20 20 20 32 30 7b | 7c 7c 20 6e 45 76 65 6e |2C 20{||| nEven|
|00001810| 74 20 3d 20 20 20 31 32 | 30 33 7d 4e 20 33 31 36 |t = 12|03}N 316|
|00001820| 35 41 30 30 30 30 33 4e | 30 32 31 30 43 20 20 20 |5A00003N|0210C |
|00001830| 32 33 7b 7c 7c 20 6e 4d | 65 6d 6f 72 79 3a 3d 6d |23{|| nM|emory:=m|
|00001840| 65 6d 6f 72 79 28 30 29 | 7d 4e 20 33 31 36 36 41 |emory(0)|}N 3166A|
|00001850| 30 30 30 30 33 4e 30 32 | 31 30 43 20 20 20 36 32 |00003N02|10C 62|
|00001860| 7b 7c 7c 20 4d 73 67 42 | 6f 78 28 27 41 62 6f 75 |{|| MsgB|ox('Abou|
|00001870| 74 27 2c 20 45 78 70 61 | 6e 64 54 65 78 74 28 47 |t', Expa|ndText(G|
|00001880| 65 74 50 6f 69 6e 74 65 | 72 28 61 62 6f 75 74 6d |etPointe|r(aboutm|
|00001890| 73 67 29 29 2c 20 64 72 | 61 77 65 72 29 7d 4e 20 |sg)), dr|awer)}N |
|000018a0| 33 31 36 37 41 30 30 30 | 30 33 4e 30 32 20 35 43 |3167A000|03N02 5C|
|000018b0| 20 20 20 20 30 4e 20 33 | 31 36 38 41 30 30 30 30 | 0N 3|168A0000|
|000018c0| 33 4e 30 32 20 31 43 20 | 20 20 38 37 7b 7c 7c 20 |3N02 1C | 87{|| |
|000018d0| 6c 52 65 66 72 65 73 68 | 20 2e 61 6e 64 2e 20 21 |lRefresh| .and. !|
|000018e0| 20 6f 44 62 56 69 65 77 | 3a 53 65 6e 64 28 27 65 | oDbView|:Send('e|
|000018f0| 6f 66 27 2c 20 27 4c 41 | 53 45 52 27 29 20 2e 61 |of', 'LA|SER') .a|
|00001900| 6e 64 2e 20 21 20 6f 44 | 62 56 69 65 77 3a 53 65 |nd. ! oD|bView:Se|
|00001910| 6e 64 28 27 62 6f 66 27 | 2c 20 27 4c 41 53 45 52 |nd('bof'|, 'LASER|
|00001920| 27 29 7d 4e 20 33 31 37 | 31 41 30 30 30 30 33 4e |')}N 317|1A00003N|
|00001930| 30 32 31 32 41 20 20 20 | 20 34 43 20 20 20 33 34 |0212A | 4C 34|
|00001940| 7b 7c 7c 20 6f 44 62 56 | 69 65 77 3a 53 65 6e 64 |{|| oDbV|iew:Send|
|00001950| 28 27 52 65 61 64 27 2c | 20 27 4c 41 53 45 52 27 |('Read',| 'LASER'|
|00001960| 29 7d 43 20 20 20 33 33 | 7b 7c 7c 20 6e 43 61 74 |)}C 33|{|| nCat|
|00001970| 3a 3d 70 61 64 28 61 43 | 61 74 65 67 20 5b 6e 43 |:=pad(aC|ateg [nC|
|00001980| 61 74 5d 2c 20 31 35 29 | 7d 43 20 20 20 33 31 7b |at], 15)|}C 31{|
|00001990| 7c 7c 20 6f 4c 61 73 65 | 72 53 63 72 6e 3a 53 65 ||| oLase|rScrn:Se|
|000019a0| 6e 64 28 27 52 65 66 72 | 65 73 68 27 29 7d 43 20 |nd('Refr|esh')}C |
|000019b0| 20 20 34 32 7b 7c 7c 20 | 6f 4c 61 73 65 72 53 63 | 42{|| |oLaserSc|
|000019c0| 72 6e 3a 53 65 6e 64 28 | 27 4d 65 73 73 61 67 65 |rn:Send(|'Message|
|000019d0| 27 2c 20 73 70 61 63 65 | 28 35 30 29 29 7d 4e 20 |', space|(50))}N |
|000019e0| 33 31 37 38 41 30 30 30 | 30 33 4e 30 32 20 35 43 |3178A000|03N02 5C|
|000019f0| 20 20 20 20 30 4e 20 33 | 31 37 39 41 30 30 30 30 | 0N 3|179A0000|
|00001a00| 33 4e 30 32 31 30 43 20 | 20 20 33 32 7b 7c 7c 20 |3N0210C | 32{|| |
|00001a10| 6c 52 65 66 72 65 73 68 | 3a 3d 2e 46 2e 20 20 20 |lRefresh|:=.F. |
|00001a20| 20 20 20 20 20 20 20 20 | 20 20 20 7d 4e 20 33 31 | | }N 31|
|00001a30| 38 31 41 30 30 30 30 33 | 4e 30 32 31 30 43 20 20 |81A00003|N0210C |
|00001a40| 20 31 33 7b 7c 7c 20 6e | 48 65 6c 70 3a 3d 31 7d | 13{|| n|Help:=1}|
|00001a50| 4e 20 33 31 38 32 41 30 | 30 30 30 33 4e 30 32 31 |N 3182A0|0003N021|
|00001a60| 30 43 20 20 20 33 36 7b | 7c 7c 20 6e 45 76 65 6e |0C 36{||| nEven|
|00001a70| 74 3a 3d 6f 4c 61 73 65 | 72 53 63 72 6e 3a 53 65 |t:=oLase|rScrn:Se|
|00001a80| 6e 64 28 27 52 65 61 64 | 27 29 7d 4e 20 33 31 38 |nd('Read|')}N 318|
|00001a90| 33 41 30 30 30 30 33 4e | 30 32 31 31 43 20 20 20 |3A00003N|0211C |
|00001aa0| 20 30 4e 20 33 31 38 34 | 41 30 30 30 30 33 4e 30 | 0N 3184|A00003N0|
|00001ab0| 32 31 30 43 20 20 20 32 | 39 7b 7c 7c 20 6f 4c 61 |210C 2|9{|| oLa|
|00001ac0| 73 65 72 53 63 72 6e 3a | 53 65 6e 64 28 27 43 6c |serScrn:|Send('Cl|
|00001ad0| 65 61 72 27 29 7d 4e 20 | 33 31 38 36 41 30 30 30 |ear')}N |3186A000|
|00001ae0| 30 33 4e 30 32 31 30 43 | 20 20 20 31 31 7b 7c 7c |03N0210C| 11{|||
|00001af0| 20 51 55 49 54 28 29 7d | 4e 20 33 31 38 37 41 30 | QUIT()}|N 3187A0|
|00001b00| 30 30 30 33 4e 30 32 20 | 39 43 20 20 20 20 38 7b |0003N02 |9C 8{|
|00001b10| 7c 7c 20 4e 49 4c 7d 4e | 20 33 31 38 38 41 30 30 ||| NIL}N| 3188A00|
|00001b20| 30 30 33 4e 30 32 20 30 | 43 20 20 20 20 30 4e 20 |003N02 0|C 0N |
|00001b30| 33 31 39 33 00 50 52 47 | 53 45 4c 45 43 54 20 00 |3193.PRG|SELECT .|
|00001b40| c3 20 20 20 20 4b 01 41 | 44 4c 20 20 20 20 20 20 |. K.A|DL |
|00001b50| 20 20 20 20 20 41 20 20 | 20 20 39 41 30 30 30 30 | A | 9A0000|
|00001b60| 33 4e 30 32 31 33 41 20 | 20 20 20 33 43 20 20 20 |3N0213A | 3C |
|00001b70| 20 34 63 46 6c 64 43 20 | 20 20 20 34 6f 46 6c 64 | 4cFldC | 4oFld|
|00001b80| 43 20 20 20 20 34 6f 53 | 63 72 4e 20 33 31 39 35 |C 4oS|crN 3195|
|00001b90| 41 30 30 30 30 33 4e 20 | 32 31 34 41 20 20 20 20 |A00003N |214A |
|00001ba0| 31 41 30 30 30 30 32 43 | 20 20 20 20 37 6c 53 65 |1A00002C| 7lSe|
|00001bb0| 6c 65 63 74 43 20 20 20 | 20 38 7b 7c 7c 20 2e 46 |lectC | 8{|| .F|
|00001bc0| 2e 7d 4e 20 33 31 39 36 | 41 30 30 30 30 33 4e 30 |.}N 3196|A00003N0|
|00001bd0| 32 20 31 43 20 20 20 34 | 34 7b 7c 7c 20 63 46 6c |2 1C 4|4{|| cFl|
|00001be0| 64 20 3d 20 27 4f 4c 41 | 53 45 52 54 41 42 27 20 |d = 'OLA|SERTAB' |
|00001bf0| 2e 6f 72 2e 20 63 46 6c | 64 20 3d 20 27 44 45 53 |.or. cFl|d = 'DES|
|00001c00| 43 27 20 20 7d 4e 20 33 | 31 39 38 41 30 30 30 30 |C' }N 3|198A0000|
|00001c10| 33 4e 30 32 31 30 43 20 | 20 20 34 33 7b 7c 7c 20 |3N0210C | 43{|| |
|00001c20| 6c 53 65 6c 65 63 74 3a | 3d 2e 54 2e 20 20 20 20 |lSelect:|=.T. |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c40| 20 20 20 20 20 20 7d 4e | 20 33 31 39 39 41 30 30 | }N| 3199A00|
|00001c50| 30 30 33 4e 30 32 20 35 | 43 20 20 20 20 30 4e 20 |003N02 5|C 0N |
|00001c60| 33 32 30 30 41 30 30 30 | 30 33 4e 30 32 20 39 43 |3200A000|03N02 9C|
|00001c70| 20 20 20 31 33 7b 7c 7c | 20 20 6c 53 65 6c 65 63 | 13{||| lSelec|
|00001c80| 74 7d 4e 20 33 32 30 31 | 41 30 30 30 30 33 4e 30 |t}N 3201|A00003N0|
|00001c90| 32 20 30 43 20 20 20 20 | 30 4e 20 33 32 30 36 00 |2 0C |0N 3206.|
|00001ca0| 50 52 47 55 4e 53 45 4c | 45 43 00 c3 20 20 20 20 |PRGUNSEL|EC.. |
|00001cb0| af 01 41 44 4c 20 20 20 | 20 20 20 20 20 20 20 20 |..ADL | |
|00001cc0| 41 20 20 20 31 31 41 30 | 30 30 30 33 4e 30 32 31 |A 11A0|0003N021|
|00001cd0| 33 41 20 20 20 20 33 43 | 20 20 20 20 34 63 46 6c |3A 3C| 4cFl|
|00001ce0| 64 43 20 20 20 20 34 6f | 46 6c 64 43 20 20 20 20 |dC 4o|FldC |
|00001cf0| 34 6f 53 63 72 4e 20 33 | 32 30 38 41 30 30 30 30 |4oScrN 3|208A0000|
|00001d00| 33 4e 20 32 31 34 41 20 | 20 20 20 31 41 30 30 30 |3N 214A | 1A000|
|00001d10| 30 32 43 20 20 20 20 36 | 6c 56 61 6c 69 64 43 20 |02C 6|lValidC |
|00001d20| 20 20 20 38 7b 7c 7c 20 | 2e 54 2e 7d 4e 20 33 32 | 8{|| |.T.}N 32|
|00001d30| 30 39 41 30 30 30 30 33 | 4e 30 32 20 31 43 20 20 |09A00003|N02 1C |
|00001d40| 20 33 31 7b 7c 7c 20 63 | 46 6c 64 20 3d 20 27 44 | 31{|| c|Fld = 'D|
|00001d50| 45 53 43 27 20 20 20 20 | 20 20 20 20 20 20 20 20 |ESC' | |
|00001d60| 20 7d 4e 20 33 32 31 31 | 41 30 30 30 30 33 4e 30 | }N 3211|A00003N0|
|00001d70| 32 31 30 43 20 20 20 32 | 36 7b 7c 7c 20 6f 44 65 |210C 2|6{|| oDe|
|00001d80| 73 63 3a 53 65 6e 64 28 | 27 52 65 66 72 65 73 68 |sc:Send(|'Refresh|
|00001d90| 27 29 7d 4e 20 33 32 31 | 32 41 30 30 30 30 33 4e |')}N 321|2A00003N|
|00001da0| 30 32 31 30 43 20 20 20 | 32 35 7b 7c 7c 20 6c 61 |0210C |25{|| la|
|00001db0| 73 65 72 2d 3e 64 65 73 | 63 3a 3d 6d 2d 3e 64 65 |ser->des|c:=m->de|
|00001dc0| 73 63 7d 4e 20 33 32 31 | 33 41 30 30 30 30 33 4e |sc}N 321|3A00003N|
|00001dd0| 30 32 31 30 43 20 20 20 | 36 31 7b 7c 7c 20 6f 4c |0210C |61{|| oL|
|00001de0| 61 73 65 72 53 63 72 6e | 3a 53 65 6e 64 28 27 4d |aserScrn|:Send('M|
|00001df0| 65 73 73 61 67 65 27 2c | 20 27 43 6f 6d 6d 65 6e |essage',| 'Commen|
|00001e00| 74 73 20 68 61 76 65 20 | 62 65 65 6e 20 75 70 64 |ts have |been upd|
|00001e10| 61 74 65 64 27 29 7d 4e | 20 33 32 31 34 41 30 30 |ated')}N| 3214A00|
|00001e20| 30 30 33 4e 30 32 20 35 | 43 20 20 20 20 30 4e 20 |003N02 5|C 0N |
|00001e30| 33 32 31 35 41 30 30 30 | 30 33 4e 30 32 20 39 43 |3215A000|03N02 9C|
|00001e40| 20 20 20 31 32 7b 7c 7c | 20 20 6c 56 61 6c 69 64 | 12{||| lValid|
|00001e50| 7d 4e 20 33 32 31 37 41 | 30 30 30 30 33 4e 30 32 |}N 3217A|00003N02|
|00001e60| 20 30 43 20 20 20 20 30 | 4e 20 33 32 32 32 00 50 | 0C 0|N 3222.P|
|00001e70| 52 47 43 4c 49 43 4b 20 | 20 00 c3 20 20 20 20 64 |RGCLICK | .. d|
|00001e80| 00 41 44 4c 20 20 20 20 | 20 20 20 20 20 20 20 41 |.ADL | A|
|00001e90| 20 20 20 20 35 41 30 30 | 30 30 33 4e 30 32 31 33 | 5A00|003N0213|
|00001ea0| 41 20 20 20 20 31 43 20 | 20 20 20 36 6e 45 76 65 |A 1C | 6nEve|
|00001eb0| 6e 74 4e 20 33 32 32 34 | 41 30 30 30 30 33 4e 30 |ntN 3224|A00003N0|
|00001ec0| 32 20 39 43 20 20 20 31 | 32 7b 7c 7c 20 20 6e 45 |2 9C 1|2{|| nE|
|00001ed0| 76 65 6e 74 7d 4e 20 33 | 32 32 35 41 30 30 30 30 |vent}N 3|225A0000|
|00001ee0| 33 4e 30 32 20 30 43 20 | 20 20 20 30 4e 20 33 32 |3N02 0C | 0N 32|
|00001ef0| 33 30 00 50 52 47 48 41 | 4e 44 4c 45 20 00 c3 20 |30.PRGHA|NDLE .. |
|00001f00| 20 20 20 c7 01 41 44 4c | 20 20 20 20 20 20 20 20 | ..ADL| |
|00001f10| 20 20 20 41 20 20 20 31 | 32 41 30 30 30 30 33 4e | A 1|2A00003N|
|00001f20| 30 32 31 33 41 20 20 20 | 20 31 43 20 20 20 20 36 |0213A | 1C 6|
|00001f30| 6e 45 76 65 6e 74 4e 20 | 33 32 33 32 41 30 30 30 |nEventN |3232A000|
|00001f40| 30 33 4e 30 32 20 31 43 | 20 20 20 31 39 7b 7c 7c |03N02 1C| 19{|||
|00001f50| 20 6e 45 76 65 6e 74 20 | 3d 20 20 20 20 32 38 7d | nEvent |= 28}|
|00001f60| 4e 20 33 32 33 34 41 30 | 30 30 30 33 4e 30 32 31 |N 3234A0|0003N021|
|00001f70| 30 43 20 20 20 33 31 7b | 7c 7c 20 48 65 6c 70 54 |0C 31{||| HelpT|
|00001f80| 65 78 74 3a 3d 48 65 6c | 70 54 65 78 74 20 28 6e |ext:=Hel|pText (n|
|00001f90| 48 65 6c 70 29 7d 4e 20 | 33 32 33 35 41 30 30 30 |Help)}N |3235A000|
|00001fa0| 30 33 4e 30 32 31 30 43 | 20 20 20 34 30 7b 7c 7c |03N0210C| 40{|||
|00001fb0| 20 6f 4c 61 73 65 72 48 | 65 6c 70 3a 53 65 6e 64 | oLaserH|elp:Send|
|00001fc0| 28 27 44 69 73 70 6c 61 | 79 27 2c 73 61 6e 73 65 |('Displa|y',sanse|
|00001fd0| 72 69 66 29 7d 4e 20 33 | 32 33 36 41 30 30 30 30 |rif)}N 3|236A0000|
|00001fe0| 33 4e 30 32 31 30 43 20 | 20 20 32 38 7b 7c 7c 20 |3N0210C | 28{|| |
|00001ff0| 6f 4c 61 73 65 72 48 65 | 6c 70 3a 53 65 6e 64 28 |oLaserHe|lp:Send(|
|00002000| 27 57 61 69 74 27 29 7d | 4e 20 33 32 33 37 41 30 |'Wait')}|N 3237A0|
|00002010| 30 30 30 33 4e 30 32 31 | 30 43 20 20 20 32 39 7b |0003N021|0C 29{|
|00002020| 7c 7c 20 6f 4c 61 73 65 | 72 48 65 6c 70 3a 53 65 ||| oLase|rHelp:Se|
|00002030| 6e 64 28 27 43 6c 65 61 | 72 27 29 7d 4e 20 33 32 |nd('Clea|r')}N 32|
|00002040| 33 38 41 30 30 30 30 33 | 4e 30 32 20 35 43 20 20 |38A00003|N02 5C |
|00002050| 20 20 30 4e 20 33 32 33 | 39 41 30 30 30 30 33 4e | 0N 323|9A00003N|
|00002060| 30 32 31 30 43 20 20 20 | 34 37 7b 7c 7c 20 6f 4c |0210C |47{|| oL|
|00002070| 61 73 65 72 53 63 72 6e | 3a 53 65 6e 64 28 27 4d |aserScrn|:Send('M|
|00002080| 65 73 73 61 67 65 27 2c | 20 27 54 69 6d 65 20 27 |essage',| 'Time '|
|00002090| 2b 74 69 6d 65 28 29 29 | 7d 4e 20 33 32 34 31 41 |+time())|}N 3241A|
|000020a0| 30 30 30 30 33 4e 30 32 | 20 39 43 20 20 20 31 32 |00003N02| 9C 12|
|000020b0| 7b 7c 7c 20 20 6e 45 76 | 65 6e 74 7d 4e 20 33 32 |{|| nEv|ent}N 32|
|000020c0| 34 32 41 30 30 30 30 33 | 4e 30 32 20 30 43 20 20 |42A00003|N02 0C |
|000020d0| 20 20 30 4e 20 33 32 34 | 37 00 50 52 47 42 52 4f | 0N 324|7.PRGBRO|
|000020e0| 57 53 45 4c 00 c3 20 20 | 20 20 50 01 41 44 4c 20 |WSEL.. | P.ADL |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 41 20 20 20 20 35 | | A 5|
|00002100| 41 30 30 30 30 33 4e 30 | 32 31 32 41 20 20 20 20 |A00003N0|212A |
|00002110| 36 43 20 20 20 34 30 7b | 7c 7c 20 6f 42 72 6f 77 |6C 40{||| oBrow|
|00002120| 73 65 53 63 72 6e 3a 53 | 65 6e 64 28 27 44 69 73 |seScrn:S|end('Dis|
|00002130| 70 6c 61 79 27 2c 63 6f | 75 72 69 65 72 29 7d 43 |play',co|urier)}C|
|00002140| 20 20 20 33 37 7b 7c 7c | 20 6e 45 76 65 6e 74 3a | 37{||| nEvent:|
|00002150| 3d 6f 42 72 6f 77 73 65 | 53 63 72 6e 3a 53 65 6e |=oBrowse|Scrn:Sen|
|00002160| 64 28 27 57 61 69 74 27 | 29 7d 43 20 20 20 33 34 |d('Wait'|)}C 34|
|00002170| 7b 7c 7c 20 6f 44 62 56 | 69 65 77 3a 53 65 6e 64 |{|| oDbV|iew:Send|
|00002180| 28 27 52 65 61 64 27 2c | 20 27 4c 41 53 45 52 27 |('Read',| 'LASER'|
|00002190| 29 7d 43 20 20 20 33 33 | 7b 7c 7c 20 6e 43 61 74 |)}C 33|{|| nCat|
|000021a0| 3a 3d 70 61 64 28 61 43 | 61 74 65 67 20 5b 6e 43 |:=pad(aC|ateg [nC|
|000021b0| 61 74 5d 2c 20 31 35 29 | 7d 43 20 20 20 33 30 7b |at], 15)|}C 30{|
|000021c0| 7c 7c 20 6f 42 72 6f 77 | 73 65 53 63 72 6e 3a 53 ||| oBrow|seScrn:S|
|000021d0| 65 6e 64 28 27 43 6c 65 | 61 72 27 29 7d 43 20 20 |end('Cle|ar')}C |
|000021e0| 20 34 32 7b 7c 7c 20 6f | 4c 61 73 65 72 53 63 72 | 42{|| o|LaserScr|
|000021f0| 6e 3a 53 65 6e 64 28 27 | 4d 65 73 73 61 67 65 27 |n:Send('|Message'|
|00002200| 2c 20 73 70 61 63 65 28 | 35 30 29 29 7d 4e 20 33 |, space(|50))}N 3|
|00002210| 32 35 36 41 30 30 30 30 | 33 4e 30 32 20 39 43 20 |256A0000|3N02 9C |
|00002220| 20 20 20 38 7b 7c 7c 20 | 4e 49 4c 7d 4e 20 33 32 | 8{|| |NIL}N 32|
|00002230| 35 37 41 30 30 30 30 33 | 4e 30 32 20 30 43 20 20 |57A00003|N02 0C |
|00002240| 20 20 30 4e 20 33 32 36 | 32 00 50 52 47 4e 4f 45 | 0N 326|2.PRGNOE|
|00002250| 44 49 54 53 00 c3 20 20 | 20 20 0b 01 41 44 4c 20 |DITS.. | ..ADL |
|00002260| 20 20 20 20 20 20 20 20 | 20 20 41 20 20 20 20 39 | | A 9|
|00002270| 41 30 30 30 30 33 4e 30 | 32 31 33 41 20 20 20 20 |A00003N0|213A |
|00002280| 31 43 20 20 20 20 34 6e | 4b 65 79 4e 20 33 32 36 |1C 4n|KeyN 326|
|00002290| 34 41 30 30 30 30 33 4e | 30 32 20 31 43 20 20 20 |4A00003N|02 1C |
|000022a0| 31 34 7b 7c 7c 20 6e 4b | 65 79 20 3d 20 31 33 7d |14{|| nK|ey = 13}|
|000022b0| 4e 20 33 32 36 36 41 30 | 30 30 30 33 4e 30 32 31 |N 3266A0|0003N021|
|000022c0| 30 43 20 20 20 31 32 7b | 7c 7c 20 6e 4b 65 79 3a |0C 12{||| nKey:|
|000022d0| 3d 30 7d 4e 20 33 32 36 | 37 41 30 30 30 30 33 4e |=0}N 326|7A00003N|
|000022e0| 30 32 31 30 43 20 20 20 | 35 33 7b 7c 7c 20 6f 4c |0210C |53{|| oL|
|000022f0| 61 73 65 72 53 63 72 6e | 3a 53 65 6e 64 28 27 4d |aserScrn|:Send('M|
|00002300| 65 73 73 61 67 65 27 2c | 20 27 4e 6f 20 45 64 69 |essage',| 'No Edi|
|00002310| 74 69 6e 67 20 41 6c 6c | 6f 77 65 64 27 29 7d 4e |ting All|owed')}N|
|00002320| 20 33 32 36 38 41 30 30 | 30 30 33 4e 30 32 20 35 | 3268A00|003N02 5|
|00002330| 43 20 20 20 20 30 4e 20 | 33 32 36 39 41 30 30 30 |C 0N |3269A000|
|00002340| 30 33 4e 30 32 20 39 43 | 20 20 20 31 30 7b 7c 7c |03N02 9C| 10{|||
|00002350| 20 20 6e 4b 65 79 7d 4e | 20 33 32 37 30 41 30 30 | nKey}N| 3270A00|
|00002360| 30 30 33 4e 30 32 20 30 | 43 20 20 20 20 30 4e 20 |003N02 0|C 0N |
|00002370| 33 32 37 33 00 50 52 47 | 4c 41 53 45 52 4c 49 00 |3273.PRG|LASERLI.|
|00002380| c3 20 20 20 20 2c 06 41 | 44 4c 20 20 20 20 20 20 |. ,.A|DL |
|00002390| 20 20 20 20 20 41 20 20 | 20 33 31 41 30 30 30 30 | A | 31A0000|
|000023a0| 33 4e 20 32 31 34 41 20 | 20 20 20 31 41 30 30 30 |3N 214A | 1A000|
|000023b0| 30 32 43 20 20 20 20 39 | 6f 4c 61 73 65 72 50 72 |02C 9|oLaserPr|
|000023c0| 6e 43 30 30 30 30 38 7b | 7c 7c 20 4e 49 4c 7d 4e |nC00008{||| NIL}N|
|000023d0| 20 33 32 37 35 41 30 30 | 30 30 33 4e 30 32 31 30 | 3275A00|003N0210|
|000023e0| 43 20 20 20 34 32 7b 7c | 7c 20 6f 50 72 69 6e 74 |C 42{||| oPrint|
|000023f0| 53 63 72 6e 3a 53 65 6e | 64 28 27 44 69 73 70 6c |Scrn:Sen|d('Displ|
|00002400| 61 79 27 2c 63 6f 75 72 | 69 65 72 29 20 20 20 7d |ay',cour|ier) }|
|00002410| 4e 20 33 32 37 37 41 30 | 30 30 30 33 4e 30 32 31 |N 3277A0|0003N021|
|00002420| 30 43 20 20 20 33 36 7b | 7c 7c 20 6e 45 76 65 6e |0C 36{||| nEven|
|00002430| 74 3a 3d 6f 50 72 69 6e | 74 53 63 72 6e 3a 53 65 |t:=oPrin|tScrn:Se|
|00002440| 6e 64 28 27 52 65 61 64 | 27 29 7d 4e 20 33 32 37 |nd('Read|')}N 327|
|00002450| 38 41 30 30 30 30 33 4e | 30 32 20 38 43 20 20 20 |8A00003N|02 8C |
|00002460| 32 39 7b 7c 7c 20 21 20 | 6e 45 76 65 6e 74 20 3d |29{|| ! |nEvent =|
|00002470| 20 20 20 32 37 20 20 20 | 20 20 20 20 20 20 7d 4e | 27 | }N|
|00002480| 20 33 32 38 30 41 30 30 | 30 30 33 4e 30 32 20 31 | 3280A00|003N02 1|
|00002490| 43 20 20 20 32 33 7b 7c | 7c 20 6e 45 76 65 6e 74 |C 23{||| nEvent|
|000024a0| 20 3d 20 20 31 33 30 31 | 20 20 20 20 7d 4e 20 33 | = 1301| }N 3|
|000024b0| 32 38 33 41 30 30 30 30 | 33 4e 30 32 31 30 43 20 |283A0000|3N0210C |
|000024c0| 20 20 32 34 7b 7c 7c 20 | 6f 4c 61 73 65 72 50 72 | 24{|| |oLaserPr|
|000024d0| 6e 3a 3d 6f 4c 61 73 65 | 72 57 70 7d 4e 20 33 32 |n:=oLase|rWp}N 32|
|000024e0| 38 34 41 30 30 30 30 33 | 4e 30 32 20 36 43 20 20 |84A00003|N02 6C |
|000024f0| 20 20 30 4e 20 33 32 38 | 35 41 30 30 30 30 33 4e | 0N 328|5A00003N|
|00002500| 30 32 20 32 43 20 20 20 | 31 38 7b 7c 7c 20 6e 45 |02 2C |18{|| nE|
|00002510| 76 65 6e 74 20 3d 20 31 | 33 30 32 7d 4e 20 33 32 |vent = 1|302}N 32|
|00002520| 38 36 41 30 30 30 30 33 | 4e 30 32 31 30 43 20 20 |86A00003|N0210C |
|00002530| 20 32 35 7b 7c 7c 20 6f | 4c 61 73 65 72 50 72 6e | 25{|| o|LaserPrn|
|00002540| 3a 3d 6f 4c 61 73 65 72 | 54 78 74 7d 4e 20 33 32 |:=oLaser|Txt}N 32|
|00002550| 38 37 41 30 30 30 30 33 | 4e 30 32 20 36 43 20 20 |87A00003|N02 6C |
|00002560| 20 20 30 4e 20 33 32 38 | 38 41 30 30 30 30 33 4e | 0N 328|8A00003N|
|00002570| 30 32 20 32 43 20 20 20 | 31 38 7b 7c 7c 20 6e 45 |02 2C |18{|| nE|
|00002580| 76 65 6e 74 20 3d 20 31 | 33 30 33 7d 4e 20 33 32 |vent = 1|303}N 32|
|00002590| 38 39 41 30 30 30 30 33 | 4e 30 32 31 30 43 20 20 |89A00003|N0210C |
|000025a0| 20 32 35 7b 7c 7c 20 6f | 4c 61 73 65 72 50 72 6e | 25{|| o|LaserPrn|
|000025b0| 3a 3d 6f 4c 61 73 65 72 | 31 32 33 7d 4e 20 33 32 |:=oLaser|123}N 32|
|000025c0| 39 30 41 30 30 30 30 33 | 4e 30 32 20 36 43 20 20 |90A00003|N02 6C |
|000025d0| 20 20 30 4e 20 33 32 39 | 31 41 30 30 30 30 33 4e | 0N 329|1A00003N|
|000025e0| 30 32 20 32 43 20 20 20 | 31 38 7b 7c 7c 20 6e 45 |02 2C |18{|| nE|
|000025f0| 76 65 6e 74 20 3d 20 31 | 33 30 34 7d 4e 20 33 32 |vent = 1|304}N 32|
|00002600| 39 32 41 30 30 30 30 33 | 4e 30 32 31 30 43 20 20 |92A00003|N0210C |
|00002610| 20 32 35 7b 7c 7c 20 6f | 4c 61 73 65 72 50 72 6e | 25{|| o|LaserPrn|
|00002620| 3a 3d 6f 4c 61 73 65 72 | 4c 53 54 7d 4e 20 33 32 |:=oLaser|LST}N 32|
|00002630| 39 33 41 30 30 30 30 33 | 4e 30 32 20 36 43 20 20 |93A00003|N02 6C |
|00002640| 20 20 30 4e 20 33 32 39 | 34 41 30 30 30 30 33 4e | 0N 329|4A00003N|
|00002650| 30 32 20 35 43 20 20 20 | 20 30 4e 20 33 32 39 35 |02 5C | 0N 3295|
|00002660| 41 30 30 30 30 33 4e 30 | 32 31 30 43 20 20 20 33 |A00003N0|210C 3|
|00002670| 36 7b 7c 7c 20 6e 45 76 | 65 6e 74 3a 3d 6f 50 72 |6{|| nEv|ent:=oPr|
|00002680| 69 6e 74 53 63 72 6e 3a | 53 65 6e 64 28 27 52 65 |intScrn:|Send('Re|
|00002690| 61 64 27 29 7d 4e 20 33 | 32 39 37 41 30 30 30 30 |ad')}N 3|297A0000|
|000026a0| 33 4e 30 32 31 31 43 20 | 20 20 20 30 4e 20 33 32 |3N0211C | 0N 32|
|000026b0| 39 38 41 30 30 30 30 33 | 4e 30 32 20 31 43 20 20 |98A00003|N02 1C |
|000026c0| 20 32 38 7b 7c 7c 20 21 | 20 6e 45 76 65 6e 74 20 | 28{|| !| nEvent |
|000026d0| 3d 20 20 20 32 37 20 20 | 20 20 20 20 20 20 7d 4e |= 27 | }N|
|000026e0| 20 33 33 30 30 41 30 30 | 30 30 33 4e 30 32 31 32 | 3300A00|003N0212|
|000026f0| 41 20 20 20 20 33 43 20 | 20 20 32 37 7b 7c 7c 20 |A 3C | 27{|| |
|00002700| 6f 4c 61 73 65 72 50 72 | 6e 3a 53 65 6e 64 28 27 |oLaserPr|n:Send('|
|00002710| 4f 70 65 6e 27 29 7d 43 | 20 20 20 34 36 7b 7c 7c |Open')}C| 46{|||
|00002720| 20 6f 4c 61 73 65 72 52 | 65 70 3a 53 65 6e 64 28 | oLaserR|ep:Send(|
|00002730| 27 49 6e 69 74 69 61 74 | 65 27 2c 20 6f 4c 61 73 |'Initiat|e', oLas|
|00002740| 65 72 50 72 6e 2c 20 27 | 27 29 7d 43 20 20 20 33 |erPrn, '|')}C 3|
|00002750| 34 7b 7c 7c 20 6f 44 62 | 56 69 65 77 3a 53 65 6e |4{|| oDb|View:Sen|
|00002760| 64 28 27 47 6f 74 6f 70 | 27 2c 27 4c 41 53 45 52 |d('Gotop|','LASER|
|00002770| 27 29 7d 4e 20 33 33 30 | 35 41 30 30 30 30 33 4e |')}N 330|5A00003N|
|00002780| 30 32 20 38 43 20 20 20 | 34 36 7b 7c 7c 20 20 21 |02 8C |46{|| !|
|00002790| 20 6f 44 62 56 69 65 77 | 3a 53 65 6e 64 28 27 65 | oDbView|:Send('e|
|000027a0| 6f 66 27 2c 20 27 4c 41 | 53 45 52 27 29 20 20 20 |of', 'LA|SER') |
|000027b0| 20 20 20 20 20 20 20 7d | 4e 20 33 33 30 38 41 30 | }|N 3308A0|
|000027c0| 30 30 30 33 4e 30 32 31 | 32 41 20 20 20 20 33 43 |0003N021|2A 3C|
|000027d0| 20 20 20 33 31 7b 7c 7c | 20 6f 4c 61 73 65 72 52 | 31{||| oLaserR|
|000027e0| 65 70 3a 53 65 6e 64 28 | 27 47 65 6e 65 72 61 74 |ep:Send(|'Generat|
|000027f0| 65 27 29 7d 43 20 20 20 | 36 35 7b 7c 7c 20 6f 4c |e')}C |65{|| oL|
|00002800| 61 73 65 72 53 63 72 6e | 3a 53 65 6e 64 28 27 4d |aserScrn|:Send('M|
|00002810| 65 73 73 61 67 65 27 2c | 20 6c 61 73 65 72 2d 3e |essage',| laser->|
|00002820| 74 69 74 6c 65 2b 27 20 | 68 61 73 20 62 65 65 6e |title+' |has been|
|00002830| 20 70 72 69 6e 74 65 64 | 27 29 7d 43 20 20 20 33 | printed|')}C 3|
|00002840| 35 7b 7c 7c 20 6f 44 62 | 56 69 65 77 3a 53 65 6e |5{|| oDb|View:Sen|
|00002850| 64 28 27 73 6b 69 70 27 | 2c 27 4c 41 53 45 52 27 |d('skip'|,'LASER'|
|00002860| 2c 31 29 7d 4e 20 33 33 | 31 33 41 30 30 30 30 33 |,1)}N 33|13A00003|
|00002870| 4e 30 32 31 31 43 20 20 | 20 20 30 4e 20 33 33 31 |N0211C | 0N 331|
|00002880| 34 41 30 30 30 30 33 4e | 30 32 31 32 41 20 20 20 |4A00003N|0212A |
|00002890| 20 33 43 20 20 20 33 34 | 7b 7c 7c 20 6f 44 62 56 | 3C 34|{|| oDbV|
|000028a0| 69 65 77 3a 53 65 6e 64 | 28 27 47 6f 74 6f 70 27 |iew:Send|('Gotop'|
|000028b0| 2c 27 4c 41 53 45 52 27 | 29 7d 43 20 20 20 33 32 |,'LASER'|)}C 32|
|000028c0| 7b 7c 7c 20 6f 4c 61 73 | 65 72 52 65 70 3a 53 65 |{|| oLas|erRep:Se|
|000028d0| 6e 64 28 27 54 65 72 6d | 69 6e 61 74 65 27 29 7d |nd('Term|inate')}|
|000028e0| 43 20 20 20 32 38 7b 7c | 7c 20 6f 4c 61 73 65 72 |C 28{||| oLaser|
|000028f0| 50 72 6e 3a 53 65 6e 64 | 28 27 43 6c 6f 73 65 27 |Prn:Send|('Close'|
|00002900| 29 7d 4e 20 33 33 32 31 | 41 30 30 30 30 33 4e 30 |)}N 3321|A00003N0|
|00002910| 32 20 35 43 20 20 20 20 | 30 4e 20 33 33 32 33 41 |2 5C |0N 3323A|
|00002920| 30 30 30 30 33 4e 30 32 | 31 32 41 20 20 20 20 32 |00003N02|12A 2|
|00002930| 43 20 20 20 32 39 7b 7c | 7c 20 6f 50 72 69 6e 74 |C 29{||| oPrint|
|00002940| 53 63 72 6e 3a 53 65 6e | 64 28 27 43 6c 65 61 72 |Scrn:Sen|d('Clear|
|00002950| 27 29 7d 43 20 20 20 34 | 32 7b 7c 7c 20 6f 4c 61 |')}C 4|2{|| oLa|
|00002960| 73 65 72 53 63 72 6e 3a | 53 65 6e 64 28 27 4d 65 |serScrn:|Send('Me|
|00002970| 73 73 61 67 65 27 2c 20 | 73 70 61 63 65 28 35 30 |ssage', |space(50|
|00002980| 29 29 7d 4e 20 33 33 32 | 38 41 30 30 30 30 33 4e |))}N 332|8A00003N|
|00002990| 30 32 20 39 43 20 20 20 | 20 39 7b 7c 7c 20 20 4e |02 9C | 9{|| N|
|000029a0| 49 4c 7d 4e 20 33 33 32 | 39 41 30 30 30 30 33 4e |IL}N 332|9A00003N|
|000029b0| 30 32 20 30 43 20 20 20 | 20 30 4e 20 33 33 33 33 |02 0C | 0N 3333|
|000029c0| 00 50 52 47 4c 41 53 45 | 52 43 48 00 c3 20 20 20 |.PRGLASE|RCH.. |
|000029d0| 20 10 07 41 44 4c 20 20 | 20 20 20 20 20 20 20 20 | ..ADL | |
|000029e0| 20 41 20 20 20 32 34 41 | 30 30 30 30 33 4e 20 32 | A 24A|00003N 2|
|000029f0| 31 34 41 20 20 20 20 32 | 41 30 30 30 30 32 43 20 |14A 2|A00002C |
|00002a00| 20 20 20 36 6f 43 68 61 | 72 74 43 30 30 30 30 38 | 6oCha|rtC00008|
|00002a10| 7b 7c 7c 20 4e 49 4c 7d | 41 30 30 30 30 32 43 20 |{|| NIL}|A00002C |
|00002a20| 20 20 20 36 61 43 68 61 | 72 74 43 30 30 30 30 38 | 6aCha|rtC00008|
|00002a30| 7b 7c 7c 20 4e 49 4c 7d | 4e 20 33 33 33 35 41 30 |{|| NIL}|N 3335A0|
|00002a40| 30 30 30 33 4e 20 32 31 | 37 41 20 20 20 20 33 41 |0003N 21|7A 3A|
|00002a50| 30 30 30 30 32 43 20 20 | 20 31 31 61 43 68 61 72 |00002C | 11aChar|
|00002a60| 74 58 61 78 69 73 43 30 | 30 30 30 38 7b 7c 7c 20 |tXaxisC0|0008{|| |
|00002a70| 4e 49 4c 7d 41 30 30 30 | 30 32 43 20 20 20 31 30 |NIL}A000|02C 10|
|00002a80| 61 43 68 61 72 74 56 61 | 6c 73 43 30 30 30 30 38 |aChartVa|lsC00008|
|00002a90| 7b 7c 7c 20 4e 49 4c 7d | 41 30 30 30 30 32 43 20 |{|| NIL}|A00002C |
|00002aa0| 20 20 31 32 61 43 68 61 | 72 74 56 61 6c 42 6c 6b | 12aCha|rtValBlk|
|00002ab0| 43 20 20 20 31 35 7b 7c | 7c 20 61 43 68 61 72 74 |C 15{||| aChart|
|00002ac0| 56 61 6c 73 7d 4e 20 33 | 33 33 36 41 30 30 30 30 |Vals}N 3|336A0000|
|00002ad0| 33 4e 30 32 31 30 43 20 | 20 20 34 37 7b 7c 7c 20 |3N0210C | 47{|| |
|00002ae0| 61 43 68 61 72 74 56 61 | 6c 73 20 3a 3d 7b 7b 20 |aChartVa|ls :={{ |
|00002af0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|00002b00| 30 2c 30 2c 30 2c 30 20 | 7d 7d 7d 4e 20 33 33 33 |0,0,0,0 |}}}N 333|
|00002b10| 38 41 30 30 30 30 33 4e | 30 32 31 30 43 20 20 20 |8A00003N|0210C |
|00002b20| 39 31 7b 7c 7c 20 61 43 | 68 61 72 74 58 61 78 69 |91{|| aC|hartXaxi|
|00002b30| 73 3a 3d 7b 27 41 43 54 | 27 2c 27 4d 59 53 27 2c |s:={'ACT|','MYS',|
|00002b40| 27 53 55 53 27 2c 27 43 | 48 49 27 2c 27 43 4f 4d |'SUS','C|HI','COM|
|00002b50| 27 2c 27 44 4f 43 27 2c | 27 44 52 41 27 2c 27 46 |','DOC',|'DRA','F|
|00002b60| 4f 52 27 2c 27 4e 4f 52 | 27 2c 27 4d 55 53 27 2c |OR','NOR|','MUS',|
|00002b70| 27 4d 53 43 27 2c 27 53 | 43 46 27 7d 7d 4e 20 33 |'MSC','S|CF'}}N 3|
|00002b80| 33 33 39 41 30 30 30 30 | 33 4e 30 32 31 30 43 20 |339A0000|3N0210C |
|00002b90| 20 20 33 34 7b 7c 7c 20 | 6f 44 62 56 69 65 77 3a | 34{|| |oDbView:|
|00002ba0| 53 65 6e 64 28 27 47 6f | 74 6f 70 27 2c 27 4c 41 |Send('Go|top','LA|
|00002bb0| 53 45 52 27 29 7d 4e 20 | 33 33 34 31 41 30 30 30 |SER')}N |3341A000|
|00002bc0| 30 33 4e 30 32 20 38 43 | 20 20 20 33 36 7b 7c 7c |03N02 8C| 36{|||
|00002bd0| 20 20 21 20 6f 44 62 56 | 69 65 77 3a 53 65 6e 64 | ! oDbV|iew:Send|
|00002be0| 28 27 65 6f 66 27 2c 20 | 27 4c 41 53 45 52 27 29 |('eof', |'LASER')|
|00002bf0| 7d 4e 20 33 33 34 33 41 | 30 30 30 30 33 4e 30 32 |}N 3343A|00003N02|
|00002c00| 31 32 41 20 20 20 20 32 | 43 20 20 20 36 33 7b 7c |12A 2|C 63{||
|00002c10| 7c 20 61 43 68 61 72 74 | 56 61 6c 73 5b 31 2c 20 || aChart|Vals[1, |
|00002c20| 6c 61 73 65 72 2d 3e 6e | 43 61 74 5d 3a 3d 61 43 |laser->n|Cat]:=aC|
|00002c30| 68 61 72 74 56 61 6c 73 | 5b 31 2c 20 6c 61 73 65 |hartVals|[1, lase|
|00002c40| 72 2d 3e 6e 43 61 74 5d | 20 2b 20 31 7d 43 20 20 |r->nCat]| + 1}C |
|00002c50| 20 33 35 7b 7c 7c 20 6f | 44 62 56 69 65 77 3a 53 | 35{|| o|DbView:S|
|00002c60| 65 6e 64 28 27 73 6b 69 | 70 27 2c 27 4c 41 53 45 |end('ski|p','LASE|
|00002c70| 52 27 2c 31 29 7d 4e 20 | 33 33 34 37 41 30 30 30 |R',1)}N |3347A000|
|00002c80| 30 33 4e 30 32 31 31 43 | 20 20 20 20 30 4e 20 33 |03N0211C| 0N 3|
|00002c90| 33 34 38 41 30 30 30 30 | 33 4e 30 32 31 32 41 20 |348A0000|3N0212A |
|00002ca0| 20 20 20 36 43 20 20 20 | 34 32 7b 7c 7c 20 6f 4c | 6C |42{|| oL|
|00002cb0| 61 73 65 72 53 63 72 6e | 3a 53 65 6e 64 28 27 4d |aserScrn|:Send('M|
|00002cc0| 65 73 73 61 67 65 27 2c | 20 73 70 61 63 65 28 35 |essage',| space(5|
|00002cd0| 30 29 29 7d 43 20 20 20 | 34 30 7b 7c 7c 20 6f 4c |0))}C |40{|| oL|
|00002ce0| 61 73 65 72 43 68 61 72 | 74 3a 53 65 6e 64 28 27 |aserChar|t:Send('|
|00002cf0| 44 69 73 70 6c 61 79 27 | 2c 63 6f 75 72 69 65 72 |Display'|,courier|
|00002d00| 29 7d 43 20 20 20 34 39 | 7b 7c 7c 20 61 43 68 61 |)}C 49|{|| aCha|
|00002d10| 72 74 3a 3d 6f 4c 61 73 | 65 72 43 68 61 72 74 3a |rt:=oLas|erChart:|
|00002d20| 53 65 6e 64 28 27 41 74 | 74 72 69 62 75 74 65 73 |Send('At|tributes|
|00002d30| 27 2c 20 20 20 2d 35 29 | 7d 43 20 20 31 30 31 7b |', -5)|}C 101{|
|00002d40| 7c 7c 20 6f 43 68 61 72 | 74 3a 3d 41 44 4c 43 6c ||| oChar|t:=ADLCl|
|00002d50| 61 73 73 28 27 43 48 54 | 27 2c 20 7b 61 43 68 61 |ass('CHT|', {aCha|
|00002d60| 72 74 2c 20 61 43 68 61 | 72 74 56 61 6c 42 6c 6b |rt, aCha|rtValBlk|
|00002d70| 2c 20 61 43 68 61 72 74 | 58 61 78 69 73 2c 20 27 |, aChart|Xaxis, '|
|00002d80| 44 69 73 74 72 69 62 75 | 74 69 6f 6e 20 6f 66 20 |Distribu|tion of |
|00002d90| 46 69 6c 6d 20 43 61 74 | 65 67 6f 72 69 65 73 27 |Film Cat|egories'|
|00002da0| 7d 20 29 7d 43 20 20 20 | 32 39 7b 7c 7c 20 6f 43 |} )}C |29{|| oC|
|00002db0| 68 61 72 74 3a 53 65 6e | 64 28 27 4c 69 6e 65 47 |hart:Sen|d('LineG|
|00002dc0| 72 61 70 68 27 29 7d 43 | 20 20 20 33 37 7b 7c 7c |raph')}C| 37{|||
|00002dd0| 20 6e 45 76 65 6e 74 3a | 3d 6f 4c 61 73 65 72 43 | nEvent:|=oLaserC|
|00002de0| 68 61 72 74 3a 53 65 6e | 64 28 27 52 65 61 64 27 |hart:Sen|d('Read'|
|00002df0| 29 7d 4e 20 33 33 35 37 | 41 30 30 30 30 33 4e 30 |)}N 3357|A00003N0|
|00002e00| 32 20 38 43 20 20 20 32 | 36 7b 7c 7c 20 20 6e 45 |2 8C 2|6{|| nE|
|00002e10| 76 65 6e 74 20 3c 3e 20 | 32 37 20 20 20 20 20 20 |vent <> |27 |
|00002e20| 20 20 7d 4e 20 33 33 35 | 39 41 30 30 30 30 33 4e | }N 335|9A00003N|
|00002e30| 30 32 20 31 43 20 20 20 | 32 30 7b 7c 7c 20 6e 45 |02 1C |20{|| nE|
|00002e40| 76 65 6e 74 20 3d 20 20 | 20 20 2d 31 30 7d 4e 20 |vent = | -10}N |
|00002e50| 33 33 36 31 41 30 30 30 | 30 33 4e 30 32 31 30 43 |3361A000|03N0210C|
|00002e60| 20 20 20 34 36 7b 7c 7c | 20 6f 43 68 61 72 74 3a | 46{||| oChart:|
|00002e70| 53 65 6e 64 28 27 4c 69 | 6e 65 47 72 61 70 68 27 |Send('Li|neGraph'|
|00002e80| 2c 27 20 20 20 2d 31 30 | 47 52 50 48 2e 50 49 43 |,' -10|GRPH.PIC|
|00002e90| 27 29 7d 4e 20 33 33 36 | 32 41 30 30 30 30 33 4e |')}N 336|2A00003N|
|00002ea0| 30 32 20 32 43 20 20 20 | 31 39 7b 7c 7c 20 6e 45 |02 2C |19{|| nE|
|00002eb0| 76 65 6e 74 20 3d 20 20 | 20 2d 31 31 7d 4e 20 33 |vent = | -11}N 3|
|00002ec0| 33 36 34 41 30 30 30 30 | 33 4e 30 32 31 30 43 20 |364A0000|3N0210C |
|00002ed0| 20 20 34 31 7b 7c 7c 20 | 6f 43 68 61 72 74 3a 53 | 41{|| |oChart:S|
|00002ee0| 65 6e 64 28 27 42 61 72 | 32 44 27 2c 20 27 42 41 |end('Bar|2D', 'BA|
|00002ef0| 52 32 47 52 50 48 2e 50 | 49 43 27 29 7d 4e 20 33 |R2GRPH.P|IC')}N 3|
|00002f00| 33 36 35 41 30 30 30 30 | 33 4e 30 32 20 32 43 20 |365A0000|3N02 2C |
|00002f10| 20 20 31 39 7b 7c 7c 20 | 6e 45 76 65 6e 74 20 3d | 19{|| |nEvent =|
|00002f20| 20 20 20 2d 31 32 7d 4e | 20 33 33 36 37 41 30 30 | -12}N| 3367A00|
|00002f30| 30 30 33 4e 30 32 31 30 | 43 20 20 20 34 31 7b 7c |003N0210|C 41{||
|00002f40| 7c 20 6f 43 68 61 72 74 | 3a 53 65 6e 64 28 27 42 || oChart|:Send('B|
|00002f50| 61 72 33 44 27 2c 20 27 | 42 41 52 33 47 52 50 48 |ar3D', '|BAR3GRPH|
|00002f60| 2e 50 49 43 27 29 7d 4e | 20 33 33 36 38 41 30 30 |.PIC')}N| 3368A00|
|00002f70| 30 30 33 4e 30 32 20 35 | 43 20 20 20 20 30 4e 20 |003N02 5|C 0N |
|00002f80| 33 33 36 39 41 30 30 30 | 30 33 4e 30 32 31 30 43 |3369A000|03N0210C|
|00002f90| 20 20 20 33 37 7b 7c 7c | 20 6e 45 76 65 6e 74 3a | 37{||| nEvent:|
|00002fa0| 3d 6f 4c 61 73 65 72 43 | 68 61 72 74 3a 53 65 6e |=oLaserC|hart:Sen|
|00002fb0| 64 28 27 52 65 61 64 27 | 29 7d 4e 20 33 33 37 31 |d('Read'|)}N 3371|
|00002fc0| 41 30 30 30 30 33 4e 30 | 32 31 31 43 20 20 20 20 |A00003N0|211C |
|00002fd0| 30 4e 20 33 33 37 32 41 | 30 30 30 30 33 4e 30 32 |0N 3372A|00003N02|
|00002fe0| 31 32 41 20 20 20 20 35 | 43 20 20 20 33 35 7b 7c |12A 5|C 35{||
|00002ff0| 7c 20 6f 44 62 56 69 65 | 77 3a 53 65 6e 64 28 27 || oDbVie|w:Send('|
|00003000| 47 6f 74 6f 70 27 2c 20 | 27 4c 41 53 45 52 27 29 |Gotop', |'LASER')|
|00003010| 7d 43 20 20 20 33 34 7b | 7c 7c 20 6f 44 62 56 69 |}C 34{||| oDbVi|
|00003020| 65 77 3a 53 65 6e 64 28 | 27 52 65 61 64 27 2c 20 |ew:Send(|'Read', |
|00003030| 27 4c 41 53 45 52 27 29 | 7d 43 20 20 20 33 33 7b |'LASER')|}C 33{|
|00003040| 7c 7c 20 6e 43 61 74 3a | 3d 70 61 64 28 61 43 61 ||| nCat:|=pad(aCa|
|00003050| 74 65 67 20 5b 6e 43 61 | 74 5d 2c 20 31 35 29 7d |teg [nCa|t], 15)}|
|00003060| 43 20 20 20 33 30 7b 7c | 7c 20 6f 4c 61 73 65 72 |C 30{||| oLaser|
|00003070| 43 68 61 72 74 3a 53 65 | 6e 64 28 27 43 6c 65 61 |Chart:Se|nd('Clea|
|00003080| 72 27 29 7d 43 20 20 20 | 34 32 7b 7c 7c 20 6f 4c |r')}C |42{|| oL|
|00003090| 61 73 65 72 53 63 72 6e | 3a 53 65 6e 64 28 27 4d |aserScrn|:Send('M|
|000030a0| 65 73 73 61 67 65 27 2c | 20 73 70 61 63 65 28 35 |essage',| space(5|
|000030b0| 30 29 29 7d 4e 20 33 33 | 38 30 41 30 30 30 30 33 |0))}N 33|80A00003|
|000030c0| 4e 30 32 20 39 43 20 20 | 20 20 38 7b 7c 7c 20 4e |N02 9C | 8{|| N|
|000030d0| 49 4c 7d 4e 20 33 33 38 | 31 41 30 30 30 30 33 4e |IL}N 338|1A00003N|
|000030e0| 30 32 20 30 43 20 20 20 | 20 30 4e 20 33 33 38 37 |02 0C | 0N 3387|
|000030f0| 00 | |. | |
+--------+-------------------------+-------------------------+--------+--------+
