(George Source)
Macros used: ERROR, HUNT, JANAL, MENDAREA, SEGENTRY, UP, UPPLUS
22FL #LIS K0LOCALNAM>K0ALLGEO>K0GREATGEO>K0COMMAND 22^= #SEG LOCALNAM [ BILL IZATT 23DW 8HLOCALNAM 23YG [ ENTRY POINT. THIS LOCATION MUST REMAIN FIXED 24D6 SEGENTRY K1LOCALNAM,QENTRY1 24XQ [ 25CB [ 25X2 QENTRY1 26BL HUNT 2,CPB,CUNI 26W= LDX 3 2 [KEEP COPY OF POINTER 27*W LDX 5 ANUM(2) 27TG BNG 5 QERR [J IF PARAM. NON EXISTENT 28*6 BZE 5 QERR [J IF NULL PARAMETER 28SQ ANDN 5 #7777 [MASK OUT TYPE CHARS 29#B LDN 4 13 29S2 TXL 5 4 2=?L BCC QERR1 [K IF MORE THAN TWELVE CHARS 2=R= LDN 2 APARA(2) 2?=W LDCH 4 0(2) 2?QG TXL 4 SALPHA(1) 2#=6 BCS QERR1 2#PQ TXL 4 SEVCHAR(1) 2*9B BCC QERR1 [J IF 1ST CHAR NOT A LETTER 2*P2 BRN Z1 2B8L Z2 LDCH 4 0(2) 2BN= TXL 4 SEVCHAR(1) 2C7W BCC QERR1 2CMG TXL 4 SALPHA(1) 2D76 BCC Z1 [J IF CHAR IS A LETTER 2DLQ TXL 4 SNUM(1) 2F6B BCS Z1 [J IF CHAR IS A DIGIT 2FL2 TXU 4 SPACE(1) 2G5L BCC Z1 [J IF SPACE CHAR 2GK= TXU 4 SMINUS(1) 2H4W BCS QERR1 [J IF NOT A MINUS SIGN 2HJG Z1 BCHX 2 £ 2J46 BCT 5 Z2 2JHQ LDN 6 #7777 2K3B ANDS 6 ANUM(3) 2KH2 UPPLUS 2 2L2L QERR UP [PAR MI0SING OR NULL 2L=D ...QERR1 JANAL QERR2 2LG= ... ERROR JNLFNF 2LQ4 ...QERR2 2L^W UPPLUS 1 [WRONG FORMAT 2MFG SEVCHAR #73 2M^6 SALPHA #41 2NDQ SNUM #12 2NYB SPACE #20 2PD2 SMINUS #35 2PXL MENDAREA 10,K99LOCALNAM 2QC= #END ^^^^ ...06223150000200000000