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