{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: WA864)}}
====== WA864 ======
(George Source)
**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:AND|AND]], [[george:macro:APPEND|APPEND]], [[george:macro:ASSMESS|ASSMESS]], [[george:macro:BITDEFS|BITDEFS]], [[george:macro:BS|BS]], [[george:macro:BSON|BSON]], [[george:macro:BXU|BXU]], [[george:macro:CLOSE|CLOSE]], [[george:macro:COMERR|COMERR]], [[george:macro:COOR3|COOR3]], [[george:macro:CREATEB|CREATEB]], [[george:macro:DO|DO]], [[george:macro:ELSE|ELSE]], [[george:macro:ELSF|ELSF]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERASE|ERASE]], [[george:macro:ERASEWORK|ERASEWORK]], [[george:macro:FI|FI]], [[george:macro:FON|FON]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FRIGMONF|FRIGMONF]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:FSHMOVE|FSHMOVE]], [[george:macro:FSHSKIP|FSHSKIP]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:IF|IF]], [[george:macro:ISSUCOMB|ISSUCOMB]], [[george:macro:LOBSFILE|LOBSFILE]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:NAME|NAME]], [[george:macro:NOTALIEN|NOTALIEN]], [[george:macro:OFF|OFF]], [[george:macro:ON|ON]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OR|OR]], [[george:macro:OUTMON|OUTMON]], [[george:macro:PAIR|PAIR]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:PARALYSE|PARALYSE]], [[george:macro:PARANUMB|PARANUMB]], [[george:macro:PROPERTY|PROPERTY]], [[george:macro:READ|READ]], [[george:macro:REPEAT|REPEAT]], [[george:macro:REWIND|REWIND]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:SPARABEG|SPARABEG]], [[george:macro:STEP|STEP]], [[george:macro:TESTBRKIN|TESTBRKIN]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:THEN|THEN]], [[george:macro:TRANSBEG|TRANSBEG]], [[george:macro:TRANSDIE|TRANSDIE]], [[george:macro:TRANSFIN|TRANSFIN]], [[george:macro:USEROPEN|USEROPEN]], [[george:macro:WHILE|WHILE]]
22FL #OPT K0WA = 0
22^= #LIS K0WA
23DW #SEG WA
23YG 8HWA
24D6 [
24XQ SEGENTRY K1WA,WAK1 [ WHATPROP COMMAND
252* ...[
254Y ... FSHENTRY K2WA,QENTRY2,,QENTRY2
257H ... FSHENTRY K3WA,QENTRY3,,QENTRY3
25=6 ... FSHENTRY K4WA,QENTRY4,,QENTRY4
25#P ... FSHENTRY K5WA,QENTRY5,,QENTRY5
25B3 ... FSHENTRY K7WA,QENTRY7,,QENTRY7
25CB [
25X2 [
26BL [************************************************************
26W= [
27*W [ PRESET DATA
27TG [
28*6 [************************************************************
28SQ [
29#B [
29B# ...#
29D= ... FSHCODE AORB
29G8 ...(
29J6 ...SCDLINK [ LINK FOR UNANTICIPATED CLOSEDOWN
29L4 ... PAIR WA,7
29N2 ...)
29PY ...#
29S2 PVAL2 2
2=?L PVAL4 4
2=R= PSTRLIST 4HLIST
2?=W PROPERTY 8HPROPERTY
2?QG PHEADING +APROPHEAD
2#=6 PPERM 4H Y
2#PQ PCONS
2*9B PEXCL 4HY
2*P2 #DEF WNAME = A1+2
2B8L #DEF WEXCL = A1+6
2BN= #DEF WPERM = A1+7
2C7W #DEF WCONS = A1+9
2CMG BITDEFS CONTEXT,19,WBOPER,,,WBNOUSER,WBUSER
2D76 BITDEFS AWORK2,0,WBLIST,WBLISTPR
2DLQ P10000 [ GENERATION NO. CONVERSION
2F6B +10000
2FL2 PFILEDES [ FILE DESCRIPTION FOR OUTPUT FILE
2G5L 10
2GK= POPERATORS
2H4W 12HOPERATORS [ USERNAME
2HJG 12HWHATLIST [ FILENAME
2J46 1 [ REEL NUMBER
2JHQ #20000001 [ GENERATION NUMBER
2K3B 4HB1 [ LANGUAGE CODE
2KH2 PRUNJOB [ RUNJOB COMMAND TO TO LIST OUTPUT FI
2L2L 32HRJ WLIST0000,:OPERATORS,WLISTJDF
2LG= PRJPROP [ EXTRA FOR LIST(PR .....)
2L^W 9H,PARAM(PR
2MFG PRJBRAC
2M^6 1H)
2NDQ PLF [ LISTFILE COMMAND FOR OUTPUT TO WORK
2NYB 17HLF !,*LP,PA,MO#60
2PD2 PLFPROP [ EXTRA FOR LIST(PR....)
2PXL 3H,PR
2QC= [
2QWW [
2QX^ ...[ ENTRY POINT TO OBEY 'SCLOSE' S/R IN M/C A FOR M/C B
2Q^4 ...[
2R27 ... FSHCODE A,SNONEEDINB
2R3= ...(
2R4* ...QENTRY5
2R5D ... FSHMOVE END [THE OUTPUT FILE
2R6H ... STO 7 5 [PRESERVE M/C B'S LINK ACC
2R7L ... CALL 7 SCLOSE [CLODE + ERASE THE OUTPUT FILE
2R8P ... LDX 7 5 [RECOVER M/C B'S LINK
2R9S ... TRANSFIN [AND RETURN
2R=X ...SNONEEDINB
2R#2 ...)
2R*5 ...[
2RBG [************************************************************
2RW6 [
2S*Q SCLOSE
2STB [
2T*2 [************************************************************
2TSL [
2W#= [ CLOSE OUTPUT FILE ( AFTER :SYSTEM.PROPERTY )
2WRW [
2X?G [ X6 - ZERO - NORMAL EXIT
2XR6 [ NON-ZERO - BREAKIN
2Y=Q SBX 7 FX1
2Y## ... FSHCODE B,XCLOSEA [ OBEY S/R IN M/C A ONLY
2Y*W ...(
2YCD ... SETNCORE 0,3,FSH,FSHTERM [ SET UP DELIMITER BLOCK
2YF2 ... FSHMOVE START [ OUTPUT FILE
2YGJ ... TRANSBEG FSHWAID,WA,5,,,ACOMMUNE1 [ AND GO TO M/C A
2YJ6 ...XCLOSEA
2YKN ...)
2YM= ... FSHSKIP B,XCLOSEB [ REST OF S/R EXCEPT EXIT NOT NEEDED
2YNS ...(
2YQB CLOSE
2^=2 IF BS,2,WBUSER [ USER CONTEXT
2^PL THEN [ ERASE WORKFILE
329= SETNCORE 10,3,FILE,FABSNB
32NW LDN 0 10
338G STO 0 A1(3)
33N6 #SKI IFS
347Q ADN 2 FUSER1-FCBRING
34MB #SKI IFS<1$1
3572 LDX 2 BWORKRING(2)
35LL ADN 2 FUSER1
366= ADN 3 A1+1
36KW MOVE 2 9
375G ERASEWORK 1
37K6 TESTREP2 NOFILE,ZERREW
384Q ELSF EITHER,BC,2,WBLIST [ NOT LIST
38JB OR 6,NZ [ BREAKIN
3942 THEN [ ERASE :OPERATORS.WHATLIST
39HL SETNCORE 10,3,FILE,FABSNB
3=3= LDN 1 PFILEDES(1)
3=GW LDN 2 A1(3)
3?2G MOVE 1 10
3?G6 SMO FX2
3?^Q LDX 0 AWORK1
3#FB STO 0 A1+8(3) [ GENERATION NO.
3#^2 ERASE
3*DL TESTREP2 NOFILE,ZERREOW
3*Y= FI
3B5D ...XCLOSEB
3B=L ...)
3BCW ADX 7 FX1
3BXG EXIT 7 0
3CC6 [
3CWQ [
3DBB [ WW WW W
3DW2 [ WW WW WW
3F*L [ WW WW WWW
3FT= [ WWWW WW
3G#W [ WWWWW WW
3GSG [ WW WW WW
3H#6 [ WW WW WW
3HRQ [ WW WW WW
3J?B [
3JR2 WAK1
3K=L [
3KQ= [
3L9W [************************************************************
3LPG [
3M96 [ CHECK PARAMETERS
3MNQ [ SET UP OUTPUT FILE
3N8B [ OPEN PROPERTY
3NN2 [ GENERATE OUTPUT
3P7L [ CLOSE PROPERTY
3PM= [ LIST OUTPUT
3Q6W [ TIDY UP
3QLG [
3R66 [************************************************************
3RKQ [
3S5B [
3SK2 STOZ AWORK2(2) [ CLEAR BITS WORD
3T4L [
3TJ= [ CHECK PARAMETERS
3W3W [
3WHG SPARABEG 1,PVAL4(1),PSTRLIST(1),,0
3X36 MHUNT 3,CPB,CUNI
3XGQ LDX 7 ANUM(3)
3Y2B IF 7,PZ [ IF 'LIST' PRESENT
3YG2 THEN
3Y^L BS 2,WBLIST [ SET LIST BIT
3^F= IF 7,NZ [ IF PROPERTY STRING
3^YW THEN
42DG LDX 3 JPARNUM(3)
42Y6 PARALYSE ,,3 [ THEN SPLIT INTO "LIST" AND (PR P
433= ...#UNS ANSTOOMANY
436B ... TESTREP2 UNPAIR,ZLISTWR,TOOMANY,ZMAXPAR
439G ...#UNS ANSTOOMANY
43#L ...#SKI
43CQ TESTREP2 UNPAIR,ZLISTWR [ IF UNPAIRED DELIM, ERR FI
43XB PARANUMB 4
44C2 BXU 4 PVAL2(1),ZLISTWR [ IF NOT TWO PARAMS, ERR FI
44WL LDN 1 2
45B= PARALYSE ,,1 [ STRIP BRACKETS OFF PARAM 2
45HD ...#UNS ANSTOOMANY
45NL ... TESTREP2 TOOMANY,ZMAXPAR
45TW LDN 7 8
46*G WHILE 7,NZ
46T6 SPARABEG 1,7,PROPERTY(1) [ LOOK FOR 'PR' PARAM
47#Q MHUNT 3,CPB,CUNI
47SB LDX 6 ANUM(3)
48#2 AND 6,NG [ PARAMETER NOT FOUND
48RL DO
49?= FREECORE 3 [ ELSE
49QW SRL 7 2 [ TRY AGAIN FI
4==G REPEAT
4=Q6 BZE 7 ZWRQUAL [ IF NO 'PR...' FOUND , ERROR FI
4?9Q BZE 6 ZWRQUAL [ IF PARAM NULL, ERROR FI
4?PB HUNT2J 3,CPB,CUNI,,(GEOERR) [ FIND 'LIST' CUNI
4#92 FREECORE 3 [ FREE IT (KEPT IN CASE OF ERR MES
4#NL BS 2,WBLISTPR [ SET PROPERTY BIT
4*8= PARAFREE [ FREE CMULTI ANYWAY
4*MW FI [ FI
4B7G ELSE
4BM6 FREECORE 3
4C6Q PARANUMB 4
4CLB BNZ 4 ZLISTWR [ IF ANY OTHER PARAM, ERROR FI
4D62 FI
4DKL [
4F5= [ SET UP OUTPUT FILE
4FJW [
4FLK ... FSHCODE B,XREMHERE
4FN# ...(
4FQ3 ... TRANSBEG FSHWAID,WA,2,CLB,,ACOMMUNE1
4FRQ ... FSHMOVE END
4FTF ... BRN XSTAY
4FX8 ...XREMHERE
4FYX ...)
4G2L ...QENTRY2
4G4G CREATEB 4
4GJ6 IF MBS,2,WBOPER,WBNOUSER [ OPERATOR OR NO USER CONTEXT
4H3Q THEN [ CREATE AND OPEN :OPERATORS.WHATLIST(+1)
4HHB LDN 1 POPERATORS(1) [ CREATION OF FILES REQUIRES
4J32 LDN 2 CPREFIX(2) [ OWNERSHIP SO INSERT :OPERATORS IN C
4JGL MOVE 1 3
4K2= SETNCORE 10,3,FILE,FABSNB
4KFW LDN 1 PFILEDES(1)
4K^G LDN 2 A1(3)
4LF6 MOVE 1 10
4LYQ USEROPEN ZOUTFILEBRK,APPEND,CREATE,LEAVE,FROZEN
4MDB TESTRPN2 OK,ZERROOW
4MY2 MHUNT 3,FILE,ENT
4NCL LDX 0 EGEN(3)
4NX= STO 0 AWORK1(2)
4PBW FREECORE 3
4PWG ELSE [ OPEN WORKFILE AT TOP LEVEL
4QB6 FRIGMONF ZERROW,1
4QTQ LOBSFILE
4R*B FI
4RT2 MFREE FILE,FABSNB
4S#L [ PUT HEADING IN OUTPUT FILE
4SS= LDX 4 PHEADING(1)
4T?W ASSMESS 4
4TRG MHUNT 3,GMON,AOUT
4W?6 NAME 3,FILE,FAPB
4WQQ LDEX 0 A1(3)
4X=B ADN 0 11
4XQ2 SRL 0 2
4Y9L DEX 0 A1(3)
4YP= APPEND 0,ZAPPEND0
4^8W [ PRESET FILE/FAPB FOR MAIN OUTPUT ( ASSUMES HEADING LENGTH > MAIN OUTPU
4^NG MHUNT 3,FILE,FAPB
5286 LDX 1 A1(3)
52MQ SBN 1 3
537B LDX 0 ACES
53M2 STO 0 WNAME(3)
546L LDN 2 WNAME(3)
54L= ADN 3 WNAME+1
555W MOVE 2 0(1)
55KG [
5656 [ OPEN PROPERTY
56JQ [
574B OPENSYS ZPROPBRK,PROPERTY,READ
57J2 [
57KJ ... FSHCODE A,XSTAY
57M6 ...(
57NN ... NOTALIEN XSTAY
57Q= ... LDN 4 2
57RS ... FSHMOVE START,4
57TB ... TRANSFIN
57WY ...)
57YG ...XSTAY
5824 ...[
583L [ GENERATE OUTPUT
58H= [
592W WHILE TRUE
59GG STEP
5=26 AND 3,NZ [ NOT END OF FILE
5=FQ DO
5=^B MHUNT 2,FILE,FAPB
5?F2 LDX 0 ACES [ CLEAR OUT "Y" S
5?YL STO 0 WEXCL(2)
5#D= STO 0 WPERM(2)
5#XW STO 0 WCONS(2)
5*CG LDN 0 APROPNAME(3) [ PROPERTY NAME
5*X6 LDN 1 WNAME(2)
5BBQ MOVE 0 3
5BWB LDN 5 5 [ LENGTH OF OUTPUT LINE
5CB2 LDX 1 FX1
5CTL LDX 4 APROPNO(3)
5D*= IF 4,NG [ EXCLUSIVE
5DSW THEN
5F#G LDX 0 PEXCL(1)
5FS6 STO 0 WEXCL(2)
5G?Q LDN 5 7
5GRB FI
5H?2 SLL 4 1
5HQL IF 4,NG [ PERMANENT
5J== THEN
5JPW LDX 0 PPERM(1)
5K9G STO 0 WPERM(2)
5KP6 LDN 5 8
5L8Q FI
5LNB LDX 4 APROPGROUP(3)
5M82 IF 4,NG [ CONSOLE
5MML THEN
5N7= LDX 0 PCONS(1)
5NLW STO 0 WCONS(2)
5P6G LDN 5 10
5PL6 FI
5Q5Q DEX 5 A1(2) [ SIG. LENGTH OF DATA
5QKB APPEND 1,ZAPPEND1
5R52 REPEAT
5RJL [
5S4= [ CLOSE PROPERTY
5SHW [
5T3G CLOSE
5TH6 [
5W2Q [ LIST OUTPUT
5WGB [
5X22 IF BS,2,WBLIST [ LIST
5XFL THEN
5X^= STOZ 7
5YDW IF BS,2,WBLISTPR [ LIST(PR...)
5YYG THEN
5^D6 MHUNT 2,CPB,CUNI
5^XQ LDEX 7 ANUM(2)
62CB FI
62X2 ADN 7 CPDATA-A1*4+51
63BL SRL 7 2
63W= SETUPCORE 7,3,ADATA,CREADL
64*W IF MBS,2,WBOPER,WBNOUSER [ OPERATOR OR NO USER CONTEXT
64TG THEN [ RUNJOB
65*6 LDN 5 PRUNJOB(1)
65SQ LDN 6 CPDATA(3)
66#B MVCH 5 32
66S2 IF BS,2,WBLISTPR [ ,PARAM(PR...)
67?L THEN
67R= LDN 5 PRJPROP(1)
68=W MVCH 5 9 [,PARAM(PR
68QG MHUNT 2,CPB,CUNI
69=6 LDN 5 APARA(2)
69PQ LDEX 2 ANUM(2)
6=9B MVCH 5 0(2) [ PROPERTY STRING
6=P2 LDN 5 PRJBRAC(1)
6?8L MVCH 5 1
6?N= FI
6#7W LDX 2 FX2
6#MG LDX 4 AWORK1(2)
6*76 LDN 5 0
6*LQ DVR 4 P10000(1)
6B6B LDX 4 5
6BL2 LDCT 5 #200
6C5L LDN 1 CPDATA+2(3)
6CK= LDN 0 4
6D4W DO [ CONVERT GENERATION NO.
6DJG CBD 4 0(1)
6F46 BCHX 1 £
6FHQ REPEAT CT 0
6G3B SBN 6 CPDATA(3)
6GH2 SLC 6 2
6H2L STO 6 A1(3)
6HG= LDX 5 GSIGN [ FOR SYSTEM ISSUED CONTEXT
6H^W ORS 5 CONTEXT(2)
6JFG ISSUCOMB XCOMERRJ,XCOMERRJ
6J^6 XCOMERRJ
6KDQ ERS 5 CONTEXT(2)
6KYB ELSE [ LISTFILE
6LD2 LDN 5 PLF(1)
6LXL LDN 6 CPDATA(3)
6MC= MVCH 5 17 [ LF
6MWW IF BS,2,WBLISTPR [ ,PR...
6NBG THEN
6NW6 LDN 5 PLFPROP(1)
6P*Q MVCH 5 3
6PTB MHUNT 2,CPB,CUNI
6Q*2 LDN 5 APARA(2)
6QSL LDEX 2 ANUM(2)
6R#= MVCH 5 0(2) [ PROPERTY STRING
6RRW FI
6S?G SBN 6 CPDATA(3)
6SR6 SLC 6 2
6T=Q STO 6 A1(3) [ LENGTH
6TQB ISSUCOMB XCOMERLF,XCOMERLF
6W=2 XCOMERLF
6WPL FI
6X9= ELSE
6XNW IF BS,2,WBOPER [ OPERATOR CONTEXT
6Y8G THEN
6Y=9 ... FSHCODE B,XGETSEMA
6Y?Y ...(
6Y*M ... TRANSBEG FSHWAID,WA,3,NOBLOCKS,,ACOMMUNE1
6YCB ... BRN XLOCKED
6YF5 ...XGETSEMA
6YGS ...)
6YJH ...QENTRY3
6YL= ...[
6YN6 XLOCK
6^7Q [ IF CONSOLE FREE
6^MB BSON AWHATBIT,WAIT
7272 [ THEN LOCK OUT CONSOLE
72LL ON AWHATBIT
72NT ... FSHCODE AORB
72R4 ...(
72T? ... NOTALIEN XNOSHAMBL
72WB ... SETNCORE 1,3,FSH,FSHAMBLES
72XF ... LDX 0 SCDLINK(1)
72YJ ... STO 0 FSHCDLINK(3)
72^P ...XNOSHAMBL
733Y ...)
736= BRN XLOCKED
73KW [ ELSE WAIT,THEN TRY AGAIN
745G WAIT
74K6 COOR3 #114
754Q BRN XLOCK
75JB [ FI
7642 XLOCKED
765Y ...[
767W ... FSHCODE A,XSEMAHELD
769S ...(
76?Q ... TRANSFIN ,,ALIEN
76*N ...XSEMAHELD
76CL ...)
76FJ ...[
76HL FI
773= REWIND
77GW WHILE TRUE
782G READ
78G6 MHUNT 3,FILE,FRB
78^Q LDX 0 ALOGLEN(3)
79FB SBN 0 1
79^2 ORX 0 A1(3)
7=DL AND 0,NZ [ NOT END OF FILE
7=Y= DO
7?CW TESTBRKIN ZHEREBRK
7?XG LDEX 6 A1+FRH(3)
7#C6 SLL 6 2
7#WQ SBN 6 8
7*BB OUTMON 6,A1+FRH+2,A1+FRH+1(3),FILE,FRB
7*W2 MFREE FILE,FRB
7B*L REPEAT
7BT= IF BS,2,WBOPER [ OPERATOR CONTEXT
7C#W THEN
7CBS ... FSHCODE B,XRELSEMA
7CDQ ...(
7CGN ... TRANSBEG FSHWAID,WA,4,NOBLOCKS,,ACOMMUNE1
7CJL ... BRN XRELD
7CLJ ...XRELSEMA
7CNG ...)
7CQD ...QENTRY4
7CSG OFF AWHATBIT [ RELEASE CONSOLE
7D#6 FON #114
7D*T ... FSHCODE A,SNOSHAMBL
7DCJ ...(
7DF? ... NOTALIEN SNOSHAMBL
7DH2 ... MFREE FSH,FSHAMBLES
7DJP ... TRANSFIN
7DLD ...SNOSHAMBL
7DN7 ...)
7DPW ...XRELD
7DRQ FI
7F?B FI
7FR2 [
7G=L [ TIDY UP
7GQ= [
7H9W LDN 6 0
7HPG CALL 7 SCLOSE
7J96 ENDCOM
7JNQ [
7K8B [***********************************************************************
7KN2 [
7L7L [ ERRORS
7LM= [
7M6W [***********************************************************************
7MLG [
7N66 ZWRQUAL
7NKQ COMERR BADQUAL [ERROR IN 'LIST' QUALIFIER
7P5B ZLISTWR
7PK2 COMERR APFERR [ PARAMETER FORMAT ERROR
7PMK ...#UNS ANSTOOMANY
7PQ8 ...(
7PSR ...ZMAXPAR
7PXB ... COMERR JMAXPAR
7P^^ ...)
7Q4L [
7Q5H ... FSHCODE AORB
7Q6D ...(
7Q7* ...[
7Q8= ...[***********************************************************************
7Q97 ...[
7Q=4 ...[ UNANTICIPATED CLOSEDOWN
7Q=^ ...[
7Q?W ...[***********************************************************************
7Q#R ...QENTRY7
7Q*N ... OFF AWHATBIT
7QBK ... FON #114
7QCG ... MFREE FSH,FSHAMBLES
7QDC ... TRANSDIE
7QF# ...[
7QG9 ...)
7QH6 ...[
7QJ= [***********************************************************************
7R3W [
7RHG [ BREAKIN
7S36 [
7SGQ [***********************************************************************
7T2B [
7TG2 [
7T^L ZHEREBRK [ BREAKIN DURING HERE OUTPUT
7WF= [
7WYW IF BS,2,WBOPER [ OPERATOR CONTEXT
7XDG THEN
7XGP ... FSHCODE B,XCLSEMA
7XJY ...(
7XM7 ... TRANSBEG FSHWAID,WA,4,NOBLOCKS,,ACOMMUNE1
7XPB ... BRN SEMAFREE
7XRK ...XCLSEMA
7XTS ...)
7XY6 OFF AWHATBIT [ RELEASE CONSOLE
7YCQ FON #114
7YMJ ...SEMAFREE
7YXB FI
7^C2 [
7^WL ZPROPBRK [ BREAKIN ON OPENING :SYSTEM.PROPERTY
82B= [
82TW LDN 6 1
83*G CALL 7 SCLOSE
83T6 [
84#Q ZOUTFILEBRK [ BREAKIN ON OPENING OUTPUT FILE
84SB [
85#2 ABANDCOM
85RL [
86?= [
86QW ZAPPEND1 [ APPEND MACRO LABEL
87=G [
87Q6 CLOSE
889Q [
88PB ZAPPEND0 [ HEADINGS APPEND MACRO LABEL
8992 [
89NL
8=8= LDN 6 1
8=MW CALL 7 SCLOSE
8?7G ABANDCOM
8?M6 [
8#6Q [***********************************************************************
8#LB [
8*62 [ GEOERRS
8*KL [
8B5= [***********************************************************************
8BJW [
8C4G [
8CJ6 ZERROOW
8D3Q ZERROW
8DHB GEOERR 1,WAOPEN
8F32 ZERREOW
8FGL ZERREW
8G2= GEOERR 1,WAERASE
8GFW [
8G^G #END
^^^^ ...606052210003