! 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