(George Source)
22FL [ 22^= ...[ THIS FILE CONTAINS RESTORE TIME MACROS TO TURN ON AND 23DW [ SOMETIMES OFF THE CSS FACILITIES. THOSE RESTRICTED 23YG [ TO CSS USE START "CSS". THE REST ARE FOR GENERAL USE. 24D6 [ 24MY ...[??? CSSMAKES SECT CENT FGN 18 DOC 24XQ #MAC CSSMAKES 25CB #MEN VERBCLAS 25X2 #TRA K81VERBCLAS 26BL BICE MS,MAKESPECIAL,#400002,PNTLAST,6 26W= #END 27*W #NOR 27KN ...[??? NEWSLETT SECT CENT FGN 18 DOC 27TG [ 28*6 #MAC NEWSLETTER 28SQ #STR OFF,%A 29#B #SKI 29S2 ( 2=?L #MEN DEWELL 2=R= #TRA K90DEWELL 2?=W BRN K91DEWELL 2?QG #TRA K92DEWELL 2#=6 BRN K93DEWELL 2#PQ #END 2*9B #EXI 2*P2 ) 2*QP ...#UNS JNEWSLETTER+1 2*SD ...#SKI 2*W7 ...( 2*XW ... ADDMESS 2*^K ... MESSMONA 2,JNEWSLETTER,,FORCETYP,CT 2B3# ... #25412020 2B53 ... ADDEND 2B6Q ...) 2B8L #MEN DEWELL 2BN= #TRA K90DEWELL 2C7W NULL 2CMG #TRA K92DEWELL 2D76 NULL 2DLQ #END 2FL2 #MEN PNTLAST 2G5L #TRA K80PNTLAST+1 2GK= #STR %A 2H4W 12H%A 2HJG #TRA K80PNTLAST+4 2J46 #STR %B 2JHQ 12H%B 2K3B #TRA K80PNTLAST+8 2KH2 #STR %C 2L2L +0%C 2LG= #TRA K80PNTLAST+9 2L^W #STR %D 2MFG 4H%D 2M^6 #TRA K80PNTLAST+11 2NDQ #STR %E 2NYB 12H%E 2PD2 #TRA K80PNTLAST+14 2PXL #STR %F 2QC= 12H%F 2QWW #TRA K80PNTLAST+18 2RBG #STR %G 2RW6 +0%G 2S*Q #TRA K80PNTLAST+19 2STB #STR %H 2T*2 4H%H 2^D= ...#TRA K81PNTLAST 2^HB ... MONOUT JNEWSLETTER 2^LG ...#END 329= #NOR 32F4 ...[??? MOPCREAT SECT CENT FGN 18 DOC 32NW [ 338G #MAC MOPCREATE 33N6 #MEN VERBCLAS 347Q #TRA K82VERBCLAS 34MB #STR OFF,%A 3572 #SKI 35LL LDN 0 0 366= #STR OFF,%A 36KW LDX 0 CONTEXT(2) 375G #END 37K6 #NOR 4H3W ...[??? CSSABPM SECT CENT FGN 18 DOC 4H3Y ...[ 4H43 ...#MAC CSSABPM 4H46 ...#UNS ABPM 4H49 ...#SKI 4H4# ...( 4H4C ... 4H4G ... FCMENDV 4H4K ...ABPM +0 4H4N ... FCENDV 4H4R ...) 4H4W ...#MEN ABANDON 4H4^ ...#TRA K79ABANDON 4H54 ... +ABPM 4H55 ...#END 4H56 ...#MEN ABANDONA 4H57 ...#TRA K80ABANDONA 4H5= ... NULL 4H5* ...#END 4H5D ...#MEN LOGOUT 4H5H ...#TRA K80LOGOUT 4H5L ... LDX 0 ABPM 4H5P ...#TRA K80LOGOUT+4 4H5S ... STOZ ABPM 4H5X ...#END 4H62 ...#NOR 4H63 ...[??? ONEURG SECT CENT FGN 18 DOC 4H65 ...[ 4H68 ...[ RESTORE TIME MACRO TO ALLOW ONLY ONE URGENCY PER JOB 4H6? ...#MAC ONEURG 4H6# ...#SKI JWPHASE4<1$1 4H6* ...( 4H6B ...#MEN URGELOAD 4H6F ...#TRA K1URGELOAD 4H6G ...) 4H6H ...#SKI JWPHASE4 4H6J ...( 4H6K ...#MEN JDWRITE 4H6L ...#TRA K2JDWRITE 4H6M ...) 4H6N ...#STR OFF,%A 4H6P ...#SKI 4H6Q ...( 4H6R ...#SKI JWPHASE4 4H6S ... BRN K21JDWRITE 4H6T ...#SKI JWPHASE4<1$1 4H6W ... BRN K3URGELOAD 4H6X ...) 4H6Y ...#STR OFF,%A 4H6^ ...( 4H72 ...#SKI JWPHASE4 4H73 ... BRN K20JDWRITE 4H74 ...#SKI JWPHASE4<1$1 4H75 ... BRN K2URGELOAD 4H76 ...) 4H77 ...#END 4H78 ...#NOR 4H79 ...[??? CSSLIMUR SECT CENT FGN 18 DOC 4H7= ...[ RESTORE TIME MACRO TO LIMIT URGENCY RANGE 4H7# ...[ THE URGENCY RANGE IS SUPPLIED IN THE WORD SPEC.BY %A 4H7C ...#MAC CSSLIMUR 4H7G ...#STR OFF,%A 4H7K ...( 4H7N ...#UNS JDEW3 4H7R ...#SKI 4H7W ...( 4H7^ ... ADDMESS 4H84 ... MESSMONA 32,JDEW3,,CE 4H87 ... 4HERRO 4H8= ... #62202542 4H8* ... #20254112 4H8D ... 20HURGENCY OUT OF RANGE 4H8H ... ADDEND 4H8L ...) 4H8P ...) 4H8Q ...#SKI JWPHASE4<1$1 4H8R ...( 4H8S ...#MEN URGELOAD 4H8X ...#TRA K40URGELOAD 4H8Y ...) 4H8^ ...#SKI JWPHASE4 4H92 ...( 4H93 ...#MEN JOBDATA 4H94 ...#TRA K40JOBDATA 4H95 ...) 4H96 ...#STR OFF,%A 4H97 ...#SKI 4H98 ... LDX 2 7 4H9? ...#STR OFF,%A 4H9B ...( 4H9F ...#DEF MANAGER0 = INSTPARAM 4H9J ...#DEF MANAGER1 = INSTPARAM+1 4H9M ...#DEF MANAGER2 = INSTPARAM+2 4H9Q ...#DEF MANAGER3 = INSTPARAM+3 4H9T ...#DEF MANAGER4 = INSTPARAM+4 4H9Y ...#DEF MANAGER5 = INSTPARAM+5 4H=3 ...#DEF MANAGER6 = INSTPARAM+6 4H=6 ...#DEF MANAGER7 = INSTPARAM+7 4H=9 ... LDX 0 %A 4H== ...#SKI JWPHASE4 4H=? ...#TRA K41JOBDATA 4H=# ...#SKI JWPHASE4<1$1 4H=* ...#TRA K41URGELOAD 4H=C ... +JDEW3 4H=G ...) 4H=K ...#END 4H=N ...#NOR 4HCG ...[??? CSSGIVE6 SECT CENT FGN 18 DOC 4HCJ ...# 4HHB ...# 4J32 ...#MAC CSSGIVE6 4JGL ...# 4K2= ...[ SPECIAL MACRO FOR CSS BRA GIVE 6 IS FOR SPECIAL PRIVILEGED 4KFW ...[ READ-ACCESS TO GEORGE CODE 4K^G ...# 4L#Y ...#MEN GIVEA 4LNB ...#TRA K60GIVEA 4M3W ...#DEF MANAGER0 = INSTPARAM 4M72 ...#DEF MANAGER1 = INSTPARAM+1 4M=6 ...#DEF MANAGER2 = INSTPARAM+2 4M*= ...#DEF MANAGER3 = INSTPARAM+3 4MDB ...#DEF MANAGER4 = INSTPARAM+4 4MHG ...#DEF MANAGER5 = INSTPARAM+5 4MLL ...#DEF MANAGER6 = INSTPARAM+6 4MPQ ...#DEF MANAGER7 = INSTPARAM+7 4MSW ... LDX 7 %A 4MY2 ...#END 4NCL ...#NOR 4NMD ...[??? BCALL SECT CENT FGN 18 DOC 4NX= ...# 4PBW ...[ RESTORE TIME MACRO TO PROHIBIT 4PWG ...[ 'ALL' AS A DEFAULT TO BROADCAST 4PXX ...#MAC BCALL 4P^# ...#MEN BCAST 4Q2P ...#TRA K50BCAST 4Q46 ...#STR OFF,%A 4Q5H ... BRN K51BCAST 4Q6Y ...#STR OFF,%A 4Q8* ...#SKI 4Q9Q ... BRN K53BCAST 4Q?7 ...#END 4Q#J ...#NOR 4Q** ...[??? CSSBC SECT CENT FGN 18 DOC 4QB6 ...#MAC CSSBC 4QTQ ...#MEN BCAST 4R*B ...#TRA K52BCAST 4RT2 ... LDX 0 CONTEXT(2) 4S#L ...#TRA K50BCAST 4SS= ... BRN K51BCAST 4W?6 ...#END 4WQQ ...#NOR 4X=B ...[ 4XQ2 ...[??? MOPIDENT SECT CENT 20 DOC 4Y9L ...# 4YP= ...[ RESTORE TIME MACRO TO INFORM THE 4^8W ...[ OPERATORS WHEN A MOP JOB IS ENWELLED 4^NG ...#SKI JWPHASE4 5286 ...( 52MQ ...#MAC MOPIDENT 537B ...#MEN ENWELLB 53M2 ...#TRA K1ENWELLB 546L ...#STR OFF,%A 54L= ... BRN K55ENWELLB 555W ...#STR OFF,%A 55KG ...#SKI 5656 ... BRN K50ENWELLB 56JQ ...#END 574B ...#NOR 57J2 ...) 583L ...#SKI JWPHASE4<1$1 58H= ...( 592W ...#SKI JWPHASE3 59GG ...( 5=26 ...#MAC MOPIDENT 5=FQ ...#MEN ENWELL 5=^B ...#TRA K55ENWELL 5?F2 ...#STR OFF,%A 5?YL ... DOWN PNTLAST,17 5#D= ...#STR OFF,%A 5#XW ...#SKI 5*CG ...( 5*X6 ... NULL 5BBQ ... NULL 5BWB ...) 5CB2 ...#END 5CTL ...#NOR 5D*= ...) 5DSW ...#SKI JWPHASE3<1$1 5F#G ...( 5FS6 ...#MAC MOPIDENT 5G?Q ...#MEN ENWELL 5GRB ...#TRA K55ENWELL 5H?2 ...#STR OFF,%A 5HQL ... DOWN ENWELL,50 5J== ...#STR OFF,%A 5JPW ...#SKI 5K9G ...( 5KP6 ... NULL 5L8Q ... NULL 5LNB ...) 5M82 ...#END 5MML ...#NOR 5N7= ...) 5NLW ...) 5P6G ...[ 5PL6 ...[??? DP80 SECT CENT FGN 23 DOC 5Q5Q ...[ 5QKB ...[ RESTORE TIME MACRO TO INCREASE DP TEXT LIMIT TO 80 CHARS. 5R52 ...[ 5RJL ...#MAC DP80 5S4= ...#MEN DISPCOM 5SHW ...#TRA K50DISPCOM 5T3G ... +81 5TH6 ...#TRA K51DISPCOM 5W2Q ... LDN 5 80 5WGB ...#TRA K52DISPCOM 5X22 ... LDN 7 29 5XFL ...#END 5X^= ...#NOR 5YDW ...[ 5YYG ...[??? NOMIDN SECT CENT FGN 26 DOC 5^D6 ...[ 5^XQ ...[ RESTORE TIME MACRO FOR SPECIAL 4968 62CB ...[ 62X2 ...#MAC NOMIDN 63BL ...#MEN DATECON 63W= ...#TRA K50DATECON 64*W ... NULL 64TG ...#TRA K51DATECON 64YL ...#STR %A 653Q ...#SKI 656W ... +0,+0 65=2 ...#STR %A 65*6 ... 8H%A000 65SQ ...#SKI 34?+0?-1]M 66#B ...( 66S2 ...#TRA K51DATECON 67?L ... 8H %A000 67R= ...) 68=W ...#END 68QG ... HIDECOM A*,OFF 69=6 ...#NOR 69PQ ...[ 6=9B ...[???? ZTSPECIAL 6=P2 ...[ RESTORE TIME MACRO TO SWITCH SPECIAL 6?8L ...[ COMMAND ZT IN AND OUT 6?N= ...[ " ZTSPECIAL" OR " ZTSPECIAL ON" SWITCHES IT IN 6#7W ...[ " ZTSPECIAL OFF" SWITCHES IT OUT 6#MG ...#MAC ZTSPECIAL 6*76 ...#STR %A,ON 6*LQ ...#STR 6B6B ...( 6BL2 ...#MEN VCLASTWO 6C5L ...#TRA K85VCLASTWO 6CK= ... BICE ZT,ZTIME,#00351,DATECON,60 6D4W ...#END 6DJG ...#EXI 6F46 ...) 6FHQ ...#STR OFF,%A 6G3B ...#STR 6GH2 ...( 6H2L ...#MEN VCLASTWO 6HG= ...#TRA K85VCLASTWO 6H^W ... BICE ??,??,#00351,DATECON,60 6JFG ...#END 6J^6 ...) 6KDQ ...#NOR 6KYB ...[ ^^^^ ...342647400036