{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPMACMOON)}}
====== COMPMACMOON ======
(George Source)
229S ...[??? FIELDDEF SECT FILE FGN 9 DOC
22FL [ G MOON
22^= #DEF BITMULT=32
23DW
23YG #MAC FIELDDEF
24D6 #DEF %A=(%B-1)@L19+%D+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%-
24XQ C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C[
25CB #NOR
25M8 ...[??? BITDEFS SECT FILE FGN 9 DOC
25X2 #MAC BITDEFS
26BL #STR %C
26W= #DEF %C=%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A-
27*W +%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%B[
27TG #STR %D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X%Y%Z
28*6 BITDEFS %A,%B+1,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,-
28SQ %T,%U,%V,%W,%X,%Y,%Z [
29#B #NOR
29#W ...[??? FIELDALT SECT FILE FGN 11 DOC
29*B ...#MAC FIELDALT
29*W ...#ALT %A=(%B-1)@L19+%D+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%-
29BB ...C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C+%C[
29BW ...#NOR
29CB ...[??? BITALTS SECT FILE FGN 11 DOC
29CW ...#MAC BITALTS
29DB ...#STR %C
29DW ...#ALT %C=%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A-
29FB ...+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%A+%B[
29FW ...#STR %D%E%F%G%H%I%J%K%L%M%N%O%P%Q%R%S%T%U%V%W%X%Y%Z
29GB ... BITALTS %A,%B+1,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,-
29GW ...%T,%U,%V,%W,%X,%Y,%Z [
29HB ...#NOR
29J8 ...[??? XYZ SECT FILE FGN 9 DOC
29S2 #MAC XYZ [DEFINES BITS IN NAME RECORD AND ENT BLOCK
2=?L #STR %C
2=R= (
2?=W BITDEFS %A,%B,BE%C
2?QG BITDEFS %A-A1,%B,BN%C
2#=6 )
2#PQ #STR %D%E%F%G%H
2*9B XYZ %A,%B+1,%D,%E,%F,%G,%H
2*P2 #NOR
2*YS ...[??? XY SECT FILE FGN 9 DOC
2B8L #MAC XY
2BN= #DEF %AN=%A-A1
2C7W #STR %B
2CMG XY %B,%C,%D,%E,%F
2D76 #NOR
2DBY ...[??? STRINGS SECT FILE FGN 9 DOC
2DLQ
2F6B # STRINGS
2FL2 # GENERATES DEFINES FOR ITS LIST OF PARAMETERS SUCH THAT
2G5L [ %B=%A, %C=%B+1, ETC
2GK= #MAC STRINGS
2H4W #STR %B
2HJG (
2J46 #DEF %B=%A
2JHQ STRINGS %B+1,%C,%D,%E,%F,%G,%H,%I, -
2K3B %J,%K,%L,%M,%N,%O,%P,%Q,%R, -
2KH2 %S,%T,%U,%V,%W,%X,%Y,%Z [
2L2L )
2LG= #NOR
2LQ4 ...[??? SEMAPHOR SECT FILE FGN 9 DOC
2L^W
2MFG #MAC SEMAPHORE [S,I1,I2,A CHAR
2M^6 #DEF %A=%B
2NDQ #DEF %A1=%C
2NYB #STR %E
2PD2 (
2PXL #DEF %A2=#400:0+%D [LONGSET B0 %A2 SET
2QC= #EXI
2QWW )
2RBG #DEF %A2=%D
2RW6 #NOR
2S*Q
2STB
2T*2 ...[??? DEFPRIV SECT FILE FGN 9 DOC
2TSL ...#MAC DEFPRIV
2W#= ...#DEF G%B=%A&GPAND^GPOR
2WRW ...#SKI G%B&GPAND>23-23
2X?G ...!ILLEGAL PRIVILEGE
2XR6 ...#SKI G%B&GPAND<4-4
2Y=Q ...!ILLEGAL PRIVILEGE
2YQB ...#NOR
2^=2 ...[??? DEFSTABL SECT FILE FGN 9 DOC
2^PL ...#
329= ...#MAC DEFSTABLE
32NW ...#DEF G%B=%A&GSAND^GSOR
338G ...#NOR
33N6 ...[??? DEFTRANS SECT FILE FGN 9 DOC
347Q ...#
34MB ...#MAC DEFTRANS
3572 ...#DEF G%B=%A>AND^GTOR
35LL ...#NOR
^^^^ ...47757621001100000000