ESP.PAS;1 WRITEOUT 3 46224 INPUTVALUE 3 79685 PAS$OPEN 3 12573 NEWENTRY 3 13638 MORETEXT 3 15015 STMTLIST 3 138120 INITRESERV 3 86375 MAC 4 ns s2,' '; loop when not(sr 'procedure ') exit dl s2; cp 'np ',"s2; np t1; mv t1,0-10; loop when ord(get(cursor))<>ord(' ') exit mv cursor,1 end np t2; rn skip; cp t2|cursor,"s2 cp ',t1',"s2 rn s2 end  BALANCE 3 21775 COMMAND 3 98311 INITIALIZE 3 102339 INITTERMSP 3 99603 GREATER 3 29013 T2 3 182897 COMMANDMOD 3 182887 NEWBLOCK 3 77248 STARTTEXT 3 30291 FINISHTEXT 3 32443 REMOVENODE 3 49917 NEWNODE 3 12889 CREATETEXT 3 74335 ADJUST 3 43231 COMPACT 3 42494 ADDCHAR 3 30721 GETCHAR 3 106856 ADDTOLIST 3 18276 FINDCHARS 3 55917 MOVECURSOR 3 57383 DUMPRESTOF 3 65253 INTEGEREXP 3 113835 ENTRYDISPO 3 14144 MOVEBACKWA 3 27115 INIT 3 12628 NODEDISPOS 3 13495 ADDTEXT 3 71596 MATCH 3 39644 READINFILE 3 93685 FSTART 3 50431 REMOVENAME 3 20297 READNAME 3 79520 INDENT 2 1 NEWNAME 3 16086 READLINE 3 79220 HASH 3 16684 TEST 3 116142 MAIN 3 187411 WRITEBUF 3 12653 SEARCHFOR 3 38538 INSERT 3 34086 LOOKUP 3 17464 INSERTCHAR 3 65772 SYS$CLI 3 98873 RETURNSPAC 3 182385 TYPE 3 986 DELCHAR 3 31481 TEXTDISPOS 3 15620 FINDFILE 3 17043 GETSYM 3 106692 FFINISH 3 50491 EXECHAREXP 3 142901 DELETETEXT 3 35773 TERM 3 113161 CHAREXP 3 114752 INITPTRS 3 82973 COPYTEXT 3 32738 POINT 3 111430 INPUTPTRS 3 82696 STRING2 3 112813 GETFILE 3 78413 READCH 3 12716 EXESTMT 3 148113 WINDOW 3 12067 FAILURELIN 3 39325 FIND 3 27937 PTR 3 111429 ITEMDISPOS 3 14837 INPUTERROR 3 92880 EXESTMTLIS 3 182062 COPYSTACK 3 148469 EXETEST 3 143583 VAR 3 7399 T1 3 182887 STRING1 3 112204 SKIP 4 loop when ((ord(get(cursor))=ord(' '))or(ord(get(cursor))=ord(';')))or(ord(get(cursor))=ord('(')) exit mv cursor,1 end;  FPUT 3 50551 READINT 3 78803 DUMPLINES 3 61578 EXEPOINTER 3 140326 EXEINTEGER 3 142062 NEWITEM 3 14319 ERROR 3 104355 PAS$CREATE 3 12573 EXESTRING 3 140862 S2 4 np CommandMode,t1  REESTABLIS 3 43914 NAMEDISPOS 3 16521 REMOVECHAR 3 69207 ENTERNAME 3 18095 READCHAR 3 79425 MAKEPTR 3 42490 COMPILE 3 103830 CURSOR 3 12433 GETCH 3 30008 MOVEFORWAR 3 26340 MOVESTICKY 3 53922 FINDLOCATI 3 56204 STMT 3 120522 UNDELETETE 3 37215 TEMP 4  PUSHDOWN 3 43297 TAB 0 22 EXEERROR 3 20249