-- Copyright (C) 1982, 1984, 1985  by Xerox Corporation. All rights reserved. 
-- InitParmsNoTajo.mesa, HGM, 26-Nov-85 22:57:51

DIRECTORY
  Heap USING [systemZone],
  OthelloDefs USING [CommandProcessor, GetName, IndexTooLarge, MyNameIs, RegisterCommandProc],
  OthelloForgot USING [];

InitParmsNoTajo: PROGRAM
  IMPORTS Heap, OthelloDefs
  EXPORTS OthelloForgot =
  BEGIN

  userName, userPassword: LONG STRING ← NIL;

  SmashPassword: PUBLIC PROCEDURE =
    BEGIN
    Heap.systemZone.FREE[@userName];
    Heap.systemZone.FREE[@userPassword]
    END;

  GetUserNamePassword: PROC = {
    OthelloDefs.MyNameIs[
      myNameIs: "Login"L, myHelpIs: "Set user name-password"L];
    OthelloDefs.GetName["User: "L,     @userName];
    OthelloDefs.GetName["Password: "L, @userPassword, stars]};

  commandProcessor: OthelloDefs.CommandProcessor ← [FtpCommands];
  
  FtpCommands: PROC [index: CARDINAL] = {
    SELECT index FROM
      0 => GetUserNamePassword[];
      ENDCASE => OthelloDefs.IndexTooLarge};

  OthelloDefs.RegisterCommandProc[@commandProcessor];
  
  END.....