(George Source)
Macros used: ACROSS, BCONTEXT, CHEKPASWRD, CLOSETOP, COMBRKIN, COMERRX, DOWN, FJOCA, FREECORE, LDBIT, MFREE, MHUNT, MHUNTW, NEWJBNUM, OPENSYS, PARALYSE, PARAPASS, PROPUSER, READDICT, SECHECK, SEG, SEGENTRY, SETNCORE, SPARANOT, TESTREP2, TESTRPN2, USERNORM, ZERRORX
22FL ...#LIS K0LIST 22^= ... SEG LIST,,,,G253,G551 23DW ...# FOR UGUG EDIT M253 (LISTFILE IN NO-USER CONTEXT) 23YG ...#OPT G551 = 0 24D6 ...#SKI G551&1 24XQ ...# WITH G3UG EDIT M551 (SELECTIVE PASSWORD CHECKS FOR CENTRAL AND REMOTE) 25CB ... SEGENTRY K1LIST,START 25X2 ...# 26BL ...TERIA 12HQ [ OWNER OF CAFE SYSTEM 26W= ...NJBDF 12HMOPNOUSERLF 27*W ...# 27TG ...# ERRORS 28*6 ...# 28SQ ...MZERR NGN 7 1 [ FRIG FOR ZERRORX 29#B ...MZERR1 29S2 ...MZER2 COMERRX 0(1),7 [ X7 = SUB-PARAMETER 2=?L ...ZJUSNA +JUSNA 2=R= ...ZJCOM +JCOM 2?=W ...# 2?QG ...XUSNA LDX 7 ZJUSNA(1) 2#=6 ... ZERRORX JPARMIS,1 2#PQ ...XFORM ZERRORX ERUSERFORM 2*9B ...XNEXI ZERRORX ERNOUSER 2*P2 ...XUSER LDX 7 ZJCOM(1) 2B8L ... ZERRORX JCONTINC,1 2BN= ...XIMP ZERRORX IMPASSE 2C7W ...XHSE ZERRORX HSECURE 2CMG ...# 2D76 ...XBRK COMBRKIN [ NOT AN ERROR REALLY 2DLQ ...# 2F6B ...START 2FL2 ... LDBIT ECVUSER,7 2G5L ... ANDX 7 CONTEXT(2) [ LEAVES X7 =0 IF NO-USER 2GK= ... BZE 7 NCAFF 2H4W ... FJOCA 2 2HJG ... LDX 4 TERIA(1) 2J46 ... LDX 5 TERIA+1(1) 2JHQ ... LDX 6 TERIA+2(1) 2K3B ... TXU 4 JUSER(2) 2KH2 ... TXU 5 JUSER+1(2) 2L2L ... TXU 6 JUSER+2(2) [ ONLY CAFE SYSTEM ALLOWED TO USE 2LG= ... BCS XUSER [ 'LIST' IN USER CONTEXT. 2L^W ...NCAFF PARAPASS [ TO ADVANCE PARAPASS POINTER - 2MFG ... MFREE CPB,CUNI [ PARANEXT DOESN'T DO THIS 2M^6 ... PARALYSE #36 [ GET USERNAME PART OF FIRST PARAM 2NDQ ... LDN 1 1 2NYB ... USERNORM 1 [ CHECK IT SLIGHTLY 2PD2 ... TESTREP2 USERMIS,XUSNA [ NO COLON 2PXL ... TESTRPN2 OK,XFORM [ FORMAT ERROR 2QC= ... MHUNTW 1,FILE,ADICT 2QWW ... LDN 4 A1(1) 2RBG ... LDN 5 CPREFIX(2) [ FOR 'PROPUSER' 2RW6 ... BZE 7 NUSER 2S*Q ... LDN 5 ACOMMUNE1(2) [ ASSUME A PROPER USER IF CAFE 2STB ...NUSER MOVE 4 3 2T*2 ... FREECORE 1 2TSL ... BNZ 7 PNAME [ ASSUME CAFE USERNAME VETTED EARLIER 2W#= ... PROPUSER [ CORRES. PROPER USER IN ACOM1-3 2WRW ... TESTREP2 NOUSER,XNEXI [ NOT IN LEXICON 2X?G ... LDX 5 ACOMMUNE2(2) [ ACOM2 USED BY OPENSYS 2XR6 ... OPENSYS (GEOERR),DICTIONARY,READ 2Y=Q ... STO 5 ACOMMUNE2(2) 2YQB ... READDICT ,ACOMMUNE1(2) [ MAKE FILE/ADICTENT FOR PASSCHECK 2^=2 ... CLOSETOP 2^PL ... TESTRPN2 OK,XNEXI [ USER HAS JUST BEEN ERASED ! 329= ...PNAME SPARANOT 2 [ JOB-NAME PART OF FIRST PARAM 32NW ... SETNCORE JPRIV+1,3,IUSER,JBL [ TO HOLD JOB-BLOCK DATA 338G ... LDN 0 1 [ AWORK2 = 1 FOR 'LIST', 0 FOR 'LF' 33N6 ... STO 0 AWORK2(2) 347Q ... LDN 5 JUSER(3) [ IUSER/JBL MUST BE SET UP WITH DATA 34MB ... LDN 4 ACOMMUNE1(2) [ EXPECTED BY LISTFILE IN JOB BLOCK 3572 ... MOVE 4 3 35LL ... MHUNT 2,CPB,CUNI 366= ... STO 2 GEN0 36KW ... NGX 4 ANUM(2) 375G ... LDN 1 NJBDF(1) [ DEFAULT IF NO "JOBNAME" IN PARAM 37K6 ... BPZ 4 NJMV 384Q ... LDX 5 ACES [ SPACE-FILL "JOBNAME" IN X5X6X7 38JB ... LDX 6 ACES 3942 ... LDX 7 ACES 39HL ... LDN 0 APARA(2) 3=3= ... LDEX 2 ANUM(2) 3=GW ... SBNC 2 12 3?2G ... NGN 1 0 3?G6 ... ANDX 2 1 3?^Q ... LDN 1 5 3#FB ... MVCH 0 12(2) [ CANNOT BE ZERO MOVE 3#^2 ... LDN 1 5 3*DL ...NJMV LDN 2 JNAME(3) [ "JOBNAME" 3*Y= ... MOVE 1 3 3BCW ... FREECORE GEN0 [ CPB/CUNI 3BXG ... MFREE CPB,CMULTI 3CC6 ... LDX 0 JOBNO(2) 3CWQ ... BNZ 0 STOJN 3DBB ... NEWJBNUM 0 3DW2 ...STOJN STO 0 JOBNUM(3) 3F*L ... STOZ JPRIV(3) 3FT= ... LDN 4 #42 3G#W ... BCONTEXT PCHK,2,OPERATOR [ GIVE URGENCY B 3GSG ... LDN 4 #55 3H#6 ... STO 4 JURGE(3) 3HRQ ... BCONTEXT NPWP,2,USER [ URGENCY M FOR CAFE 3J?B ... LDN 4 #45 [ URGENCY E FOR ORDINARY NO-USER 3JR2 ...PCHK STO 4 JURGE(3) 3K=L ...#SKI G551&1$1 3KQ= ...( 3L9W ... MHUNTW 3,FILE,ADICTENT 3LPG ... LDBIT ECVMOP,7 3M96 ... ANDX 7 CONTEXT(2) [ #0 = MOP 3MNQ ... SECHECK 3,NPCHK,NORM 3N8B ... BZE 7 XHSE [ HIGH, NOT MOP 3NN2 ...NORM BZE 7 NPCHK 3P7L ... CHEKPASWRD XBRK,XIMP 3PM= ... BRN NPWP 3Q6W ...NPCHK FREECORE 3 3QLG ...) 3R66 ...#SKI G551&1 3RKQ ...( 3S5B ... LDCT 7 #400 3SK2 ... ORN 7 2 3T4L ... DOWN INITJOB,20 3TJ= ... BRN XBRK 3W3W ... BRN XIMP 3WHG ... BRN NPWP 3X36 ... BRN XHSE 3XGQ ...) 3Y2B ...NPWP LDN 6 1 [ NO PASSWORD PARAM 3YG2 ...XPWP STO 6 AWORK4(2) 3Y^L ... ACROSS LISTFILE,2 3^F= ...#END 3^YW ... ^^^^ ...026113510018