22FL [ 22^= [ GEORGE PORTER 23DW [ 23YG [ THIS SUBFILE CONTAINS OPEN MODE-WORD IDENTIFIERS 24D6 [ & INCLUDES ETC FOR THE OPEN ROUTINES 24XQ [ 25CB #OPT HEMP=1 25X2 #OPT BLOMK7=0 26BL #OPT FOPEN70=1 26W= #OPT K0OPEN=K0FILESTORE>K0ALLGEO 27*W #OPT K6OPEN=K6FILESTORE>K6ALLGEO<200 27TG #OPT GAPOPEN=50 28*6 [ 28SQ #DEF A=0 29#B #DEF AEXECUTE=#0000 29S2 #DEF AREAD=#1000 2=?L #DEF AREADR=#2000 2=R= #DEF AAPPEND=#3000 2?=W #DEF AWRITE=#4000 2?QG #DEF AGENERAL=#5000 2#=6 #DEF AOVERLAY=#6000 2#PQ #DEF ACOPY=#6000 2*9B #DEF ACLEAN=#7000 2*P2 #DEF ACREATE=#400 2B8L #DEF ACOMMUNE=#200 2BN= #DEF AREPLY=#100 2C7W #DEF ANOWAIT=#40 2CMG #DEF AMDF=#20 2D76 #DEF AQUERY=#20 2DLQ #DEF ASELF=#20 2F6B #DEF ADESTRUCT=#10 2FL2 #DEF AEMPTY=4 2G5L #DEF ALEAVE=2 2GK= #DEF ADIR=1 2H4W #DEF AKEEP=2 2HJG #DEF AERASE=#40000 2J46 #DEF ADIROPEN=#40000000 2JHQ #DEF ATERMDIR=#40000000 2K3B #DEF ASTREAMS=#20000000 2KH2 #DEF AFILE=#20000000 2L2L #DEF ADIREPLY=#20000000 2LG= #DEF AUNTRAP=#10000000 2L^W #DEF ACAREFUL=#04000000 2MFG #DEF AUSERCLEAN=#02000000 2M^6 [SERONLY NOT USED AT PRESENT 2NDQ #SKI 2NYB #DEF ASERONLY=#1000000 2PD2 #DEF ADIRONLY=#04000000 2PXL #DEF AHALFOPEN=#01000000 2QC= #DEF AERASING=#00400000 2QWW #DEF ASYSTCOMM=#00200000 2RBG #DEF ANOERREP=#00400000 2RW6 #DEF ASTREAMCOMP=#00200000 2S*Q #DEF AMULTEL=#00200000 2STB #DEF ASTREAMONLY=#100000 2T*2 #DEF AMULT=#100000 2TSL #DEF AREPWAIT=#10000000 2W#= #DEF ATHAW=#00100000 2WRW #DEF AFREEZE=#00020000 2X3N #DEF ASAVEFREEZE=0 2X7K ...#DEF AUSERCARE=0 2X9H ...#DEF AFROZEN=0 2X?G #OPT AGDESTR=#00020000 2XR6 #DEF AGDR=0 2Y=Q #DEF AOFFSET=#00010000 2YQB #SKI ASAVEFILE 2^=2 #DEF AREOPEN=#00010000 2^PL #DEF ACLUDGE=#00040000 [B9 FCA5 MEANS CLUDGE FOR MARK 1 329= #DEF ADESCOMM=#210 [COMBINED MODE 32NW #DEF ATAPEUP=0 338G #DEF ADECKS=0 33N6 #DEF ANOQUERY=0 347Q #DEF ANOWRONG=0 34MB #DEF ANOSS=0 3572 #DEF ANOTOL=0 35LL #DEF AINSEC=0 366= #DEF ADUMPER=0 36KW #DEF AHDDRLAB=0 36TN ...#DEF AINFORM=0 375G #DEF E=0 37K6 #DEF ETAPEUP=1 384Q #DEF EDECKS=2 38JB #DEF ENOQUERY=4 3942 #DEF ENOWRONG=#10 39HL #DEF ENOSS=#20 3=3= #DEF ENOTOL=#40 3=GW #DEF EINSEC=#100 3?2G #DEF EDUMPER=#200 3?G6 #DEF EHDDRLAB=#400 3?PY ...#DEF EINFORM=#2000 3?^Q #DEF EAPPEND=0 3#FB #DEF ECLEAN=0 3#^2 #DEF ECOPY=0 3*DL #DEF ECREATE=0 3*Y= #DEF ECOMMUNE=0 3BCW #DEF EDIROPEN=0 3BXG #DEF EDIREPLY=0 3CC6 #DEF EDIRONLY=0 3CWQ #DEF EDIR=0 3DBB #DEF EEXECUTE=0 3DW2 #DEF EERASING=0 3F*L #DEF EERASE=0 3FT= #DEF EEMPTY=0 3G#W #DEF EGENERAL=0 3GSG #DEF EHALFOPEN=0 3H#6 #DEF EMDF=0 3HRQ #DEF ENOERREP=0 3J?B #DEF ENOWAIT=0 3JR2 #DEF EOVERLAY=0 3K=L #SKI ASAVEFILE 3KQ= #DEF EREOPEN=0 3L9W #DEF EOFFSET=0 3LPG #DEF EREAD=0 3M96 #DEF EREADR=0 3MNQ #DEF EREPLY=0 3N8B #DEF ESTREAMCOMP=0 3NN2 #DEF EMULTEL=0 3P7L #DEF ESYSTCOMM=0 3PM= #DEF EDESTRUCT=0 3Q6W #DEF ESELF=0 3QLG #DEF EUNTRAP=0 3R66 #DEF ECAREFUL=0 3RKQ #DEF EUSERCLEAN=0 3S5B #DEF ELEAVE=0 3SK2 #DEF EQUERY=0 3T4L #DEF ETHAW=0 3TJ= #DEF EWRITE=0 3W3W #DEF EGIVE=0 3WHG #DEF EMAYBE=0 3X36 #DEF ETERMDIR=0 3XGQ #DEF ESTREAMS=0 3Y2B #DEF EFILE=0 3YG2 #DEF EFREEZE=0 3YPS #DEF ESAVEFREEZE=1 3YTP ...#DEF EUSERCARE=2 3YXM ...#DEF EFROZEN=#1000 3Y^L #OPT EGDESTR=0 3^F= #DEF EGDR=#00020000 3^YW #DEF EREPWAIT=0 42DG #DEF ESTREAM=0 42Y6 #DEF EMULT=0 43CQ #DEF ESTREAMONLY=0 43XB [ SERONLY NOT USED AT PRESENT 44C2 #SKI 44WL #DEF ESERONLY=0 ^^^^ ...51607263001000000000