proc Menumap(Lev,Dr,Dc)
   private Lev,    ; 1st menu choice on current level as a string
           Dr,     ; display row
           Dc      ; display column
   canvas off
   cursor off
   style attribute 0
   clear
   style attribute 79
   @ 0,0  ?? " Menu  Map "
   style attribute 3
   @ 0,11 ?? fill("",49)
   style attribute 47
   @ 0,60 ?? " EverGreen  Systems "
   style attribute 63
   @ 2,0   ?? " Sales  Inventory  Customers  Accounting  Tools  Promos  Help  Menu_map  Exit "
   @ 3,1   ?? " "        ; Ŀ
   ;                     ; 'bar' building statements deleted for brevity
   @ 4,30  ?? " "        ; 
   @ 4,41  ?? " Scripts  View  Imp/Exp  Keys  House "
   @ 5,1   ?? " "
   .
   @ 6,29  ?? " G/L  A/R  A/P  Billing  Reports "
   @ 7,1   ?? " "
   .
   @ 8,18  ?? " Edit  Create  Ledgers  Tags  Reports  Graphs "
   @ 9,1   ?? " "
   .
   @ 10,47 ?? " Statements  Labels  Etc "
   @ 11,1  ?? " "
   .
   @ 12,7  ?? " Plant_records  Batch_records  Reports  Q_&_A  Graphs "
   @ 13,1  ?? " "
   .
   @ 14,37 ?? " Prices  Subs  Reference  Source  Etc "
   @ 15,1  ?? " "
   .
   @ 16,22 ?? " Edit  Create  Ledgers  New_batches  Priority  Reports "
   @ 17,1  ?? " "
   .
   @ 18,7  ?? " Edit  Create  Select  Reports  Q_&_A  Graphs "
   @ 19,1  ?? " "
   @ 20,0  ?? " Orders  Quotes  Post_orders  Reports  Q_&_A  Graphs "
   @ 21,1  ?? " "
   @ 22,0  ?? " Order_entry  Dig_lists  Loading_tickets  Summaries  Scheduler "
   @ 23,1  ?? " "
   @ 24,0  ?? " New_order  Edit_order  Void_order  Documents "
   style attribute 116
   @ 24,65 ?? " Press any key "
   style attribute 190
   @ Dr,Dc ?? " " + Lev + " "
   canvas on
      T = getchar()
endproc

