@'$kb'("sample","Sample interface with no knowledge","Tony Dodd")lp&r8ӊnҔfZF?P p4H`0R0X02h2222424<`4j4`6`6H6"X8,86p8@P8J:x::<<HDLL<LFNtN(NRXRRHR@PRnT0TTV&VTX@XZbxӊ Pђ"@6 ѠN0bѰzH`H ؾ$8(F`.T8bJt 8F"`F.XH:PHF@JRp^p^x```````bb b b `b( Hb4 b@ d^ Pdj dv d Pd Pd 8f 8f (h Hh Ph h h$ (j0 j< jH jT j n Ԍ  `   8> R &d X*r . 8 ̚ H̴     H  0 H>J >x @ @ B V0 VL XV xZ` ^ ` hb hb b"dP8dZ0rd rvʊɦɸp *8FXT`bp8~0h п*..0&044L:^p|rǦǸǼǾpH@PhZ"2ƶJx^r8&(,00HHNbPddd(Hd40d@(fLfXfdpfp0f|f fflln ppľP00(fXfdpfp0f|f fflln ppľP +$ ,J . menu_structure break_handler : a0H0 b c eHH d gr f`` f2 hh iz  h$ x^x k q2 m b  l   n s r p  q0   t  u   $d  x yF [] mbz id ife ofc2 bkv ak   on ir fs8^8 vko@@ qkDHH hwJPVP fwXX aw`` hxhNh trp p swF x x qy   yy interrupt calculator default_keyboard close_module current_instance create_module current_keyboard user_interface error_handler frames loaderi linker browsea fieldso bright $pmenu loader1@  package telling default why_handler current_advice done_viewingi $linktool HH edit_selected_field question done_advising format_out bar1 bar2 bar3 bar4 mnu2$ data load file name date node0 secondary desc call none save blue told bellb ruleB0 cyan true size tell type_ mssgh8X8 help formo exit user menu obey2h consF text getv setv keysB test quuxX  form_scheduler classifierv  function fooclassr done_browsing description magenta menubar u_start inform_window query_windowl how_system format_in current_formD query_handler keyboard keytable continue explain_how_advice kb22@@ kb3HH kb4PLP kb5XX fw2`` ccch $pk red inf$ T  msg foo   err   mnu8 @  int   why how input_echo input_type selected_fieldB form_schedule this_consultation  unload advice methodL source actual screen advises system margin select access, inform window author; yellow position helptextD virtual restart initial_contentsF primary system_definition open_module error_window explain_why view_keyboard dimensions menu_window menu_keyboard why_systemy browse_keyboard input_formatter output_module attribute output_formatter consultationi trace_window formlistc help_system command keyline get_elt background consult $pim2 system_description field black fixed frame $pbar build value white green state chain false recap clock start windw dummy initialise query explain_how_value help_compiles inform_handler advice_handlerV dummy initialise query explain_how 0   0 H  ` 0   0 0   0 0   0          H    H   H H   H H   H          `    `    `    ` 0  `    `   8 `    ` H  X ` h   `    X    0 0 p  X    0 0 x  X    0 0 @   X    h 0 @  ` 8   x Tony's form `   ` `   ` `   `     H     h    h    h    h 0  h    h   8 h    h H  ` h h   h    X  (  0 0 p  X  (  0 0 x  X  (  0 0 @   X  <  h 0 @  h 8   x Steve's form h   h h   h h   h     H     x   x H  P x   x x   x x   x     @      H                         0   h                                           @  8             System a A      Shell A 0 Go to DOS  Calcn B 8 Pocket calculator  Clock C @ Time and date DOS, Calculator, Clock   Query , B      foo D P Query foo:bar2  quux, E H Query quux:bar2  F F ` HELP FE HELP BAR  Advice C      Adv1t G X Jump,  Adv2 H x Boil  Recap I p Recap Get advice                 `      P    sample.sav                       0   h                                                H    h    0     x    8  P        X     8       x                       X                H   p         H             `   h     p @   8     p    X      `        p X   `   0   h   x        H  p H           @  p P        P   x      8         H  P                      (       0        ( x `  `         P                                                                                 @                       X    8    `  h 8   8 8   8 8   8          @   @ @   @ @   @    P    H   H H   H H   H    H    P   @ P (   P   P 0  P   f P    (   P `    P     < P   P P   P P   P P   P          X   H X (   X 0  X   X   ( X  X `    X    P X   X X   X X   X X   X          `    ` (   `   ` 0  `   `    (   ` `    `     < `   ` `   ` `   ` `   `          h H  P h   h h   h h   h          p (   p   p 0  p   p   (   p `    p    < p   p p   p p   p p   p          x (   x   x 0  x    Example interfaceR x   (   x `   x     P x   x x   x x   x x   x             H  (    0        (  X  `          <                                    SAMPLE.KBS SAMPLE.TAB SAMPLE.SUP  sample       help HELPTEXT.PRMD    p  h   h p    h     h         h   help1 HELPTEXT.PROF @        (      (    help2 SAMPLE.HLP        clock CLOCK.PRM   8                         8     c2 CLOCK.PRO @                          H    ( H   ` H   p H @   ( H @  ` H @  H H    ( H   ` H   x H    ( H   ` H    H     Save_ S     Loader L  Create loader  ConsE C p Edit consultation instance  Systemv S  Edit system description  SaveF S  Save knowledge base #Save system currently in Prometheus   Build B     Desc D  Edit user Prolog description  Build B  Build in normal mode  Test T  Build in test mode Build system from disk  Other O     Help H @ Add help file  Package P  Package knowledge base  Exit E P Leave linker Exit  H   H H   H H   H              (       0     ,    ( ` x  `    2                                8 (   8   8 0  x 8   w 8   ( `  8 `    8     P 8   8 8   8 8   8 8   8          h 0  h 8    h @    h P  ( 8     (  x  (  x   Val h H  ( 8     (  x   (  x   Val h X  ( 0      Prolog Use Prolog-2!  h x  ( 0      Advisor-2 Use Advisor-2!+  h p  ( 0      (       0         ( X   `         P                           x @ quux_bar2_helpr   X What is the qvalue of bar3?  x X What is the qvalue of bar2?  p X What is the qvalue of bar1?  p     (  2  <     h   x   h   p   h                         8        x    P            P    @                H    H            x    h    0    `    X            `        X            8    @        h    `                    H            p    H        x @ bar2_help   X What is the value of bar3?  x X What is the value of bar2?  p X What is the value of bar1?  p     (  2  <     `   x   `   p   `            @ (  1F1 help F2 change F3 menu F4 how F9 bell F10 quit @ (           (  (  (  @    0    0     ( ` P    0      ( 0   h 0      ( 8 (        ( 8 (        ( 8 (       0   X   ( h    (   0 @   @ @   @ @   @           H (  F1 help F3 why H (       (  (  (  @    0     (     0 H   H H   H H   H           P (  Press any key to continue P (     @ P   P P   P P   P           X (  F1 help F4 how F10 exit X (       (  (  (  @    0      ( 0 8    ( h 8    0    ` X   X X   X X   X           `   H ` (   ` 0  `   `   (   ` `    `    P `   ` `   ` `   ` `   `          h   h X h  h 8  h  @ h x @ h P  h  h   h P  h @ P h  h   h   h H  h H H h   h  h x  h h  h 0  h `  h X  h  X h   h ` H h   h X  h   h 8  h @  h  @ h h H h `  h ` h  h  h H  h   h   h p  h H  h      8                 @                           @  (       0         ( ` x  `    (                                   H  (       0     b    ( ` x  `    2                                                        p     x          "Sample interface with no knowledge  P  Tony Dodd    28-09-88    sample                               ( 8      ( `            (