(George Source)
Macros used: BITDEFS, FIELDDEF
22FL [ 22^= [ CONBUFF/CNTRL BLOCK FORMAT 23DW [ 23YG #DEF COIN = A1 [ NUMBER OF PREVIOUS LINES IN THE 24D6 [ CURRENT INPUT MESSAGE 24XQ [ 25CB #DEF CORET = COIN + 1 [ NUMBER OF PAGES RETAINED FOR 25X2 [ SHOWING. WILL BE LESS THAN SIZE 26BL [ OF RECALL FILE IN PAGES UNTIL 26W= [ FILE IS FILLED AND STARTS TO BE 27*W [ UPDATED CYCLICALLY 27TG [ 28*6 #DEF COBLK = CORET + 1 [ NUMBER OF BLOCKLET WITHIN RECALL 28SQ [ FILE TO WHICH ACTIVE PAGE WILL BE 29#B [ WRITTEN 29S2 [ 2=?L #DEF COECH = COBLK + 1 [ NUMBER OF INPUT MESSAGES CHAINED 2=R= [ FOR ECHO TO OPER LOG 2?=W [ 2?QG #DEF CODAT = COECH + 1 [ EDATE AND CLEANCT AT THE TIME THE 2#=6 [ CURRENT PAGEWAIT OR SHOW STARTED 2#PQ [ (2 WORDS) 2*9B [ 2*P2 #DEF COBS = CODAT + 2 [ EDATE AND CLEANCT AT THE TIME THAT 2B8L [ BSTS LAST WROTE 2BN= [ 2C7W #DEF COVID = COBS + 2 [ 'CLUSTOPER' WORDS FOLLOW, WORD 2CMG [ COVID+<N> CONTAINING DETAILS OF 2D76 [ SCREEN <N> ON CLUSTER ZERO 2DLQ [ 2F6B ...#DEF CLUSTOPER = 1 [HIGHEST NUMBER SCREEN WE CAN HANDLE 2FL2 [ 2G5L [ EACH WORD IS SUBDIVIDED AS FOLLOWS: 2GK= [ 2H4W FIELDDEF COSHOWS,6,0,5 [ 6-BIT FIELD - NUMBER OF SHOWS 2HJG [ OUTSTANDING FOR THIS SCREEN 2J46 [ 2JHQ BITDEFS COVID,7,COPAGEWAIT [ SET IF WAITING BETWEEN PAGES (ONLY 2K3B [ APPLIES TO INTERACTIVE SCREEN) 2KH2 [ 2L2L BITDEFS COVID,8,COUTWAITS [ SET IF 'OUTPUT WAITING' HAS BEEN 2LG= [ WRITTEN (ONLY APPLIES TO 2L^W [ INTERACTIVE SCREEN) 2MFG [ 2MJ5 ... BITDEFS 0,9,COAUTO [ SET IF SCREEN IS ON AUTO 2MLN ... [ 2MP? ... BITDEFS COVID,10,COVERWRITE [ SET IF MAIN SCREEN NEEDS RESETTING, 2MRW ... [ E.G. AFTER BSTS MSG 2MWF ... [ 2M^6 [ 1-BIT GAP 2NDQ [ 2NYB BITDEFS COVID,12,CONSFILE [ SET WHEN RECALL FILE SET UP 2PD2 [ (ONLY HERE TO SAVE SPACE) 2PXL [ 2QC= BITDEFS 0,13,COSHOWING [ SET IF SCREEN IS SHOWING 2QWW [ 2RBG BITDEFS COVID,14,CONSNOFILE [ SET IF RECALL FILE SETUP FAILED 2RW6 [ (ONLY HERE TO SAVE SPACE) 2S*Q [ 2STB FIELDDEF COCURRENT,9,0,23 [ 9-BIT FIELD CONTAINING NUMBER OF 2T*2 [ PAGE CURRENTLY ON SCREEN 2TSL [ 2W#= #DEF CNTRLEN = (COVID+CLUSTOPER+1) - COIN 2WRW [ BLOCK LENGTH 2X?G [ 2XR6 [ 2Y=Q [ 2YQB [ 2^=2 [ 2^PL [ CONBUFF/ACTIVE BLOCK FORMAT 329= [ 32NW #DEF ACTIVEINIT = 64 [ INITIAL LOGICAL LENGTH 338G [ 33N6 #DEF ACTIVEXT = ACTIVEINIT [ SIZE OF EACH INCREASE 347Q [ 34MB #DEF ACTIVEMAX = ACTIVEXT * 3 + ACTIVEINIT 3572 [ THREE EXTENSIONS ALLOWED 35LL [ 3636 ...#DEF ACHCT = A1 [ WHILE PAGE BEING BUILT UP: 36CL ... [ 0 => NO MESSAGES SUCCESSFULLY AP 36S6 ... [ WHEN PAGE WRITTEN AWAY: 378L ... [ SIZE OF PAGE (INC FUNCTION LINE) 37K6 [ 384Q #DEF ACLOG = ACHCT + 1 [ COUNT OF WORDS (INCLUDING ITSELF) 38JB [ TO BE OVERWRITTEN BY A FUNCTION 3942 [ LINE AFTER READING PAGE FROM FILE 39HL [ PRIOR TO SHOWING IT. THE NEXT THREE 3=3= [ WORDS ARE ONLY OF USE DURING THE 3=GW [ ENOUGH SPACE IS NEEDED (AT LEAST 3?2G [ 16 CHARACTERS) THEY ARE NOT OVER- 3?G6 [ WRITTEN BY PAGE DATA. 3?^Q [ PAGE DATA ITSELF STARTS AT 3#FB [ ACLOG + [ACLOG] 3#^2 [ 3*DL #DEF ACLFT = ACLOG + 1 [ LINES LEFT IN PAGE 3*Y= [ 3BCW #DEF ACOUT = ACLFT + 1 [ DISPLACEMENT RELATIVE TO FPTR OF 3BXG [ THE NEXT LINES IN THE PAGE THAT 3CC6 [ HAVE NOT YET BEEN WRITTEN TO THE 3CWQ [ LOG AREA 3DBB [ 3DW2 #DEF ACLEN = ACOUT + 1 [ CHARACTER COUNT OF THAT SECTION 3F*L [ 3FCT ...#DEF ACLNS = ACLEN + 1 [ LINES IN THAT SECTION 3FG4 ... [ 3FJ? ...#DEF ACDAT = ACLNS + 1 [ EDATE THAT PAGE WAS STARTED 3FLG ... [ 3FNP ...#DEF ACTIM = ACDAT + 1 [ CLEANCT THAT PAGE WAS STARTED 3FQY ... [ 3FT= [ AFTER THE REMAINDER OF THE GAP FOR 3G#W [ THE FUNCTION LINE (SEE ABOVE), THE 3GSG [ PAGE DATA BEGINS 3H#6 [ 3HRQ #DEF HEIGHTPAGE = 19 [ LINES IN A PAGE 3J?B [ 3JR2 [ 3K=L [ 3KQ= [ 3L9W [ 3LPG [ CONBUFF/CSHOW BLOCK FORMAT 3M96 [ 3MNQ #DEF CSVID = A1 [ SCREEN NUMBER 3N8B [ 3NN2 #DEF CSPAG = CSVID + 1 [ PAGE NUMBER (RELATIVE TO ACTIVE) 3P7L [ 3PM= [ 3Q6W [ 3QLG [ 3R66 [ BITS AND FIELDS IN REPLY WORD 3RKQ [ 3S5B BITDEFS 0,0,CONSBUSY,,,CONSFAIL,CONSCANCEL 3SK2 BITDEFS 0,5,CONSINOP,CONSFWD,CONSREV,CONSCONTN 3T4L FIELDDEF CONSREMCT,15,0,23 3TJ= [ 3W3W [ 3WHG [ 3X36 [ 3XGQ [ VALUES FOR IP PAGEWAIT 3Y2B [ 3YG2 [ 3Y^L ...#DEF IPWDEFAULT=0 3^F= #DEF IPWMAX=600 3^YW #DEF IPWMIN=0 42DG [ 42Y6 [ ^^^^ ...554450340006