*START 4000 001026 *STACK 7777 000000 *SYM 000313 SEG. # TYPE LOW HIGH TOP 4000 PROC 000100 034637 034637 4001 PROC 177777 000000 174542 *BASE 004000 000100 000111 000777 000777 ROUTINE ECB PROCEDURE ST. SIZE LINK FR. #### 4000 001026 4000 001000 002720 000034 4000 000424 OPTIO0 4000 001200 4000 001060 000414 000130 4000 000574 INITI0 4000 002102 4000 001324 000050 003046 4000 001454 COMAND 4000 007330 4000 005122 005614 000262 4000 006676 COMTYP 4000 007632 4000 007560 000054 000032 4000 007224 PROCE0 4000 007720 4000 007656 000046 000032 4000 007320 TEXT 4000 010220 4000 007752 002726 000066 4000 007614 BOFACE 4000 010432 4000 010302 000064 000024 4000 010026 BRK 4000 010622 4000 010452 000042 000056 4000 010214 CENTER 4000 010724 4000 010672 000046 000036 4000 010322 DIVOK 4000 011516 4000 010760 000066 000172 4000 011074 GETWRD 4000 012034 4000 011666 000060 000026 4000 011430 HYNATE 4000 012274 4000 012056 000064 000036 4000 011670 LEADBL 4000 012426 4000 012326 000052 000030 4000 012024 NXBLNK 4000 012606 4000 012454 000052 000034 4000 012174 PFOOT 4000 012714 4000 012630 002722 000046 4000 012312 PHEAD 4000 013112 4000 012760 002722 000062 4000 012506 PUT 4000 013524 4000 013170 002732 000110 4000 013116 PUTTAB 4000 013724 4000 013626 000044 000046 4000 013322 PUTTL 4000 014066 4000 013770 002730 000054 4000 013464 PUTW 4000 014240 4000 014140 000056 000042 4000 013636 PUTWRD 4000 014616 4000 014300 002024 000070 4000 014212 SET 4000 015000 4000 014702 000064 000024 4000 014374 SETTAB 4000 015156 4000 015020 000052 000032 4000 014550 SPACE 4000 015254 4000 015202 000050 000034 4000 014654 SPREAD 4000 015460 4000 015310 000064 000026 4000 015054 SUFFIX 4000 015566 4000 015502 000260 000044 4000 015164 ITALIC 4000 016020 4000 015630 000062 000050 4000 015414 UNDERL 4000 016300 4000 016064 000066 000054 4000 015666 NEWINP 4000 016434 4000 016342 000050 000106 4000 016030 NEWOUT 4000 016602 4000 016536 000050 000074 4000 016176 READLN 4000 017062 4000 016672 002732 000064 4000 016456 RESET0 4000 017226 4000 017142 000050 000036 4000 016624 XCLOSE 4000 017312 4000 017262 000050 000026 4000 016710 XOPEN 4000 017436 4000 017336 000054 000036 4000 017030 APNDM0 4000 017674 4000 017466 000060 000206 4000 017270 DEFMAC 4000 020136 4000 020076 000054 000034 4000 017534 DOMAC 4000 020324 4000 020170 000050 000056 4000 017716 EMARGS 4000 020716 4000 020374 000260 000152 4000 020306 ENDMAC 4000 021074 4000 021060 000042 000026 4000 020474 EVALF0 4000 024174 4000 021122 011356 000440 4000 023542 EXTRA0 4000 024742 4000 024602 000066 000026 4000 024334 FINDM0 4000 025026 4000 024762 000050 000032 4000 024424 GETNAM 4000 025210 4000 025056 000054 000024 4000 024604 ITOLET 4000 025266 4000 025230 000050 000024 4000 024662 ITOROM 4000 026106 4000 025306 000060 000044 4000 025462 MACINP 4000 026376 4000 026126 002734 000132 4000 025766 MACGC 4000 027036 4000 026520 000052 000126 4000 026430 MACREL 4000 027272 4000 027156 000052 000036 4000 026666 MASSIN 4000 027476 4000 027324 000270 000030 4000 027072 RDMAC 4000 027562 4000 027522 000060 000026 4000 027160 TRNARG 4000 027700 4000 027606 000062 000032 4000 027300 CHKIF 4000 030322 4000 027732 000262 000030 4000 027716 CTOI 4000 030364 4000 030346 000052 000024 4000 027762 ESC 4000 030506 4000 030406 000052 000026 4000 030100 GETSTR 4000 030636 4000 030526 000062 000026 4000 030232 GETSC 4000 030752 4000 030660 000056 000024 4000 030346 GETVAL 4000 031072 4000 030772 000052 000030 4000 030464 MKTL 4000 031432 4000 031114 000714 000034 4000 031024 MVPART 4000 031666 4000 031460 000072 000030 4000 031262 SKIP 4000 031754 4000 031712 000050 000032 4000 031352 TAILBL 4000 032062 4000 032004 000050 000024 4000 031460 WIDTH 4000 032164 4000 032104 000050 000024 4000 031560 MKTABL 4000 032244 4000 032204 000052 000026 4000 031642 LOOKUP 4000 032344 4000 032270 000062 000024 4000 031744 ENTER 4000 032506 4000 032370 000064 000036 4000 032104 ST$LU 4000 032662 4000 032542 000064 000030 4000 032260 DSGET 4000 033160 4000 032710 000070 000044 4000 032550 DSINIT 4000 033310 4000 033214 000050 000032 4000 032704 DSDUMP 4000 033542 4000 033336 000054 000034 4000 033136 DSDBIU 4000 034030 4000 033572 000056 000032 4000 033422 F$MI11 4000 034266 4000 034254 000016 000020 4000 033666 F$MA11 4000 034306 4000 034326 000050 000000 4000 033741 F$LT 4000 034520 4000 034342 000020 000140 4000 034100 F$RT 4000 034500 4000 034357 000020 000140 4000 034100 F$OR 4000 034540 4000 034421 000020 000140 4000 034100 F$RS 4000 034560 4000 034425 000020 000140 4000 034100 F$LS 4000 034600 4000 034431 000020 000140 4000 034100 F$SH 4000 034620 4000 034460 000020 000140 4000 034100 DIRECT ENTRY LINKS MKTEMP 4000 034054 PARSCL 4000 034060 OPEN 4000 034064 STRBSR 4000 034070 STRLSR 4000 034074 STRCMP 4000 034100 RMTEMP 4000 034104 REWIND 4000 034110 WIND 4000 034114 CANT 4000 034120 ERROR 4000 034124 SWT 4000 034130 CLOSE 4000 034134 PRINT 4000 034140 DATE 4000 034144 GETCH 4000 034150 GETLIN 4000 034154 REMARK 4000 034160 PUTCH 4000 034164 PUTLIN 4000 034170 EQUAL 4000 034174 GETARG 4000 034200 GCTOI 4000 034204 ITOC 4000 034210 SDROP 4000 034214 CTOC 4000 034220 INDEX 4000 034224 LENGTH 4000 034230 MAPSTR 4000 034234 MAPDN 4000 034240 MAPUP 4000 034244 SCOPY 4000 034250 COMMON BLOCKS DS$MEM 4001 001000 007772 TABCOM 4001 010772 000003 COPTS 4001 010776 000001 CMACRO 4001 011000 143640 CMISC 4001 154640 001474 CPARAM 4001 156334 000022 CPAGE 4001 156356 013303 COUT 4001 171662 002661 OTHER SYMBOLS SWT$TP 2030 120000 F192QFP5 4000 034254 SWT$CM 4040 010000