[categories] [index] [all (527)] [latest]

1. Handle user input

   /printUsage {
       (Usage:) =
       (  a - some stuff) =
       (  b - other stuff) =
       (  q - quit) =
   } def
   
   printUsage
   
   {    
       /userInput 128 string def
       (>) print flush
       (%lineedit) (r) file userInput readline
       pop % bool
   
       token not { () } if
   
       {
           dup (q) eq { quit } if
   
           dup (a) eq {
               pop token pop
               (a) =
               exit
           } if
   
           dup (b) eq {
               pop token pop
               (b) =
               exit
           } if
   
           clear
           printUsage
   
           exit
   
       } loop
   } loop