{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: OPENCOMPS)}}
====== OPENCOMPS ======
(George Source)
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