! Set system password

%include "Inc:FS.IMP"
%include "Inc:UTIL.IMP"

%begin
   %integer x
   %string(255) new1, new2
      set terminal mode(noecho)
      x = testsymbol %until testsymbol < 0
      prompt("New system password:");  readline(new1)
      prompt("Confirm:");              readline(new2)
      %if new1 # new2 %start
         printstring("Confirmation negative")
         newline
         %stop
      %finish
      x = fcomm(']' << 8, "6," . new1)
%endofprogram
