17 22FL    #LIS           K0NEWPASSW>K0ALLGEO>K0GREATGEO>K0COMMAND 
  15 22J9 ...      SEG      NEWPASSW,867,SECTION CENT,,G3UGSI
   7 22LS ...#OPT  G3UGSI=0  
   6 22PC ...#SKI  G3UGSI
   4 22S2 ...(   
  16 22WK ...# MACRO TO PREVENT M551 AND SECURITY INTERFACE CLASH
   7 22_8 ...      SINM551   
   4 233R ...)   
   4 236B ...[   
  17 238_ ...[ (C)  COPYRIGHT INTERNATIONAL COMPUTERS LIMITED  1982  
  14 23?J ...[      THIS EXCLUDES CODE UNDER #SKI G3UGSI 
   4 23B7 ...[   
   4 23DW    #   
  21 23YG    #           THIS SEGMENT IMPLEMENTS THE NEWPASSWORD COMMAND  RESETTING T
  21 24D6    #           USER'S PASSWORD IN HIS DICTIONARY ENTRY TO THE VALUE SPECIFI
   4 24XQ    #   
   4 25X2    #   
  10 26BL ...      SEGENTRY K1NEWPASSW   
   4 26W=    #   
   4 273D ...[   
   4 278L ...[   
   4 27*W ...#   
  11 27TG ...      SETNCORE 3,3,FILE,ADICT   
   7 2*9B          CJOBLOCK 2
   9 2*P2          LDN   4  JUSER(2) 
   8 2B8L          LDN   5  A1(3)
  19 2BN=          MOVE  4  3                   [STO USERNAME IN FILE, ADICT 
  17 2C7W ...      OPENSYS  XBRK,DICTIONARY,GENERAL  [OPEN DICTIONARY
   7 2H4W          READDICT  
  16 2HJG          SPARAPAS                     [GET NEW PASSWORD
  10 2JHQ          HUNT     2,CPB,CUNI   
  19 2JMM ...      LDX   5  ACES                [SPACEFILL SPACE FOR PASSWORD
   8 2JRJ ...      LDX   6  ACES 
   8 2JXF ...      LDX   7  ACES 
   9 2K3B          LDX   4  ANUM(2)  
  15 2KH2          BNG   4  XNEG                [NO PASSWORD 
  16 2L2L          BZE   4  XNEG                [NULL PASSWORD   
  19 2LG=          ANDN  4  #7777               [NO. OF CHARS IN NEW PASSWORD
   8 2L_W ...      LDN   0  12   
  21 2MFG ...      SBX   0  4                   [X0=12-NO. OF CHARS IN NEW PASSWORD  
  19 2M_6 ...      BPZ   0  PWCPY               [BRN IF NO. OF CHARS NOT >12 
  17 2NDQ          LDN   4  12                  [DON'T WANT >12 CHARS
   9 2NYB    PWCPY LDN   1  APARA(2) 
   7 2PD2 ...      LDN   2  5
   8 2PXL    XLP   LDCH  0  0(1) 
   8 2QC=          SBN   0  #25  
   8 2QWW          BZE   0  THING
   7 2RBG          MVCH  1  1
   8 2RW6          BCT   4  XLP  
   4 2S*Q ...XNEG
   7 2STB ...#SKI  G3UGSI<1$1
  18 2T*2 ...      SINMAC1  5                   [SECURITY INTERFACE MACRO
   4 2TBY ...[   
   6 2TDW ...#SKI  G3UGSI
   4 2TGS ...(   
  18 2TJQ ...[     COMPILED IF USER GROUP SECURITY INTERFACE SWITCHED ON 
   8 2TLN ...      SINMAC1  5,,3 
   4 2TNL ...)   
   4 2TQJ ...[   
  11 2TSL ...      MHUNTW   3,FILE,ADICTENT  
  21 2W#= ...      LDN   2  5                   [MOVE NEW PASSWORD INTO ADICTENT BLOC
   8 2WRW ...      ADN   3  CPASS
   7 2X?G ...      MOVE  2  3
   8 2XR6 ...      SBN   3  CPASS
  10 2Y=Q ...      NAME     3,FILE,FWB   
  19 329=          REWRITE                      [OVERWRITE LAST ENTRY READ   
   9 32HM ...      MFREEW   FILE,FWB 
  16 32W4 ...      CLOSETOP                     [CLOSE DICTIONARY
   6 338G          ENDCOM
  15 33N6    XBRK  COMBRKIN                     [BROKEN IN   
  17 347Q ...THING CLOSETOP                     [CLOSE THE DICTIONARY
  14 34MB          LDN   0  #25                 [% CHAR  
  10 3572          DCH   0  ACOMMUNE1(2) 
  10 35LL          OUTPARN  1,ACOMMUNE1  
  18 366=          COMERR   HNOPC               [ERROR IF % CHAR IN PARAM
  11 36KW          MENDAREA 20,K99NEWPASSW   
   4 375G    #END
   8 ____ ...21266735000200000000