|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 5 A B C D G I L M O P R S T U
Length: 630784 (0x9a000)
Description: Bits:30004308/disk3.imd Listaid database backup
Types: 5¼" Floppy Disk, CpmFSCr16, ImdContainer
Notes: CpmFSCr16,512,2048,64,0x0,1,1:0-1:1
Media: [0, 0, 1] … [76, 1, 8] {512: 1232}
Signature: CpmFSCr16,512,2048,64,0x0,1,1:0-1:1
Confidence score: +87/-0
Sector size: 512
Block size: 2048
Directory entries: 64
Block number size: 16
Extent-mask: 0x00
Sector-interleave: 1, 2, 3, 4, 5, 6, 7, 8
Tracks: (1, 0), (2, 0), (3, 0), (4, 0), (5, 0), (6, 0) […] (6, 1), (5, 1), (4, 1), (3, 1), (2, 1), (1, 1)
| user | bc | length | name | artifact |
|---|---|---|---|---|
| 1 | 0 | 1024 | APPMOD.PRG | ⟦c21e33460⟧ TextFile |
| 1 | 0 | 640 | APPSOT.PRG | ⟦6fc4b091a⟧ TextFile |
| 1 | 0 | 512 | BCKTRACE.PRG | ⟦946d91932⟧ TextFile |
| 1 | 0 | 2560 | CDPL.PRG | ⟦6fecc3a8a⟧ TextFile |
| 1 | 0 | 2304 | CKIT.PRG | ⟦8935d530b⟧ TextFile |
| 1 | 0 | 4480 | CKITSPAR.PRG | ⟦74742ca52⟧ TextFile |
| 1 | 0 | 1280 | CMOD.PRG | ⟦18c54e796⟧ TextFile |
| 1 | 0 | 7680 | COMPHIP1.PRG | ⟦954705c56⟧ TextFile |
| 1 | 0 | 7680 | COMPLETE.PRG | ⟦11574cbd9⟧ TextFile |
| 1 | 0 | 1024 | COMPSOT.PRG | ⟦e138745ab⟧ TextFile |
| 1 | 0 | 2560 | CONIN.PRG | ⟦a91bd9b3b⟧ TextFile |
| 1 | 0 | 640 | CONVERT.PRG | ⟦e0740abac⟧ TextFile |
| 1 | 0 | 4480 | CREATDPL.PRG | ⟦bb0680408⟧ TextFile |
| 1 | 0 | 1280 | CRTPERM.PRG | ⟦0ea43e2bc⟧ TextFile |
| 1 | 0 | 2048 | DATP.PRG | ⟦354e98829⟧ TextFile |
| 1 | 0 | 1536 | DCON.PRG | ⟦e1c51ee86⟧ TextFile |
| 1 | 0 | 384 | DCUS.PRG | ⟦27bbaaab6⟧ TextFile |
| 1 | 0 | 2560 | DIRE.PRG | ⟦7ff711ce5⟧ TextFile |
| 1 | 0 | 640 | DISK.PRG | ⟦fe145482d⟧ TextFile |
| 1 | 0 | 1536 | DMOD.PRG | ⟦8b9cd8cb6⟧ TextFile |
| 1 | 0 | 1408 | DSOT.PRG | ⟦475f924ba⟧ TextFile |
| 1 | 0 | 768 | GETSOURC.PRG | ⟦4d3e7c9e3⟧ TextFile |
| 1 | 0 | 1536 | INSOTE.PRG | ⟦e3f298443⟧ TextFile |
| 1 | 0 | 3072 | LISTAID.PRG | ⟦fd07d5cdf⟧ TextFile |
| 1 | 0 | 5248 | MAKEC.PRG | ⟦9da4ff468⟧ TextFile |
| 1 | 0 | 4096 | MAKEL.PRG | ⟦de4038662⟧ TextFile |
| 1 | 0 | 4096 | MAKER.PRG | ⟦5bb150e2b⟧ TextFile |
| 1 | 0 | 2688 | MERG.PRG | ⟦9f9659708⟧ TextFile |
| 1 | 0 | 1536 | MODCSOT.PRG | ⟦228442002⟧ TextFile |
| 1 | 0 | 7168 | MODIN.PRG | ⟦f3cca0bd8⟧ TextFile |
| 1 | 0 | 1024 | MODSOT.PRG | ⟦b709daa82⟧ TextFile |
| 1 | 0 | 2048 | OLDCKIT.PRG | ⟦22d4102f7⟧ TextFile |
| 1 | 0 | 5632 | PFIL.PRG | ⟦594a00e2e⟧ TextFile |
| 1 | 0 | 1536 | PLSEDIT.PRG | ⟦c2cde6534⟧ TextFile |
| 1 | 0 | 512 | PPLEDIT.PRG | ⟦9a54881e4⟧ TextFile |
| 1 | 0 | 2048 | PPLSEARC.PRG | ⟦a0f3e4c1c⟧ TextFile |
| 1 | 0 | 5120 | PRINDPL1.PRG | ⟦04f518efa⟧ TextFile |
| 1 | 0 | 3584 | PRINPPL1.PRG | ⟦3588c6794⟧ TextFile |
| 1 | 0 | 4992 | PRINSUM.PRG | ⟦1a8c95cae⟧ TextFile |
| 1 | 0 | 8960 | PRINTKIT.PRG | ⟦52ebdbff9⟧ TextFile |
| 1 | 0 | 2176 | PRINTOPT.PRG | ⟦43c07ca3f⟧ TextFile |
| 1 | 0 | 5120 | PRINTPLL.PRG | ⟦7f1225896⟧ TextFile |
| 1 | 0 | 3072 | PRINTPLS.PRG | ⟦803440a5b⟧ TextFile |
| 1 | 0 | 3584 | PRINTSOT.PRG | ⟦e0cb5868c⟧ TextFile |
| 1 | 0 | 128 | REP.PRG | ⟦3fb2a2045⟧ TextFile |
| 1 | 0 | 512 | REPL*.PRG | ⟦bf225ac4e⟧ TextFile |
| 1 | 0 | 512 | REPREF.PRG | ⟦fd87b925c⟧ TextFile |
| 1 | 0 | 512 | RESTRU.PRG | ⟦ed5519764⟧ TextFile |
| 1 | 0 | 1024 | REVDPL.PRG | ⟦bced78688⟧ TextFile |
| 1 | 0 | 512 | SORCHECK.PRG | ⟦914c981d8⟧ TextFile |
| 1 | 0 | 512 | SORTREF.PRG | ⟦c4c7c8c56⟧ TextFile |
| 1 | 0 | 1408 | SOTEDIT.PRG | ⟦9cc132511⟧ TextFile |
| 1 | 0 | 5632 | SOTIN.PRG | ⟦7b18ef4a1⟧ TextFile |
| 1 | 0 | 2048 | SPRK.PRG | ⟦b34588d04⟧ TextFile |
| 1 | 0 | 2048 | SUMDEL.PRG | ⟦048f2193d⟧ TextFile |
| 1 | 0 | 1536 | TOTDEL.PRG | ⟦5cdfb17de⟧ TextFile |
| 1 | 0 | 2304 | UCUS.PRG | ⟦b758d3a36⟧ TextFile |
| 1 | 0 | 6144 | UMOD.PRG | ⟦ade3140ff⟧ TextFile |
| 1 | 0 | 1536 | UNIT.PRG | ⟦85264626f⟧ TextFile |
| 1 | 0 | 5632 | USOT.PRG | ⟦2fbb6f951⟧ TextFile |
0x00000…00200 (0, 0, 1) 0xe5[0x200]
[…0xf…]
0x02000…02020 (1, 0, 1) [1, 'SOTIN.PRG', 0, 44, 'xl=00', 'bc=00', 'xh=00', 'rc=2c', '0-0-0-0-0-0-0-0-0-0-0', [1, 0, 2, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02020…02040 [1, 'DISK.PRG', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02040…02060 [1, 'UMOD.PRG', 0, 48, 'xl=00', 'bc=00', 'xh=00', 'rc=30', '0-0-0-0-0-0-0-0-0-0-0', [5, 0, 6, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02060…02080 [1, 'PRINTKIT.PRG', 0, 70, 'xl=00', 'bc=00', 'xh=00', 'rc=46', '0-0-0-0-0-0-0-0-0-0-0', [8, 0, 9, 0, 10, 0, 11, 0, 12, 0, 0, 0, 0, 0, 0, 0]]
0x02080…020a0 [1, 'DMOD.PRG', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x020a0…020c0 [1, 'DCON.PRG', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x020c0…020e0 [1, 'USOT.PRG', 0, 44, 'xl=00', 'bc=00', 'xh=00', 'rc=2c', '0-0-0-0-0-0-0-0-0-0-0', [15, 0, 16, 0, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x020e0…02100 [1, 'APPSOT.PRG', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02100…02120 [1, 'CONIN.PRG', 0, 20, 'xl=00', 'bc=00', 'xh=00', 'rc=14', '0-0-0-0-0-0-0-0-0-0-0', [19, 0, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02120…02140 [1, 'CRTPERM.PRG', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [21, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02140…02160 [1, 'CONVERT.PRG', 0, 5, 'xl=00', 'bc=00', 'xh=00', 'rc=05', '0-0-0-0-0-0-0-0-0-0-0', [22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02160…02180 [1, 'INSOTE.PRG', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [23, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02180…021a0 [1, 'MAKEL.PRG', 0, 32, 'xl=00', 'bc=00', 'xh=00', 'rc=20', '0-0-0-0-0-0-0-0-0-0-0', [24, 0, 25, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x021a0…021c0 [1, 'MODIN.PRG', 0, 56, 'xl=00', 'bc=00', 'xh=00', 'rc=38', '0-0-0-0-0-0-0-0-0-0-0', [26, 0, 27, 0, 28, 0, 29, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x021c0…021e0 [1, 'MODSOT.PRG', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [30, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x021e0…02200 [1, 'PLSEDIT.PRG', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02200…02220 (1, 0, 2) [1, 'PPLEDIT.PRG', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02220…02240 [1, 'PRINTPLS.PRG', 0, 24, 'xl=00', 'bc=00', 'xh=00', 'rc=18', '0-0-0-0-0-0-0-0-0-0-0', [33, 0, 34, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02240…02260 [1, 'PRINPPL1.PRG', 0, 28, 'xl=00', 'bc=00', 'xh=00', 'rc=1c', '0-0-0-0-0-0-0-0-0-0-0', [35, 0, 36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02260…02280 [1, 'PRINTPLL.PRG', 0, 40, 'xl=00', 'bc=00', 'xh=00', 'rc=28', '0-0-0-0-0-0-0-0-0-0-0', [37, 0, 38, 0, 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02280…022a0 [1, 'PRINSUM.PRG', 0, 39, 'xl=00', 'bc=00', 'xh=00', 'rc=27', '0-0-0-0-0-0-0-0-0-0-0', [40, 0, 41, 0, 42, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x022a0…022c0 [1, 'PRINDPL1.PRG', 0, 40, 'xl=00', 'bc=00', 'xh=00', 'rc=28', '0-0-0-0-0-0-0-0-0-0-0', [43, 0, 44, 0, 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x022c0…022e0 [1, 'PRINTSOT.PRG', 0, 28, 'xl=00', 'bc=00', 'xh=00', 'rc=1c', '0-0-0-0-0-0-0-0-0-0-0', [46, 0, 47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x022e0…02300 [1, 'REPREF.PRG', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02300…02320 [1, 'SORTREF.PRG', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [49, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02320…02340 [1, 'DATP.PRG', 0, 16, 'xl=00', 'bc=00', 'xh=00', 'rc=10', '0-0-0-0-0-0-0-0-0-0-0', [50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02340…02360 [1, 'SOTEDIT.PRG', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [51, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02360…02380 [1, 'SORCHECK.PRG', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [52, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02380…023a0 [1, 'CDPL.PRG', 0, 20, 'xl=00', 'bc=00', 'xh=00', 'rc=14', '0-0-0-0-0-0-0-0-0-0-0', [53, 0, 54, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x023a0…023c0 [1, 'MAKEC.PRG', 0, 41, 'xl=00', 'bc=00', 'xh=00', 'rc=29', '0-0-0-0-0-0-0-0-0-0-0', [55, 0, 56, 0, 57, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x023c0…023e0 [1, 'COMPLETE.PRG', 0, 60, 'xl=00', 'bc=00', 'xh=00', 'rc=3c', '0-0-0-0-0-0-0-0-0-0-0', [58, 0, 59, 0, 60, 0, 61, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x023e0…02400 [1, 'CKITSPAR.PRG', 0, 35, 'xl=00', 'bc=00', 'xh=00', 'rc=23', '0-0-0-0-0-0-0-0-0-0-0', [62, 0, 63, 0, 64, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02400…02420 (1, 0, 3) [1, 'APPMOD.PRG', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02420…02440 [1, 'CKIT.PRG', 0, 18, 'xl=00', 'bc=00', 'xh=00', 'rc=12', '0-0-0-0-0-0-0-0-0-0-0', [66, 0, 67, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02440…02460 [1, 'UNIT.PRG', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [68, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02460…02480 [1, 'LISTAID.PRG', 0, 24, 'xl=00', 'bc=00', 'xh=00', 'rc=18', '0-0-0-0-0-0-0-0-0-0-0', [69, 0, 70, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02480…024a0 [1, 'RESTRU.PRG', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [71, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x024a0…024c0 [1, 'TOTDEL.PRG', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [72, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x024c0…024e0 [1, 'COMPHIP1.PRG', 0, 60, 'xl=00', 'bc=00', 'xh=00', 'rc=3c', '0-0-0-0-0-0-0-0-0-0-0', [73, 0, 74, 0, 75, 0, 76, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x024e0…02500 [1, 'MODCSOT.PRG', 0, 12, 'xl=00', 'bc=00', 'xh=00', 'rc=0c', '0-0-0-0-0-0-0-0-0-0-0', [77, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02500…02520 [1, 'REP.PRG', 0, 1, 'xl=00', 'bc=00', 'xh=00', 'rc=01', '0-0-0-0-0-0-0-0-0-0-0', [78, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02520…02540 [1, 'COMPSOT.PRG', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [79, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02540…02560 [1, 'BCKTRACE.PRG', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02560…02580 [1, 'PRINTOPT.PRG', 0, 17, 'xl=00', 'bc=00', 'xh=00', 'rc=11', '0-0-0-0-0-0-0-0-0-0-0', [81, 0, 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02580…025a0 [1, 'MERG.PRG', 0, 21, 'xl=00', 'bc=00', 'xh=00', 'rc=15', '0-0-0-0-0-0-0-0-0-0-0', [83, 0, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x025a0…025c0 [1, 'SPRK.PRG', 0, 16, 'xl=00', 'bc=00', 'xh=00', 'rc=10', '0-0-0-0-0-0-0-0-0-0-0', [85, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x025c0…025e0 [1, 'MAKER.PRG', 0, 32, 'xl=00', 'bc=00', 'xh=00', 'rc=20', '0-0-0-0-0-0-0-0-0-0-0', [86, 0, 87, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x025e0…02600 [1, 'OLDCKIT.PRG', 0, 16, 'xl=00', 'bc=00', 'xh=00', 'rc=10', '0-0-0-0-0-0-0-0-0-0-0', [88, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02600…02620 (1, 0, 4) [1, 'REVDPL.PRG', 0, 8, 'xl=00', 'bc=00', 'xh=00', 'rc=08', '0-0-0-0-0-0-0-0-0-0-0', [89, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02620…02640 [1, 'SUMDEL.PRG', 0, 16, 'xl=00', 'bc=00', 'xh=00', 'rc=10', '0-0-0-0-0-0-0-0-0-0-0', [90, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02640…02660 [1, 'PFIL.PRG', 0, 44, 'xl=00', 'bc=00', 'xh=00', 'rc=2c', '0-0-0-0-0-0-0-0-0-0-0', [91, 0, 92, 0, 93, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02660…02680 [1, 'PPLSEARC.PRG', 0, 16, 'xl=00', 'bc=00', 'xh=00', 'rc=10', '0-0-0-0-0-0-0-0-0-0-0', [94, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02680…026a0 [1, 'REPL*.PRG', 0, 4, 'xl=00', 'bc=00', 'xh=00', 'rc=04', '0-0-0-0-0-0-0-0-0-0-0', [95, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x026a0…026c0 [1, 'DIRE.PRG', 0, 20, 'xl=00', 'bc=00', 'xh=00', 'rc=14', '0-0-0-0-0-0-0-0-0-0-0', [96, 0, 97, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x026c0…026e0 [1, 'CREATDPL.PRG', 0, 35, 'xl=00', 'bc=00', 'xh=00', 'rc=23', '0-0-0-0-0-0-0-0-0-0-0', [98, 0, 99, 0, 100, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x026e0…02700 [1, 'CMOD.PRG', 0, 10, 'xl=00', 'bc=00', 'xh=00', 'rc=0a', '0-0-0-0-0-0-0-0-0-0-0', [101, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02700…02720 [1, 'GETSOURC.PRG', 0, 6, 'xl=00', 'bc=00', 'xh=00', 'rc=06', '0-0-0-0-0-0-0-0-0-0-0', [102, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02720…02740 [1, 'UCUS.PRG', 0, 18, 'xl=00', 'bc=00', 'xh=00', 'rc=12', '0-0-0-0-0-0-0-0-0-0-0', [103, 0, 104, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02740…02760 [1, 'DCUS.PRG', 0, 3, 'xl=00', 'bc=00', 'xh=00', 'rc=03', '0-0-0-0-0-0-0-0-0-0-0', [105, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02760…02780 [1, 'DSOT.PRG', 0, 11, 'xl=00', 'bc=00', 'xh=00', 'rc=0b', '0-0-0-0-0-0-0-0-0-0-0', [106, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]
0x02780…027a0 Dirent {Status=0xe5}
[…0x3…]
0x02800…02a00 (1, 0, 5) DataBlock {»SOTIN.PRG«}
[…0x3…]
0x03000…03200 (1, 1, 1) 0xe5[0x200]
[…0x7…]
0x04000…04200 (2, 0, 1) DataBlock {»SOTIN.PRG«}
[…0x6…]
0x04e00…05000 (2, 0, 8) 0xe5[0x200]
[…0x8…]
0x06000…06200 (3, 0, 1) DataBlock {»DISK.PRG«}
[…0x1…]
0x06280…062a0 2a 2a 2a 2a 2a 2a 0d 0a 2a 0d 0a 2a 20 50 41 52 41 4d 45 54 45 52 53 3a 49 4e 49 54 49 41 4c 49 ┆****** * * PARAMETERS:INITIALI┆
0x062a0…062c0 5a 45 44 20 56 41 52 49 41 42 4c 45 53 3a 4d 54 4f 4c 2c 4d 52 41 54 45 2c 4d 56 41 4c 49 44 53 ┆ZED VARIABLES:MTOL,MRATE,MVALIDS┆
0x062c0…062e0 54 41 54 2c 4d 43 4f 4e 54 49 4e 55 45 2c 4f 50 45 52 44 42 46 0d 0a 2a 20 20 20 20 20 20 20 20 ┆TAT,MCONTINUE,OPERDBF * ┆
0x062e0…06300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 52 45 46 43 0d ┆ MREFC ┆
0x06300…06320 0a 0d 0a 53 45 54 20 43 4f 4e 46 49 52 4d 20 4f 46 46 0d 0a 53 54 4f 52 45 20 4e 56 41 4c 55 45 ┆ SET CONFIRM OFF STORE NVALUE┆
0x06320…06340 20 54 4f 20 4f 4c 44 56 41 4c 55 45 0d 0a 53 54 4f 52 45 20 27 49 4e 49 54 27 20 54 4f 20 4f 4c ┆ TO OLDVALUE STORE 'INIT' TO OL┆
0x06340…06360 44 52 45 46 43 0d 0a 45 52 41 53 45 0d 0a 2a 41 43 43 45 50 54 20 55 53 45 52 2d 49 4e 50 55 54 ┆DREFC ERASE *ACCEPT USER-INPUT┆
0x06360…06380 0d 0a 44 4f 20 57 48 49 4c 45 20 4d 56 41 4c 49 44 53 54 41 54 3c 3e 27 4e 4f 20 4f 42 4a 45 43 ┆ DO WHILE MVALIDSTAT<>'NO OBJEC┆
0x06380…063a0 54 49 4f 4e 27 0d 0a 0d 0a 40 20 20 31 2c 31 39 20 53 41 59 20 27 20 20 20 20 20 20 20 20 20 20 ┆TION' @ 1,19 SAY ' ┆
0x063a0…063c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x063c0…063e0 20 27 0d 0a 40 20 20 31 2c 31 20 20 53 41 59 20 27 56 41 4c 49 44 41 54 49 4f 4e 20 53 54 41 54 ┆ ' @ 1,1 SAY 'VALIDATION STAT┆
0x063e0…06400 45 3a 27 0d 0a 40 20 20 31 2c 31 39 20 53 41 59 20 4d 56 41 4c 49 44 53 54 41 54 0d 0a 40 20 20 ┆E:' @ 1,19 SAY MVALIDSTAT @ ┆
0x06400…06420 (3, 0, 3) 20 33 2c 31 20 53 41 59 20 4f 50 45 52 44 42 46 0d 0a 40 20 20 35 2c 31 20 20 53 41 59 20 27 45 ┆ 3,1 SAY OPERDBF @ 5,1 SAY 'E┆
0x06420…06440 4e 54 45 52 20 43 4f 4d 4d 41 4e 44 3a 20 27 0d 0a 40 20 20 35 2c 31 36 20 47 45 54 20 4d 43 4f ┆NTER COMMAND: ' @ 5,16 GET MCO┆
0x06440…06460 4e 54 49 4e 55 45 20 50 49 43 54 55 52 45 20 27 21 27 0d 0a 44 4f 20 43 41 53 45 0d 0a 20 20 20 ┆NTINUE PICTURE '!' DO CASE ┆
0x06460…06480 43 41 53 45 20 4d 49 4e 54 59 50 45 3d 27 43 52 45 41 54 49 4f 4e 27 0d 0a 20 20 20 20 20 20 20 ┆CASE MINTYPE='CREATION' ┆
0x06480…064a0 20 40 20 20 37 2c 31 20 53 41 59 20 27 43 3d 20 43 4f 4e 54 49 4e 55 45 2c 20 53 3d 20 43 4f 4d ┆ @ 7,1 SAY 'C= CONTINUE, S= COM┆
0x064a0…064c0 50 4c 45 54 45 20 54 48 49 53 20 45 4e 54 52 59 20 41 4e 44 20 45 58 49 54 2c 20 44 3d 20 45 58 ┆PLETE THIS ENTRY AND EXIT, D= EX┆
0x064c0…064e0 49 54 27 0d 0a 20 20 20 43 41 53 45 20 4d 49 4e 54 59 50 45 3d 27 45 44 49 54 27 0d 0a 20 20 20 ┆IT' CASE MINTYPE='EDIT' ┆
0x064e0…06500 20 20 20 20 20 40 20 20 37 2c 31 20 53 41 59 20 27 41 3d 20 41 42 4f 52 54 20 43 48 41 4e 47 45 ┆ @ 7,1 SAY 'A= ABORT CHANGE┆
0x06500…06520 2c 20 4d 3d 20 4d 41 4b 45 20 43 48 41 4e 47 45 2c 20 44 3d 20 44 45 4c 45 54 45 2c 20 52 3d 20 ┆, M= MAKE CHANGE, D= DELETE, R= ┆
0x06520…06540 52 45 43 41 4c 4c 27 0d 0a 20 20 20 20 20 20 20 20 40 20 20 37 2c 24 2b 31 20 53 41 59 20 27 2c ┆RECALL' @ 7,$+1 SAY ',┆
0x06540…06560 20 46 3d 20 46 49 4e 44 20 52 45 46 2e 43 4f 44 45 27 0d 0a 20 20 20 20 20 20 20 20 49 46 20 2a ┆ F= FIND REF.CODE' IF *┆
0x06560…06580 0d 0a 20 20 20 20 20 20 20 20 20 20 20 40 20 35 2c 32 30 20 53 41 59 20 27 52 45 43 4f 52 44 20 ┆ @ 5,20 SAY 'RECORD ┆
0x06580…065a0 4d 41 52 4b 45 44 20 46 4f 52 20 44 45 4c 45 54 49 4f 4e 27 0d 0a 20 20 20 20 20 20 20 20 45 4c ┆MARKED FOR DELETION' EL┆
0x065a0…065c0 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 40 20 35 2c 32 30 20 53 41 59 20 27 52 45 43 4f 52 ┆SE @ 5,20 SAY 'RECOR┆
0x065c0…065e0 44 20 4e 4f 54 20 4d 41 52 4b 45 44 20 46 4f 52 20 44 45 4c 45 54 49 4f 4e 27 0d 0a 20 20 20 20 ┆D NOT MARKED FOR DELETION' ┆
0x065e0…06600 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 43 41 53 45 20 4d 49 4e 54 59 50 45 3d 27 41 50 50 45 ┆ ENDIF CASE MINTYPE='APPE┆
0x06600…06620 (3, 0, 4) 4e 44 27 0d 0a 20 20 20 20 20 20 20 20 40 20 20 37 2c 31 20 53 41 59 20 27 43 3d 20 43 4f 4e 54 ┆ND' @ 7,1 SAY 'C= CONT┆
0x06620…06640 49 4e 55 45 2c 20 53 3d 20 43 4f 4d 50 4c 45 54 45 20 54 48 49 53 20 45 4e 54 52 59 20 41 4e 44 ┆INUE, S= COMPLETE THIS ENTRY AND┆
0x06640…06660 20 45 58 49 54 2c 20 44 3d 20 45 58 49 54 27 0d 0a 20 20 20 20 20 20 20 20 40 20 20 37 2c 24 2b ┆ EXIT, D= EXIT' @ 7,$+┆
0x06660…06680 31 20 53 41 59 20 27 2c 20 46 3d 20 46 49 4e 44 20 52 45 46 2e 43 4f 44 45 27 0d 0a 45 4e 44 43 ┆1 SAY ', F= FIND REF.CODE' ENDC┆
0x06680…066a0 41 53 45 0d 0a 52 45 41 44 0d 0a 43 4c 45 41 52 20 47 45 54 53 0d 0a 0d 0a 49 46 20 2e 4e 4f 54 ┆ASE READ CLEAR GETS IF .NOT┆
0x066a0…066c0 2e 28 4d 43 4f 4e 54 49 4e 55 45 24 27 44 46 27 2e 4f 52 2e 28 4d 49 4e 54 59 50 45 3d 27 45 44 ┆.(MCONTINUE$'DF'.OR.(MINTYPE='ED┆
0x066c0…066e0 49 54 27 2e 41 4e 44 2e 4d 43 4f 4e 54 49 4e 55 45 3d 27 41 27 29 29 0d 0a 40 20 31 30 2c 32 32 ┆IT'.AND.MCONTINUE='A')) @ 10,22┆
0x066e0…06700 20 53 41 59 20 27 45 4e 54 45 52 20 52 45 46 45 52 45 4e 43 45 20 43 4f 44 45 3a 27 0d 0a 40 20 ┆ SAY 'ENTER REFERENCE CODE:' @ ┆
0x06700…06720 31 30 2c 34 33 20 47 45 54 20 4d 52 45 46 43 20 50 49 43 54 55 52 45 20 27 21 21 21 23 23 23 27 ┆10,43 GET MREFC PICTURE '!!!###'┆
0x06720…06740 0d 0a 52 45 41 44 0d 0a 43 4c 45 41 52 20 47 45 54 53 0d 0a 49 46 20 4d 43 4f 4e 54 49 4e 55 45 ┆ READ CLEAR GETS IF MCONTINUE┆
0x06740…06760 23 27 44 27 2e 41 4e 44 2e 4d 43 4f 4e 54 49 4e 55 45 3c 3e 27 46 27 0d 0a 20 20 20 49 46 20 24 ┆#'D'.AND.MCONTINUE<>'F' IF $┆
0x06760…06780 28 4d 52 45 46 43 2c 31 2c 33 29 23 27 53 4f 54 27 2e 41 4e 44 2e 24 28 4d 52 45 46 43 2c 31 2c ┆(MREFC,1,3)#'SOT'.AND.$(MREFC,1,┆
0x06780…067a0 31 29 23 27 43 27 2e 41 4e 44 2e 56 41 4c 28 24 28 4d 52 45 46 43 2c 31 2c 36 29 29 3c 31 30 30 ┆1)#'C'.AND.VAL($(MREFC,1,6))<100┆
0x067a0…067c0 30 30 31 3b 0d 0a 2e 41 4e 44 2e 24 28 4d 52 45 46 43 2c 31 2c 33 29 23 27 44 45 4c 27 0d 0a 20 ┆001; .AND.$(MREFC,1,3)#'DEL' ┆
0x067c0…067e0 20 20 20 20 20 49 46 20 28 24 28 4d 52 45 46 43 2c 31 2c 31 29 3d 27 34 27 2e 4f 52 2e 24 28 4d ┆ IF ($(MREFC,1,1)='4'.OR.$(M┆
0x067e0…06800 52 45 46 43 2c 31 2c 31 29 3d 27 35 27 29 0d 0a 20 20 20 20 20 20 20 20 20 49 46 20 24 28 4d 52 ┆REFC,1,1)='5') IF $(MR┆
0x06800…06a00 (3, 0, 5) DataBlock {»UMOD.PRG«}
[…0x3…]
0x07000…07200 (3, 1, 1) 0xe5[0x200]
[…0x7…]
0x08000…08200 (4, 0, 1) DataBlock {»UMOD.PRG«}
[…0x7…]
0x09000…09200 (4, 1, 1) 0xe5[0x200]
[…0x7…]
0x0a000…0a200 (5, 0, 1) DataBlock {»PRINTKIT.PRG«}
[…0x7…]
0x0b000…0b200 (5, 1, 1) 0xe5[0x200]
[…0x7…]
0x0c000…0c200 (6, 0, 1) DataBlock {»PRINTKIT.PRG«}
[…0x7…]
0x0d000…0d200 (6, 1, 1) 0xe5[0x200]
[…0x7…]
0x0e000…0e200 (7, 0, 1) DataBlock {»PRINTKIT.PRG«}
[…0x1…]
0x0e300…0e320 2b 27 20 20 20 20 20 27 2b 49 2b 27 20 20 20 20 20 27 2b 49 2b 27 20 20 20 20 20 20 20 20 20 20 ┆+' '+I+' '+I+' ┆
0x0e320…0e340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2b 49 20 54 4f 20 42 52 4f 57 ┆ '+I TO BROW┆
0x0e340…0e360 0d 0a 20 20 20 53 54 4f 52 45 20 42 52 4f 57 2b 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ STORE BROW+' ┆
0x0e360…0e380 27 2b 49 2b 27 20 20 20 20 20 20 20 20 20 20 20 20 27 2b 49 20 54 4f 20 42 52 4f 57 20 0d 0a 20 ┆'+I+' '+I TO BROW ┆
0x0e380…0e3a0 20 20 53 54 4f 52 45 20 42 52 4f 57 2b 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ STORE BROW+' ┆
0x0e3a0…0e3c0 20 20 20 20 20 20 27 2b 49 20 54 4f 20 42 52 4f 57 20 0d 0a 20 20 20 53 54 4f 52 45 20 49 2b 27 ┆ '+I TO BROW STORE I+'┆
0x0e3c0…0e3e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2b 49 2b 27 20 20 20 20 20 20 20 20 20 20 20 20 ┆ '+I+' ┆
0x0e3e0…0e400 27 2b 49 20 54 4f 20 54 41 49 4c 20 0d 0a 20 20 20 53 54 4f 52 45 20 54 41 49 4c 2b 27 20 20 20 ┆'+I TO TAIL STORE TAIL+' ┆
0x0e400…0e420 (7, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2b 49 20 54 4f 20 54 41 49 4c ┆ '+I TO TAIL┆
0x0e420…0e440 20 0d 0a 20 20 20 52 45 4c 45 41 53 45 20 48 59 2c 4c 49 4e 45 2c 4c 49 4e 45 33 31 0d 0a 20 20 ┆ RELEASE HY,LINE,LINE31 ┆
0x0e440…0e460 20 53 45 54 20 4d 41 52 47 49 4e 20 54 4f 20 35 0d 0a 20 20 20 45 4a 45 43 54 0d 0a 20 20 20 53 ┆ SET MARGIN TO 5 EJECT S┆
0x0e460…0e480 54 4f 52 45 20 34 33 20 54 4f 20 52 4f 57 54 52 45 53 48 0d 0a 20 20 20 53 54 4f 52 45 20 50 49 ┆TORE 43 TO ROWTRESH STORE PI┆
0x0e480…0e4a0 4e 49 54 20 54 4f 20 50 41 47 45 0d 0a 20 20 20 53 54 4f 52 45 20 4c 45 4e 28 54 4f 50 4c 49 4e ┆NIT TO PAGE STORE LEN(TOPLIN┆
0x0e4a0…0e4c0 45 29 2d 33 30 20 54 4f 20 52 49 47 48 54 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 2e 4e 4f 54 ┆E)-30 TO RIGHT DO WHILE .NOT┆
0x0e4c0…0e4e0 2e 45 4f 46 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 ┆.EOF STORE 1 TO COLUMN ┆
0x0e4e0…0e500 20 20 20 20 20 40 20 35 2c 31 20 53 41 59 20 48 45 41 44 31 4c 20 55 53 49 4e 47 20 27 58 58 58 ┆ @ 5,1 SAY HEAD1L USING 'XXX┆
0x0e500…0e520 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x0e520…0e540 58 27 0d 0a 20 20 20 20 20 20 40 20 35 2c 52 49 47 48 54 20 53 41 59 20 48 45 41 44 31 52 20 55 ┆X' @ 5,RIGHT SAY HEAD1R U┆
0x0e540…0e560 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆SING 'XXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x0e560…0e580 58 58 58 58 27 0d 0a 20 20 20 20 20 20 40 20 36 2c 31 20 53 41 59 20 48 45 41 44 32 4c 20 55 53 ┆XXXX' @ 6,1 SAY HEAD2L US┆
0x0e580…0e5a0 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆ING 'XXXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x0e5a0…0e5c0 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 40 20 36 2c 52 49 47 48 54 20 53 41 59 20 ┆XXXXXXXXX' @ 6,RIGHT SAY ┆
0x0e5c0…0e5e0 48 45 41 44 32 52 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆HEAD2R USING 'XXXXXXXXXXXXXXXXXX┆
0x0e5e0…0e600 58 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 40 20 37 2c 31 20 53 41 59 20 48 ┆XXXXXXXXXXXX' @ 7,1 SAY H┆
0x0e600…0e620 (7, 0, 4) 45 41 44 33 4c 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆EAD3L USING 'XXXXXXXXXXXXXXXXXXX┆
0x0e620…0e640 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 49 46 20 50 41 47 ┆XXXXXXXXXXXXXXXXX' IF PAG┆
0x0e640…0e660 45 3e 30 0d 0a 20 20 20 20 20 20 20 20 20 40 20 37 2c 52 49 47 48 54 20 53 41 59 20 27 20 20 20 ┆E>0 @ 7,RIGHT SAY ' ┆
0x0e660…0e680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 47 45 20 27 2b 53 54 52 28 50 ┆ PAGE '+STR(P┆
0x0e680…0e6a0 41 47 45 2c 32 29 0d 0a 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 40 20 37 ┆AGE,2) ELSE @ 7┆
0x0e6a0…0e6c0 2c 52 49 47 48 54 20 53 41 59 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,RIGHT SAY ' ┆
0x0e6c0…0e6e0 20 20 20 50 41 47 45 20 27 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 53 54 ┆ PAGE ' ENDIF ST┆
0x0e6e0…0e700 4f 52 45 20 39 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e ┆ORE 9 TO ROW @ ROW,COLUMN┆
0x0e700…0e720 20 53 41 59 20 54 4f 50 4c 49 4e 45 20 20 20 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 ┆ SAY TOPLINE STORE ROW┆
0x0e720…0e740 2b 31 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 ┆+1 TO ROW @ ROW,COLUMN SA┆
0x0e740…0e760 59 20 43 4f 4c 48 31 20 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 31 20 54 4f 20 52 ┆Y COLH1 STORE ROW+1 TO R┆
0x0e760…0e780 4f 57 0d 0a 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 43 4f 4c 48 32 ┆OW @ ROW,COLUMN SAY COLH2┆
0x0e780…0e7a0 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 31 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 ┆ STORE ROW+1 TO ROW ┆
0x0e7a0…0e7c0 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 49 44 4c 49 4e 45 0d 0a 20 20 20 20 ┆ @ ROW,COLUMN SAY MIDLINE ┆
0x0e7c0…0e7e0 20 20 53 54 4f 52 45 20 52 4f 57 2b 31 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 20 40 20 52 4f ┆ STORE ROW+1 TO ROW @ RO┆
0x0e7e0…0e800 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 49 44 4c 49 4e 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 ┆W,COLUMN SAY MIDLINE STOR┆
0x0e800…0ea00 (7, 0, 5) DataBlock {»DMOD.PRG«}
[…0x2…]
0x0ee00…0ee20 (7, 0, 8) 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 34 37 20 53 41 59 20 54 41 49 4c 0d ┆ @ ROW,47 SAY TAIL ┆
0x0ee20…0ee40 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 49 2b 27 20 20 20 20 20 27 2b 49 2b 27 ┆ STORE I+' '+I+'┆
0x0ee40…0ee60 20 20 20 20 20 27 2b 49 20 54 4f 20 50 52 49 4e 54 53 54 52 31 0d 0a 20 20 20 20 20 20 20 20 20 ┆ '+I TO PRINTSTR1 ┆
0x0ee60…0ee80 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 31 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 20 20 20 20 ┆ STORE ROW+1 TO ROW ┆
0x0ee80…0eea0 45 4e 44 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 31 20 20 53 41 59 20 50 52 49 ┆ENDDO @ ROW,1 SAY PRI┆
0x0eea0…0eec0 4e 54 53 54 52 31 20 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 31 34 20 53 41 59 20 4d ┆NTSTR1 @ ROW,14 SAY M┆
0x0eec0…0eee0 41 49 4e 3a 43 48 41 52 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 34 35 20 53 41 59 20 ┆AIN:CHAR @ ROW,45 SAY ┆
0x0eee0…0ef00 54 41 49 4c 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 31 20 54 4f 20 52 4f ┆TAIL STORE ROW+1 TO RO┆
0x0ef00…0ef20 57 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 31 20 20 53 41 59 20 50 52 49 4e 54 53 54 ┆W @ ROW,1 SAY PRINTST┆
0x0ef20…0ef40 52 31 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 ┆R1 USING 'XXXXXXXXXXXXX' ┆
0x0ef40…0ef60 20 20 20 40 20 52 4f 57 2c 31 34 20 53 41 59 20 53 50 45 43 3a 43 4f 44 45 20 55 53 49 4e 47 20 ┆ @ ROW,14 SAY SPEC:CODE USING ┆
0x0ef60…0ef80 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 27 ┆'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'┆
0x0ef80…0efa0 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 34 35 20 53 41 59 20 54 41 49 4c 0d 0a 20 20 ┆ @ ROW,45 SAY TAIL ┆
0x0efa0…0efc0 20 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 31 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 ┆ STORE ROW+1 TO ROW ┆
0x0efc0…0efe0 20 20 20 20 40 20 52 4f 57 2c 31 20 20 53 41 59 20 50 52 49 4e 54 53 54 52 31 20 55 53 49 4e 47 ┆ @ ROW,1 SAY PRINTSTR1 USING┆
0x0efe0…0f000 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 ┆ 'XXXXXXXXXXXXX' STORE┆
0x0f000…0f200 (7, 1, 1) 0xe5[0x200]
[…0x7…]
0x10000…10200 (8, 0, 1) DataBlock {»DCON.PRG«}
[…0x2…]
0x10600…10620 (8, 0, 4) 24 28 4d 53 4f 54 2c 32 2c 31 29 20 54 4f 20 4d 53 4f 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆$(MSOT,2,1) TO MSOT ┆
0x10620…10640 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 4d 53 4f 55 52 43 45 2d ┆ENDIF STORE MSOURCE-┆
0x10640…10660 27 53 27 2d 4d 53 4f 54 20 54 4f 20 4d 53 4f 54 4e 41 4d 45 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆'S'-MSOT TO MSOTNAME ┆
0x10660…10680 2a 43 48 45 43 4b 20 49 46 20 53 4f 54 20 46 49 4c 45 20 45 58 49 53 54 53 2c 20 49 46 20 49 54 ┆*CHECK IF SOT FILE EXISTS, IF IT┆
0x10680…106a0 20 44 4f 45 53 20 4e 4f 54 20 54 45 4c 4c 20 49 54 20 41 4e 44 20 50 52 4f 43 43 45 44 0d 0a 20 ┆ DOES NOT TELL IT AND PROCCED ┆
0x106a0…106c0 20 20 20 20 20 20 20 20 20 20 49 46 20 46 49 4c 45 28 4d 53 4f 54 4e 41 4d 45 29 0d 0a 20 20 20 ┆ IF FILE(MSOTNAME) ┆
0x106c0…106e0 20 20 20 20 20 20 20 20 20 20 20 55 53 45 20 50 4c 4c 5f 53 54 52 55 0d 0a 20 20 20 20 20 20 20 ┆ USE PLL_STRU ┆
0x106e0…10700 20 20 20 20 20 20 20 43 4f 50 59 20 53 54 52 55 20 54 4f 20 53 4f 54 50 4c 4c 0d 0a 20 20 20 20 ┆ COPY STRU TO SOTPLL ┆
0x10700…10720 20 20 20 20 20 20 20 20 20 20 55 53 45 20 53 4f 54 50 4c 4c 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ USE SOTPLL ┆
0x10720…10740 20 20 20 20 41 50 50 45 4e 44 20 46 52 4f 4d 20 26 4d 53 4f 54 4e 41 4d 45 0d 0a 20 20 20 20 20 ┆ APPEND FROM &MSOTNAME ┆
0x10740…10760 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 41 4c 4c 20 52 45 46 3a 44 45 53 20 57 49 54 ┆ REPLACE ALL REF:DES WIT┆
0x10760…10780 48 20 27 53 4f 54 27 2d 4d 53 4f 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 ┆H 'SOT'-MSOT STOR┆
0x10780…107a0 45 20 27 50 4c 4c 27 20 54 4f 20 4d 44 42 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆E 'PLL' TO MDBASE ┆
0x107a0…107c0 20 2a 49 4e 49 54 49 41 4c 49 5a 45 20 4f 50 45 52 44 42 46 20 46 4f 52 20 43 4f 4d 50 4c 45 54 ┆ *INITIALIZE OPERDBF FOR COMPLET┆
0x107c0…107e0 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 53 4f 54 50 4c 4c 2e 44 ┆E STORE 'SOTPLL.D┆
0x107e0…10800 42 46 27 20 54 4f 20 4f 50 45 52 44 42 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f ┆BF' TO OPERDBF DO┆
0x10800…10a00 (8, 0, 5) DataBlock {»USOT.PRG«}
[…0x3…]
0x11000…11200 (8, 1, 1) 0xe5[0x200]
[…0x7…]
0x12000…12200 (9, 0, 1) DataBlock {»USOT.PRG«}
[…0x6…]
0x12e00…13000 (9, 0, 8) 0xe5[0x200]
[…0x8…]
0x14000…14200 (10, 0, 1) DataBlock {»APPSOT.PRG«}
[…0x1…]
0x14280…142a0 47 4e 41 4d 45 2c 31 2c 32 29 2d 27 43 4f 4e 5f 27 2d 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 33 ┆GNAME,1,2)-'CON_'-$(CONFIGNAME,3┆
0x142a0…142c0 2c 34 29 2d 27 2e 44 42 46 27 20 54 4f 20 4d 43 4f 4e 0d 0a 49 46 20 2e 4e 4f 54 2e 46 49 4c 45 ┆,4)-'.DBF' TO MCON IF .NOT.FILE┆
0x142c0…142e0 28 4d 43 4f 4e 29 0d 0a 20 20 20 53 54 4f 52 45 20 27 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 ┆(MCON) STORE 'CONFIGURATION ┆
0x142e0…14300 55 4e 44 45 46 49 4e 45 44 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 45 4e 44 49 46 0d 0a 0d 0a 53 ┆UNDEFINED' TO STATUS ENDIF S┆
0x14300…14320 54 4f 52 45 20 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 31 2c 32 29 2d 27 44 50 4c 5f 27 2d 24 28 ┆TORE $(CONFIGNAME,1,2)-'DPL_'-$(┆
0x14320…14340 43 4f 4e 46 49 47 4e 41 4d 45 2c 33 2c 34 29 2d 27 2e 4e 44 58 27 20 54 4f 20 4d 44 50 4c 4e 44 ┆CONFIGNAME,3,4)-'.NDX' TO MDPLND┆
0x14340…14360 58 0d 0a 2a 43 48 45 43 4b 20 49 46 20 44 50 4c 20 45 58 49 53 54 53 20 46 4f 52 20 54 48 49 53 ┆X *CHECK IF DPL EXISTS FOR THIS┆
0x14360…14380 20 55 4e 49 54 0d 0a 0d 0a 53 54 4f 52 45 20 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 31 2c 32 29 ┆ UNIT STORE $(CONFIGNAME,1,2)┆
0x14380…143a0 2d 27 44 50 4c 5f 27 2d 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 33 2c 34 29 2d 27 2e 44 42 46 27 ┆-'DPL_'-$(CONFIGNAME,3,4)-'.DBF'┆
0x143a0…143c0 20 54 4f 20 4d 44 50 4c 0d 0a 49 46 20 46 49 4c 45 28 4d 44 50 4c 29 2e 41 4e 44 2e 53 54 41 54 ┆ TO MDPL IF FILE(MDPL).AND.STAT┆
0x143c0…143e0 55 53 3d 27 50 52 4f 43 45 45 44 27 0d 0a 0d 0a 20 20 20 2a 41 53 4b 20 55 53 45 52 20 49 46 20 ┆US='PROCEED' *ASK USER IF ┆
0x143e0…14400 49 54 20 53 48 4f 55 4c 44 20 42 45 20 44 45 4c 45 54 45 44 0d 0a 0d 0a 20 20 20 45 52 41 53 45 ┆IT SHOULD BE DELETED ERASE┆
0x14400…14420 (10, 0, 3) 0d 0a 20 20 20 53 54 4f 52 45 20 46 20 54 4f 20 4d 44 45 4c 45 54 45 0d 0a 20 20 20 40 20 31 30 ┆ STORE F TO MDELETE @ 10┆
0x14420…14440 2c 32 30 20 53 41 59 20 27 44 45 43 4c 41 52 45 44 20 50 41 52 54 53 4c 49 53 54 20 45 58 49 53 ┆,20 SAY 'DECLARED PARTSLIST EXIS┆
0x14440…14460 54 53 20 46 4f 52 20 54 48 49 53 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 27 0d 0a 20 20 20 40 ┆TS FOR THIS CONFIGURATION' @┆
0x14460…14480 20 31 32 2c 32 30 20 53 41 59 20 27 44 4f 20 59 4f 55 20 57 41 4e 54 20 54 4f 20 44 45 4c 45 54 ┆ 12,20 SAY 'DO YOU WANT TO DELET┆
0x14480…144a0 45 20 49 54 3f 20 28 59 2f 4e 29 27 0d 0a 20 20 20 40 20 31 32 2c 35 32 20 47 45 54 20 4d 44 45 ┆E IT? (Y/N)' @ 12,52 GET MDE┆
0x144a0…144c0 4c 45 54 45 0d 0a 20 20 20 52 45 41 44 0d 0a 20 20 20 49 46 20 4d 44 45 4c 45 54 45 0d 0a 20 20 ┆LETE READ IF MDELETE ┆
0x144c0…144e0 20 20 20 20 44 45 4c 45 54 45 20 46 49 4c 45 20 26 4d 44 50 4c 0d 0a 20 20 20 20 20 20 49 46 20 ┆ DELETE FILE &MDPL IF ┆
0x144e0…14500 46 49 4c 45 28 4d 44 50 4c 4e 44 58 29 0d 0a 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 20 46 ┆FILE(MDPLNDX) DELETE F┆
0x14500…14520 49 4c 45 20 26 4d 44 50 4c 4e 44 58 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 45 4c ┆ILE &MDPLNDX ENDIF EL┆
0x14520…14540 53 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 27 43 44 50 4c 20 41 42 4f 52 54 45 44 27 20 54 ┆SE STORE 'CDPL ABORTED' T┆
0x14540…14560 4f 20 53 54 41 54 55 53 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 0d 0a 45 4e 44 49 46 0d 0a 0d 0a 49 ┆O STATUS ENDIF ENDIF I┆
0x14560…14580 46 20 2e 4e 4f 54 2e 46 49 4c 45 28 4d 44 50 4c 29 2e 41 4e 44 2e 53 54 41 54 55 53 3d 27 50 52 ┆F .NOT.FILE(MDPL).AND.STATUS='PR┆
0x14580…145a0 4f 43 45 45 44 27 0d 0a 0d 0a 20 20 20 2a 43 48 45 43 4b 20 49 46 20 4d 4f 44 55 4c 45 53 20 41 ┆OCEED' *CHECK IF MODULES A┆
0x145a0…145c0 52 45 20 44 45 46 49 4e 45 44 0d 0a 20 20 20 55 53 45 20 26 4d 43 4f 4e 0d 0a 20 20 20 47 4f 20 ┆RE DEFINED USE &MCON GO ┆
0x145c0…145e0 54 4f 50 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 28 53 54 41 54 55 53 3d 27 50 52 4f 43 45 45 ┆TOP DO WHILE (STATUS='PROCEE┆
0x145e0…14600 44 27 29 2e 41 4e 44 2e 28 2e 4e 4f 54 2e 45 4f 46 29 0d 0a 20 20 20 20 20 20 49 46 20 2e 4e 4f ┆D').AND.(.NOT.EOF) IF .NO┆
0x14600…14620 (10, 0, 4) 54 2e 46 49 4c 45 28 43 4f 4e 46 49 47 4e 41 4d 45 2d 53 4f 55 52 43 45 2d 27 2e 50 4c 53 27 29 ┆T.FILE(CONFIGNAME-SOURCE-'.PLS')┆
0x14620…14640 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 4d 4f 44 55 4c 45 5f 46 49 4c 45 28 53 29 ┆ STORE 'MODULE_FILE(S)┆
0x14640…14660 20 4d 49 53 53 49 4e 47 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 ┆ MISSING' TO STATUS ENDIF┆
0x14660…14680 0d 0a 20 20 20 20 20 20 53 4b 49 50 0d 0a 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 49 46 20 53 54 ┆ SKIP ENDDO IF ST┆
0x14680…146a0 41 54 55 53 3d 27 50 52 4f 43 45 45 44 27 0d 0a 20 20 20 20 20 20 55 53 45 20 44 50 4c 5f 53 54 ┆ATUS='PROCEED' USE DPL_ST┆
0x146a0…146c0 52 55 0d 0a 20 20 20 20 20 20 43 4f 50 59 20 53 54 52 55 43 54 55 52 45 20 54 4f 20 26 4d 44 50 ┆RU COPY STRUCTURE TO &MDP┆
0x146c0…146e0 4c 0d 0a 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 55 4e 49 54 4d 55 4c 54 0d 0a ┆L STORE 1 TO UNITMULT ┆
0x146e0…14700 20 20 20 20 20 20 45 52 41 53 45 0d 0a 20 20 20 20 20 20 40 20 31 31 2c 34 20 20 53 41 59 20 27 ┆ ERASE @ 11,4 SAY '┆
0x14700…14720 48 4f 57 20 4d 41 4e 59 20 55 4e 49 54 53 20 53 48 41 4c 4c 20 42 45 20 50 52 4f 44 55 43 45 44 ┆HOW MANY UNITS SHALL BE PRODUCED┆
0x14720…14740 20 3f 27 0d 0a 20 20 20 20 20 20 40 20 31 33 2c 34 20 20 53 41 59 20 27 49 4e 50 55 54 20 52 41 ┆ ?' @ 13,4 SAY 'INPUT RA┆
0x14740…14760 4e 47 45 20 3d 20 28 31 2e 2e 39 39 29 20 27 0d 0a 20 20 20 20 20 20 40 20 31 33 2c 32 38 20 47 ┆NGE = (1..99) ' @ 13,28 G┆
0x14760…14780 45 54 20 55 4e 49 54 4d 55 4c 54 20 50 49 43 54 55 52 45 20 27 23 23 27 0d 0a 20 20 20 20 20 20 ┆ET UNITMULT PICTURE '##' ┆
0x14780…147a0 40 20 32 30 2c 34 20 20 53 41 59 20 27 44 43 2f 44 43 20 3d 20 34 2c 20 53 4d 43 20 3d 20 33 27 ┆@ 20,4 SAY 'DC/DC = 4, SMC = 3'┆
0x147a0…147c0 0d 0a 0d 0a 20 20 20 20 20 20 52 45 41 44 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 49 4e 54 28 ┆ READ STORE INT(┆
0x147c0…147e0 55 4e 49 54 4d 55 4c 54 29 20 54 4f 20 55 4e 49 54 4d 55 4c 54 0d 0a 20 20 20 20 20 20 44 4f 20 ┆UNITMULT) TO UNITMULT DO ┆
0x147e0…14800 57 48 49 4c 45 20 55 4e 49 54 4d 55 4c 54 3d 30 0d 0a 20 20 20 20 20 20 20 20 20 40 20 31 33 2c ┆WHILE UNITMULT=0 @ 13,┆
0x14800…14a00 (10, 0, 5) DataBlock {»CONIN.PRG«}
[…0x3…]
0x15000…15200 (10, 1, 1) 0xe5[0x200]
[…0x7…]
0x16000…16200 (11, 0, 1) DataBlock {»CONIN.PRG«}
0x16200…16220 (11, 0, 2) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16220…16240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * *********┆
0x16240…16260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x16280…162a0 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 53 45 54 20 46 4f 52 4d 41 54 20 54 4f 20 53 43 52 45 45 4e 0d 0a ┆****** SET FORMAT TO SCREEN ┆
0x162a0…162c0 45 52 41 53 45 0d 0a 0d 0a 2a 43 48 45 43 4b 20 49 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e ┆ERASE *CHECK IF CONFIGURATION┆
0x162c0…162e0 5f 46 49 4c 45 20 45 58 49 53 54 53 2c 20 52 45 54 55 52 4e 20 49 46 20 49 54 20 44 4f 45 53 2c ┆_FILE EXISTS, RETURN IF IT DOES,┆
0x162e0…16300 45 4c 53 45 20 43 52 45 41 54 45 0d 0a 0d 0a 53 54 4f 52 45 20 27 43 4f 4e 5f 27 2d 43 4f 4e 46 ┆ELSE CREATE STORE 'CON_'-CONF┆
0x16300…16320 49 47 4e 41 4d 45 2d 27 2e 44 42 46 27 20 54 4f 20 4f 50 45 52 44 42 46 0d 0a 49 46 20 46 49 4c ┆IGNAME-'.DBF' TO OPERDBF IF FIL┆
0x16320…16340 45 28 4f 50 45 52 44 42 46 29 0d 0a 20 20 20 53 54 4f 52 45 20 27 4e 4f 54 20 41 4c 4c 4f 57 45 ┆E(OPERDBF) STORE 'NOT ALLOWE┆
0x16340…16360 44 21 20 2d 2d 20 46 49 4c 45 20 49 53 20 45 58 49 53 54 49 4e 47 27 20 54 4f 20 53 54 41 54 55 ┆D! -- FILE IS EXISTING' TO STATU┆
0x16360…16380 53 0d 0a 45 4c 53 45 0d 0a 20 20 20 55 53 45 20 43 4f 4e 5f 53 54 52 55 43 0d 0a 20 20 20 43 4f ┆S ELSE USE CON_STRUC CO┆
0x16380…163a0 50 59 20 53 54 52 55 43 54 55 52 45 20 54 4f 20 26 4f 50 45 52 44 42 46 0d 0a 20 20 20 55 53 45 ┆PY STRUCTURE TO &OPERDBF USE┆
0x163a0…163c0 20 26 4f 50 45 52 44 42 46 0d 0a 0d 0a 20 20 20 2a 57 48 49 4c 45 20 4d 4f 52 45 20 49 4e 50 55 ┆ &OPERDBF *WHILE MORE INPU┆
0x163c0…163e0 54 0d 0a 0d 0a 20 20 20 53 54 4f 52 45 20 27 43 27 20 54 4f 20 43 4f 4e 54 49 4e 55 45 0d 0a 20 ┆T STORE 'C' TO CONTINUE ┆
0x163e0…16400 20 20 44 4f 20 57 48 49 4c 45 20 43 4f 4e 54 49 4e 55 45 23 27 53 27 2e 41 4e 44 2e 43 4f 4e 54 ┆ DO WHILE CONTINUE#'S'.AND.CONT┆
0x16400…16420 (11, 0, 3) 49 4e 55 45 23 27 44 27 0d 0a 20 20 20 20 20 20 41 50 50 45 4e 44 20 42 4c 41 4e 4b 0d 0a 20 20 ┆INUE#'D' APPEND BLANK ┆
0x16420…16440 20 20 20 20 53 54 4f 52 45 20 27 43 27 20 54 4f 20 43 4f 4e 54 49 4e 55 45 0d 0a 20 20 20 20 20 ┆ STORE 'C' TO CONTINUE ┆
0x16440…16460 20 53 54 4f 52 45 20 27 49 4e 49 54 49 41 4c 20 53 54 41 54 45 27 20 54 4f 20 56 41 4c 49 44 53 ┆ STORE 'INITIAL STATE' TO VALIDS┆
0x16460…16480 54 41 54 45 0d 0a 0d 0a 20 20 20 20 20 20 2a 50 52 4f 4d 50 54 20 55 53 45 52 20 46 4f 52 20 44 ┆TATE *PROMPT USER FOR D┆
0x16480…164a0 41 54 41 20 41 4e 44 20 56 41 4c 49 44 41 54 45 20 54 48 45 4d 0d 0a 20 20 20 20 20 20 44 4f 20 ┆ATA AND VALIDATE THEM DO ┆
0x164a0…164c0 43 4f 4e 49 4e 0d 0a 20 20 20 45 4e 44 44 4f 0d 0a 0d 0a 20 20 20 2a 44 45 4c 45 54 45 20 4c 41 ┆CONIN ENDDO *DELETE LA┆
0x164c0…164e0 53 54 20 41 50 50 45 4e 44 45 44 20 52 45 43 4f 52 44 20 49 46 20 43 4f 4e 54 49 4e 55 45 3d 27 ┆ST APPENDED RECORD IF CONTINUE='┆
0x164e0…16500 44 27 0d 0a 0d 0a 20 20 20 49 46 20 43 4f 4e 54 49 4e 55 45 3d 27 44 27 0d 0a 20 20 20 20 20 20 ┆D' IF CONTINUE='D' ┆
0x16500…16520 44 45 4c 45 54 45 0d 0a 20 20 20 20 20 20 50 41 43 4b 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 ┆DELETE PACK STORE ┆
0x16520…16540 27 4c 41 53 54 20 45 4e 54 52 59 20 44 45 4c 45 54 45 44 20 2d 2d 20 52 45 41 44 59 27 20 20 54 ┆'LAST ENTRY DELETED -- READY' T┆
0x16540…16560 4f 20 53 54 41 54 55 53 0d 0a 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 27 ┆O STATUS ELSE STORE '┆
0x16560…16580 52 45 41 44 59 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 52 ┆READY' TO STATUS ENDIF R┆
0x16580…165a0 45 4c 45 41 53 45 20 56 41 4c 49 44 53 54 41 54 45 2c 43 4f 4e 54 49 4e 55 45 2c 4d 53 4f 55 52 ┆ELEASE VALIDSTATE,CONTINUE,MSOUR┆
0x165a0…165c0 43 45 2c 43 55 52 52 45 4e 54 2c 4d 4d 4f 44 55 4c 45 0d 0a 45 4e 44 49 46 0d 0a 52 45 4c 45 41 ┆CE,CURRENT,MMODULE ENDIF RELEA┆
0x165c0…165e0 53 45 20 4f 50 45 52 44 42 46 0d 0a 55 53 45 0d 0a 52 45 54 55 52 4e 0d 0a 0d 0a 1a 1a 54 4f 52 ┆SE OPERDBF USE RETURN TOR┆
0x165e0…16600 45 20 27 43 53 59 53 27 20 54 4f 20 43 4f 4d 4d 41 4e 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆E 'CSYS' TO COMMAND ┆
0x16600…16800 (11, 0, 4) 0xe5[0x200]
0x16800…16a00 (11, 0, 5) DataBlock {»CRTPERM.PRG«}
[…0x2…]
0x16d00…16d20 3d 20 4d 41 4b 45 20 55 50 44 41 54 45 20 45 46 46 45 43 54 49 56 45 20 4f 4e 20 27 2b 4f 50 45 ┆= MAKE UPDATE EFFECTIVE ON '+OPE┆
0x16d20…16d40 52 44 42 46 0d 0a 20 20 20 20 20 20 40 20 31 30 2c 31 20 20 53 41 59 20 27 51 3d 20 52 45 54 55 ┆RDBF @ 10,1 SAY 'Q= RETU┆
0x16d40…16d60 52 4e 20 54 4f 20 4d 45 4e 55 20 57 49 54 48 4f 55 54 20 46 55 52 54 48 45 52 20 55 50 44 41 54 ┆RN TO MENU WITHOUT FURTHER UPDAT┆
0x16d60…16d80 45 20 4f 46 20 27 2b 4f 50 45 52 44 42 46 0d 0a 20 20 20 20 20 20 52 45 41 44 0d 0a 20 20 20 20 ┆E OF '+OPERDBF READ ┆
0x16d80…16da0 20 20 44 4f 20 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 4f 50 54 49 4f 4e ┆ DO CASE CASE MOPTION┆
0x16da0…16dc0 3d 27 45 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 27 45 44 49 54 20 41 20 52 45 ┆='E' * 'EDIT A RE┆
0x16dc0…16de0 43 4f 52 44 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 46 20 54 4f 20 ┆CORD' STORE F TO ┆
0x16de0…16e00 4d 55 50 44 41 54 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 45 41 52 20 47 45 54 ┆MUPDATE CLEAR GET┆
0x16e00…16e20 (11, 0, 8) 53 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 30 20 54 4f 20 4d 52 45 43 ┆S STORE 0 TO MREC┆
0x16e20…16e40 4e 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 42 4f 54 54 4f 4d 0d 0a 20 20 20 ┆NO GO BOTTOM ┆
0x16e40…16e60 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 23 20 54 4f 20 4d 45 4e 44 0d 0a 20 20 20 20 ┆ STORE # TO MEND ┆
0x16e60…16e80 20 20 20 20 20 20 20 20 20 20 49 46 20 4d 45 4e 44 3e 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ IF MEND>0 ┆
0x16e80…16ea0 20 20 20 20 20 20 40 20 31 32 2c 31 20 20 53 41 59 20 27 45 4e 54 45 52 20 52 45 43 4f 52 44 20 ┆ @ 12,1 SAY 'ENTER RECORD ┆
0x16ea0…16ec0 4e 55 4d 42 45 52 3a 20 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 57 ┆NUMBER: ' DO W┆
0x16ec0…16ee0 48 49 4c 45 20 4d 52 45 43 4e 4f 3d 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HILE MRECNO=0 ┆
0x16ee0…16f00 20 20 20 40 20 31 32 2c 32 39 20 47 45 54 20 4d 52 45 43 4e 4f 20 50 49 43 54 55 52 45 20 27 23 ┆ @ 12,29 GET MRECNO PICTURE '#┆
0x16f00…16f20 23 23 23 23 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 0d ┆####' READ ┆
0x16f20…16f40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 43 41 53 45 0d 0a 20 20 ┆ DO CASE ┆
0x16f40…16f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 52 45 43 4e 4f ┆ CASE MRECNO┆
0x16f60…16f80 3d 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆=0 ┆
0x16f80…16fa0 40 20 31 32 2c 33 37 20 53 41 59 20 22 4a 55 53 54 20 44 4f 20 41 53 20 59 4f 55 27 52 45 20 54 ┆@ 12,37 SAY "JUST DO AS YOU'RE T┆
0x16fa0…16fc0 4f 4c 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆OLD " ┆
0x16fc0…16fe0 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 52 45 43 4e 4f 3e 4d 45 4e 44 0d 0a 20 20 ┆ CASE MRECNO>MEND ┆
0x16fe0…17000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 31 32 2c 33 37 20 53 41 59 20 ┆ @ 12,37 SAY ┆
0x17000…17200 (11, 1, 1) 0xe5[0x200]
[…0x7…]
0x18000…18200 (12, 0, 1) DataBlock {»CONVERT.PRG«}
[…0x1…]
0x18280…182a0 46 43 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 20 20 20 20 27 20 54 ┆FC STORE ' ' T┆
0x182a0…182c0 4f 20 4d 52 41 54 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 30 20 54 ┆O MRATE STORE 0 T┆
0x182c0…182e0 4f 20 4d 54 4f 4c 56 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 25 27 ┆O MTOLV STORE '%'┆
0x182e0…18300 20 54 4f 20 4d 54 4f 4c 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 57 48 49 4c ┆ TO MTOLT DO WHIL┆
0x18300…18320 45 20 4d 43 4f 4e 54 49 4e 55 45 3c 3e 27 53 27 2e 41 4e 44 2e 4d 43 4f 4e 54 49 4e 55 45 3c 3e ┆E MCONTINUE<>'S'.AND.MCONTINUE<>┆
0x18320…18340 27 44 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 43 27 20 ┆'D' STORE 'C' ┆
0x18340…18360 54 4f 20 4d 43 4f 4e 54 49 4e 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆TO MCONTINUE S┆
0x18360…18380 54 4f 52 45 20 27 49 4e 49 54 49 41 4c 20 53 54 41 54 45 27 20 54 4f 20 4d 56 41 4c 49 44 53 54 ┆TORE 'INITIAL STATE' TO MVALIDST┆
0x18380…183a0 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4d 43 4f 4e 54 49 4e 55 ┆AT IF MCONTINU┆
0x183a0…183c0 45 3c 3e 27 46 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 50 50 45 ┆E<>'F' APPE┆
0x183c0…183e0 4e 44 20 42 4c 41 4e 4b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 ┆ND BLANK ENDIF┆
0x183e0…18400 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 53 4f 54 49 4e 0d 0a 20 20 20 ┆ DO SOTIN ┆
0x18400…18420 (12, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 57 48 49 4c 45 20 4d 43 4f 4e 54 49 4e 55 45 ┆ DO WHILE MCONTINUE┆
0x18420…18440 3d 27 46 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 ┆='F' STORE ┆
0x18440…18460 27 43 27 20 54 4f 20 4d 43 4f 4e 54 49 4e 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'C' TO MCONTINUE ┆
0x18460…18480 20 20 20 20 20 20 53 54 4f 52 45 20 27 20 20 20 20 20 20 20 20 20 20 27 20 54 4f 20 4d 47 45 4e ┆ STORE ' ' TO MGEN┆
0x18480…184a0 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 41 53 45 0d 0a 20 20 20 ┆ ERASE ┆
0x184a0…184c0 20 20 20 20 20 20 20 20 20 20 40 20 31 30 2c 31 30 20 53 41 59 20 27 45 4e 54 45 52 20 47 45 4e ┆ @ 10,10 SAY 'ENTER GEN┆
0x184c0…184e0 45 52 49 43 20 4e 41 4d 45 3a 20 27 20 47 45 54 20 4d 47 45 4e 20 50 49 43 54 55 52 45 20 27 58 ┆ERIC NAME: ' GET MGEN PICTURE 'X┆
0x184e0…18500 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XXXXXXXXXX' ┆
0x18500…18520 20 52 45 41 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4c 45 41 52 ┆ READ CLEAR┆
0x18520…18540 20 47 45 54 53 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 50 50 ┆ GETS DO PP┆
0x18540…18560 4c 53 45 41 52 43 48 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 24 2b ┆LSEARCH @ $+┆
0x18560…18580 32 2c 34 20 53 41 59 20 27 53 45 4c 45 43 54 45 44 20 52 45 46 2e 43 4f 44 45 3a 20 27 20 47 45 ┆2,4 SAY 'SELECTED REF.CODE: ' GE┆
0x18580…185a0 54 20 4d 52 45 46 43 20 50 49 43 54 55 52 45 20 27 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 ┆T MREFC PICTURE 'XXXXXX' ┆
0x185a0…185c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ ┆
0x185c0…185e0 20 20 20 20 20 20 20 20 43 4c 45 41 52 20 47 45 54 53 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CLEAR GETS ┆
0x185e0…18600 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 50 50 4c 2d 53 45 41 52 43 48 20 43 4f 4d 50 4c 45 ┆ STORE 'PPL-SEARCH COMPLE┆
0x18600…18620 (12, 0, 4) 54 45 44 27 20 54 4f 20 4d 56 41 4c 49 44 53 54 41 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆TED' TO MVALIDSTAT ┆
0x18620…18640 20 20 20 20 20 20 20 20 44 4f 20 53 4f 54 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DO SOTIN ┆
0x18640…18660 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 44 4f 0d 0a 20 ┆ ENDDO ENDDO ┆
0x18660…18680 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4d 43 4f 4e 54 49 4e 55 45 3d 27 44 27 0d 0a 20 ┆ IF MCONTINUE='D' ┆
0x18680…186a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 0d 0a 20 20 20 20 20 20 20 20 ┆ DELETE ┆
0x186a0…186c0 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 4f 50 54 ┆ ENDIF CASE MOPT┆
0x186c0…186e0 49 4f 4e 3d 27 4c 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 52 41 53 45 0d 0a 20 ┆ION='L' ERASE ┆
0x186e0…18700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 31 2c 30 20 53 41 59 20 27 52 45 43 4f 52 44 20 ┆ @ 1,0 SAY 'RECORD ┆
0x18700…18720 52 45 46 43 4f 44 45 20 4e 56 41 4c 55 45 20 20 20 20 20 20 20 20 20 54 4f 4c 20 20 56 4f 4c 54 ┆REFCODE NVALUE TOL VOLT┆
0x18720…18740 41 47 45 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 45 54 20 44 45 4c 45 54 45 44 ┆AGE' SET DELETED┆
0x18740…18760 20 4f 46 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 49 53 54 20 52 45 46 3a 43 4f ┆ OFF LIST REF:CO┆
0x18760…18780 44 45 2c 4e 56 41 4c 55 45 2c 54 4f 4c 45 52 41 4e 43 45 2c 52 41 54 45 44 3a 56 4f 4c 54 0d 0a ┆DE,NVALUE,TOLERANCE,RATED:VOLT ┆
0x18780…187a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 20 27 20 54 4f 20 4d 44 55 4d ┆ STORE ' ' TO MDUM┆
0x187a0…187c0 4d 59 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 32 32 2c 30 20 53 41 59 20 27 52 ┆MY @ 22,0 SAY 'R┆
0x187c0…187e0 45 54 55 52 4e 20 54 4f 20 43 4f 4e 54 49 4e 55 45 20 27 20 47 45 54 20 4d 44 55 4d 4d 59 0d 0a ┆ETURN TO CONTINUE ' GET MDUMMY ┆
0x187e0…18800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ READ ┆
0x18800…18a00 (12, 0, 5) DataBlock {»INSOTE.PRG«}
[…0x2…]
0x18e00…19000 (12, 0, 8) 0xe5[0x200]
[…0x8…]
0x1a000…1a200 (13, 0, 1) DataBlock {»MAKEL.PRG«}
[…0x7…]
0x1b000…1b200 (13, 1, 1) 0xe5[0x200]
[…0x7…]
0x1c000…1c200 (14, 0, 1) DataBlock {»MODIN.PRG«}
[…0x7…]
0x1d000…1d200 (14, 1, 1) 0xe5[0x200]
[…0x7…]
0x1e000…1e200 (15, 0, 1) DataBlock {»MODIN.PRG«}
[…0x5…]
0x1ec00…1ec20 (15, 0, 7) 53 54 52 28 4e 56 41 4c 55 45 2c 31 33 2c 34 29 20 54 4f 20 57 4f 52 4b 0d 0a 53 45 54 20 49 4e ┆STR(NVALUE,13,4) TO WORK SET IN┆
0x1ec20…1ec40 44 45 58 20 54 4f 20 57 4f 52 4b 0d 0a 43 4f 50 59 20 54 4f 20 43 4f 4e 46 50 45 52 4d 2e 50 4c ┆DEX TO WORK COPY TO CONFPERM.PL┆
0x1ec40…1ec60 53 0d 0a 55 53 20 43 4f 4e 46 50 45 52 4d 2e 50 4c 53 0d 0a 44 45 4c 45 54 45 20 46 4f 52 20 24 ┆S US CONFPERM.PLS DELETE FOR $┆
0x1ec60…1ec80 28 52 45 46 3a 43 4f 44 45 2c 31 2c 31 29 24 27 34 35 38 27 2e 41 4e 44 2e 4e 56 41 4c 55 45 3d ┆(REF:CODE,1,1)$'458'.AND.NVALUE=┆
0x1ec80…1eca0 30 0d 0a 50 41 43 4b 0d 0a 52 45 50 4c 41 43 45 20 41 4c 4c 20 52 45 46 3a 44 45 53 20 57 49 54 ┆0 PACK REPLACE ALL REF:DES WIT┆
0x1eca0…1ecc0 48 20 27 4e 52 27 2d 53 54 52 28 23 2c 34 29 0d 0a 44 4f 20 52 45 50 52 45 46 0d 0a 4c 49 53 54 ┆H 'NR'-STR(#,4) DO REPREF LIST┆
0x1ecc0…1ece0 0d 0a 43 4c 45 41 52 0d 0a 52 45 54 55 52 4e 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a ┆ CLEAR RETURN ┆
0x1ece0…1ed00 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x1ed00…1ed20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x1ee00…1f000 (15, 0, 8) 0xe5[0x200]
[…0x8…]
0x20000…20200 (16, 0, 1) DataBlock {»MODSOT.PRG«}
[…0x1…]
0x20400…20600 (16, 0, 3) 0xe5[0x200]
[…0x1…]
0x20800…20a00 (16, 0, 5) DataBlock {»PLSEDIT.PRG«}
[…0x2…]
0x20e00…21000 (16, 0, 8) 0xe5[0x200]
[…0x8…]
0x22000…22200 (17, 0, 1) DataBlock {»PPLEDIT.PRG«}
0x22200…22220 (17, 0, 2) 20 56 41 4c 55 45 20 49 4e 20 4e 41 4e 4f 48 45 4e 52 59 53 0d 0a 53 54 4f 52 45 20 40 28 27 2e ┆ VALUE IN NANOHENRYS STORE @('.┆
0x22220…22240 27 2c 4d 4f 50 45 52 29 20 54 4f 20 4d 50 4f 49 4e 54 0d 0a 53 54 4f 52 45 20 24 28 4d 4f 50 45 ┆',MOPER) TO MPOINT STORE $(MOPE┆
0x22240…22260 52 2c 31 2c 4d 50 4f 49 4e 54 2d 31 29 2d 24 28 4d 4f 50 45 52 2c 4d 50 4f 49 4e 54 2b 31 2c 33 ┆R,1,MPOINT-1)-$(MOPER,MPOINT+1,3┆
0x22260…22280 29 2d 27 2e 27 2d 24 28 4d 4f 50 45 52 2c 4d 50 4f 49 4e 54 2b 34 2c 31 29 20 54 4f 20 4d 4f 50 ┆)-'.'-$(MOPER,MPOINT+4,1) TO MOP┆
0x22280…222a0 45 52 0d 0a 0d 0a 2a 52 45 4d 4f 56 45 20 54 52 41 49 4c 49 4e 47 20 42 4c 41 4e 4b 53 20 41 4e ┆ER *REMOVE TRAILING BLANKS AN┆
0x222a0…222c0 44 20 5a 45 52 4f 45 53 0d 0a 44 4f 20 57 48 49 4c 45 20 52 41 4e 4b 28 4d 4f 50 45 52 29 3d 33 ┆D ZEROES DO WHILE RANK(MOPER)=3┆
0x222c0…222e0 32 2e 4f 52 2e 52 41 4e 4b 28 4d 4f 50 45 52 29 3d 34 38 0d 0a 20 20 20 53 54 4f 52 45 20 4d 4c ┆2.OR.RANK(MOPER)=48 STORE ML┆
0x222e0…22300 45 4e 4f 2d 31 20 54 4f 20 4d 4c 45 4e 4f 0d 0a 20 20 20 53 54 4f 52 45 20 24 28 4d 4f 50 45 52 ┆ENO-1 TO MLENO STORE $(MOPER┆
0x22300…22320 2c 32 2c 4d 4c 45 4e 4f 29 20 54 4f 20 4d 4f 50 45 52 0d 0a 45 4e 44 44 4f 0d 0a 0d 0a 2a 47 45 ┆,2,MLENO) TO MOPER ENDDO *GE┆
0x22320…22340 4e 45 52 41 54 45 20 45 4e 47 49 4e 45 45 52 49 4e 47 20 4e 4f 54 41 54 49 4f 4e 0d 0a 53 54 4f ┆NERATE ENGINEERING NOTATION STO┆
0x22340…22360 52 45 20 40 28 27 2e 27 2c 4d 4f 50 45 52 29 20 54 4f 20 4d 50 4f 49 4e 54 0d 0a 44 4f 20 43 41 ┆RE @('.',MOPER) TO MPOINT DO CA┆
0x22360…22380 53 45 0d 0a 20 20 20 43 41 53 45 20 4d 50 4f 49 4e 54 3e 3d 31 31 0d 0a 20 20 20 20 20 20 20 20 ┆SE CASE MPOINT>=11 ┆
0x22380…223a0 53 54 4f 52 45 20 27 4c 27 20 54 4f 20 4d 53 45 50 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 ┆STORE 'L' TO MSEP STORE┆
0x223a0…223c0 20 4d 50 4f 49 4e 54 2d 31 30 20 54 4f 20 4d 42 45 46 0d 0a 20 20 20 43 41 53 45 20 4d 50 4f 49 ┆ MPOINT-10 TO MBEF CASE MPOI┆
0x223c0…223e0 4e 54 3e 3d 38 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 6d 27 20 54 4f 20 4d 53 45 50 ┆NT>=8 STORE 'm' TO MSEP┆
0x223e0…22400 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 4d 50 4f 49 4e 54 20 2d 37 20 54 4f 20 4d 42 45 ┆ STORE MPOINT -7 TO MBE┆
0x22400…22420 (17, 0, 3) 46 0d 0a 20 20 20 43 41 53 45 20 4d 50 4f 49 4e 54 3e 3d 35 0d 0a 20 20 20 20 20 20 20 20 53 54 ┆F CASE MPOINT>=5 ST┆
0x22420…22440 4f 52 45 20 27 75 27 20 54 4f 20 4d 53 45 50 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 4d ┆ORE 'u' TO MSEP STORE M┆
0x22440…22460 50 4f 49 4e 54 2d 34 20 54 4f 20 4d 42 45 46 0d 0a 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 20 ┆POINT-4 TO MBEF OTHERWISE ┆
0x22460…22480 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 6e 27 20 54 4f 20 4d 53 45 50 0d 0a 20 20 20 20 20 20 ┆ STORE 'n' TO MSEP ┆
0x22480…224a0 20 20 53 54 4f 52 45 20 4d 50 4f 49 4e 54 2d 31 20 54 4f 20 4d 42 45 46 0d 0a 45 4e 44 43 41 53 ┆ STORE MPOINT-1 TO MBEF ENDCAS┆
0x224a0…224c0 45 0d 0a 0d 0a 44 4f 20 43 41 53 45 0d 0a 20 20 20 43 41 53 45 20 4d 50 4f 49 4e 54 3e 32 0d 0a ┆E DO CASE CASE MPOINT>2 ┆
0x224c0…224e0 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 24 28 4d 4f 50 45 52 2c 31 2c 4d 50 4f 49 4e 54 2d 31 ┆ STORE $(MOPER,1,MPOINT-1┆
0x224e0…22500 29 20 54 4f 20 4d 49 4e 54 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 24 28 4d 4f 50 45 52 ┆) TO MINT STORE $(MOPER┆
0x22500…22520 2c 4d 50 4f 49 4e 54 2b 31 2c 31 29 20 54 4f 20 4d 45 4e 47 32 0d 0a 20 20 20 20 20 20 20 20 53 ┆,MPOINT+1,1) TO MENG2 S┆
0x22520…22540 54 4f 52 45 20 24 28 4d 49 4e 54 2c 31 2c 4d 42 45 46 29 20 54 4f 20 4d 45 4e 47 31 0d 0a 20 20 ┆TORE $(MINT,1,MBEF) TO MENG1 ┆
0x22540…22560 20 20 20 20 20 20 49 46 20 4d 42 45 46 3c 4c 45 4e 28 4d 49 4e 54 29 0d 0a 20 20 20 20 20 20 20 ┆ IF MBEF<LEN(MINT) ┆
0x22560…22580 20 20 20 20 53 54 4f 52 45 20 24 28 4d 49 4e 54 2c 4d 42 45 46 2b 31 2c 4d 50 4f 49 4e 54 2d 4d ┆ STORE $(MINT,MBEF+1,MPOINT-M┆
0x22580…225a0 42 45 46 2d 31 29 2d 4d 45 4e 47 32 20 54 4f 20 4d 45 4e 47 32 0d 0a 20 20 20 20 20 20 20 20 45 ┆BEF-1)-MENG2 TO MENG2 E┆
0x225a0…225c0 4e 44 49 46 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 4d 45 4e 47 31 2d 4d 53 45 50 2d 4d ┆NDIF STORE MENG1-MSEP-M┆
0x225c0…225e0 45 4e 47 32 20 54 4f 20 4d 43 56 41 4c 0d 0a 20 20 20 43 41 53 45 20 4d 50 4f 49 4e 54 3d 32 0d ┆ENG2 TO MCVAL CASE MPOINT=2 ┆
0x225e0…22600 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 24 28 4d 4f 50 45 52 2c 31 2c 31 29 2d 4d 53 45 50 ┆ STORE $(MOPER,1,1)-MSEP┆
0x22600…22620 (17, 0, 4) 2d 24 28 4d 4f 50 45 52 2c 33 2c 31 29 20 54 4f 20 4d 43 56 41 4c 0d 0a 20 20 20 4f 54 48 45 52 ┆-$(MOPER,3,1) TO MCVAL OTHER┆
0x22620…22640 57 49 53 45 0d 0a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 4d 53 45 50 2d 24 28 4d 4f 50 45 52 ┆WISE STORE MSEP-$(MOPER┆
0x22640…22660 2c 4d 50 4f 49 4e 54 2b 31 2c 31 29 20 54 4f 20 4d 43 56 41 4c 0d 0a 45 4e 44 43 41 53 45 0d 0a ┆,MPOINT+1,1) TO MCVAL ENDCASE ┆
0x22660…22680 49 46 20 4c 45 4e 28 4d 43 56 41 4c 29 3c 33 0d 0a 20 20 20 53 54 4f 52 45 20 4d 43 56 41 4c 2d ┆IF LEN(MCVAL)<3 STORE MCVAL-┆
0x22680…226a0 27 30 27 20 54 4f 20 4d 43 56 41 4c 0d 0a 45 4e 44 49 46 0d 0a 53 54 4f 52 45 20 4c 45 4e 28 4d ┆'0' TO MCVAL ENDIF STORE LEN(M┆
0x226a0…226c0 43 56 41 4c 29 20 54 4f 20 4d 4c 45 4e 43 0d 0a 44 4f 20 57 48 49 4c 45 20 28 4d 4c 45 4e 43 3e ┆CVAL) TO MLENC DO WHILE (MLENC>┆
0x226c0…226e0 33 2e 41 4e 44 2e 24 28 4d 43 56 41 4c 2c 4d 4c 45 4e 43 2c 31 29 3d 27 30 27 29 2e 4f 52 2e 4d ┆3.AND.$(MCVAL,MLENC,1)='0').OR.M┆
0x226e0…22700 4c 45 4e 43 3e 38 0d 0a 20 20 20 53 54 4f 52 45 20 4d 4c 45 4e 43 2d 31 20 54 4f 20 4d 4c 45 4e ┆LENC>8 STORE MLENC-1 TO MLEN┆
0x22700…22720 43 0d 0a 20 20 20 53 54 4f 52 45 20 24 28 4d 43 56 41 4c 2c 31 2c 4d 4c 45 4e 43 29 20 54 4f 20 ┆C STORE $(MCVAL,1,MLENC) TO ┆
0x22720…22740 4d 43 56 41 4c 0d 0a 45 4e 44 44 4f 0d 0a 49 46 20 4c 45 4e 28 4d 43 56 41 4c 29 3c 34 2e 41 4e ┆MCVAL ENDDO IF LEN(MCVAL)<4.AN┆
0x22740…22760 44 2e 56 41 4c 28 54 4f 4c 45 52 41 4e 43 45 29 3c 32 2e 41 4e 44 2e 27 25 27 24 54 4f 4c 45 52 ┆D.VAL(TOLERANCE)<2.AND.'%'$TOLER┆
0x22760…22780 41 4e 43 45 0d 0a 20 20 20 52 45 50 4c 41 43 45 20 43 56 41 4c 55 45 20 57 49 54 48 20 4d 43 56 ┆ANCE REPLACE CVALUE WITH MCV┆
0x22780…227a0 41 4c 2d 27 30 27 0d 0a 45 4c 53 45 0d 0a 20 20 20 52 45 50 4c 41 43 45 20 43 56 41 4c 55 45 20 ┆AL-'0' ELSE REPLACE CVALUE ┆
0x227a0…227c0 57 49 54 48 20 4d 43 56 41 4c 0d 0a 45 4e 44 49 46 0d 0a 0d 0a 0d 0a 2a 47 45 4e 52 41 54 49 4f ┆WITH MCVAL ENDIF *GENRATIO┆
0x227c0…227e0 4e 20 4f 46 20 56 41 4c 55 45 20 46 4f 52 20 54 48 45 20 53 50 45 43 3a 43 4f 44 45 0d 0a 0d 0a ┆N OF VALUE FOR THE SPEC:CODE ┆
0x227e0…22800 2a 49 4e 49 54 49 41 4c 49 5a 45 20 56 41 52 0d 0a 53 54 4f 52 45 20 53 54 52 28 4e 56 41 4c 55 ┆*INITIALIZE VAR STORE STR(NVALU┆
0x22800…22a00 (17, 0, 5) DataBlock {»PRINTPLS.PRG«}
[…0x3…]
0x23000…23200 (17, 1, 1) 0xe5[0x200]
[…0x7…]
0x24000…24200 (18, 0, 1) DataBlock {»PRINTPLS.PRG«}
[…0x1…]
0x24400…24420 (18, 0, 3) 41 54 0d 0a 40 20 20 20 33 2c 31 20 53 41 59 20 4f 50 45 52 44 42 46 0d 0a 40 20 20 35 2c 31 20 ┆AT @ 3,1 SAY OPERDBF @ 5,1 ┆
0x24420…24440 20 53 41 59 20 27 45 4e 54 45 52 20 43 4f 4d 4d 41 4e 44 3a 20 27 0d 0a 40 20 20 35 2c 31 36 20 ┆ SAY 'ENTER COMMAND: ' @ 5,16 ┆
0x24440…24460 47 45 54 20 4d 43 4f 4e 54 49 4e 55 45 20 50 49 43 54 55 52 45 20 27 21 27 0d 0a 44 4f 20 43 41 ┆GET MCONTINUE PICTURE '!' DO CA┆
0x24460…24480 53 45 0d 0a 20 20 20 43 41 53 45 20 4d 49 4e 54 59 50 45 3d 27 43 52 45 41 54 49 4f 4e 27 0d 0a ┆SE CASE MINTYPE='CREATION' ┆
0x24480…244a0 20 20 20 20 20 20 20 20 40 20 20 37 2c 31 20 53 41 59 20 27 43 3d 20 43 4f 4e 54 49 4e 55 45 2c ┆ @ 7,1 SAY 'C= CONTINUE,┆
0x244a0…244c0 20 53 3d 20 43 4f 4d 50 4c 45 54 45 20 54 48 49 53 20 45 4e 54 52 59 20 41 4e 44 20 45 58 49 54 ┆ S= COMPLETE THIS ENTRY AND EXIT┆
0x244c0…244e0 2c 20 44 3d 20 45 58 49 54 27 0d 0a 20 20 20 43 41 53 45 20 4d 49 4e 54 59 50 45 3d 27 45 44 49 ┆, D= EXIT' CASE MINTYPE='EDI┆
0x244e0…24500 54 27 0d 0a 20 20 20 20 20 20 20 20 40 20 20 33 2c 32 30 20 53 41 59 20 4d 52 45 46 44 20 55 53 ┆T' @ 3,20 SAY MREFD US┆
0x24500…24520 49 4e 47 20 27 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 40 20 20 37 2c 31 20 53 41 59 ┆ING 'XXXXXX' @ 7,1 SAY┆
0x24520…24540 20 27 41 3d 20 41 42 4f 52 54 20 43 48 41 4e 47 45 2c 20 4d 3d 20 4d 41 4b 45 20 43 48 41 4e 47 ┆ 'A= ABORT CHANGE, M= MAKE CHANG┆
0x24540…24560 45 2c 20 44 3d 20 44 45 4c 45 54 45 2c 20 52 3d 20 52 45 43 41 4c 4c 27 0d 0a 20 20 20 20 20 20 ┆E, D= DELETE, R= RECALL' ┆
0x24560…24580 20 20 40 20 20 37 2c 24 2b 31 20 53 41 59 20 27 2c 20 46 3d 20 46 49 4e 44 20 52 45 46 2e 43 4f ┆ @ 7,$+1 SAY ', F= FIND REF.CO┆
0x24580…245a0 44 45 27 0d 0a 20 20 20 20 20 20 20 20 49 46 20 2a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 40 20 ┆DE' IF * @ ┆
0x245a0…245c0 35 2c 32 30 20 53 41 59 20 27 52 45 43 4f 52 44 20 4d 41 52 4b 45 44 20 46 4f 52 20 44 45 4c 45 ┆5,20 SAY 'RECORD MARKED FOR DELE┆
0x245c0…245e0 54 49 4f 4e 27 0d 0a 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆TION' ELSE ┆
0x245e0…24600 40 20 35 2c 32 30 20 53 41 59 20 27 52 45 43 4f 52 44 20 4e 4f 54 20 4d 41 52 4b 45 44 20 46 4f ┆@ 5,20 SAY 'RECORD NOT MARKED FO┆
0x24600…24620 (18, 0, 4) 52 20 44 45 4c 45 54 49 4f 4e 27 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 43 ┆R DELETION' ENDIF C┆
0x24620…24640 41 53 45 20 4d 49 4e 54 59 50 45 3d 27 41 50 50 45 4e 44 27 0d 0a 20 20 20 20 20 20 20 20 40 20 ┆ASE MINTYPE='APPEND' @ ┆
0x24640…24660 20 37 2c 31 20 53 41 59 20 27 43 3d 20 43 4f 4e 54 49 4e 55 45 2c 20 53 3d 20 43 4f 4d 50 4c 45 ┆ 7,1 SAY 'C= CONTINUE, S= COMPLE┆
0x24660…24680 54 45 20 54 48 49 53 20 45 4e 54 52 59 20 41 4e 44 20 45 58 49 54 2c 20 44 3d 20 45 58 49 54 27 ┆TE THIS ENTRY AND EXIT, D= EXIT'┆
0x24680…246a0 0d 0a 20 20 20 20 20 20 20 20 40 20 20 37 2c 24 2b 31 20 53 41 59 20 27 2c 20 46 3d 20 46 49 4e ┆ @ 7,$+1 SAY ', F= FIN┆
0x246a0…246c0 44 20 52 45 46 2e 43 4f 44 45 27 0d 0a 45 4e 44 43 41 53 45 0d 0a 52 45 41 44 0d 0a 43 4c 45 41 ┆D REF.CODE' ENDCASE READ CLEA┆
0x246c0…246e0 52 20 47 45 54 53 0d 0a 49 46 20 2e 4e 4f 54 2e 28 4d 43 4f 4e 54 49 4e 55 45 24 27 44 46 27 2e ┆R GETS IF .NOT.(MCONTINUE$'DF'.┆
0x246e0…24700 4f 52 2e 28 4d 49 4e 54 59 50 45 3d 27 45 44 49 54 27 2e 41 4e 44 2e 4d 43 4f 4e 54 49 4e 55 45 ┆OR.(MINTYPE='EDIT'.AND.MCONTINUE┆
0x24700…24720 3d 27 41 27 29 29 0d 0a 40 20 31 30 2c 31 36 20 53 41 59 20 27 45 4e 54 45 52 20 52 45 46 45 52 ┆='A')) @ 10,16 SAY 'ENTER REFER┆
0x24720…24740 45 4e 43 45 20 44 45 53 49 47 4e 41 54 4f 52 3a 27 0d 0a 40 20 31 30 2c 34 33 20 47 45 54 20 4d ┆ENCE DESIGNATOR:' @ 10,43 GET M┆
0x24740…24760 52 45 46 44 20 50 49 43 54 55 52 45 20 27 41 41 23 23 23 23 27 0d 0a 40 20 31 32 2c 32 32 20 53 ┆REFD PICTURE 'AA####' @ 12,22 S┆
0x24760…24780 41 59 20 27 45 4e 54 45 52 20 52 45 46 45 52 45 4e 43 45 20 43 4f 44 45 3a 27 0d 0a 40 20 31 32 ┆AY 'ENTER REFERENCE CODE:' @ 12┆
0x24780…247a0 2c 34 33 20 47 45 54 20 4d 52 45 46 43 20 50 49 43 54 55 52 45 20 27 21 21 21 23 23 23 27 0d 0a ┆,43 GET MREFC PICTURE '!!!###' ┆
0x247a0…247c0 52 45 41 44 0d 0a 43 4c 45 41 52 20 47 45 54 53 0d 0a 49 46 20 4d 43 4f 4e 54 49 4e 55 45 23 27 ┆READ CLEAR GETS IF MCONTINUE#'┆
0x247c0…247e0 44 27 2e 41 4e 44 2e 4d 43 4f 4e 54 49 4e 55 45 3c 3e 27 46 27 0d 0a 49 46 20 4c 45 4e 28 54 52 ┆D'.AND.MCONTINUE<>'F' IF LEN(TR┆
0x247e0…24800 49 4d 28 4d 52 45 46 44 29 29 3c 32 0d 0a 20 20 20 53 54 4f 52 45 20 27 57 48 41 54 20 44 4f 43 ┆IM(MREFD))<2 STORE 'WHAT DOC┆
0x24800…24a00 (18, 0, 5) DataBlock {»PRINPPL1.PRG«}
[…0x3…]
0x25000…25200 (18, 1, 1) 0xe5[0x200]
[…0x7…]
0x26000…26200 (19, 0, 1) DataBlock {»PRINPPL1.PRG«}
[…0x2…]
0x26600…26620 (19, 0, 4) 4f 20 4d 43 4f 55 4e 54 45 52 0d 0a 20 20 20 49 46 20 4d 43 4f 55 4e 54 45 52 3e 30 0d 0a 20 20 ┆O MCOUNTER IF MCOUNTER>0 ┆
0x26620…26640 20 20 20 20 4c 4f 43 41 54 45 20 46 4f 52 20 52 45 46 3a 44 45 53 3d 4d 52 45 46 44 0d 0a 20 20 ┆ LOCATE FOR REF:DES=MREFD ┆
0x26640…26660 20 20 20 20 49 46 20 23 3c 3e 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f ┆ IF #<>MCURRENT STO┆
0x26660…26680 52 45 20 27 54 48 49 53 20 52 45 46 45 52 45 4e 43 45 20 44 45 53 49 47 4e 41 54 4f 52 20 49 53 ┆RE 'THIS REFERENCE DESIGNATOR IS┆
0x26680…266a0 20 41 4c 52 45 41 44 59 20 55 53 45 44 27 20 54 4f 20 4d 56 41 4c 49 44 53 54 41 54 0d 0a 20 20 ┆ ALREADY USED' TO MVALIDSTAT ┆
0x266a0…266c0 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 47 4f 20 4d 43 55 52 52 ┆ ENDIF ENDIF GO MCURR┆
0x266c0…266e0 45 4e 54 0d 0a 45 4e 44 49 46 0d 0a 0d 0a 45 4e 44 44 4f 0d 0a 0d 0a 2a 52 45 50 4c 41 43 45 20 ┆ENT ENDIF ENDDO *REPLACE ┆
0x266e0…26700 52 45 43 4f 52 44 53 20 57 49 54 48 20 4d 45 4d 56 41 52 53 0d 0a 0d 0a 49 46 20 4d 43 4f 4e 54 ┆RECORDS WITH MEMVARS IF MCONT┆
0x26700…26720 49 4e 55 45 3c 3e 27 46 27 2e 41 4e 44 2e 2e 4e 4f 54 2e 28 4d 49 4e 54 59 50 45 3d 27 45 44 49 ┆INUE<>'F'.AND..NOT.(MINTYPE='EDI┆
0x26720…26740 54 27 2e 41 4e 44 2e 4d 43 4f 4e 54 49 4e 55 45 3d 27 41 27 29 0d 0a 20 20 20 52 45 50 4c 41 43 ┆T'.AND.MCONTINUE='A') REPLAC┆
0x26740…26760 45 20 20 52 45 46 3a 44 45 53 20 57 49 54 48 20 54 52 49 4d 28 4d 52 45 46 44 29 0d 0a 20 20 20 ┆E REF:DES WITH TRIM(MREFD) ┆
0x26760…26780 53 54 4f 52 45 20 52 45 46 3a 44 45 53 20 54 4f 20 4d 52 45 46 44 0d 0a 20 20 20 52 45 50 4c 41 ┆STORE REF:DES TO MREFD REPLA┆
0x26780…267a0 43 45 20 20 52 45 46 3a 43 4f 44 45 20 57 49 54 48 20 4d 52 45 46 43 0d 0a 20 20 20 49 46 20 24 ┆CE REF:CODE WITH MREFC IF $┆
0x267a0…267c0 28 4d 52 45 46 43 2c 31 2c 31 29 24 27 34 35 38 27 0d 0a 20 20 20 20 20 20 49 46 20 4d 54 4f 4c ┆(MREFC,1,1)$'458' IF MTOL┆
0x267c0…267e0 56 3e 3d 31 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 4d 54 4f 4c 56 2c 33 ┆V>=1 STORE STR(MTOLV,3┆
0x267e0…26800 29 20 54 4f 20 4d 56 41 4c 0d 0a 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 ┆) TO MVAL ELSE ┆
0x26800…26a00 (19, 0, 5) DataBlock {»PRINTPLL.PRG«}
[…0x3…]
0x27000…27200 (19, 1, 1) 0xe5[0x200]
[…0x7…]
0x28000…28200 (20, 0, 1) DataBlock {»PRINTPLL.PRG«}
[…0x5…]
0x28c00…28c20 (20, 0, 7) 45 54 53 0d 0a 20 20 20 44 4f 20 50 50 4c 53 45 41 52 43 0d 0a 20 20 20 40 20 24 2b 32 2c 34 20 ┆ETS DO PPLSEARC @ $+2,4 ┆
0x28c20…28c40 53 41 59 20 27 45 4e 54 45 52 20 53 45 4c 45 43 54 45 44 20 52 45 46 2e 43 4f 44 45 3a 20 27 20 ┆SAY 'ENTER SELECTED REF.CODE: ' ┆
0x28c40…28c60 47 45 54 20 4d 52 45 46 43 20 50 49 43 54 55 52 45 20 27 58 58 58 58 58 58 27 0d 0a 20 20 20 52 ┆GET MREFC PICTURE 'XXXXXX' R┆
0x28c60…28c80 45 41 44 0d 0a 20 20 20 53 54 4f 52 45 20 27 50 50 4c 2d 53 45 41 52 43 48 20 43 4f 4d 50 4c 45 ┆EAD STORE 'PPL-SEARCH COMPLE┆
0x28c80…28ca0 54 45 44 27 20 54 4f 20 4d 56 41 4c 49 44 53 54 41 54 0d 0a 20 20 20 44 4f 20 4d 4f 44 49 4e 0d ┆TED' TO MVALIDSTAT DO MODIN ┆
0x28ca0…28cc0 0a 0d 0a 45 4e 44 44 4f 0d 0a 0d 0a 2a 43 41 53 45 20 53 54 52 55 43 54 55 52 45 20 46 4f 52 20 ┆ ENDDO *CASE STRUCTURE FOR ┆
0x28cc0…28ce0 45 58 45 43 55 54 49 4f 4e 20 4f 46 20 52 45 51 55 45 53 54 45 44 20 41 43 54 49 4f 4e 0d 0a 44 ┆EXECUTION OF REQUESTED ACTION D┆
0x28ce0…28d00 4f 20 43 41 53 45 0d 0a 20 20 20 43 41 53 45 20 4d 43 4f 4e 54 49 4e 55 45 3d 27 41 27 0d 0a 20 ┆O CASE CASE MCONTINUE='A' ┆
0x28d00…28d20 20 20 20 20 20 20 20 53 54 4f 52 45 20 46 20 54 4f 20 4e 45 58 54 0d 0a 20 20 20 43 41 53 45 20 ┆ STORE F TO NEXT CASE ┆
0x28d20…28d40 4d 43 4f 4e 54 49 4e 55 45 3d 27 52 27 0d 0a 20 20 20 20 20 20 20 20 52 45 43 41 4c 4c 0d 0a 20 ┆MCONTINUE='R' RECALL ┆
0x28d40…28d60 20 20 43 41 53 45 20 4d 43 4f 4e 54 49 4e 55 45 3d 27 44 27 0d 0a 20 20 20 20 20 20 20 20 44 45 ┆ CASE MCONTINUE='D' DE┆
0x28d60…28d80 4c 45 54 45 0d 0a 45 4e 44 43 41 53 45 0d 0a 0d 0a 2a 52 45 54 55 52 4e 20 54 4f 20 43 41 4c 4c ┆LETE ENDCASE *RETURN TO CALL┆
0x28d80…28da0 49 4e 47 20 43 4d 44 2e 2d 46 49 4c 45 0d 0a 52 45 54 55 52 4e 0d 0a 1a 1a 20 20 20 20 20 40 20 ┆ING CMD.-FILE RETURN @ ┆
0x28da0…28dc0 31 2c 30 20 53 41 59 20 27 52 45 43 4f 52 44 20 52 45 46 44 45 53 20 52 45 46 43 4f 44 20 4e 55 ┆1,0 SAY 'RECORD REFDES REFCOD NU┆
0x28dc0…28de0 4d 45 52 49 43 20 56 41 4c 55 45 20 20 54 4f 4c 20 20 56 4f 4c 54 20 52 45 4d 27 0d 0a 20 20 20 ┆MERIC VALUE TOL VOLT REM' ┆
0x28de0…28e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 49 53 54 20 4e 45 58 54 20 31 38 0d 0a 20 20 20 ┆ LIST NEXT 18 ┆
0x28e00…29000 (20, 0, 8) 0xe5[0x200]
[…0x8…]
0x2a000…2a200 (21, 0, 1) DataBlock {»PRINSUM.PRG«}
[…0x7…]
0x2b000…2b200 (21, 1, 1) 0xe5[0x200]
[…0x7…]
0x2c000…2c200 (22, 0, 1) DataBlock {»PRINSUM.PRG«}
[…0x1…]
0x2c380…2c3a0 4f 57 54 52 45 53 48 2e 41 4e 44 2e 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 53 ┆OWTRESH.AND..NOT.EOF S┆
0x2c3a0…2c3c0 54 4f 52 45 20 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 ┆TORE 1 TO COLUMN @ ROW┆
0x2c3c0…2c3e0 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 52 45 46 3a 44 45 53 20 55 53 49 4e 47 20 27 58 58 58 58 58 ┆,COLUMN SAY REF:DES USING 'XXXXX┆
0x2c3e0…2c400 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d ┆X' STORE 11 TO COLUMN ┆
0x2c400…2c600 (22, 0, 3) 0xe5[0x200]
[…0x1…]
0x2c800…2ca00 (22, 0, 5) DataBlock {»PRINDPL1.PRG«}
[…0x3…]
0x2d000…2d200 (22, 1, 1) 0xe5[0x200]
[…0x7…]
0x2e000…2e200 (23, 0, 1) DataBlock {»PRINDPL1.PRG«}
[…0x5…]
0x2ec00…2ec20 (23, 0, 7) 5f 46 49 4c 45 3a 20 27 2b 43 4f 4e 46 49 47 4e 41 4d 45 0d 0a 40 20 31 34 2c 52 49 47 48 54 20 ┆_FILE: '+CONFIGNAME @ 14,RIGHT ┆
0x2ec20…2ec40 53 41 59 20 27 2a 2a 27 0d 0a 40 20 31 35 2c 31 20 53 41 59 20 27 2a 2a 2d 2d 2d 2d 2d 2d 2d 2d ┆SAY '**' @ 15,1 SAY '**--------┆
0x2ec40…2ec60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2ec60…2ec80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 2a 27 0d 0a 40 20 31 36 2c 31 20 ┆--------------------**' @ 16,1 ┆
0x2ec80…2eca0 53 41 59 20 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SAY '** ┆
0x2eca0…2ecc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2ecc0…2ece0 20 20 20 2a 2a 27 0d 0a 40 20 31 37 2c 31 20 53 41 59 20 27 2a 2a 20 43 4f 4d 50 4f 4e 45 4e 54 ┆ **' @ 17,1 SAY '** COMPONENT┆
0x2ece0…2ed00 53 20 43 4f 4e 54 41 49 4e 45 44 20 49 4e 20 46 49 4c 45 3a 20 27 2b 4f 50 45 52 44 42 46 0d 0a ┆S CONTAINED IN FILE: '+OPERDBF ┆
0x2ed00…2ed20 40 20 31 37 2c 52 49 47 48 54 20 53 41 59 20 27 2a 2a 27 0d 0a 40 20 31 38 2c 31 20 53 41 59 20 ┆@ 17,RIGHT SAY '**' @ 18,1 SAY ┆
0x2ed20…2ed40 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'** ┆
0x2ed40…2ed60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ *┆
0x2ed60…2ed80 2a 27 0d 0a 40 20 31 39 2c 31 20 53 41 59 20 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*' @ 19,1 SAY '****************┆
0x2ed80…2eda0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x2eda0…2edc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 0d 0a 40 20 32 30 2c 31 20 53 41 59 20 50 52 ┆****************' @ 20,1 SAY PR┆
0x2edc0…2ede0 49 4e 54 43 54 52 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆INTCTR ************************┆
0x2ede0…2ee00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x2ee00…2ee20 (23, 0, 8) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 52 45 4c 45 41 53 45 ┆*********************** RELEASE┆
0x2ee20…2ee40 20 52 49 47 48 54 2c 4d 48 45 41 44 57 0d 0a 20 20 20 53 45 54 20 4d 41 52 47 49 4e 20 54 4f 20 ┆ RIGHT,MHEADW SET MARGIN TO ┆
0x2ee40…2ee60 35 0d 0a 20 20 20 45 4a 45 43 54 0d 0a 20 20 20 53 54 4f 52 45 20 34 30 20 54 4f 20 52 4f 57 54 ┆5 EJECT STORE 40 TO ROWT┆
0x2ee60…2ee80 52 45 53 48 0d 0a 20 20 20 53 54 4f 52 45 20 50 49 4e 49 54 20 54 4f 20 50 41 47 45 0d 0a 20 20 ┆RESH STORE PINIT TO PAGE ┆
0x2ee80…2eea0 20 20 20 20 20 20 2a 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 ┆ *0123456789012345678901234┆
0x2eea0…2eec0 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 ┆56789012345678901234567890123456┆
0x2eec0…2eee0 37 38 39 30 31 32 33 34 35 36 37 38 0d 0a 20 20 53 54 4f 52 45 20 27 52 45 46 5f 44 45 53 2d 2d ┆789012345678 STORE 'REF_DES--┆
0x2eee0…2ef00 2d 47 45 4e 5f 4e 41 4d 45 2d 2d 2d 2d 56 41 4c 55 45 2d 2d 2d 2d 2d 2d 2d 54 4f 4c 2d 2d 2d 56 ┆-GEN_NAME----VALUE-------TOL---V┆
0x2ef00…2ef20 4f 4c 54 2d 2d 27 20 54 4f 20 48 45 41 44 45 52 0d 0a 53 54 4f 52 45 20 48 45 41 44 45 52 2b 27 ┆OLT--' TO HEADER STORE HEADER+'┆
0x2ef20…2ef40 53 50 45 43 49 46 49 43 41 54 49 4f 4e 5f 43 4f 44 45 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SPECIFICATION_CODE--------------┆
0x2ef40…2ef60 2d 50 41 43 4b 41 47 45 2d 2d 52 45 4d 41 52 4b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 ┆-PACKAGE--REMARK---------------'┆
0x2ef60…2ef80 3b 0d 0a 54 4f 20 48 45 41 44 45 52 0d 0a 53 54 4f 52 45 20 4c 45 4e 28 48 45 41 44 45 52 29 2d ┆; TO HEADER STORE LEN(HEADER)-┆
0x2ef80…2efa0 32 39 20 54 4f 20 52 49 47 48 54 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 2e 4e 4f 54 2e 45 4f ┆29 TO RIGHT DO WHILE .NOT.EO┆
0x2efa0…2efc0 46 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 ┆F STORE 1 TO COLUMN ┆
0x2efc0…2efe0 20 20 40 20 32 2c 31 20 53 41 59 20 48 45 41 44 31 4c 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 ┆ @ 2,1 SAY HEAD1L USING 'XXXXXX┆
0x2efe0…2f000 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 27 0d ┆XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' ┆
0x2f000…2f200 (23, 1, 1) 0xe5[0x200]
[…0x7…]
0x30000…30200 (24, 0, 1) DataBlock {»PRINTSOT.PRG«}
[…0x6…]
0x30e00…31000 (24, 0, 8) 0xe5[0x200]
[…0x8…]
0x32000…32200 (25, 0, 1) DataBlock {»REPREF.PRG«}
0x32200…32220 (25, 0, 2) 47 48 54 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆GHT ***************************┆
0x32220…32240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x32240…32260 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a 4f 55 54 50 55 54 20 52 45 ┆******************** *OUTPUT RE┆
0x32260…32280 50 4f 52 54 48 45 41 44 45 52 0d 0a 0d 0a 40 20 20 38 2c 31 20 53 41 59 20 27 44 41 54 45 3a 20 ┆PORTHEADER @ 8,1 SAY 'DATE: ┆
0x32280…322a0 27 2b 44 41 54 4f 0d 0a 40 20 31 30 2c 31 20 53 41 59 20 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆'+DATO @ 10,1 SAY '************┆
0x322a0…322c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x322c0…322e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 0d 0a 40 20 31 31 2c 31 20 53 41 ┆********************' @ 11,1 SA┆
0x322e0…32300 59 20 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Y '** ┆
0x32300…32320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32320…32340 20 2a 2a 27 0d 0a 40 20 31 32 2c 31 20 53 41 59 20 27 2a 2a 20 53 55 4d 4d 41 52 59 20 4c 49 53 ┆ **' @ 12,1 SAY '** SUMMARY LIS┆
0x32340…32360 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T ┆
0x32360…32380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 27 0d 0a 40 20 31 33 2c 31 20 53 41 59 20 ┆ **' @ 13,1 SAY ┆
0x32380…323a0 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆'** ┆
0x323a0…323c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ *┆
0x323c0…323e0 2a 27 0d 0a 40 20 31 34 2c 31 20 53 41 59 20 27 2a 2a 20 4c 49 53 54 3a 20 27 2b 55 4e 49 54 4e ┆*' @ 14,1 SAY '** LIST: '+UNITN┆
0x323e0…32400 41 4d 45 2b 27 20 20 20 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 5f 46 49 4c 45 3a 20 27 2b 43 ┆AME+' CONFIGURATION_FILE: '+C┆
0x32400…32420 (25, 0, 3) 4f 4e 46 49 47 4e 41 4d 45 0d 0a 40 20 31 34 2c 52 49 47 48 54 20 53 41 59 20 27 2a 2a 27 0d 0a ┆ONFIGNAME @ 14,RIGHT SAY '**' ┆
0x32420…32440 40 20 31 35 2c 31 20 53 41 59 20 27 2a 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@ 15,1 SAY '**------------------┆
0x32440…32460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x32460…32480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 2a 27 0d 0a 40 20 31 36 2c 31 20 53 41 59 20 27 2a 2a 20 20 20 ┆----------**' @ 16,1 SAY '** ┆
0x32480…324a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x324a0…324c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 27 0d 0a 40 20 ┆ **' @ ┆
0x324c0…324e0 31 37 2c 31 20 53 41 59 20 27 2a 2a 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 43 4f 4e 54 41 49 4e ┆17,1 SAY '** INFORMATION CONTAIN┆
0x324e0…32500 45 44 20 49 4e 20 46 49 4c 45 3a 20 27 2b 4f 50 45 52 44 42 46 0d 0a 40 20 31 37 2c 52 49 47 48 ┆ED IN FILE: '+OPERDBF @ 17,RIGH┆
0x32500…32520 54 20 53 41 59 20 27 2a 2a 27 0d 0a 40 20 31 38 2c 31 20 53 41 59 20 27 2a 2a 20 20 20 20 20 20 ┆T SAY '**' @ 18,1 SAY '** ┆
0x32520…32540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x32540…32560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 27 0d 0a 49 46 20 49 4e ┆ **' IF IN┆
0x32560…32580 54 45 52 4e 0d 0a 40 20 31 39 2c 31 20 53 41 59 20 27 2a 2a 20 4c 49 53 54 49 4e 47 20 46 4f 52 ┆TERN @ 19,1 SAY '** LISTING FOR┆
0x32580…325a0 20 49 4e 54 45 52 4e 41 4c 20 55 53 45 20 4f 4e 4c 59 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ INTERNAL USE ONLY**************┆
0x325a0…325c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 0d 0a 45 4c 53 45 0d 0a 40 20 31 39 2c ┆******************' ELSE @ 19,┆
0x325c0…325e0 31 20 53 41 59 20 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆1 SAY '*************************┆
0x325e0…32600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x32600…32620 (25, 0, 4) 2a 2a 2a 2a 2a 2a 2a 27 0d 0a 45 4e 44 49 46 0d 0a 40 20 32 30 2c 31 20 53 41 59 20 50 52 49 4e ┆*******' ENDIF @ 20,1 SAY PRIN┆
0x32620…32640 54 43 54 52 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TCTR **************************┆
0x32640…32660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x32660…32680 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 20 20 20 53 45 54 20 ┆********************* SET ┆
0x32680…326a0 4d 41 52 47 49 4e 20 54 4f 20 35 0d 0a 20 20 20 45 4a 45 43 54 0d 0a 20 20 20 53 54 4f 52 45 20 ┆MARGIN TO 5 EJECT STORE ┆
0x326a0…326c0 34 30 20 54 4f 20 52 4f 57 54 52 45 53 48 0d 0a 20 20 20 53 54 4f 52 45 20 50 49 4e 49 54 20 54 ┆40 TO ROWTRESH STORE PINIT T┆
0x326c0…326e0 4f 20 50 41 47 45 0d 0a 20 20 20 20 20 20 20 20 2a 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 ┆O PAGE *012345678901234┆
0x326e0…32700 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 ┆56789012345678901234567890123456┆
0x32700…32720 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 0d 0a 20 20 53 54 4f 52 45 20 ┆7890123456789012345678 STORE ┆
0x32720…32740 27 47 45 4e 5f 4e 41 4d 45 2d 2d 2d 2d 56 41 4c 55 45 2d 2d 2d 2d 2d 2d 2d 54 4f 4c 2d 2d 2d 56 ┆'GEN_NAME----VALUE-------TOL---V┆
0x32740…32760 4f 4c 54 2d 2d 27 20 54 4f 20 48 45 41 44 45 52 0d 0a 53 54 4f 52 45 20 48 45 41 44 45 52 2b 27 ┆OLT--' TO HEADER STORE HEADER+'┆
0x32760…32780 53 50 45 43 49 46 49 43 41 54 49 4f 4e 5f 43 4f 44 45 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SPECIFICATION_CODE--------------┆
0x32780…327a0 49 53 53 2d 50 41 43 4b 41 47 45 2d 4d 41 4e 55 46 2d 41 47 2e 3b 0d 0a 2d 2d 52 45 51 55 49 52 ┆ISS-PACKAGE-MANUF-AG.; --REQUIR┆
0x327a0…327c0 45 44 5f 4e 55 4d 42 45 52 53 5f 46 4f 52 5f 54 48 45 5f 55 4e 49 54 53 2d 2d 2d 2d 2d 2d 2d 2d ┆ED_NUMBERS_FOR_THE_UNITS--------┆
0x327c0…327e0 2d 2d 2d 52 45 51 55 2e 2d 2d 41 54 54 2d 54 4f 54 41 4c 27 20 54 4f 20 48 45 41 44 45 52 0d 0a ┆---REQU.--ATT-TOTAL' TO HEADER ┆
0x327e0…32800 49 46 20 49 4e 54 45 52 4e 0d 0a 20 20 20 53 54 4f 52 45 20 48 45 41 44 45 52 2b 27 2d 4f 52 44 ┆IF INTERN STORE HEADER+'-ORD┆
0x32800…32a00 (25, 0, 5) DataBlock {»SORTREF.PRG«}
0x32a00…32a20 (25, 0, 6) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 47 45 20 27 2b 53 54 ┆ PAGE '+ST┆
0x32a20…32a40 52 28 50 41 47 45 2c 32 29 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 36 20 54 4f 20 52 4f 57 0d ┆R(PAGE,2) STORE 6 TO ROW ┆
0x32a40…32a60 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 ┆ STORE 1 TO COLUMN ┆
0x32a60…32a80 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 48 45 41 44 45 52 0d 0a 20 20 20 20 20 20 53 ┆@ ROW,COLUMN SAY HEADER S┆
0x32a80…32aa0 54 4f 52 45 20 52 4f 57 2b 31 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 20 40 20 52 4f 57 2c 39 ┆TORE ROW+1 TO ROW @ ROW,9┆
0x32aa0…32ac0 31 20 53 41 59 20 49 44 45 4e 54 49 54 59 20 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 ┆1 SAY IDENTITY STORE ROW┆
0x32ac0…32ae0 2b 33 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 20 44 4f 20 57 48 49 4c 45 20 52 4f 57 3c 3d 52 ┆+3 TO ROW DO WHILE ROW<=R┆
0x32ae0…32b00 4f 57 54 52 45 53 48 2e 41 4e 44 2e 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 53 ┆OWTRESH.AND..NOT.EOF S┆
0x32b00…32b20 54 4f 52 45 20 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 ┆TORE 1 TO COLUMN @ ROW┆
0x32b20…32b40 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 47 45 4e 3a 4e 41 4d 45 20 55 53 49 4e 47 20 27 58 58 58 58 ┆,COLUMN SAY GEN:NAME USING 'XXXX┆
0x32b40…32b60 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 33 20 54 4f 20 43 4f ┆XXXXXX' STORE 13 TO CO┆
0x32b60…32b80 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 ┆LUMN @ ROW,COLUMN SAY ┆
0x32b80…32ba0 43 56 41 4c 55 45 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 ┆CVALUE USING 'XXXXXXXXX' ┆
0x32ba0…32bc0 20 20 20 53 54 4f 52 45 20 32 34 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 ┆ STORE 24 TO COLUMN ┆
0x32bc0…32be0 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 54 4f 4c 45 52 41 4e 43 45 20 55 53 49 4e 47 ┆@ ROW,COLUMN SAY TOLERANCE USING┆
0x32be0…32c00 20 27 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 33 30 20 54 4f 20 43 4f ┆ 'XXXX' STORE 30 TO CO┆
0x32c00…32c20 (25, 0, 7) 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 ┆LUMN @ ROW,COLUMN SAY ┆
0x32c20…32c40 52 41 54 45 44 3a 56 4f 4c 54 20 55 53 49 4e 47 20 27 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 ┆RATED:VOLT USING 'XXXX' ┆
0x32c40…32c60 20 20 53 54 4f 52 45 20 33 37 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 ┆ STORE 37 TO COLUMN @┆
0x32c60…32c80 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 53 50 45 43 3a 43 4f 44 45 20 55 53 49 4e 47 20 ┆ ROW,COLUMN SAY SPEC:CODE USING ┆
0x32c80…32ca0 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 27 ┆'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'┆
0x32ca0…32cc0 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 36 39 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 ┆ STORE 69 TO COLUMN ┆
0x32cc0…32ce0 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 49 53 53 55 45 20 55 ┆ @ ROW,COLUMN SAY ISSUE U┆
0x32ce0…32d00 53 49 4e 47 20 27 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 37 33 20 54 4f ┆SING 'XXX' STORE 73 TO┆
0x32d00…32d20 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 ┆ COLUMN @ ROW,COLUMN S┆
0x32d20…32d40 41 59 20 50 41 43 4b 41 47 45 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 ┆AY PACKAGE USING 'XXXXXXXX' ┆
0x32d40…32d60 20 20 20 20 20 20 53 54 4f 52 45 20 38 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 ┆ STORE 81 TO COLUMN ┆
0x32d60…32d80 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 41 4e 55 46 20 55 53 49 4e 47 20 ┆ @ ROW,COLUMN SAY MANUF USING ┆
0x32d80…32da0 27 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 38 37 20 54 4f 20 43 4f ┆'XXXXX' STORE 87 TO CO┆
0x32da0…32dc0 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 ┆LUMN @ ROW,COLUMN SAY ┆
0x32dc0…32de0 41 47 45 4e 43 59 20 55 53 49 4e 47 20 27 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f ┆AGENCY USING 'XXX' STO┆
0x32de0…32e00 52 45 20 39 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 ┆RE 91 TO COLUMN STORE ┆
0x32e00…32e20 (25, 0, 8) 24 28 4e 55 4d 52 4f 57 2c 31 2c 34 30 29 20 54 4f 20 4d 50 52 49 4e 54 56 41 52 0d 0a 20 20 20 ┆$(NUMROW,1,40) TO MPRINTVAR ┆
0x32e20…32e40 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 50 52 49 4e 54 56 41 52 20 55 53 49 4e ┆ @ ROW,COLUMN SAY MPRINTVAR USIN┆
0x32e40…32e60 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆G 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXX┆
0x32e60…32e80 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 33 33 ┆XXXXXXXXXXX' STORE 133┆
0x32e80…32ea0 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 52 ┆ TO COLUMN STORE STR(R┆
0x32ea0…32ec0 45 51 55 49 52 45 44 2c 35 29 20 54 4f 20 4d 50 52 49 4e 54 56 41 52 0d 0a 20 20 20 20 20 20 20 ┆EQUIRED,5) TO MPRINTVAR ┆
0x32ec0…32ee0 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 50 52 49 4e 54 56 41 52 20 55 53 49 ┆ @ ROW,COLUMN SAY MPRINTVAR USI┆
0x32ee0…32f00 4e 47 20 27 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 33 39 20 54 ┆NG 'XXXXX' STORE 139 T┆
0x32f00…32f20 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 4e 41 54 ┆O COLUMN STORE STR(NAT┆
0x32f20…32f40 54 52 2c 34 29 20 54 4f 20 4d 50 52 49 4e 54 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 ┆TR,4) TO MPRINTVAR @ R┆
0x32f40…32f60 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 50 52 49 4e 54 56 41 52 20 55 53 49 4e 47 20 27 58 ┆OW,COLUMN SAY MPRINTVAR USING 'X┆
0x32f60…32f80 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 34 34 20 54 4f 20 43 4f 4c 55 ┆XXX' STORE 144 TO COLU┆
0x32f80…32fa0 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 4e 41 54 54 52 2b 52 45 51 ┆MN STORE STR(NATTR+REQ┆
0x32fa0…32fc0 55 49 52 45 44 2c 35 29 20 54 4f 20 4d 50 52 49 4e 54 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 ┆UIRED,5) TO MPRINTVAR ┆
0x32fc0…32fe0 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 50 52 49 4e 54 56 41 52 20 55 53 49 4e 47 ┆@ ROW,COLUMN SAY MPRINTVAR USING┆
0x32fe0…33000 20 27 58 58 58 58 58 27 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 49 46 20 49 4e 54 45 52 4e 0d 0a ┆ 'XXXXX' IF INTERN ┆
0x33000…33200 (25, 1, 1) 0xe5[0x200]
[…0x7…]
0x34000…34200 (26, 0, 1) DataBlock {»DATP.PRG«}
[…0x3…]
0x34800…34a00 (26, 0, 5) DataBlock {»SOTEDIT.PRG«}
[…0x2…]
0x34d80…34da0 4f 52 20 49 4e 54 45 52 4e 41 4c 20 55 53 45 20 4f 4e 4c 59 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆OR INTERNAL USE ONLY************┆
0x34da0…34dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 0d 0a 45 4c 53 45 0d 0a 40 20 31 ┆********************' ELSE @ 1┆
0x34dc0…34de0 39 2c 31 20 53 41 59 20 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆9,1 SAY '***********************┆
0x34de0…34e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x34e00…34e20 (26, 0, 8) 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 0d 0a 45 4e 44 49 46 0d 0a 40 20 32 30 2c 31 20 53 41 59 20 50 52 ┆*********' ENDIF @ 20,1 SAY PR┆
0x34e20…34e40 49 4e 54 43 54 52 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆INTCTR ************************┆
0x34e40…34e60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x34e60…34e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 20 20 20 53 45 ┆*********************** SE┆
0x34e80…34ea0 54 20 4d 41 52 47 49 4e 20 54 4f 20 35 0d 0a 20 20 20 45 4a 45 43 54 0d 0a 20 20 20 53 54 4f 52 ┆T MARGIN TO 5 EJECT STOR┆
0x34ea0…34ec0 45 20 34 30 20 54 4f 20 52 4f 57 54 52 45 53 48 0d 0a 20 20 20 53 54 4f 52 45 20 50 49 4e 49 54 ┆E 40 TO ROWTRESH STORE PINIT┆
0x34ec0…34ee0 20 54 4f 20 50 41 47 45 0d 0a 20 20 20 20 20 20 20 20 2a 30 31 32 33 34 35 36 37 38 39 30 31 32 ┆ TO PAGE *0123456789012┆
0x34ee0…34f00 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 ┆34567890123456789012345678901234┆
0x34f00…34f20 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 0d 0a 20 20 53 54 4f 52 ┆567890123456789012345678 STOR┆
0x34f20…34f40 45 20 27 47 45 4e 5f 4e 41 4d 45 2d 2d 2d 2d 56 41 4c 55 45 2d 2d 2d 2d 2d 2d 2d 54 4f 4c 2d 2d ┆E 'GEN_NAME----VALUE-------TOL--┆
0x34f40…34f60 2d 56 4f 4c 54 2d 2d 27 20 54 4f 20 48 45 41 44 45 52 0d 0a 53 54 4f 52 45 20 48 45 41 44 45 52 ┆-VOLT--' TO HEADER STORE HEADER┆
0x34f60…34f80 2b 27 53 50 45 43 49 46 49 43 41 54 49 4f 4e 5f 43 4f 44 45 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆+'SPECIFICATION_CODE------------┆
0x34f80…34fa0 2d 2d 49 53 53 2d 50 41 43 4b 41 47 45 2d 4d 41 4e 55 46 2d 41 47 2e 2d 2d 51 54 59 2d 52 45 51 ┆--ISS-PACKAGE-MANUF-AG.--QTY-REQ┆
0x34fa0…34fc0 55 2e 3b 0d 0a 2d 2d 41 54 54 2d 54 4f 54 41 4c 27 20 54 4f 20 48 45 41 44 45 52 0d 0a 49 46 20 ┆U.; --ATT-TOTAL' TO HEADER IF ┆
0x34fc0…34fe0 49 4e 54 45 52 4e 0d 0a 20 20 20 53 54 4f 52 45 20 48 45 41 44 45 52 2b 27 2d 4f 52 44 45 52 2d ┆INTERN STORE HEADER+'-ORDER-┆
0x34fe0…35000 2d 52 45 53 54 2d 43 50 50 2d 27 20 54 4f 20 48 45 41 44 45 52 0d 0a 45 4e 44 49 46 0d 0a 53 54 ┆-REST-CPP-' TO HEADER ENDIF ST┆
0x35000…35200 (26, 1, 1) 0xe5[0x200]
[…0x7…]
0x36000…36200 (27, 0, 1) DataBlock {»SORCHECK.PRG«}
0x36200…36220 (27, 0, 2) 53 41 59 20 48 45 41 44 32 52 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆SAY HEAD2R USING 'XXXXXXXXXXXXXX┆
0x36220…36240 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 40 20 34 2c 31 20 53 ┆XXXXXXXXXXXXXXXX' @ 4,1 S┆
0x36240…36260 41 59 20 48 45 41 44 33 4c 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 ┆AY HEAD3L USING 'XXXXXXXXXXXXXXX┆
0x36260…36280 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 40 20 34 ┆XXXXXXXXXXXXXXXXXXXX' @ 4┆
0x36280…362a0 2c 52 49 47 48 54 20 53 41 59 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,RIGHT SAY ' ┆
0x362a0…362c0 20 20 20 50 41 47 45 20 27 2b 53 54 52 28 50 41 47 45 2c 32 29 0d 0a 20 20 20 20 20 20 53 54 4f ┆ PAGE '+STR(PAGE,2) STO┆
0x362c0…362e0 52 45 20 36 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 43 4f ┆RE 6 TO ROW STORE 1 TO CO┆
0x362e0…36300 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 48 45 41 ┆LUMN @ ROW,COLUMN SAY HEA┆
0x36300…36320 44 45 52 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 32 20 54 4f 20 52 4f 57 0d 0a 20 ┆DER STORE ROW+2 TO ROW ┆
0x36320…36340 20 20 20 20 20 44 4f 20 57 48 49 4c 45 20 52 4f 57 3c 3d 52 4f 57 54 52 45 53 48 2e 41 4e 44 2e ┆ DO WHILE ROW<=ROWTRESH.AND.┆
0x36340…36360 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 43 4f ┆.NOT.EOF STORE 1 TO CO┆
0x36360…36380 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 ┆LUMN @ ROW,COLUMN SAY ┆
0x36380…363a0 47 45 4e 3a 4e 41 4d 45 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 ┆GEN:NAME USING 'XXXXXXXXXX' ┆
0x363a0…363c0 20 20 20 20 20 20 53 54 4f 52 45 20 31 33 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 ┆ STORE 13 TO COLUMN ┆
0x363c0…363e0 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 43 56 41 4c 55 45 20 55 53 49 4e 47 ┆ @ ROW,COLUMN SAY CVALUE USING┆
0x363e0…36400 20 27 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 32 34 20 ┆ 'XXXXXXXXX' STORE 24 ┆
0x36400…36420 (27, 0, 3) 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e ┆TO COLUMN @ ROW,COLUMN┆
0x36420…36440 20 53 41 59 20 54 4f 4c 45 52 41 4e 43 45 20 55 53 49 4e 47 20 27 58 58 58 58 27 0d 0a 20 20 20 ┆ SAY TOLERANCE USING 'XXXX' ┆
0x36440…36460 20 20 20 20 20 20 53 54 4f 52 45 20 33 30 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 ┆ STORE 30 TO COLUMN ┆
0x36460…36480 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 52 41 54 45 44 3a 56 4f 4c 54 20 55 ┆ @ ROW,COLUMN SAY RATED:VOLT U┆
0x36480…364a0 53 49 4e 47 20 27 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 33 37 20 54 ┆SING 'XXXX' STORE 37 T┆
0x364a0…364c0 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 ┆O COLUMN @ ROW,COLUMN ┆
0x364c0…364e0 53 41 59 20 53 50 45 43 3a 43 4f 44 45 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 58 58 58 ┆SAY SPEC:CODE USING 'XXXXXXXXXXX┆
0x364e0…36500 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 ┆XXXXXXXXXXXXXXXXXXX' S┆
0x36500…36520 54 4f 52 45 20 36 39 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f ┆TORE 69 TO COLUMN @ RO┆
0x36520…36540 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 49 53 53 55 45 20 55 53 49 4e 47 20 27 58 58 58 27 0d 0a ┆W,COLUMN SAY ISSUE USING 'XXX' ┆
0x36540…36560 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 37 33 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 ┆ STORE 73 TO COLUMN ┆
0x36560…36580 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 50 41 43 4b 41 47 45 20 55 ┆ @ ROW,COLUMN SAY PACKAGE U┆
0x36580…365a0 53 49 4e 47 20 27 58 58 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 ┆SING 'XXXXXXXX' STORE ┆
0x365a0…365c0 38 31 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c ┆81 TO COLUMN @ ROW,COL┆
0x365c0…365e0 55 4d 4e 20 53 41 59 20 4d 41 4e 55 46 20 55 53 49 4e 47 20 27 58 58 58 58 58 27 0d 0a 20 20 20 ┆UMN SAY MANUF USING 'XXXXX' ┆
0x365e0…36600 20 20 20 20 20 20 53 54 4f 52 45 20 38 37 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 ┆ STORE 87 TO COLUMN ┆
0x36600…36620 (27, 0, 4) 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 41 47 45 4e 43 59 20 55 53 49 4e 47 ┆ @ ROW,COLUMN SAY AGENCY USING┆
0x36620…36640 20 27 58 58 58 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 39 31 20 54 4f 20 43 4f 4c ┆ 'XXX' STORE 91 TO COL┆
0x36640…36660 55 4d 4e 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 43 4f 55 4e 54 45 52 2c ┆UMN STORE STR(COUNTER,┆
0x36660…36680 34 29 20 54 4f 20 4d 50 52 49 4e 54 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c ┆4) TO MPRINTVAR @ ROW,┆
0x36680…366a0 43 4f 4c 55 4d 4e 20 53 41 59 20 4d 50 52 49 4e 54 56 41 52 20 55 53 49 4e 47 20 27 58 58 58 58 ┆COLUMN SAY MPRINTVAR USING 'XXXX┆
0x366a0…366c0 27 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 39 36 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a ┆' STORE 96 TO COLUMN ┆
0x366c0…366e0 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 52 45 51 55 49 52 45 44 2c 35 29 20 54 ┆ STORE STR(REQUIRED,5) T┆
0x366e0…36700 4f 20 4d 50 52 49 4e 54 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 ┆O MPRINTVAR @ ROW,COLU┆
0x36700…36720 4d 4e 20 53 41 59 20 4d 50 52 49 4e 54 56 41 52 20 55 53 49 4e 47 20 27 58 58 58 58 58 27 0d 0a ┆MN SAY MPRINTVAR USING 'XXXXX' ┆
0x36720…36740 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 30 32 20 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 ┆ STORE 102 TO COLUMN ┆
0x36740…36760 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 4e 41 54 54 52 2c 34 29 20 54 4f 20 4d 50 52 ┆ STORE STR(NATTR,4) TO MPR┆
0x36760…36780 49 4e 54 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 ┆INTVAR @ ROW,COLUMN SA┆
0x36780…367a0 59 20 4d 50 52 49 4e 54 56 41 52 20 55 53 49 4e 47 20 27 58 58 58 58 27 20 20 20 20 20 20 20 20 ┆Y MPRINTVAR USING 'XXXX' ┆
0x367a0…367c0 20 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 30 37 20 54 4f 20 43 4f 4c 55 4d 4e 0d ┆ STORE 107 TO COLUMN ┆
0x367c0…367e0 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 53 54 52 28 4e 41 54 54 52 2b 52 45 51 55 49 52 ┆ STORE STR(NATTR+REQUIR┆
0x367e0…36800 45 44 2c 35 29 20 54 4f 20 4d 50 52 49 4e 54 56 41 52 0d 0a 20 20 20 20 20 20 20 20 20 40 20 52 ┆ED,5) TO MPRINTVAR @ R┆
0x36800…36a00 (27, 0, 5) DataBlock {»CDPL.PRG«}
[…0x3…]
0x37000…37200 (27, 1, 1) 0xe5[0x200]
[…0x7…]
0x38000…38200 (28, 0, 1) DataBlock {»CDPL.PRG«}
0x38200…38220 (28, 0, 2) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x38220…38240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 2a ┆***************************** *┆
0x38240…38260 4f 55 54 50 55 54 20 52 45 50 4f 52 54 48 45 41 44 45 52 0d 0a 40 20 31 30 2c 31 20 53 41 59 20 ┆OUTPUT REPORTHEADER @ 10,1 SAY ┆
0x38260…38280 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆'*******************************┆
0x38280…382a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x382a0…382c0 2a 27 0d 0a 40 20 31 31 2c 31 20 53 41 59 20 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*' @ 11,1 SAY '** ┆
0x382c0…382e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x382e0…38300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 27 0d 0a 40 20 31 32 2c 31 20 53 41 59 20 27 2a ┆ **' @ 12,1 SAY '*┆
0x38300…38320 2a 20 4c 49 53 54 49 4e 47 20 4f 46 20 53 45 4c 45 43 54 5f 4f 4e 5f 54 45 53 54 20 4b 49 54 20 ┆* LISTING OF SELECT_ON_TEST KIT ┆
0x38320…38340 28 4c 4f 4e 47 20 46 4f 52 4d 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 27 ┆(LONG FORM) **'┆
0x38340…38360 0d 0a 40 20 31 33 2c 31 20 53 41 59 20 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ @ 13,1 SAY '** ┆
0x38360…38380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38380…383a0 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 27 0d 0a 40 20 31 34 2c 31 20 53 41 59 20 27 2a 2a 20 ┆ **' @ 14,1 SAY '** ┆
0x383a0…383c0 55 4e 49 54 3a 20 27 2b 55 4e 49 54 4e 41 4d 45 2b 27 20 20 20 20 43 4f 4e 46 49 47 55 52 41 54 ┆UNIT: '+UNITNAME+' CONFIGURAT┆
0x383c0…383e0 49 4f 4e 5f 46 49 4c 45 3a 20 27 2b 43 4f 4e 46 49 47 4e 41 4d 45 0d 0a 40 20 31 34 2c 52 49 47 ┆ION_FILE: '+CONFIGNAME @ 14,RIG┆
0x383e0…38400 48 54 20 53 41 59 20 27 2a 2a 27 0d 0a 40 20 31 35 2c 31 20 53 41 59 20 27 2a 2a 2d 2d 2d 2d 2d ┆HT SAY '**' @ 15,1 SAY '**-----┆
0x38400…38420 (28, 0, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x38420…38440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 2a 27 0d 0a 40 20 31 36 ┆-----------------------**' @ 16┆
0x38440…38460 2c 31 20 53 41 59 20 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,1 SAY '** ┆
0x38460…38480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38480…384a0 20 20 20 20 20 20 2a 2a 27 0d 0a 40 20 31 37 2c 31 20 53 41 59 20 27 2a 2a 20 43 4f 4d 50 4f 4e ┆ **' @ 17,1 SAY '** COMPON┆
0x384a0…384c0 45 4e 54 53 20 43 4f 4e 54 41 49 4e 45 44 20 49 4e 20 46 49 4c 45 3a 20 27 2b 4f 50 45 52 44 42 ┆ENTS CONTAINED IN FILE: '+OPERDB┆
0x384c0…384e0 46 0d 0a 40 20 31 37 2c 52 49 47 48 54 20 53 41 59 20 27 2a 2a 27 0d 0a 40 20 31 38 2c 31 20 53 ┆F @ 17,RIGHT SAY '**' @ 18,1 S┆
0x384e0…38500 41 59 20 27 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AY '** ┆
0x38500…38520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x38520…38540 20 20 2a 2a 27 0d 0a 40 20 31 39 2c 31 20 53 41 59 20 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ **' @ 19,1 SAY '*************┆
0x38540…38560 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x38560…38580 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 0d 0a 45 4a 45 43 54 0d 0a 45 4c 53 ┆*******************' EJECT ELS┆
0x38580…385a0 45 0d 0a 20 20 20 45 4a 45 43 54 0d 0a 20 20 20 40 20 31 2c 31 20 53 41 59 20 48 45 41 44 49 4e ┆E EJECT @ 1,1 SAY HEADIN┆
0x385a0…385c0 47 0d 0a 45 4e 44 49 46 0d 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆G ENDIF **********************┆
0x385c0…385e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x385e0…38600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 0d 0a 20 ┆************************* ┆
0x38600…38620 (28, 0, 4) 20 20 53 54 4f 52 45 20 34 30 20 54 4f 20 52 4f 57 54 52 45 53 48 0d 0a 20 20 20 53 54 4f 52 45 ┆ STORE 40 TO ROWTRESH STORE┆
0x38620…38640 20 31 20 54 4f 20 50 41 47 45 0d 0a 20 20 20 20 20 20 20 20 2a 30 31 32 33 34 35 36 37 38 39 30 ┆ 1 TO PAGE *01234567890┆
0x38640…38660 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 ┆12345678901234567890123456789012┆
0x38660…38680 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 0d 0a 20 20 53 54 ┆34567890123456789012345678 ST┆
0x38680…386a0 4f 52 45 20 27 52 45 46 5f 44 45 53 2d 2d 2d 47 45 4e 5f 4e 41 4d 45 2d 2d 2d 2d 56 41 4c 55 45 ┆ORE 'REF_DES---GEN_NAME----VALUE┆
0x386a0…386c0 2d 2d 2d 2d 2d 2d 2d 54 4f 4c 2d 2d 2d 56 4f 4c 54 2d 2d 27 20 54 4f 20 48 45 41 44 45 52 0d 0a ┆-------TOL---VOLT--' TO HEADER ┆
0x386c0…386e0 53 54 4f 52 45 20 48 45 41 44 45 52 2b 27 53 50 45 43 49 46 49 43 41 54 49 4f 4e 5f 43 4f 44 45 ┆STORE HEADER+'SPECIFICATION_CODE┆
0x386e0…38700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 50 41 43 4b 41 47 45 2d 2d 52 45 4d 41 52 4b 2d 2d ┆---------------PACKAGE--REMARK--┆
0x38700…38720 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 3b 0d 0a 54 4f 20 48 45 41 44 45 52 0d 0a 20 20 20 44 ┆-------------'; TO HEADER D┆
0x38720…38740 4f 20 57 48 49 4c 45 20 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 ┆O WHILE .NOT.EOF STORE 1 ┆
0x38740…38760 54 4f 20 43 4f 4c 55 4d 4e 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 34 20 54 4f 20 52 4f 57 0d ┆TO COLUMN STORE 4 TO ROW ┆
0x38760…38780 0a 20 20 20 20 20 20 40 20 52 4f 57 2c 38 39 20 53 41 59 20 27 50 41 47 45 20 27 2b 53 54 52 28 ┆ @ ROW,89 SAY 'PAGE '+STR(┆
0x38780…387a0 50 41 47 45 2c 32 29 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 32 20 54 4f 20 52 4f ┆PAGE,2) STORE ROW+2 TO RO┆
0x387a0…387c0 57 0d 0a 20 20 20 20 20 20 40 20 52 4f 57 2c 43 4f 4c 55 4d 4e 20 53 41 59 20 48 45 41 44 45 52 ┆W @ ROW,COLUMN SAY HEADER┆
0x387c0…387e0 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 4f 57 2b 32 20 54 4f 20 52 4f 57 0d 0a 20 20 20 20 ┆ STORE ROW+2 TO ROW ┆
0x387e0…38800 20 20 44 4f 20 57 48 49 4c 45 20 52 4f 57 3c 3d 52 4f 57 54 52 45 53 48 2e 41 4e 44 2e 2e 4e 4f ┆ DO WHILE ROW<=ROWTRESH.AND..NO┆
0x38800…38a00 (28, 0, 5) DataBlock {»MAKEC.PRG«}
[…0x3…]
0x39000…39200 (28, 1, 1) 0xe5[0x200]
[…0x7…]
0x3a000…3a200 (29, 0, 1) DataBlock {»MAKEC.PRG«}
[…0x6…]
0x3ac80…3aca0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xb…]
0x3ae00…3b000 (29, 0, 8) 0xe5[0x200]
[…0x8…]
0x3c000…3c200 (30, 0, 1) DataBlock {»COMPLETE.PRG«}
[…0x7…]
0x3d000…3d200 (30, 1, 1) 0xe5[0x200]
[…0x7…]
0x3e000…3e200 (31, 0, 1) DataBlock {»COMPLETE.PRG«}
[…0x6…]
0x3ee00…3f000 (31, 0, 8) 0xe5[0x200]
[…0x8…]
0x40000…40200 (32, 0, 1) DataBlock {»CKITSPAR.PRG«}
[…0x7…]
0x41000…41200 (32, 1, 1) 0xe5[0x200]
[…0x7…]
0x42000…42180 (33, 0, 1) DataBlock {»CKITSPAR.PRG«}
0x42180…421a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x3…]
0x42200…42220 (33, 0, 2) 00 00 00 00 00 00 00 00 00 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x42220…42240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xe…]
0x42400…42600 (33, 0, 3) 0xe5[0x200]
[…0x1…]
0x42800…42a00 (33, 0, 5) DataBlock {»APPMOD.PRG«}
[…0x1…]
0x42c00…42e00 (33, 0, 7) 0xe5[0x200]
[…0x9…]
0x44000…44200 (34, 0, 1) DataBlock {»CKIT.PRG«}
[…0x4…]
0x44900…44920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x7…]
0x44a00…44a20 (34, 0, 6) 00 00 00 00 00 00 00 00 00 1a 00 00 24 40 00 00 00 00 00 00 59 40 00 00 00 00 00 40 8f 40 00 00 ┆ $@ Y@ @ @ ┆
0x44a20…44a40 00 00 00 88 c3 40 00 00 00 00 00 6a f8 40 00 00 00 00 80 84 2e 41 00 00 00 00 d0 12 63 41 00 00 ┆ @ j @ .A cA ┆
0x44a40…44a60 00 00 84 d7 97 41 00 80 e0 37 79 c3 41 43 b4 9d d9 79 43 78 ea 44 17 6e 05 b5 b5 b8 93 46 a5 5c ┆ A 7y AC yCx D n F Ø┆
0x44a60…44a80 c3 f1 29 63 3d 48 73 c8 a1 a0 31 e5 e5 49 a9 3d 50 e2 31 50 90 4b f5 f9 3f e9 03 4f 38 4d 32 1d ┆ )c=Hs 1 I =P 1P K ? O8M2 ┆
0x44a80…44aa0 30 f9 48 77 82 5a eb 24 a7 f1 1e 0e cc 67 3c bf 73 7f dd 4f 15 75 8b 44 06 b1 04 d3 e8 80 e4 07 ┆0 Hw Z $ g< s O u D ┆
0x44aa0…44ac0 2d ff 03 3d 00 04 74 29 3d 01 fc 75 4f 47 47 c6 05 20 b0 30 b9 11 00 47 88 05 e2 fb c7 45 01 2b ┆- = t)= uOGG 0 G E +┆
0x44ac0…44ae0 30 c7 45 03 30 30 c7 45 05 00 00 83 ef 13 e9 26 01 f6 44 06 0f 74 0e c7 05 20 4e c7 45 02 41 4e ┆0 E 00 E & D t N E AN┆
0x44ae0…44b00 c6 45 04 00 c3 bb 2b 49 f6 44 07 80 74 02 b3 2d 89 1d c7 45 02 4e 46 c6 45 04 00 c3 83 ec 18 8b ┆ E +I D t - E NF E ┆
0x44b00…44b20 ec 1e 56 57 8b 0c 89 4e 00 8b 4c 02 89 4e 02 8b 4c 04 89 4e 04 8b 4c 06 89 4e 06 8b f5 8c d2 8e ┆ VW N L N L N L N ┆
0x44b20…44b40 da ba 10 4d f7 ea 50 8b 5c 05 b1 03 d3 e3 80 e7 7f b0 aa f6 ef 05 13 c5 8a c4 f6 e7 5b 03 c3 83 ┆ M P Ø Æ ┆
0x44b40…44b60 d2 00 52 78 1c e8 86 01 e8 84 04 8b 45 06 25 ff 7f 3d 24 40 72 29 5a 42 52 e8 72 01 e8 70 04 eb ┆ Rx E % =$@r)ZBR r p ┆
0x44b60…44b80 1e f7 da e8 68 01 e8 ab 05 8b 45 06 25 ff 7f 3d 24 40 72 0b 5a 42 52 f7 da e8 52 01 e8 95 05 8b ┆ h E % =$@r ZBR R ┆
0x44b80…44ba0 45 06 8b 5d 04 8b 4d 02 8b 15 5d 5f 5e 1f 83 c4 18 55 47 47 f6 c4 80 74 05 c6 05 2d eb 03 c6 05 ┆E Å M Å_^ UGG t - ┆
0x44ba0…44bc0 20 47 80 e4 7f 2d b0 3f 8b e8 25 0f 00 0c 10 83 ed 10 78 05 e8 ec 00 eb f6 80 c4 30 88 25 47 bd ┆ G - ? % x 0 %G ┆
0x44bc0…44be0 10 00 55 b4 00 50 53 51 52 e8 d7 00 e8 d4 00 5d 03 d5 5d 13 cd 5d 13 dd 5d 13 c5 e8 c5 00 80 c4 ┆ U PSQR Å Å Å Å ┆
0x44be0…44c00 30 88 25 47 5d 4d 75 da 58 89 45 04 e8 bd 00 89 1d 89 4d 02 83 ef 14 8b df 83 c3 03 8b 0e 94 01 ┆0 %GÅMu X E M ┆
0x44c00…44e00 (34, 0, 7) 0xe5[0x200]
[…0x9…]
0x46000…46200 (35, 0, 1) DataBlock {»UNIT.PRG«}
[…0x2…]
0x46600…46800 (35, 0, 4) 0xe5[0x200]
0x46800…46a00 (35, 0, 5) DataBlock {»LISTAID.PRG«}
[…0x3…]
0x47000…47200 (35, 1, 1) 0xe5[0x200]
[…0x7…]
0x48000…48200 (36, 0, 1) DataBlock {»LISTAID.PRG«}
[…0x1…]
0x48400…48600 (36, 0, 3) 0xe5[0x200]
[…0x1…]
0x48800…48a00 (36, 0, 5) DataBlock {»RESTRU.PRG«}
0x48a00…48a20 (36, 0, 6) 54 20 54 4f 20 53 43 52 45 45 4e 0d 0a 45 52 41 53 45 0d 0a 40 20 31 30 2c 32 30 20 53 41 59 20 ┆T TO SCREEN ERASE @ 10,20 SAY ┆
0x48a20…48a40 27 43 44 50 4c 20 49 4e 49 54 49 41 54 45 44 27 0d 0a 53 54 4f 52 45 20 27 50 52 4f 43 45 45 44 ┆'CDPL INITIATED' STORE 'PROCEED┆
0x48a40…48a60 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 0d 0a 2a 43 48 45 43 4b 20 49 46 20 43 4f 4e 46 49 47 55 ┆' TO STATUS *CHECK IF CONFIGU┆
0x48a60…48a80 52 41 54 49 4f 4e 20 49 53 20 44 45 46 49 4e 45 44 0d 0a 53 54 4f 52 45 20 24 28 43 4f 4e 46 49 ┆RATION IS DEFINED STORE $(CONFI┆
0x48a80…48aa0 47 4e 41 4d 45 2c 31 2c 32 29 2d 27 43 4f 4e 5f 27 2d 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 33 ┆GNAME,1,2)-'CON_'-$(CONFIGNAME,3┆
0x48aa0…48ac0 2c 34 29 2d 27 2e 44 42 46 27 20 54 4f 20 4d 43 4f 4e 0d 0a 49 46 20 2e 4e 4f 54 2e 46 49 4c 45 ┆,4)-'.DBF' TO MCON IF .NOT.FILE┆
0x48ac0…48ae0 28 4d 43 4f 4e 29 0d 0a 20 20 20 53 54 4f 52 45 20 27 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 ┆(MCON) STORE 'CONFIGURATION ┆
0x48ae0…48b00 55 4e 44 45 46 49 4e 45 44 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 45 4e 44 49 46 0d 0a 0d 0a 53 ┆UNDEFINED' TO STATUS ENDIF S┆
0x48b00…48b20 54 4f 52 45 20 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 31 2c 32 29 2d 27 44 50 4c 5f 27 2d 24 28 ┆TORE $(CONFIGNAME,1,2)-'DPL_'-$(┆
0x48b20…48b40 43 4f 4e 46 49 47 4e 41 4d 45 2c 33 2c 34 29 2d 27 2e 4e 44 58 27 20 54 4f 20 4d 44 50 4c 4e 44 ┆CONFIGNAME,3,4)-'.NDX' TO MDPLND┆
0x48b40…48b60 58 0d 0a 2a 43 48 45 43 4b 20 49 46 20 44 50 4c 20 45 58 49 53 54 53 20 46 4f 52 20 54 48 49 53 ┆X *CHECK IF DPL EXISTS FOR THIS┆
0x48b60…48b80 20 55 4e 49 54 0d 0a 0d 0a 53 54 4f 52 45 20 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 31 2c 32 29 ┆ UNIT STORE $(CONFIGNAME,1,2)┆
0x48b80…48ba0 2d 27 44 50 4c 5f 27 2d 24 28 43 4f 4e 46 49 47 4e 41 4d 45 2c 33 2c 34 29 2d 27 2e 44 42 46 27 ┆-'DPL_'-$(CONFIGNAME,3,4)-'.DBF'┆
0x48ba0…48bc0 20 54 4f 20 4d 44 50 4c 0d 0a 49 46 20 46 49 4c 45 28 4d 44 50 4c 29 2e 41 4e 44 2e 53 54 41 54 ┆ TO MDPL IF FILE(MDPL).AND.STAT┆
0x48bc0…48be0 55 53 3d 27 50 52 4f 43 45 45 44 27 0d 0a 0d 0a 20 20 20 2a 41 53 4b 20 55 53 45 52 20 49 46 20 ┆US='PROCEED' *ASK USER IF ┆
0x48be0…48c00 49 54 20 53 48 4f 55 4c 44 20 42 45 20 44 45 4c 45 54 45 44 0d 0a 0d 0a 20 20 20 45 52 41 53 45 ┆IT SHOULD BE DELETED ERASE┆
0x48c00…48c20 (36, 0, 7) 0d 0a 20 20 20 53 54 4f 52 45 20 46 20 54 4f 20 4d 44 45 4c 45 54 45 0d 0a 20 20 20 40 20 31 30 ┆ STORE F TO MDELETE @ 10┆
0x48c20…48c40 2c 32 30 20 53 41 59 20 27 44 45 43 4c 41 52 45 44 20 50 41 52 54 53 4c 49 53 54 20 45 58 49 53 ┆,20 SAY 'DECLARED PARTSLIST EXIS┆
0x48c40…48c60 54 53 20 46 4f 52 20 54 48 49 53 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 27 0d 0a 20 20 20 40 ┆TS FOR THIS CONFIGURATION' @┆
0x48c60…48c80 20 31 32 2c 32 30 20 53 41 59 20 27 44 4f 20 59 4f 55 20 57 41 4e 54 20 54 4f 20 44 45 4c 45 54 ┆ 12,20 SAY 'DO YOU WANT TO DELET┆
0x48c80…48ca0 45 20 49 54 3f 20 28 59 2f 4e 29 27 0d 0a 20 20 20 40 20 31 32 2c 35 32 20 47 45 54 20 4d 44 45 ┆E IT? (Y/N)' @ 12,52 GET MDE┆
0x48ca0…48cc0 4c 45 54 45 0d 0a 20 20 20 52 45 41 44 0d 0a 20 20 20 49 46 20 4d 44 45 4c 45 54 45 0d 0a 20 20 ┆LETE READ IF MDELETE ┆
0x48cc0…48ce0 20 20 20 20 44 45 4c 45 54 45 20 46 49 4c 45 20 26 4d 44 50 4c 0d 0a 20 20 20 20 20 20 49 46 20 ┆ DELETE FILE &MDPL IF ┆
0x48ce0…48d00 46 49 4c 45 28 4d 44 50 4c 4e 44 58 29 0d 0a 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 20 46 ┆FILE(MDPLNDX) DELETE F┆
0x48d00…48d20 49 4c 45 20 26 4d 44 50 4c 4e 44 58 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 45 4c ┆ILE &MDPLNDX ENDIF EL┆
0x48d20…48d40 53 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 27 43 44 50 4c 20 41 42 4f 52 54 45 44 27 20 54 ┆SE STORE 'CDPL ABORTED' T┆
0x48d40…48d60 4f 20 53 54 41 54 55 53 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 0d 0a 45 4e 44 49 46 0d 0a 0d 0a 49 ┆O STATUS ENDIF ENDIF I┆
0x48d60…48d80 46 20 2e 4e 4f 54 2e 46 49 4c 45 28 4d 44 50 4c 29 2e 41 4e 44 2e 53 54 41 54 55 53 3d 27 50 52 ┆F .NOT.FILE(MDPL).AND.STATUS='PR┆
0x48d80…48da0 4f 43 45 45 44 27 0d 0a 0d 0a 20 20 20 2a 43 48 45 43 4b 20 49 46 20 4d 4f 44 55 4c 45 53 20 41 ┆OCEED' *CHECK IF MODULES A┆
0x48da0…48dc0 52 45 20 44 45 46 49 4e 45 44 0d 0a 20 20 20 55 53 45 20 26 4d 43 4f 4e 0d 0a 20 20 20 47 4f 20 ┆RE DEFINED USE &MCON GO ┆
0x48dc0…48de0 54 4f 50 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 28 53 54 41 54 55 53 3d 27 50 52 4f 43 45 45 ┆TOP DO WHILE (STATUS='PROCEE┆
0x48de0…48e00 44 27 29 2e 41 4e 44 2e 28 2e 4e 4f 54 2e 45 4f 46 29 0d 0a 20 20 20 20 20 20 49 46 20 2e 4e 4f ┆D').AND.(.NOT.EOF) IF .NO┆
0x48e00…48e20 (36, 0, 8) 54 2e 46 49 4c 45 28 43 4f 4e 46 49 47 4e 41 4d 45 2d 53 4f 55 52 43 45 2d 27 2e 50 4c 53 27 29 ┆T.FILE(CONFIGNAME-SOURCE-'.PLS')┆
0x48e20…48e40 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 4d 4f 44 55 4c 45 5f 46 49 4c 45 28 53 29 ┆ STORE 'MODULE_FILE(S)┆
0x48e40…48e60 20 4d 49 53 53 49 4e 47 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 ┆ MISSING' TO STATUS ENDIF┆
0x48e60…48e80 0d 0a 20 20 20 20 20 20 53 4b 49 50 0d 0a 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 49 46 20 53 54 ┆ SKIP ENDDO IF ST┆
0x48e80…48ea0 41 54 55 53 3d 27 50 52 4f 43 45 45 44 27 0d 0a 20 20 20 20 20 20 55 53 45 20 44 50 4c 5f 53 54 ┆ATUS='PROCEED' USE DPL_ST┆
0x48ea0…48ec0 52 55 0d 0a 20 20 20 20 20 20 43 4f 50 59 20 53 54 52 55 43 54 55 52 45 20 54 4f 20 26 4d 44 50 ┆RU COPY STRUCTURE TO &MDP┆
0x48ec0…48ee0 4c 0d 0a 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 55 4e 49 54 4d 55 4c 54 0d 0a ┆L STORE 1 TO UNITMULT ┆
0x48ee0…48f00 20 20 20 20 20 20 45 52 41 53 45 0d 0a 20 20 20 20 20 20 40 20 31 31 2c 34 20 20 53 41 59 20 27 ┆ ERASE @ 11,4 SAY '┆
0x48f00…48f20 48 4f 57 20 4d 41 4e 59 20 55 4e 49 54 53 20 53 48 41 4c 4c 20 42 45 20 50 52 4f 44 55 43 45 44 ┆HOW MANY UNITS SHALL BE PRODUCED┆
0x48f20…48f40 20 3f 27 0d 0a 20 20 20 20 20 20 40 20 31 33 2c 34 20 20 53 41 59 20 27 49 4e 50 55 54 20 52 41 ┆ ?' @ 13,4 SAY 'INPUT RA┆
0x48f40…48f60 4e 47 45 20 3d 20 28 31 2e 2e 39 39 29 20 27 0d 0a 20 20 20 20 20 20 40 20 31 33 2c 32 38 20 47 ┆NGE = (1..99) ' @ 13,28 G┆
0x48f60…48f80 45 54 20 55 4e 49 54 4d 55 4c 54 20 50 49 43 54 55 52 45 20 27 23 23 27 0d 0a 20 20 20 20 20 20 ┆ET UNITMULT PICTURE '##' ┆
0x48f80…48fa0 40 20 32 30 2c 34 20 20 53 41 59 20 27 44 43 2f 44 43 20 3d 20 34 2c 20 53 4d 43 20 3d 20 33 2c ┆@ 20,4 SAY 'DC/DC = 4, SMC = 3,┆
0x48fa0…48fc0 20 50 53 44 55 20 3d 20 34 27 0d 0a 0d 0a 20 20 20 20 20 20 52 45 41 44 0d 0a 20 20 20 20 20 20 ┆ PSDU = 4' READ ┆
0x48fc0…48fe0 53 54 4f 52 45 20 49 4e 54 28 55 4e 49 54 4d 55 4c 54 29 20 54 4f 20 55 4e 49 54 4d 55 4c 54 0d ┆STORE INT(UNITMULT) TO UNITMULT ┆
0x48fe0…49000 0a 20 20 20 20 20 20 44 4f 20 57 48 49 4c 45 20 55 4e 49 54 4d 55 4c 54 3d 30 0d 0a 20 20 20 20 ┆ DO WHILE UNITMULT=0 ┆
0x49000…49200 (36, 1, 1) 0xe5[0x200]
[…0x7…]
0x4a000…4a200 (37, 0, 1) DataBlock {»TOTDEL.PRG«}
[…0x2…]
0x4a600…4a800 (37, 0, 4) 0xe5[0x200]
0x4a800…4aa00 (37, 0, 5) DataBlock {»COMPHIP1.PRG«}
[…0x3…]
0x4b000…4b200 (37, 1, 1) 0xe5[0x200]
[…0x7…]
0x4c000…4c200 (38, 0, 1) DataBlock {»COMPHIP1.PRG«}
[…0x7…]
0x4d000…4d200 (38, 1, 1) 0xe5[0x200]
[…0x7…]
0x4e000…4e200 (39, 0, 1) DataBlock {»COMPHIP1.PRG«}
[…0x2…]
0x4e600…4e620 (39, 0, 4) 0a 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 4c 4f 43 41 54 45 20 46 4f 52 ┆ ELSE LOCATE FOR┆
0x4e620…4e640 20 53 2e 52 45 46 3a 43 4f 44 45 3d 50 2e 52 45 46 3a 43 4f 44 45 0d 0a 20 20 20 20 20 20 45 4e ┆ S.REF:CODE=P.REF:CODE EN┆
0x4e640…4e660 44 49 46 0d 0a 20 20 20 40 20 31 2c 35 35 20 53 41 59 20 50 2e 52 45 46 3a 43 4f 44 45 20 55 53 ┆DIF @ 1,55 SAY P.REF:CODE US┆
0x4e660…4e680 49 4e 47 20 27 58 58 58 58 58 58 27 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 0d 0a 20 20 20 2a 43 4f ┆ING 'XXXXXX' ENDIF *CO┆
0x4e680…4e6a0 4d 50 4c 45 54 49 4f 4e 0d 0a 20 20 20 49 46 20 53 2e 52 45 46 3a 43 4f 44 45 3d 50 2e 52 45 46 ┆MPLETION IF S.REF:CODE=P.REF┆
0x4e6a0…4e6c0 3a 43 4f 44 45 0d 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 50 52 49 4d 41 52 59 0d 0a 20 20 20 ┆:CODE SELECT PRIMARY ┆
0x4e6c0…4e6e0 20 20 20 52 45 50 4c 41 43 45 20 50 2e 47 45 4e 3a 4e 41 4d 45 20 57 49 54 48 20 53 2e 47 45 4e ┆ REPLACE P.GEN:NAME WITH S.GEN┆
0x4e6e0…4e700 3a 4e 41 4d 45 0d 0a 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 53 50 45 43 3a 43 4f 44 45 ┆:NAME REPLACE P.SPEC:CODE┆
0x4e700…4e720 20 57 49 54 48 20 53 2e 53 50 45 43 3a 43 4f 44 45 0d 0a 20 20 20 20 20 20 52 45 50 4c 41 43 45 ┆ WITH S.SPEC:CODE REPLACE┆
0x4e720…4e740 20 50 2e 50 41 43 4b 41 47 45 20 57 49 54 48 20 53 2e 50 41 43 4b 41 47 45 0d 0a 20 20 20 20 20 ┆ P.PACKAGE WITH S.PACKAGE ┆
0x4e740…4e760 20 44 4f 20 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 44 42 41 53 45 3d 27 ┆ DO CASE CASE MDBASE='┆
0x4e760…4e780 44 50 4c 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 49 53 ┆DPL' REPLACE P.IS┆
0x4e780…4e7a0 53 55 45 20 57 49 54 48 20 53 2e 49 53 53 55 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SUE WITH S.ISSUE ┆
0x4e7a0…4e7c0 52 45 50 4c 41 43 45 20 50 2e 4d 41 4e 55 46 20 57 49 54 48 20 53 2e 4d 41 4e 55 46 0d 0a 20 20 ┆REPLACE P.MANUF WITH S.MANUF ┆
0x4e7c0…4e7e0 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 41 47 45 4e 43 59 20 57 49 54 ┆ REPLACE P.AGENCY WIT┆
0x4e7e0…4e800 48 20 53 2e 41 47 45 4e 43 59 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 ┆H S.AGENCY REPLAC┆
0x4e800…4ea00 (39, 0, 5) DataBlock {»MODCSOT.PRG«}
[…0x2…]
0x4ee00…4ee20 (39, 0, 8) 4b 49 54 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 49 4e 53 45 52 54 20 41 44 44 49 ┆KIT' *INSERT ADDI┆
0x4ee20…4ee40 54 49 4f 4e 41 4c 20 4b 49 54 4c 49 53 54 20 49 4e 46 4f 20 41 53 20 57 41 4e 54 45 44 0d 0a 20 ┆TIONAL KITLIST INFO AS WANTED ┆
0x4ee40…4ee60 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 50 2e 52 45 46 3a ┆ ENDCASE STORE P.REF:┆
0x4ee60…4ee80 43 4f 44 45 20 54 4f 20 4d 52 45 46 0d 0a 20 20 20 20 20 20 49 46 20 2e 4e 4f 54 2e 28 24 28 4d ┆CODE TO MREF IF .NOT.($(M┆
0x4ee80…4eea0 52 45 46 2c 31 2c 31 29 24 27 34 35 38 27 29 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 ┆REF,1,1)$'458') REPLAC┆
0x4eea0…4eec0 45 20 50 2e 54 4f 4c 45 52 41 4e 43 45 20 57 49 54 48 20 53 2e 54 4f 4c 45 52 41 4e 43 45 0d 0a ┆E P.TOLERANCE WITH S.TOLERANCE ┆
0x4eec0…4eee0 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 52 41 54 45 44 3a 56 4f 4c 54 20 57 49 ┆ REPLACE P.RATED:VOLT WI┆
0x4eee0…4ef00 54 48 20 53 2e 52 41 54 45 44 3a 56 4f 4c 54 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 ┆TH S.RATED:VOLT REPLAC┆
0x4ef00…4ef20 45 20 50 2e 43 56 41 4c 55 45 20 57 49 54 48 20 53 2e 43 56 41 4c 55 45 0d 0a 20 20 20 20 20 20 ┆E P.CVALUE WITH S.CVALUE ┆
0x4ef20…4ef40 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 44 45 4c 45 54 45 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 20 ┆ENDIF DELETE ENDIF ┆
0x4ef40…4ef60 20 20 53 45 4c 45 43 54 20 50 52 49 4d 41 52 59 0d 0a 20 20 20 53 4b 49 50 0d 0a 20 20 20 44 4f ┆ SELECT PRIMARY SKIP DO┆
0x4ef60…4ef80 20 57 48 49 4c 45 20 28 2a 2e 4f 52 2e 24 28 52 45 46 3a 43 4f 44 45 2c 31 2c 31 29 3d 27 43 27 ┆ WHILE (*.OR.$(REF:CODE,1,1)='C'┆
0x4ef80…4efa0 29 2e 41 4e 44 2e 28 2e 4e 4f 54 2e 45 4f 46 29 0d 0a 20 20 20 20 20 20 53 4b 49 50 0d 0a 20 20 ┆).AND.(.NOT.EOF) SKIP ┆
0x4efa0…4efc0 20 45 4e 44 44 4f 0d 0a 45 4e 44 44 4f 0d 0a 0d 0a 0d 0a 2a 49 4e 49 54 49 41 4c 49 5a 45 20 46 ┆ ENDDO ENDDO *INITIALIZE F┆
0x4efc0…4efe0 4f 52 20 43 55 53 54 4f 4d 2d 43 4f 4d 50 4c 45 54 49 4f 4e 0d 0a 53 54 4f 52 45 20 24 28 43 4f ┆OR CUSTOM-COMPLETION STORE $(CO┆
0x4efe0…4f000 4e 46 49 47 4e 41 4d 45 2c 31 2c 32 29 2d 27 43 55 53 5f 27 2d 24 28 43 4f 4e 46 49 47 4e 41 4d ┆NFIGNAME,1,2)-'CUS_'-$(CONFIGNAM┆
0x4f000…4f200 (39, 1, 1) 0xe5[0x200]
[…0x7…]
0x50000…50080 (40, 0, 1) DataBlock {»REP.PRG«}
0x50080…500a0 20 53 41 59 20 27 49 4e 53 45 52 54 49 4e 47 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 46 52 4f 4d ┆ SAY 'INSERTING INFORMATION FROM┆
0x500a0…500c0 20 43 55 53 54 4f 4d 20 44 45 53 49 47 4e 45 44 20 50 41 52 54 53 4c 49 53 54 27 0d 0a 20 20 20 ┆ CUSTOM DESIGNED PARTSLIST' ┆
0x500c0…500e0 53 45 4c 45 43 54 20 53 45 43 4f 4e 44 41 52 59 0d 0a 20 20 20 55 53 45 20 26 4d 43 55 53 0d 0a ┆SELECT SECONDARY USE &MCUS ┆
0x500e0…50100 20 20 20 53 45 4c 45 43 54 20 50 52 49 4d 41 52 59 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 2e ┆ SELECT PRIMARY DO WHILE .┆
0x50100…50120 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 53 45 43 4f 4e 44 41 52 59 0d ┆NOT.EOF SELECT SECONDARY ┆
0x50120…50140 0a 20 20 20 20 20 20 4c 4f 43 41 54 45 20 46 4f 52 20 53 2e 52 45 46 3a 43 4f 44 45 3d 50 2e 52 ┆ LOCATE FOR S.REF:CODE=P.R┆
0x50140…50160 45 46 3a 43 4f 44 45 0d 0a 20 20 20 20 20 20 40 20 31 2c 35 35 20 53 41 59 20 50 2e 52 45 46 3a ┆EF:CODE @ 1,55 SAY P.REF:┆
0x50160…50180 43 4f 44 45 20 55 53 49 4e 47 20 27 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 53 45 4c 45 43 ┆CODE USING 'XXXXXX' SELEC┆
0x50180…501a0 54 20 50 52 49 4d 41 52 59 0d 0a 20 20 20 20 20 20 49 46 20 53 2e 52 45 46 3a 43 4f 44 45 3d 50 ┆T PRIMARY IF S.REF:CODE=P┆
0x501a0…501c0 2e 52 45 46 3a 43 4f 44 45 0d 0a 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 ┆.REF:CODE ┆
0x501c0…501e0 52 45 50 4c 41 43 45 20 50 2e 47 45 4e 3a 4e 41 4d 45 20 57 49 54 48 20 53 2e 47 45 4e 3a 4e 41 ┆REPLACE P.GEN:NAME WITH S.GEN:NA┆
0x501e0…50200 4d 45 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 53 50 45 43 3a 43 4f 44 45 ┆ME REPLACE P.SPEC:CODE┆
0x50200…50220 (40, 0, 2) 20 57 49 54 48 20 53 2e 53 50 45 43 3a 43 4f 44 45 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 4c ┆ WITH S.SPEC:CODE REPL┆
0x50220…50240 41 43 45 20 50 2e 43 56 41 4c 55 45 20 20 57 49 54 48 20 53 2e 43 56 41 4c 55 45 0d 0a 20 20 20 ┆ACE P.CVALUE WITH S.CVALUE ┆
0x50240…50260 20 20 20 20 20 20 44 4f 20 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 ┆ DO CASE CASE ┆
0x50260…50280 4d 44 42 41 53 45 3d 27 44 50 4c 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 ┆MDBASE='DPL' R┆
0x50280…502a0 45 50 4c 41 43 45 20 50 2e 44 52 41 57 49 4e 47 20 57 49 54 48 20 53 2e 44 52 41 57 49 4e 47 0d ┆EPLACE P.DRAWING WITH S.DRAWING ┆
0x502a0…502c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 4d 41 49 4e ┆ REPLACE P.MAIN┆
0x502c0…502e0 3a 43 48 41 52 20 57 49 54 48 20 53 2e 4d 41 49 4e 3a 43 48 41 52 0d 0a 20 20 20 20 20 20 20 20 ┆:CHAR WITH S.MAIN:CHAR ┆
0x502e0…50300 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 43 50 50 3a 4e 4f 20 57 49 54 48 20 53 ┆ REPLACE P.CPP:NO WITH S┆
0x50300…50320 2e 43 50 50 3a 4e 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 ┆.CPP:NO REPLAC┆
0x50320…50340 45 20 52 45 51 55 49 52 45 44 20 57 49 54 48 20 43 4f 55 4e 54 45 52 2a 55 4e 49 54 4d 55 4c 54 ┆E REQUIRED WITH COUNTER*UNITMULT┆
0x50340…50360 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 53 2e 41 54 54 52 49 54 49 4f ┆ IF S.ATTRITIO┆
0x50360…50380 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 24 28 50 50 4c 4e ┆N IF $(PPLN┆
0x50380…503a0 41 4d 45 2c 33 2c 34 29 3d 27 54 4c 43 32 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AME,3,4)='TLC2' ┆
0x503a0…503c0 20 20 20 20 20 20 20 20 44 4f 20 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DO CASE ┆
0x503c0…503e0 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 44 3c 31 31 0d 0a 20 20 20 ┆ CASE REQUIRED<11 ┆
0x503e0…50400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 ┆ REPLAC┆
0x50400…50420 (40, 0, 3) 45 20 4e 41 54 54 52 20 57 49 54 48 20 49 4e 54 28 30 2e 36 30 2a 52 45 51 55 49 52 45 44 2b 30 ┆E NATTR WITH INT(0.60*REQUIRED+0┆
0x50420…50440 2e 35 2a 43 4f 55 4e 54 45 52 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.5*COUNTER) ┆
0x50440…50460 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 44 3c 33 31 0d 0a 20 20 20 20 20 20 20 ┆ CASE REQUIRED<31 ┆
0x50460…50480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 ┆ REPLACE NA┆
0x50480…504a0 54 54 52 20 57 49 54 48 20 49 4e 54 28 30 2e 33 30 2a 52 45 51 55 49 52 45 44 2b 30 2e 35 2a 43 ┆TTR WITH INT(0.30*REQUIRED+0.5*C┆
0x504a0…504c0 4f 55 4e 54 45 52 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OUNTER) ┆
0x504c0…504e0 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 44 3c 31 30 31 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ CASE REQUIRED<101 ┆
0x504e0…50500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 ┆ REPLACE NATTR┆
0x50500…50520 20 57 49 54 48 20 49 4e 54 28 30 2e 32 35 2a 52 45 51 55 49 52 45 44 2b 30 2e 35 2a 43 4f 55 4e ┆ WITH INT(0.25*REQUIRED+0.5*COUN┆
0x50520…50540 54 45 52 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TER) ┆
0x50540…50560 4f 54 48 45 52 57 49 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OTHERWISE ┆
0x50560…50580 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 49 4e 54 28 30 ┆ REPLACE NATTR WITH INT(0┆
0x50580…505a0 2e 32 30 2a 52 45 51 55 49 52 45 44 2b 30 2e 35 2a 43 4f 55 4e 54 45 52 29 0d 0a 20 20 20 20 20 ┆.20*REQUIRED+0.5*COUNTER) ┆
0x505a0…505c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 20 20 20 ┆ ENDCASE ┆
0x505c0…505e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x505e0…50600 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ DO CASE ┆
0x50600…50620 (40, 0, 4) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 44 3c 35 0d 0a ┆ CASE REQUIRED<5 ┆
0x50620…50640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 ┆ REP┆
0x50640…50660 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 52 45 51 55 49 52 45 44 0d 0a 20 20 20 20 20 20 ┆LACE NATTR WITH REQUIRED ┆
0x50660…50680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 ┆ CASE REQUIRE┆
0x50680…506a0 44 3c 31 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D<11 ┆
0x506a0…506c0 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 49 4e 54 28 30 2e 36 30 2a 52 ┆ REPLACE NATTR WITH INT(0.60*R┆
0x506c0…506e0 45 51 55 49 52 45 44 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EQUIRED) ┆
0x506e0…50700 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 44 3c 33 31 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ CASE REQUIRED<31 ┆
0x50700…50720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 ┆ REPLACE NATTR┆
0x50720…50740 20 57 49 54 48 20 49 4e 54 28 30 2e 33 30 2a 52 45 51 55 49 52 45 44 29 0d 0a 20 20 20 20 20 20 ┆ WITH INT(0.30*REQUIRED) ┆
0x50740…50760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 ┆ CASE REQUIRE┆
0x50760…50780 44 3c 31 30 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D<101 ┆
0x50780…507a0 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 49 4e 54 28 30 2e 32 35 2a ┆ REPLACE NATTR WITH INT(0.25*┆
0x507a0…507c0 52 45 51 55 49 52 45 44 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆REQUIRED) ┆
0x507c0…507e0 20 20 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OTHERWISE ┆
0x507e0…50800 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 ┆ REPLACE NATTR WITH ┆
0x50800…50a00 (40, 0, 5) DataBlock {»COMPSOT.PRG«}
[…0x1…]
0x50c00…50c20 (40, 0, 7) 30 0d 0a 20 20 20 20 20 20 20 20 20 40 20 32 32 2c 30 20 53 41 59 20 27 52 45 54 55 52 4e 20 46 ┆0 @ 22,0 SAY 'RETURN F┆
0x50c20…50c40 4f 52 20 4d 4f 52 45 20 4f 55 54 50 55 54 27 20 47 45 54 20 44 55 4d 4d 59 0d 0a 20 20 20 20 20 ┆OR MORE OUTPUT' GET DUMMY ┆
0x50c40…50c60 20 20 20 20 52 45 41 44 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 34 20 54 4f 20 4d 52 ┆ READ STORE 4 TO MR┆
0x50c60…50c80 4f 57 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 44 45 4c 45 54 45 0d 0a 20 ┆OW ENDIF DELETE ┆
0x50c80…50ca0 20 20 20 20 20 43 4f 4e 54 49 4e 55 45 0d 0a 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 44 4f 20 57 ┆ CONTINUE ENDDO DO W┆
0x50ca0…50cc0 48 49 4c 45 20 4d 52 4f 57 20 3c 3d 32 30 0d 0a 20 20 20 20 20 20 40 20 4d 52 4f 57 2c 4d 43 4f ┆HILE MROW <=20 @ MROW,MCO┆
0x50cc0…50ce0 4c 20 53 41 59 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L SAY ' ┆
0x50ce0…50d00 20 20 20 20 20 20 20 20 20 20 27 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 4d 52 4f 57 2b 32 20 ┆ ' STORE MROW+2 ┆
0x50d00…50d20 54 4f 20 4d 52 4f 57 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 4d 43 4f 4c 0d 0a ┆TO MROW STORE 1 TO MCOL ┆
0x50d20…50d40 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 40 20 32 32 2c 30 20 53 41 59 20 27 20 20 20 20 20 20 52 ┆ ENDDO @ 22,0 SAY ' R┆
0x50d40…50d60 45 54 55 52 4e 20 54 4f 20 43 4f 4e 54 49 4e 55 45 27 20 47 45 54 20 44 55 4d 4d 59 0d 0a 20 20 ┆ETURN TO CONTINUE' GET DUMMY ┆
0x50d60…50d80 20 52 45 41 44 0d 0a 45 4e 44 49 46 0d 0a 52 45 4c 45 41 53 45 20 44 55 4d 4d 59 0d 0a 2a 52 45 ┆ READ ENDIF RELEASE DUMMY *RE┆
0x50d80…50da0 54 55 52 4e 0d 0a 53 45 54 20 44 45 4c 45 54 45 44 20 4f 46 46 0d 0a 52 45 43 41 4c 4c 20 41 4c ┆TURN SET DELETED OFF RECALL AL┆
0x50da0…50dc0 4c 0d 0a 53 45 4c 45 43 54 20 53 45 43 4f 4e 44 41 52 59 0d 0a 55 53 45 0d 0a 53 45 4c 45 43 54 ┆L SELECT SECONDARY USE SELECT┆
0x50dc0…50de0 20 50 52 49 4d 0d 0a 55 53 45 20 26 4f 50 45 52 44 42 46 0d 0a 52 45 54 55 52 4e 0d 0a 0d 0a 0d ┆ PRIM USE &OPERDBF RETURN ┆
0x50de0…50e00 0a 0d 0a 1a 1a 48 41 52 0d 0a 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 44 42 41 53 45 3d 27 ┆ HAR CASE MDBASE='┆
0x50e00…51000 (40, 0, 8) 0xe5[0x200]
[…0x8…]
0x52000…52200 (41, 0, 1) DataBlock {»BCKTRACE.PRG«}
0x52200…52220 (41, 0, 2) 43 52 45 41 54 45 44 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 20 20 20 45 52 41 53 45 0d 0a 20 20 ┆CREATED' TO STATUS ERASE ┆
0x52220…52240 20 53 45 4c 45 20 50 52 49 4d 0d 0a 20 20 20 40 20 31 30 2c 31 30 20 53 41 59 20 27 43 4f 4e 56 ┆ SELE PRIM @ 10,10 SAY 'CONV┆
0x52240…52260 45 52 53 49 4f 4e 20 46 52 4f 4d 20 50 4c 4c 20 54 4f 20 4b 49 54 20 48 41 53 20 42 45 45 4e 20 ┆ERSION FROM PLL TO KIT HAS BEEN ┆
0x52260…52280 53 54 41 52 54 45 44 27 0d 0a 20 20 20 53 54 4f 52 45 20 24 28 4f 50 45 52 44 42 46 2c 31 2c 31 ┆STARTED' STORE $(OPERDBF,1,1┆
0x52280…522a0 30 29 2b 27 2e 4b 49 54 27 20 54 4f 20 4d 4b 49 54 4e 41 4d 45 0d 0a 20 20 20 49 46 20 46 49 4c ┆0)+'.KIT' TO MKITNAME IF FIL┆
0x522a0…522c0 45 28 4d 4b 49 54 4e 41 4d 45 29 0d 0a 20 20 20 20 20 20 44 45 4c 45 54 45 20 46 49 4c 45 20 26 ┆E(MKITNAME) DELETE FILE &┆
0x522c0…522e0 4d 4b 49 54 4e 41 4d 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 27 4f 4c 44 20 4b 49 54 2d 4c ┆MKITNAME STORE 'OLD KIT-L┆
0x522e0…52300 49 53 54 20 44 45 4c 45 54 45 44 20 2d 2d 2d 20 4e 45 57 20 43 52 45 41 54 45 44 27 20 54 4f 20 ┆IST DELETED --- NEW CREATED' TO ┆
0x52300…52320 53 54 41 54 55 53 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 55 53 45 20 4b 49 54 5f 53 54 52 ┆STATUS ENDIF USE KIT_STR┆
0x52320…52340 55 0d 0a 20 20 20 43 4f 50 59 20 53 54 52 55 20 54 4f 20 26 4d 4b 49 54 4e 41 4d 45 0d 0a 20 20 ┆U COPY STRU TO &MKITNAME ┆
0x52340…52360 20 43 4f 50 59 20 53 54 52 55 20 54 4f 20 44 3a 53 4f 54 52 45 46 53 0d 0a 20 20 20 43 4f 50 59 ┆ COPY STRU TO D:SOTREFS COPY┆
0x52360…52380 20 53 54 52 55 20 54 4f 20 44 3a 53 4f 54 57 4f 52 4b 0d 0a 20 20 20 55 53 45 20 26 4d 4b 49 54 ┆ STRU TO D:SOTWORK USE &MKIT┆
0x52380…523a0 4e 41 4d 45 0d 0a 20 20 20 41 50 50 45 4e 44 20 46 52 4f 4d 20 26 4f 50 45 52 44 42 46 20 46 4f ┆NAME APPEND FROM &OPERDBF FO┆
0x523a0…523c0 52 20 2e 4e 4f 54 2e 27 53 4f 54 27 24 52 45 46 3a 43 4f 44 45 0d 0a 20 20 20 52 45 50 4c 41 43 ┆R .NOT.'SOT'$REF:CODE REPLAC┆
0x523c0…523e0 45 20 41 4c 4c 20 43 4f 55 4e 54 45 52 20 57 49 54 48 20 31 0d 0a 20 20 20 55 53 45 20 44 3a 53 ┆E ALL COUNTER WITH 1 USE D:S┆
0x523e0…52400 4f 54 57 4f 52 4b 0d 0a 20 20 20 41 50 50 45 4e 44 20 46 52 4f 4d 20 26 4f 50 45 52 44 42 46 20 ┆OTWORK APPEND FROM &OPERDBF ┆
0x52400…52420 (41, 0, 3) 46 4f 52 20 24 28 52 45 46 3a 43 4f 44 45 2c 31 2c 33 29 3d 27 53 4f 54 27 0d 0a 20 20 20 49 46 ┆FOR $(REF:CODE,1,3)='SOT' IF┆
0x52420…52440 20 23 3e 30 0d 0a 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 41 4c 4c 20 52 45 46 3a 44 45 53 20 ┆ #>0 REPLACE ALL REF:DES ┆
0x52440…52460 57 49 54 48 20 54 52 49 4d 28 52 45 46 3a 44 45 53 29 2d 27 28 27 2d 54 52 49 4d 28 52 45 46 3a ┆WITH TRIM(REF:DES)-'('-TRIM(REF:┆
0x52460…52480 43 4f 44 45 29 2d 27 29 27 0d 0a 20 20 20 20 20 20 49 4e 44 45 58 20 4f 4e 20 56 41 4c 28 24 28 ┆CODE)-')' INDEX ON VAL($(┆
0x52480…524a0 52 45 46 3a 43 4f 44 45 2c 34 2c 33 29 29 20 54 4f 20 44 3a 57 4f 52 4b 0d 0a 20 20 20 20 20 20 ┆REF:CODE,4,3)) TO D:WORK ┆
0x524a0…524c0 43 4f 50 59 20 54 4f 20 44 3a 53 4f 54 52 45 46 53 0d 0a 20 20 20 20 20 20 55 53 45 20 44 3a 53 ┆COPY TO D:SOTREFS USE D:S┆
0x524c0…524e0 4f 54 52 45 46 53 0d 0a 20 20 20 20 20 20 47 4f 20 54 4f 50 0d 0a 20 20 20 20 20 20 44 4f 20 57 ┆OTREFS GO TOP DO W┆
0x524e0…52500 48 49 4c 45 20 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 23 20 ┆HILE .NOT.EOF STORE # ┆
0x52500…52520 54 4f 20 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 23 20 54 4f ┆TO MCURRENT STORE # TO┆
0x52520…52540 20 4d 4c 41 53 54 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 4d 43 0d 0a ┆ MLAST STORE 1 TO MC ┆
0x52540…52560 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 54 52 49 4d 28 52 45 46 3a 44 45 53 29 20 54 4f 20 ┆ STORE TRIM(REF:DES) TO ┆
0x52560…52580 4d 44 45 53 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 52 45 46 3a 43 4f 44 45 20 54 4f ┆MDES STORE REF:CODE TO┆
0x52580…525a0 20 4d 52 45 46 0d 0a 20 20 20 20 20 20 20 20 20 53 4b 49 50 0d 0a 20 20 20 20 20 20 20 20 20 44 ┆ MREF SKIP D┆
0x525a0…525c0 4f 20 57 48 49 4c 45 20 52 45 46 3a 43 4f 44 45 3d 4d 52 45 46 2e 41 4e 44 2e 23 3e 4d 4c 41 53 ┆O WHILE REF:CODE=MREF.AND.#>MLAS┆
0x525c0…525e0 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 4d 44 45 53 2d 27 2c 27 2d 54 52 ┆T STORE MDES-','-TR┆
0x525e0…52600 49 4d 28 52 45 46 3a 44 45 53 29 20 54 4f 20 4d 44 45 53 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆IM(REF:DES) TO MDES ┆
0x52600…52620 (41, 0, 4) 20 53 54 4f 52 45 20 23 20 54 4f 20 4d 4c 41 53 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆ STORE # TO MLAST S┆
0x52620…52640 54 4f 52 45 20 4d 43 2b 31 20 54 4f 20 4d 43 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4c ┆TORE MC+1 TO MC DEL┆
0x52640…52660 45 54 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 4b 49 50 0d 0a 20 20 20 20 20 20 20 20 20 ┆ETE SKIP ┆
0x52660…52680 45 4e 44 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 47 4f 20 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 ┆ENDDO GO MCURRENT ┆
0x52680…526a0 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 52 45 46 3a 44 45 53 20 57 49 54 48 20 4d 44 45 53 2c ┆ REPLACE REF:DES WITH MDES,┆
0x526a0…526c0 20 43 4f 55 4e 54 45 52 20 57 49 54 48 20 4d 43 0d 0a 20 20 20 20 20 20 20 20 20 47 4f 20 4d 4c ┆ COUNTER WITH MC GO ML┆
0x526c0…526e0 41 53 54 0d 0a 20 20 20 20 20 20 20 20 20 53 4b 49 50 0d 0a 20 20 20 20 20 20 45 4e 44 44 4f 0d ┆AST SKIP ENDDO ┆
0x526e0…52700 0a 20 20 20 20 20 20 50 41 43 4b 0d 0a 20 20 20 20 20 20 47 4f 20 54 4f 50 0d 0a 20 20 20 20 20 ┆ PACK GO TOP ┆
0x52700…52720 20 53 45 4c 45 20 53 45 43 4f 0d 0a 20 20 20 20 20 20 55 53 45 20 4b 49 54 5f 53 54 52 55 0d 0a ┆ SELE SECO USE KIT_STRU ┆
0x52720…52740 20 20 20 20 20 20 43 4f 50 59 20 53 54 52 55 20 54 4f 20 44 3a 53 4f 54 57 4f 52 4b 0d 0a 20 20 ┆ COPY STRU TO D:SOTWORK ┆
0x52740…52760 20 20 20 20 55 53 45 20 44 3a 53 4f 54 57 4f 52 4b 0d 0a 20 20 20 20 20 20 53 45 4c 45 20 50 52 ┆ USE D:SOTWORK SELE PR┆
0x52760…52780 49 4d 0d 0a 20 20 20 20 20 20 44 4f 20 57 48 49 4c 45 20 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 ┆IM DO WHILE .NOT.EOF ┆
0x52780…527a0 20 20 20 20 20 20 53 45 4c 45 20 50 52 49 4d 0d 0a 20 20 20 20 20 20 20 20 20 49 46 20 56 41 4c ┆ SELE PRIM IF VAL┆
0x527a0…527c0 28 24 28 52 45 46 3a 43 4f 44 45 2c 34 2c 32 29 29 3c 31 30 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆($(REF:CODE,4,2))<10 ┆
0x527c0…527e0 20 20 53 54 4f 52 45 20 31 20 54 4f 20 58 0d 0a 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 ┆ STORE 1 TO X ELSE ┆
0x527e0…52800 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 32 20 54 4f 20 58 0d 0a 20 20 20 20 20 20 20 ┆ STORE 2 TO X ┆
0x52800…52a00 (41, 0, 5) DataBlock {»PRINTOPT.PRG«}
[…0x3…]
0x53000…53200 (41, 1, 1) 0xe5[0x200]
[…0x7…]
0x54000…54080 (42, 0, 1) DataBlock {»PRINTOPT.PRG«}
0x54080…540a0 20 44 45 4c 45 54 45 20 46 49 4c 45 20 44 3a 53 4f 54 57 4f 52 4b 0d 0a 20 20 20 43 4f 50 59 20 ┆ DELETE FILE D:SOTWORK COPY ┆
0x540a0…540c0 54 4f 20 26 4d 4b 49 54 4e 41 4d 45 0d 0a 20 20 20 55 53 45 0d 0a 20 20 20 44 45 4c 45 54 45 20 ┆TO &MKITNAME USE DELETE ┆
0x540c0…540e0 46 49 4c 45 20 44 3a 57 4f 52 4b 0d 0a 20 20 20 45 4e 44 49 46 20 20 20 20 20 0d 0a 45 4c 53 45 ┆FILE D:WORK ENDIF ELSE┆
0x540e0…54100 0d 0a 20 20 20 53 54 4f 52 45 20 27 50 4c 4c 20 4d 55 53 54 20 42 45 20 52 45 53 49 44 45 4e 54 ┆ STORE 'PLL MUST BE RESIDENT┆
0x54100…54120 20 4f 4e 20 53 45 4c 45 43 54 45 44 20 55 4e 49 54 2d 44 52 49 56 45 27 20 54 4f 20 53 54 41 54 ┆ ON SELECTED UNIT-DRIVE' TO STAT┆
0x54120…54140 55 53 0d 0a 45 4e 44 49 46 0d 0a 52 45 4c 45 41 53 45 20 41 4c 4c 20 4c 49 4b 45 20 4d 2a 0d 0a ┆US ENDIF RELEASE ALL LIKE M* ┆
0x54140…54160 52 45 54 55 52 4e 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆RETURN ┆
0x54160…54180 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
0x54180…541a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x54200…54400 (42, 0, 2) 0xe5[0x200]
[…0x2…]
0x54800…54a00 (42, 0, 5) DataBlock {»MERG.PRG«}
[…0x3…]
0x55000…55200 (42, 1, 1) 0xe5[0x200]
[…0x7…]
0x56000…56200 (43, 0, 1) DataBlock {»MERG.PRG«}
[…0x1…]
0x56280…562a0 41 4d 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 27 4f 4c 44 20 4b 49 54 2d 4c 49 53 54 20 44 ┆AME STORE 'OLD KIT-LIST D┆
0x562a0…562c0 45 4c 45 54 45 44 20 2d 2d 2d 20 4e 45 57 20 43 52 45 41 54 45 44 27 20 54 4f 20 53 54 41 54 55 ┆ELETED --- NEW CREATED' TO STATU┆
0x562c0…562e0 53 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 55 53 45 20 4b 49 54 5f 53 54 52 55 0d 0a 20 20 ┆S ENDIF USE KIT_STRU ┆
0x562e0…56300 20 43 4f 50 59 20 53 54 52 55 20 54 4f 20 26 4d 4b 49 54 4e 41 4d 45 0d 0a 20 20 20 55 53 45 20 ┆ COPY STRU TO &MKITNAME USE ┆
0x56300…56320 26 4d 4b 49 54 4e 41 4d 45 0d 0a 20 20 20 41 50 50 45 4e 44 20 46 52 4f 4d 20 26 4f 50 45 52 44 ┆&MKITNAME APPEND FROM &OPERD┆
0x56320…56340 42 46 0d 0a 20 20 20 49 4e 44 45 58 20 4f 4e 20 52 45 46 3a 43 4f 44 45 2b 53 54 52 28 4e 56 41 ┆BF INDEX ON REF:CODE+STR(NVA┆
0x56340…56360 4c 55 45 2c 31 33 2c 34 29 2b 52 41 54 45 44 3a 56 4f 4c 54 2b 54 4f 4c 45 52 41 4e 43 45 20 54 ┆LUE,13,4)+RATED:VOLT+TOLERANCE T┆
0x56360…56380 4f 20 57 4f 52 4b 0d 0a 20 20 20 43 4f 50 59 20 54 4f 20 57 4f 52 4b 0d 0a 20 20 20 55 53 45 20 ┆O WORK COPY TO WORK USE ┆
0x56380…563a0 57 4f 52 4b 0d 0a 20 20 20 44 45 4c 45 54 45 20 46 49 4c 45 20 26 4d 4b 49 54 4e 41 4d 45 0d 0a ┆WORK DELETE FILE &MKITNAME ┆
0x563a0…563c0 20 20 20 41 50 50 45 4e 44 20 42 4c 41 4e 4b 0d 0a 20 20 20 47 4f 20 42 4f 54 54 0d 0a 20 20 20 ┆ APPEND BLANK GO BOTT ┆
0x563c0…563e0 44 45 4c 45 54 45 0d 0a 20 20 20 53 54 4f 52 45 20 23 20 54 4f 20 4d 45 4e 44 0d 0a 20 20 20 47 ┆DELETE STORE # TO MEND G┆
0x563e0…56400 4f 20 54 4f 50 0d 0a 20 20 20 53 54 4f 52 45 20 27 52 45 46 3a 43 4f 44 45 3d 4d 52 45 46 2e 41 ┆O TOP STORE 'REF:CODE=MREF.A┆
0x56400…56420 (43, 0, 3) 4e 44 2e 54 4f 4c 45 52 41 4e 43 45 3d 4d 54 4f 4c 2e 41 4e 44 2e 4e 56 41 4c 55 45 3d 4d 56 41 ┆ND.TOLERANCE=MTOL.AND.NVALUE=MVA┆
0x56420…56440 4c 2e 41 4e 44 2e 52 41 54 45 44 3a 56 4f 4c 54 3d 4d 52 41 54 3b 0d 0a 27 20 54 4f 20 4d 43 52 ┆L.AND.RATED:VOLT=MRAT; ' TO MCR┆
0x56440…56460 49 54 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 ┆IT DO WHILE .NOT.EOF ┆
0x56460…56480 53 54 4f 52 45 20 23 20 54 4f 20 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 ┆STORE # TO MCURRENT STORE┆
0x56480…564a0 20 52 45 46 3a 43 4f 44 45 20 54 4f 20 4d 52 45 46 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 4e ┆ REF:CODE TO MREF STORE N┆
0x564a0…564c0 56 41 4c 55 45 20 54 4f 20 4d 56 41 4c 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 54 4f 4c 45 52 ┆VALUE TO MVAL STORE TOLER┆
0x564c0…564e0 41 4e 43 45 20 54 4f 20 4d 54 4f 4c 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 52 41 54 45 44 3a ┆ANCE TO MTOL STORE RATED:┆
0x564e0…56500 56 4f 4c 54 20 54 4f 20 4d 52 41 54 0d 0a 20 20 20 20 20 20 43 4f 55 4e 54 20 57 48 49 4c 45 20 ┆VOLT TO MRAT COUNT WHILE ┆
0x56500…56520 26 4d 43 52 49 54 20 54 4f 20 4d 43 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 23 20 54 4f 20 4d ┆&MCRIT TO MC STORE # TO M┆
0x56520…56540 4c 49 4d 0d 0a 20 20 20 20 20 20 47 4f 20 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 20 20 20 52 45 ┆LIM GO MCURRENT RE┆
0x56540…56560 50 4c 41 43 45 20 43 4f 55 4e 54 45 52 20 57 49 54 48 20 4d 43 0d 0a 20 20 20 20 20 20 49 46 20 ┆PLACE COUNTER WITH MC IF ┆
0x56560…56580 4d 43 3e 31 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 54 52 49 4d 28 24 28 52 45 46 3a ┆MC>1 STORE TRIM($(REF:┆
0x56580…565a0 44 45 53 2c 31 2c 36 29 29 20 54 4f 20 4d 44 45 53 0d 0a 20 20 20 20 20 20 20 20 20 53 4b 49 50 ┆DES,1,6)) TO MDES SKIP┆
0x565a0…565c0 0d 0a 20 20 20 20 20 20 20 20 20 44 4f 20 57 48 49 4c 45 20 23 3c 4d 4c 49 4d 0d 0a 20 20 20 20 ┆ DO WHILE #<MLIM ┆
0x565c0…565e0 20 20 20 20 20 20 20 20 49 46 20 4c 45 4e 28 4d 44 45 53 29 3c 32 34 37 0d 0a 20 20 20 20 20 20 ┆ IF LEN(MDES)<247 ┆
0x565e0…56600 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 54 52 49 4d 28 4d 44 45 53 2d 27 2c 27 2d 24 28 52 ┆ STORE TRIM(MDES-','-$(R┆
0x56600…56620 (43, 0, 4) 45 46 3a 44 45 53 2c 31 2c 36 29 29 20 54 4f 20 4d 44 45 53 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆EF:DES,1,6)) TO MDES ┆
0x56620…56640 20 20 20 20 20 44 45 4c 45 54 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 ┆ DELETE ELSE ┆
0x56640…56660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 23 20 54 4f 20 4d 43 55 52 32 0d 0a ┆ STORE # TO MCUR2 ┆
0x56660…56680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 20 ┆ GO MCURRENT ┆
0x56680…566a0 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 52 45 46 3a 44 45 53 20 57 49 54 48 20 ┆ REPLACE REF:DES WITH ┆
0x566a0…566c0 4d 44 45 53 2d 27 24 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 4d 43 55 52 ┆MDES-'$' GO MCUR┆
0x566c0…566e0 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 4d 43 55 52 32 20 54 4f ┆2 STORE MCUR2 TO┆
0x566e0…56700 20 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 ┆ MCURRENT STORE ┆
0x56700…56720 54 52 49 4d 28 24 28 52 45 46 3a 44 45 53 2c 31 2c 36 29 29 20 54 4f 20 4d 44 45 53 0d 0a 20 20 ┆TRIM($(REF:DES,1,6)) TO MDES ┆
0x56720…56740 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 43 4f 55 4e 54 45 52 20 57 49 54 ┆ REPLACE COUNTER WIT┆
0x56740…56760 48 20 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 20 20 ┆H 0 ENDIF ┆
0x56760…56780 20 20 20 20 53 4b 49 50 0d 0a 20 20 20 20 20 20 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 20 20 20 ┆ SKIP ENDDO ┆
0x56780…567a0 20 20 20 47 4f 20 4d 43 55 52 52 45 4e 54 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 ┆ GO MCURRENT REPLACE┆
0x567a0…567c0 20 52 45 46 3a 44 45 53 20 57 49 54 48 20 4d 44 45 53 2d 27 2e 27 0d 0a 20 20 20 20 20 20 45 4e ┆ REF:DES WITH MDES-'.' EN┆
0x567c0…567e0 44 49 46 0d 0a 20 20 20 20 20 20 47 4f 20 4d 43 55 52 52 45 4e 54 2b 31 0d 0a 20 20 20 20 20 20 ┆DIF GO MCURRENT+1 ┆
0x567e0…56800 44 4f 20 57 48 49 4c 45 20 2a 2e 41 4e 44 2e 2e 4e 4f 54 2e 45 4f 46 0d 0a 20 20 20 20 20 20 20 ┆DO WHILE *.AND..NOT.EOF ┆
0x56800…56a00 (43, 0, 5) DataBlock {»SPRK.PRG«}
[…0x3…]
0x57000…57200 (43, 1, 1) 0xe5[0x200]
[…0x7…]
0x58000…58200 (44, 0, 1) DataBlock {»MAKER.PRG«}
[…0x7…]
0x59000…59200 (44, 1, 1) 0xe5[0x200]
[…0x7…]
0x5a000…5a200 (45, 0, 1) DataBlock {»OLDCKIT.PRG«}
[…0x3…]
0x5a800…5aa00 (45, 0, 5) DataBlock {»REVDPL.PRG«}
[…0x1…]
0x5ac00…5ac20 (45, 0, 7) 20 46 49 4c 45 50 4f 49 4e 54 45 52 20 43 4f 4e 53 49 53 54 53 20 4f 46 20 46 4f 55 52 20 41 4c ┆ FILEPOINTER CONSISTS OF FOUR AL┆
0x5ac20…5ac40 50 48 41 2d 43 48 41 52 41 43 54 45 52 53 27 0d 0a 40 20 32 31 2c 31 30 20 53 41 59 20 27 49 54 ┆PHA-CHARACTERS' @ 21,10 SAY 'IT┆
0x5ac40…5ac60 20 49 53 20 55 4e 49 51 55 45 20 54 4f 20 54 48 45 20 55 4e 49 54 20 43 4f 4e 43 45 52 4e 45 44 ┆ IS UNIQUE TO THE UNIT CONCERNED┆
0x5ac60…5ac80 20 41 4e 44 20 44 45 46 49 4e 45 53 20 54 48 45 20 4d 4f 44 55 4c 45 53 20 49 4e 20 49 54 27 0d ┆ AND DEFINES THE MODULES IN IT' ┆
0x5ac80…5aca0 0a 52 45 41 44 0d 0a 0d 0a 53 54 4f 52 45 20 21 28 43 4f 4e 46 49 47 4e 41 4d 45 29 20 54 4f 20 ┆ READ STORE !(CONFIGNAME) TO ┆
0x5aca0…5acc0 43 4f 4e 46 49 47 4e 41 4d 45 0d 0a 0d 0a 2a 45 4e 44 20 4f 46 20 27 41 43 43 45 50 54 20 55 53 ┆CONFIGNAME *END OF 'ACCEPT US┆
0x5acc0…5ace0 45 52 44 45 46 49 4e 45 44 20 46 49 4c 45 50 41 52 41 4d 45 54 45 52 53 0d 0a 53 54 4f 52 45 20 ┆ERDEFINED FILEPARAMETERS STORE ┆
0x5ace0…5ad00 27 53 59 53 54 45 4d 27 20 54 4f 20 53 54 41 54 55 53 0d 0a 53 45 54 20 44 41 54 45 20 54 4f 20 ┆'SYSTEM' TO STATUS SET DATE TO ┆
0x5ad00…5ad20 26 44 41 54 4f 0d 0a 53 54 4f 52 45 20 55 44 49 53 4b 2d 27 3a 27 2d 43 4f 4e 46 49 47 4e 41 4d ┆&DATO STORE UDISK-':'-CONFIGNAM┆
0x5ad20…5ad40 45 20 54 4f 20 43 4f 4e 46 49 47 4e 41 4d 45 0d 0a 0d 0a 52 45 54 55 52 4e 0d 0a 0d 0a 1a 1a 20 ┆E TO CONFIGNAME RETURN ┆
0x5ad40…5ad60 42 45 45 4e 20 50 52 49 4e 54 45 44 27 20 54 4f 20 4d 45 53 53 41 47 45 0d 0a 20 20 20 20 20 20 ┆BEEN PRINTED' TO MESSAGE ┆
0x5ad60…5ad80 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 ┆ ELSE STORE '┆
0x5ad80…5ada0 46 49 4c 45 20 44 4f 45 53 20 4e 4f 54 20 45 58 49 53 54 27 20 54 4f 20 4d 45 53 53 41 47 45 0d ┆FILE DOES NOT EXIST' TO MESSAGE ┆
0x5ada0…5adc0 0a 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 43 41 53 45 20 4d 50 ┆ ENDIF CASE MP┆
0x5adc0…5ade0 43 4d 44 3d 27 50 4c 53 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 50 4c 53 ┆CMD='PLS' STORE 'PLS┆
0x5ade0…5ae00 27 20 54 4f 20 4d 45 58 54 45 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 47 45 54 53 4f ┆' TO MEXTEN DO GETSO┆
0x5ae00…5b000 (45, 0, 8) 0xe5[0x200]
[…0x8…]
0x5c000…5c200 (46, 0, 1) DataBlock {»SUMDEL.PRG«}
[…0x3…]
0x5c800…5ca00 (46, 0, 5) DataBlock {»PFIL.PRG«}
[…0x3…]
0x5d000…5d200 (46, 1, 1) 0xe5[0x200]
[…0x7…]
0x5e000…5e200 (47, 0, 1) DataBlock {»PFIL.PRG«}
[…0x6…]
0x5ee00…5f000 (47, 0, 8) 0xe5[0x200]
[…0x8…]
0x60000…60200 (48, 0, 1) DataBlock {»PPLSEARC.PRG«}
[…0x3…]
0x60800…60a00 (48, 0, 5) DataBlock {»REPL*.PRG«}
0x60a00…60a20 (48, 0, 6) 31 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆12 ┆
0x60a20…60a40 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OTHERWISE ┆
0x60a40…60a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 ┆ REPLACE NATTR ┆
0x60a60…60a80 57 49 54 48 20 31 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆WITH 10 ┆
0x60a80…60aa0 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ENDCASE ┆
0x60aa0…60ac0 20 20 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OTHERWISE ┆
0x60ac0…60ae0 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ DO CASE ┆
0x60ae0…60b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 ┆ CASE REQUIRE┆
0x60b00…60b20 44 3c 33 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D<3 ┆
0x60b20…60b40 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 37 0d 0a 20 ┆ REPLACE NATTR WITH 7 ┆
0x60b40…60b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 ┆ CA┆
0x60b60…60b80 53 45 20 52 45 51 55 49 52 45 44 3c 31 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SE REQUIRED<11 ┆
0x60b80…60ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 ┆ REPLACE NATT┆
0x60ba0…60bc0 52 20 57 49 54 48 20 31 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R WITH 12 ┆
0x60bc0…60be0 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 52 45 44 3c 32 36 0d 0a 20 20 20 20 ┆ CASE REQUIRED<26 ┆
0x60be0…60c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x60c00…60c20 (48, 0, 7) 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 31 35 0d 0a 20 20 20 20 20 20 20 20 20 ┆REPLACE NATTR WITH 15 ┆
0x60c20…60c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 53 45 20 52 45 51 55 49 ┆ CASE REQUI┆
0x60c40…60c60 52 45 44 3c 35 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RED<51 ┆
0x60c60…60c80 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 32 ┆ REPLACE NATTR WITH 2┆
0x60c80…60ca0 32 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆2 ┆
0x60ca0…60cc0 20 20 43 41 53 45 20 52 45 51 55 49 52 45 44 3c 31 30 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ CASE REQUIRED<101 ┆
0x60cc0…60ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 ┆ REPLACE┆
0x60ce0…60d00 20 4e 41 54 54 52 20 57 49 54 48 20 33 33 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ NATTR WITH 33 ┆
0x60d00…60d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 20 20 20 20 20 20 ┆ OTHERWISE ┆
0x60d20…60d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 ┆ RE┆
0x60d40…60d60 50 4c 41 43 45 20 4e 41 54 54 52 20 57 49 54 48 20 34 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆PLACE NATTR WITH 40 ┆
0x60d60…60d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 20 20 20 20 ┆ ENDCASE ┆
0x60d80…60da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ENDCASE ┆
0x60da0…60dc0 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d ┆ ENDIF CASE M┆
0x60dc0…60de0 44 42 41 53 45 3d 27 50 4c 4c 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 ┆DBASE='PLL' REPLA┆
0x60de0…60e00 43 45 20 50 2e 4d 41 4e 55 46 20 57 49 54 48 20 53 2e 4d 41 4e 55 46 0d 0a 20 20 20 20 20 20 20 ┆CE P.MANUF WITH S.MANUF ┆
0x60e00…60e20 (48, 0, 8) 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 4d 41 49 4e 3a 43 48 41 52 20 57 49 54 48 20 ┆ REPLACE P.MAIN:CHAR WITH ┆
0x60e20…60e40 53 2e 4d 41 49 4e 3a 43 48 41 52 0d 0a 20 20 20 20 20 20 20 20 20 43 41 53 45 20 4d 44 42 41 53 ┆S.MAIN:CHAR CASE MDBAS┆
0x60e40…60e60 45 3d 27 4b 49 54 27 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 49 4e 53 45 52 54 20 41 ┆E='KIT' *INSERT A┆
0x60e60…60e80 44 44 49 54 49 4f 4e 41 4c 20 4b 49 54 4c 49 53 54 20 49 4e 46 4f 20 41 53 20 57 41 4e 54 45 44 ┆DDITIONAL KITLIST INFO AS WANTED┆
0x60e80…60ea0 0d 0a 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 50 2e 52 ┆ ENDCASE STORE P.R┆
0x60ea0…60ec0 45 46 3a 43 4f 44 45 20 54 4f 20 4d 52 45 46 0d 0a 20 20 20 20 20 20 49 46 20 2e 4e 4f 54 2e 28 ┆EF:CODE TO MREF IF .NOT.(┆
0x60ec0…60ee0 24 28 4d 52 45 46 2c 31 2c 31 29 24 27 34 35 38 27 29 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 ┆$(MREF,1,1)$'458') REP┆
0x60ee0…60f00 4c 41 43 45 20 50 2e 54 4f 4c 45 52 41 4e 43 45 20 57 49 54 48 20 53 2e 54 4f 4c 45 52 41 4e 43 ┆LACE P.TOLERANCE WITH S.TOLERANC┆
0x60f00…60f20 45 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 50 2e 52 41 54 45 44 3a 56 4f 4c 54 ┆E REPLACE P.RATED:VOLT┆
0x60f20…60f40 20 57 49 54 48 20 53 2e 52 41 54 45 44 3a 56 4f 4c 54 0d 0a 20 20 20 20 20 20 20 20 20 52 45 50 ┆ WITH S.RATED:VOLT REP┆
0x60f40…60f60 4c 41 43 45 20 50 2e 43 56 41 4c 55 45 20 57 49 54 48 20 53 2e 43 56 41 4c 55 45 0d 0a 20 20 20 ┆LACE P.CVALUE WITH S.CVALUE ┆
0x60f60…60f80 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 20 20 20 44 45 4c 45 54 45 0d 0a 20 20 20 45 4e 44 49 46 ┆ ENDIF DELETE ENDIF┆
0x60f80…60fa0 0d 0a 20 20 20 53 45 4c 45 43 54 20 50 52 49 4d 41 52 59 0d 0a 20 20 20 53 4b 49 50 0d 0a 20 20 ┆ SELECT PRIMARY SKIP ┆
0x60fa0…60fc0 20 44 4f 20 57 48 49 4c 45 20 28 2a 2e 4f 52 2e 24 28 52 45 46 3a 43 4f 44 45 2c 31 2c 31 29 3d ┆ DO WHILE (*.OR.$(REF:CODE,1,1)=┆
0x60fc0…60fe0 27 43 27 29 2e 41 4e 44 2e 28 2e 4e 4f 54 2e 45 4f 46 29 0d 0a 20 20 20 20 20 20 53 4b 49 50 0d ┆'C').AND.(.NOT.EOF) SKIP ┆
0x60fe0…61000 0a 20 20 20 45 4e 44 44 4f 0d 0a 45 4e 44 44 4f 0d 0a 0d 0a 0d 0a 2a 49 4e 49 54 49 41 4c 49 5a ┆ ENDDO ENDDO *INITIALIZ┆
0x61000…61200 (48, 1, 1) 0xe5[0x200]
[…0x7…]
0x62000…62200 (49, 0, 1) DataBlock {»DIRE.PRG«}
[…0x4…]
0x62a00…62a20 (49, 0, 6) 0d 0a 0d 0a 2a 4c 49 53 54 20 4d 49 53 49 4e 47 20 44 45 46 49 4e 49 54 49 4f 4e 53 0d 0a 47 4f ┆ *LIST MISING DEFINITIONS GO┆
0x62a20…62a40 20 54 4f 50 0d 0a 53 45 54 20 44 45 4c 45 54 45 44 20 4f 4e 0d 0a 45 52 41 53 45 0d 0a 4c 4f 43 ┆ TOP SET DELETED ON ERASE LOC┆
0x62a40…62a60 41 54 45 20 46 4f 52 20 2e 4e 4f 54 2e 2a 0d 0a 49 46 20 2e 4e 4f 54 2e 2a 0d 0a 20 20 20 45 52 ┆ATE FOR .NOT.* IF .NOT.* ER┆
0x62a60…62a80 41 53 45 0d 0a 20 20 20 53 54 4f 52 45 20 27 20 27 20 54 4f 20 44 55 4d 4d 59 0d 0a 20 20 20 40 ┆ASE STORE ' ' TO DUMMY @┆
0x62a80…62aa0 20 32 2c 31 30 20 53 41 59 20 27 43 4f 4d 50 4f 4e 45 4e 54 53 20 46 4f 52 20 57 49 43 48 20 53 ┆ 2,10 SAY 'COMPONENTS FOR WICH S┆
0x62aa0…62ac0 50 45 43 49 46 49 43 41 54 49 4f 4e 53 20 41 52 45 20 4d 49 53 53 49 4e 47 3a 27 0d 0a 20 20 20 ┆PECIFICATIONS ARE MISSING:' ┆
0x62ac0…62ae0 53 54 4f 52 45 20 34 20 54 4f 20 4d 52 4f 57 0d 0a 20 20 20 53 54 4f 52 45 20 31 30 20 54 4f 20 ┆STORE 4 TO MROW STORE 10 TO ┆
0x62ae0…62b00 4d 43 4f 4c 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 2e 4e 4f 54 2e 2a 0d 0a 20 20 20 20 20 20 ┆MCOL DO WHILE .NOT.* ┆
0x62b00…62b20 40 20 4d 52 4f 57 2c 4d 43 4f 4c 20 53 41 59 20 52 45 46 3a 43 4f 44 45 20 55 53 49 4e 47 20 27 ┆@ MROW,MCOL SAY REF:CODE USING '┆
0x62b20…62b40 58 58 58 58 58 58 27 0d 0a 20 20 20 20 20 20 53 54 4f 52 45 20 4d 43 4f 4c 2b 31 30 20 54 4f 20 ┆XXXXXX' STORE MCOL+10 TO ┆
0x62b40…62b60 4d 43 4f 4c 0d 0a 20 20 20 20 20 20 49 46 20 4d 43 4f 4c 3e 3d 35 30 0d 0a 20 20 20 20 20 20 20 ┆MCOL IF MCOL>=50 ┆
0x62b60…62b80 20 20 53 54 4f 52 45 20 31 30 20 54 4f 20 4d 43 4f 4c 0d 0a 20 20 20 20 20 20 20 20 20 53 54 4f ┆ STORE 10 TO MCOL STO┆
0x62b80…62ba0 52 45 20 4d 52 4f 57 2b 32 20 54 4f 20 4d 52 4f 57 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 0d 0a ┆RE MROW+2 TO MROW ENDIF ┆
0x62ba0…62bc0 20 20 20 20 20 20 49 46 20 4d 52 4f 57 3e 32 30 0d 0a 20 20 20 20 20 20 20 20 20 40 20 32 32 2c ┆ IF MROW>20 @ 22,┆
0x62bc0…62be0 30 20 53 41 59 20 27 52 45 54 55 52 4e 20 46 4f 52 20 4d 4f 52 45 20 4f 55 54 50 55 54 27 20 47 ┆0 SAY 'RETURN FOR MORE OUTPUT' G┆
0x62be0…62c00 45 54 20 44 55 4d 4d 59 0d 0a 20 20 20 20 20 20 20 20 20 52 45 41 44 0d 0a 20 20 20 20 20 20 20 ┆ET DUMMY READ ┆
0x62c00…62c20 (49, 0, 7) 20 20 53 54 4f 52 45 20 34 20 54 4f 20 4d 52 4f 57 0d 0a 20 20 20 20 20 20 45 4e 44 49 46 0d 0a ┆ STORE 4 TO MROW ENDIF ┆
0x62c20…62c40 20 20 20 20 20 20 44 45 4c 45 54 45 0d 0a 20 20 20 20 20 20 43 4f 4e 54 49 4e 55 45 0d 0a 20 20 ┆ DELETE CONTINUE ┆
0x62c40…62c60 20 45 4e 44 44 4f 0d 0a 20 20 20 44 4f 20 57 48 49 4c 45 20 4d 52 4f 57 20 3c 3d 32 30 0d 0a 20 ┆ ENDDO DO WHILE MROW <=20 ┆
0x62c60…62c80 20 20 20 20 20 40 20 4d 52 4f 57 2c 4d 43 4f 4c 20 53 41 59 20 27 20 20 20 20 20 20 20 20 20 20 ┆ @ MROW,MCOL SAY ' ┆
0x62c80…62ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 0d 0a 20 20 20 20 ┆ ' ┆
0x62ca0…62cc0 20 20 53 54 4f 52 45 20 4d 52 4f 57 2b 32 20 54 4f 20 4d 52 4f 57 0d 0a 20 20 20 20 20 20 53 54 ┆ STORE MROW+2 TO MROW ST┆
0x62cc0…62ce0 4f 52 45 20 31 20 54 4f 20 4d 43 4f 4c 0d 0a 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 40 20 32 32 ┆ORE 1 TO MCOL ENDDO @ 22┆
0x62ce0…62d00 2c 30 20 53 41 59 20 27 20 20 20 20 20 20 52 45 54 55 52 4e 20 54 4f 20 43 4f 4e 54 49 4e 55 45 ┆,0 SAY ' RETURN TO CONTINUE┆
0x62d00…62d20 27 20 47 45 54 20 44 55 4d 4d 59 0d 0a 20 20 20 52 45 41 44 0d 0a 45 4e 44 49 46 0d 0a 52 45 4c ┆' GET DUMMY READ ENDIF REL┆
0x62d20…62d40 45 41 53 45 20 44 55 4d 4d 59 0d 0a 2a 52 45 54 55 52 4e 0d 0a 53 45 54 20 44 45 4c 45 54 45 44 ┆EASE DUMMY *RETURN SET DELETED┆
0x62d40…62d60 20 4f 46 46 0d 0a 52 45 43 41 4c 4c 20 41 4c 4c 0d 0a 53 45 4c 45 43 54 20 53 45 43 4f 4e 44 41 ┆ OFF RECALL ALL SELECT SECONDA┆
0x62d60…62d80 52 59 0d 0a 55 53 45 0d 0a 53 45 4c 45 43 54 20 50 52 49 4d 0d 0a 55 53 45 20 26 4f 50 45 52 44 ┆RY USE SELECT PRIM USE &OPERD┆
0x62d80…62da0 42 46 0d 0a 52 45 54 55 52 4e 0d 0a 0d 0a 0d 0a 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆BF RETURN ┆
0x62da0…62dc0 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x2…]
0x62e00…63000 (49, 0, 8) 0xe5[0x200]
[…0x8…]
0x64000…64200 (50, 0, 1) DataBlock {»CREATDPL.PRG«}
[…0x7…]
0x65000…65200 (50, 1, 1) 0xe5[0x200]
[…0x7…]
0x66000…66180 (51, 0, 1) DataBlock {»CREATDPL.PRG«}
0x66180…661a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x66200…66400 (51, 0, 2) 0xe5[0x200]
[…0x2…]
0x66800…66a00 (51, 0, 5) DataBlock {»CMOD.PRG«}
[…0x2…]
0x66d00…66d20 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x7…]
0x66e00…67000 (51, 0, 8) 0xe5[0x200]
[…0x8…]
0x68000…68200 (52, 0, 1) DataBlock {»GETSOURC.PRG«}
[…0x1…]
0x68300…68320 20 52 45 46 3a 44 45 53 3d 27 53 4f 54 27 2d 53 54 52 28 4e 55 4d 42 45 52 2c 58 29 0d 0a 20 20 ┆ REF:DES='SOT'-STR(NUMBER,X) ┆
0x68320…68340 20 45 4e 44 49 46 0d 0a 20 20 20 53 54 4f 52 45 20 4e 55 4d 42 45 52 2b 31 20 54 4f 20 4e 55 4d ┆ ENDIF STORE NUMBER+1 TO NUM┆
0x68340…68360 42 45 52 0d 0a 45 4e 44 44 4f 0d 0a 52 45 54 55 52 4e 0d 0a 0d 0a 0d 0a 1a 1a 31 35 4b 20 20 20 ┆BER ENDDO RETURN 15K ┆
0x68360…68380 20 20 20 31 25 20 20 20 20 52 4e 43 35 30 20 20 20 20 20 4d 49 4c 2d 52 2d 35 35 31 38 32 2f 37 ┆ 1% RNC50 MIL-R-55182/7┆
0x68380…683a0 2d 45 31 31 35 33 46 52 20 20 20 20 20 20 20 20 20 44 41 4c 45 20 20 20 4d 45 54 41 4c 20 46 49 ┆-E1153FR DALE METAL FI┆
0x683a0…683c0 4c 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LM ┆
0x683c0…683e0 20 20 20 20 20 20 20 20 20 53 4f 54 31 33 20 34 31 30 30 30 31 20 20 31 32 37 30 30 30 2e 30 30 ┆ SOT13 410001 127000.00┆
0x683e0…68400 30 30 31 32 37 4b 20 20 20 20 20 20 31 25 20 20 20 20 52 4e 43 35 30 20 20 20 20 20 4d 49 4c 2d ┆00127K 1% RNC50 MIL-┆
0x68400…68600 (52, 0, 3) 0xe5[0x200]
[…0x1…]
0x68800…68a00 (52, 0, 5) DataBlock {»UCUS.PRG«}
[…0x3…]
0x69000…69200 (52, 1, 1) 0xe5[0x200]
[…0x7…]
0x6a000…6a100 (53, 0, 1) DataBlock {»UCUS.PRG«}
0x6a100…6a120 3a 43 4f 44 45 3d 4d 52 45 46 0d 0a 20 20 20 20 20 20 20 2a 53 45 54 20 53 54 45 50 20 4f 4e 0d ┆:CODE=MREF *SET STEP ON ┆
0x6a120…6a140 0a 20 20 20 20 20 20 20 57 41 49 54 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 53 45 4c 45 20 ┆ WAIT ENDIF SELE ┆
0x6a140…6a160 50 52 49 4d 0d 0a 20 20 20 53 4b 49 50 0d 0a 45 4e 44 44 4f 0d 0a 0d 0a 1a 1a 2e 30 30 30 30 33 ┆PRIM SKIP ENDDO .00003┆
0x6a160…6a180 37 53 20 2f 39 30 44 20 20 20 20 20 20 20 20 53 43 43 20 33 34 30 31 2e 30 30 31 42 2f 44 43 4d ┆7S /90D SCC 3401.001B/DCM┆
0x6a180…6a1a0 20 33 37 53 20 4e 4d 42 20 31 41 4f 4e 33 20 20 20 20 20 43 41 4e 20 20 20 20 49 47 47 20 20 20 ┆ 37S NMB 1AON3 CAN IGG ┆
0x6a1a0…6a1c0 20 30 31 34 39 33 37 20 53 4f 43 4b 45 54 53 20 39 30 20 44 45 47 52 2e 20 20 20 20 20 20 20 20 ┆ 014937 SOCKETS 90 DEGR. ┆
0x6a1c0…6a1e0 20 20 20 20 34 20 20 20 31 35 20 20 20 20 20 20 20 20 20 20 54 20 20 20 20 20 20 20 20 20 20 20 ┆ 4 15 T ┆
0x6a1e0…6a200 36 32 30 30 32 31 43 49 2d 32 41 2d 30 35 35 20 20 20 20 20 20 20 20 30 2e 30 30 30 30 20 36 53 ┆620021CI-2A-055 0.0000 6S┆
0x6a200…6a400 (53, 0, 2) 0xe5[0x200]
[…0x2…]
0x6a800…6a980 (53, 0, 5) DataBlock {»DCUS.PRG«}
0x6a980…6a9a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x6aa00…6ac00 (53, 0, 6) 0xe5[0x200]
[…0xa…]
0x6c000…6c200 (54, 0, 1) DataBlock {»DSOT.PRG«}
[…0x2…]
0x6c580…6c5a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]
0x6c600…6c800 (54, 0, 4) 0xe5[0x200]
[…0x16c…]