(George Source)
Macros used: BXE, COMERRX, COOR1, ENDCOM, FINDACTFB, FPUT, GEOPACK, GETACT, LGEOG, LINKSET, MFREEW, MHUNT, MHUNTW, MONOUT, NAME, OUTBLOCK, OUTPACK, OUTPAR, PAIR, PARANUMB, SEGENTRY, SPARAPAS, SUICIDE
22FL #SEG IPBJOURN [COMM - IPB 22^= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 23DW #OPT K0IPBJOURN=1 23YG #LIS K0IPBJOURN>K0IPB>K0ALLGEO>K0GREATGEO 24D6 8HIPBJOURN 24XQ [ 25CB SEGENTRY K1IPBJOURN,X1IPBJOURN 25X2 SEGENTRY K2IPBJOURN,X2IPBJOURN 26BL [ 26W= ... 27*W [ COMMAND IPBJOURN . THE ACTIVITY IS A CPAT 27CS ... 27FQ ... 27HN ... 27KL ... 27MJ ... 27PG ... 27RD ... 27TG [ 2#=6 [ 2#PQ PAPFERR +APFERR 2*9B ONMSK #575620 [ON SPACE 2*P2 PJSETP8 +JSETP8 2B8L PJPARMIS +JPARMIS 2BN= PJTOOMANY +JTOOMANY 2BS7 ...PAIR1 PAIR IPBJOURN,2 2BY4 ...PAMISC 2C3^ ...#HAL AMXOR+AMISC,0 2C7W [ 2CMG [ SUBROUTINES 2D76 [ 2DLQ [ 2F6B [ K1 IPBJOURN 2FL2 [ 2G5L X1IPBJOURN 2GK= PARANUMB 5 [GET COUNT OF PARAMETERS 2H4W SBN 5 2 2HJG BPZ 5 XJTOOMANY [MORE THAN ONE PARAMETER 2J46 SPARAPAS 2JHQ MHUNT 3,CPB,CUNI 2K3B LDX 4 ANUM(3) 2KH2 BNG 4 T1 [J. PARAMETER MISSING 2L2L BZE 4 T1 2LG= ANDN 4 #7777 2L^W SBN 4 4 2MFG BPZ 4 PFERR [>3 CHARS : FORMAT ERROR 2M^6 LDX 4 APARA(3) 2NDQ SRL 4 6 2NYB ERX 4 ONMSK(1) [COMPARE WITH ON 2PD2 BZE 4 ON1 2PXL ERN 4 #1066 [COMPARE WITH OFF 2QC= BZE 4 OFF1 2QWW PFERR 2RBG LDX 6 PAPFERR(1) 2RW6 XERR 2S*Q COMERRX 6 2STB T1 LDX 7 PJSETP8(1) [FIRST 2T*2 LDX 6 PJPARMIS(1) [PARAMETER MISSING 2TSL COMERRX 6,7 2W#= XJTOOMANY 2WRW LDX 6 PJTOOMANY(1) 2X?G BRN XERR 2XD8 ...ON1 2XJW ... LDX 0 IPBJRN 2XPJ ... BNZ 0 XEND 2XW= ... LDX 0 GSIGN 2Y2Y ... STO 0 IPBJRN 2Y7L ... GETACT AMOP,AJOURN 2Y## ... LDX 3 BPTR(2) 2YF2 ... STOZ IPBSW(3) 2YKN ... LINKSET 3,PAIR1(1) 2YQB XEND 2^=2 ENDCOM 2^PL OFF1 2^WS ... LDX 0 IPBJRN 3242 ... BZE 0 XEND 329= STOZ IPBJRN [CLEAR FIXED CORE WORD 32?F ... FINDACTFB 2,FX2,AMOP,AJOURN,,BPTR 32*N ... LDX 0 IPBSW(2) 32CX ... BNG 0 XEND 32G6 ... LDX 0 GSIGN 32J* ... STO 0 IPBSW(2) 32LJ ... FPUT 32NW BRN XEND 338G [ 33N6 [ K2 IPBJOURN 347Q [ 34MB X2IPBJOURN 3572 ... LDX 0 IPBJRN 35LL ... BZE 0 XSUIC 366= ... LDX 3 ACTRING(2) 36KW ... SBN 3 ACTRING 375G ...XJRN 37K6 ... LDX 3 BPTR(3) 384Q ... BXE 3 2,XFIN 38JB ... LDX 0 ATYPE(3) 3942 ... TXU 0 PAMISC(1) 39HL ... BCS XJRN 3=3= ... NAME 3,AMXOR,AMISCJOURN 3=GW ... LDX 5 IPBCOUNT(3) 3?2G ... ADN 5 1 3?G6 ... STO 5 IPBCOUNT(3) 3?^Q ... ADN 5 5 3#FB ... OUTBLOCK 5 3#^2 ... OUTPAR TIMENOW 3*DL ... LDX 1 IPBDATA+497(3) 3*Y= ... LGEOG 1,5 3BCW ... GEOPACK 5,5,5 3BXG ... OUTPACK 5,1,GEOPER 3CC6 ... MHUNTW 3,AMXOR,AMISCJOURN 3CWQ ... OUTPACK IPBCOUNT(3),V,VAROCT 3DBB ... MONOUT IPBTRACE 3DW2 ... MFREEW AMXOR,AMISCJOURN 3F*L ... BRN X2IPBJOURN 3FT= ... 3SK2 XFIN 3W3W STOZ IPBSW(2) [CLEAR IPBSW TO INDICATE FINISH WITH 3WHG COOR1 [AWAIT TO BE STARTED 3X36 BRN X2IPBJOURN 3XBT ... 3XQJ ...XSUIC 3Y6? ... SUICIDE 3YG2 #END ^^^^ ...025222020006