home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e020 / 1.ddi / DV1.PRO < prev    next >
Encoding:
Text File  |  1988-12-20  |  47.0 KB  |  1,325 lines
  1.  
  2.  
  3.    /*  IBM PC/XT DIAGNOSTIC EXPERT SYSTEM  */
  4. code=4072
  5. domains
  6.       tone = integer*
  7.       song = tone*
  8. database
  9.     dbase(string,char)
  10. predicates
  11.     run
  12.     title
  13.     gtitle
  14.     diagm(string)
  15.     diags(string)
  16.     checkc(string,char)
  17.     check(string)
  18.     clear_facts
  19.     response(char)
  20.     repeat
  21.     run_once
  22.     cause(string)
  23.     tras(integer,integer)
  24.     sing(song)
  25.      
  26. clauses
  27.  tras(1,131).
  28.  tras(2,147).
  29.  tras(3,165).
  30.  tras(4,175).
  31.  tras(5,196).
  32.  tras(6,220).
  33.  tras(7,247).
  34.  tras(8,262).
  35.  sing([]).
  36.  sing([[T1,T2]|Y]):-tras(T1,Freq),Dura=T2*4,
  37.        sound(Dura,Freq),sing(Y).
  38.  gtitle:-
  39.       makewindow(1,36,396,"",11,12,5,28),
  40.       write("   Diagnostic Directing"),nl,
  41.       write("      EXPERT SYSTEM      "),
  42.       makewindow(2,14,187,"",6,20,5,12),
  43.       write("IBM PC/XT COMPUTER"),
  44.       makewindow(3,6,0,"",17,14,4,27),
  45.       write("Press any key to continue"),
  46.       readchar(_).
  47.  
  48.  run:-
  49.          run_once, 
  50.          clear_facts,
  51.          write("\n─·╗╣╧δ╘┘╒∩╢╧╥╗┤╬┬≡?"),
  52.          readchar(Reply),
  53.          write(Reply),nl,
  54.          Reply='y',
  55.          run.
  56. run_once:-
  57.          title,
  58.          diagm(_),
  59.          clear_facts.
  60. run_once:-
  61.         write("\n╬▐╖¿╒∩╢╧┤╦╓╓╣╩╒╧"),nl,
  62.         clear_facts.
  63. title:-
  64.        clearwindow,
  65.        write("   IBM PC/XT ╣╩╒╧╒∩╢╧╓╕╡╝╫¿╝╥╧╡═│ V1.0 "),nl,
  66.        write("       ╔┬╬≈╗·╨╡╤º╘║╝╞╦π╓╨╨─╤╨╓╞"),nl,nl.
  67.        repeat.
  68. repeat:- repeat.
  69. clear_facts:-
  70.             retract(dbase(_,_)),fail.
  71. clear_facts:-nl.
  72. diagm("exit"):- 
  73.                 checkc("╧╡═│",'6'),!,
  74.                 exit.
  75. diagm("AC╡τ╘┤"):-
  76.               checkc("╧╡═│",'1'),
  77.               checkc("╞⌠╢»",'2'),
  78.               not(check("╡τ╘┤")),
  79.               cause("AC╡τ╘┤").
  80. diagm("┐¬╣╪"):-
  81.                checkc("╧╡═│",'1'),
  82.                checkc("╞⌠╢»",'2'),
  83.                check("╡τ╘┤"),
  84.                cause("┐¬╣╪").
  85. diagm("╬▐╡τ"):-
  86.          checkc("╧╡═│",'1'),
  87.          checkc("╞⌠╢»",'3'),
  88.          cause("╬▐╡τ").
  89. diagm("╡τ╘┤╣⌐╕°"):-
  90.                  checkc("╧╡═│",'1'),
  91.                  checkc("╞⌠╢»",'1'),
  92.                  checkc("╜╨╔∙",'1'),
  93.                  cause("╡τ╘┤╣⌐╕°").
  94. diagm("╡τ╘┤╣⌐╕°"):-
  95.                  checkc("╧╡═│",'1'),
  96.                  checkc("╞⌠╢»",'1'),
  97.                  checkc("╜╨╔∙",'3'),
  98.                  cause("╡τ╘┤╣⌐╕°").
  99. diagm("╧╡═│░σ"):-
  100.                checkc("╧╡═│",'1'),
  101.                checkc("╞⌠╢»",'1'),
  102.                checkc("╜╨╔∙",'4'),
  103.                cause("╧╡═│░σ").
  104. diagm("╧╘╩╛"):-
  105.                checkc("╧╡═│",'1'),
  106.                checkc("╞⌠╢»",'1'),
  107.                checkc("╜╨╔∙",'5'),
  108.                cause("╧╘╩╛").
  109. diagm("╧╘╩╛"):-
  110.                checkc("╧╡═│",'1'),
  111.                checkc("╞⌠╢»",'1'),
  112.                checkc("╜╨╔∙",'6'),
  113.                cause("╧╘╩╛").
  114. diagm("╡τ╘┤╣⌐╕°"):-
  115.                checkc("╧╡═│",'1'),
  116.                checkc("╞⌠╢»",'1'),
  117.                checkc("╜╨╔∙",'7'),
  118.                cause("╡τ╘┤╣⌐╕°").
  119. diagm("┤┼┼╠╟²╢»╞≈"):-
  120.                checkc("╧╡═│",'1'),
  121.                checkc("╞⌠╢»",'1'),
  122.                checkc("╜╨╔∙",'8'),
  123.                cause("┤┼┼╠╟²╢»╞≈").
  124. diagm("dummy"):-
  125.                checkc("╧╡═│",'1'),
  126.                checkc("╞⌠╢»",'1'),
  127.                checkc("╜╨╔∙",'2'),
  128.                check("one_beep"),
  129.                diags("╚φ┼╠╞⌠╢»").
  130. diagm("─┌┤µ"):-
  131.                 checkc("╧╡═│",'1'),
  132.                 checkc("╞⌠╢»",'1'),
  133.                 not(check("─┌┤µ")),
  134.                 cause("─┌┤µ").
  135. diagm("╧╡═│░σ"):-
  136.                checkc("╧╡═│",'1'),
  137.                checkc("╞⌠╢»",'1'),
  138.                check("─┌┤µ"),
  139.                checkc("┤φ╬≤┤·┬δ",'b'),
  140.                cause("╧╡═│░σ2").
  141. diagm("─┌┤µ"):-
  142.                checkc("╧╡═│",'1'),
  143.                checkc("╞⌠╢»",'1'),
  144.                check("─┌┤µ"),
  145.                checkc("┤φ╬≤┤·┬δ",'c'),
  146.                cause("─┌┤µ").
  147. diagm("╝ⁿ┼╠"):-
  148.                checkc("╧╡═│",'1'),               
  149.                checkc("╞⌠╢»",'1'),
  150.                check("─┌┤µ"),
  151.                checkc("┤φ╬≤┤·┬δ",'d'),
  152.                cause("╝ⁿ┼╠").
  153. diagm("╚φ┼╠"):-
  154.                checkc("╧╡═│",'1'),
  155.                checkc("╞⌠╢»",'1'),
  156.                check("─┌┤µ"),
  157.                checkc("┤φ╬≤┤·┬δ",'e'),
  158.                cause("┤┼┼╠╟²╢»╞≈").
  159. diagm("╡Ñ╔½╧╘╩╛╞≈"):-
  160.                checkc("╧╡═│",'1'),
  161.                checkc("╞⌠╢»",'1'),
  162.                check("─┌┤µ"),
  163.                checkc("┤φ╬≤┤·┬δ",'f'),
  164.                cause("╡Ñ╔½╧╘╩╛╞≈").
  165. diagm("▓╩╔½╧╘╩╛╞≈"):-
  166.                checkc("╧╡═│",'1'),
  167.                checkc("╞⌠╢»",'1'),
  168.                check("─┌┤µ"),
  169.                checkc("┤φ╬≤┤·┬δ",'g'),
  170.                cause("▓╩╔½╧╘╩╛╞≈").
  171. diagm("┤≥╙í╗·"):-
  172.                checkc("╧╡═│",'1'),
  173.                checkc("╞⌠╢»",'1'),
  174.                check("─┌┤µ"),
  175.                checkc("┤φ╬≤┤·┬δ",'h'),
  176.                cause("┤≥╙í╗·").
  177. diagm("╙╬╧╖╩╩┼Σ╞≈"):-
  178.                checkc("╧╡═│",'1'),
  179.                checkc("╞⌠╢»",'1'),
  180.                check("─┌┤µ"),
  181.                checkc("┤φ╬≤┤·┬δ",'i'),
  182.                cause("╙╬╧╖╩╩┼Σ╞≈").
  183. diagm("┤≥╙í╗·"):-
  184.                checkc("╧╡═│",'1'),
  185.                checkc("╞⌠╢»",'1'),
  186.                check("─┌┤µ"),
  187.                checkc("┤φ╬≤┤·┬δ",'j'),
  188.                cause("╡τ╘┤╣⌐╕°").
  189. diagm("╙▓┼╠"):-
  190.                checkc("╧╡═│",'1'),
  191.                checkc("╞⌠╢»",'1'),
  192.                check("─┌┤µ"),
  193.                checkc("┤φ╬≤┤·┬δ",'k'),
  194.                cause("╙▓┼╠").
  195. diagm("└⌐╒╣╡Ñ╘¬"):-
  196.                checkc("╧╡═│",'1'),
  197.                checkc("╞⌠╢»",'1'),
  198.                check("─┌┤µ"),
  199.                checkc("┤φ╬≤┤·┬δ",'l'),
  200.                cause("└⌐╒╣╡Ñ╘¬").
  201. diagm("╡τ╘┤╣⌐╕°"):-
  202.                checkc("╧╡═│",'1'),
  203.                checkc("╞⌠╢»",'1'),                          
  204.                check("─┌┤µ"),
  205.                checkc("┤φ╬≤┤·┬δ",'m'),
  206.                cause("╡τ╘┤╣⌐╕°").
  207. diagm("╙▓┼╠"):-
  208.                checkc("╧╡═│",'1'),
  209.                checkc("╞⌠╢»",'4'),
  210.                check("╙▓┼╠"),
  211.                check("╚φ┼╠╞⌠╢»"),
  212.                check("dos"),
  213.                not(check("hard")),
  214.                cause("╙▓┼╠").
  215. diagm("dos"):-
  216.                checkc("╧╡═│",'1'),
  217.                checkc("╞⌠╢»",'4'),
  218.                check("╙▓┼╠"),
  219.                check("╚φ┼╠╞⌠╢»"),
  220.                not(check("dos")),
  221.                cause("dos").
  222. diagm("╙▓┼╠"):-
  223.                checkc("╧╡═│",'1'),
  224.                checkc("╞⌠╢»",'4'),
  225.                check("╙▓┼╠"),
  226.                check("╚φ┼╠╞⌠╢»"),
  227.                check("dos"),
  228.                check("hard"),
  229.                not(check("(╞⌠╢»╢┴╙▓")),
  230.                cause("╞⌠╢»╢┴╙▓").
  231. diagm("╙▓┼╠"):-
  232.                checkc("╧╡═│",'1'),
  233.                checkc("╞⌠╢»",'4'),
  234.                check("╙▓┼╠"),
  235.                check("╚φ┼╠╞⌠╢»"),
  236.                check("dos"),
  237.                check("hard"),
  238.                check("╞⌠╢»╢┴╙▓"),
  239.                check("╞⌠╢»╨┤╙▓"),
  240.                cause("bad_dos").
  241. diagm("╙▓┼╠"):-
  242.                checkc("╧╡═│",'1'),
  243.                checkc("╞⌠╢»",'4'),
  244.                check("╙▓┼╠"),
  245.                check("╚φ┼╠╞⌠╢»"),
  246.                check("dos"),
  247.                check("hard"),
  248.                check("╞⌠╢»╢┴╙▓"),
  249.                not(check("╞⌠╢»╨┤╙▓")),
  250.                check("autoexec"),
  251.                cause("autoexec").
  252. diagm("╙▓┼╠"):-
  253.                checkc("╧╡═│",'1'),
  254.                checkc("╞⌠╢»",'4'),
  255.                check("╙▓┼╠"),
  256.                check("╚φ┼╠╞⌠╢»"),
  257.                check("dos"),
  258.                check("hard"),                              
  259.                check("╞⌠╢»╢┴╙▓"),
  260.                not(check("╞⌠╢»╨┤╙▓")),
  261.                not(check("autoexec")),
  262.                check("config"),
  263.                cause("config").
  264. diagm("╙▓┼╠"):-
  265.                checkc("╧╡═│",'1'),
  266.                checkc("╞⌠╢»",'4'),
  267.                check("╙▓┼╠"),
  268.                check("╚φ┼╠╞⌠╢»"),
  269.                check("dos"),
  270.                check("hard"),
  271.                check("╞⌠╢»╢┴╙▓"),
  272.                not(check("╞⌠╢»╨┤╙▓")),
  273.                not(check("autoexec")),
  274.                not(check("config")),
  275.                cause("╬┤╓¬").
  276. diagm("╚φ┼╠"):-
  277.                checkc("╧╡═│",'1'),
  278.                checkc("╞⌠╢»",'4'),
  279.                not(check("╙▓┼╠")),
  280.                diags("╚φ┼╠╞⌠╢»").
  281. diagm("╚φ┼╠"):-
  282.                checkc("╧╡═│",'1'),
  283.                checkc("╞⌠╢»",'4'),
  284.                check("╙▓┼╠"),
  285.                not(check("╚φ┼╠╞⌠╢»")),
  286.                diags("╚φ┼╠╞⌠╢»").
  287. diagm("╗╖╛│"):-
  288.               checkc("╧╡═│",'2'),
  289.               not(check("╗╖╛│")),
  290.               cause("╗╖╛│").
  291. diagm("æ"):-
  292.                checkc("╧╡═│",'2'),
  293.                checkc("╘╦╨╨",'1'),
  294.                check("╗╖╛│"),
  295.                check("├ª"),
  296.                cause("├ª").
  297. diagm("unplugged"):-
  298.                checkc("╧╡═│",'2'),
  299.                checkc("╘╦╨╨",'1'),
  300.                check("╗╖╛│"),
  301.                not(check("├ª")),
  302.                not(check("unplugged")),
  303.                cause("unplugged").
  304. diagm("╚φ╝■"):-
  305.                checkc("╧╡═│",'2'),
  306.                checkc("╘╦╨╨",'1'),
  307.                check("╗╖╛│"),
  308.                not(check("├ª")),
  309.                check("unplugged"),
  310.                not(check("reboot")),
  311.                cause("╙▓╝■").
  312. diagm("╚φ╝■"):-
  313.                checkc("╧╡═│",'2'),                              
  314.                checkc("╘╦╨╨",'1'),
  315.                check("╗╖╛│"),
  316.                not(check("├ª")),
  317.                check("unplugged"),
  318.                check("reboot"),
  319.                check("repeat"),
  320.                cause("╚φ╝■").
  321. diagm("static"):-
  322.                checkc("╧╡═│",'2'),
  323.                checkc("╘╦╨╨",'1'),
  324.                check("╗╖╛│"),
  325.                not(check("├ª")),
  326.                check("unplugged"),
  327.                check("reboot"),
  328.                not(check("repeat")),
  329.                cause("static").
  330. diagm("drop_power"):-
  331.                checkc("╧╡═│",'2'),
  332.                checkc("╘╦╨╨",'2'),
  333.                check("╗╖╛│"),
  334.                cause("drop_power").
  335. diagm("╞µ┼╝┤φ"):-
  336.                checkc("╧╡═│",'2'),
  337.                checkc("╘╦╨╨",'3'),
  338.                check("╗╖╛│"),
  339.                cause("╞µ┼╝┤φ").
  340. diagm("crashes"):-
  341.                checkc("╧╡═│",'2'),
  342.                checkc("╘╦╨╨",'4'),
  343.                check("╗╖╛│"),
  344.                cause("crashes").
  345. diagm("╚φ╝■"):-
  346.                checkc("╧╡═│",'2'),
  347.                checkc("╘╦╨╨",'5'),
  348.                check("╗╖╛│"),
  349.                check("consistent"),
  350.                cause("erratic_software").
  351. diagm("╙▓╝■"):-
  352.                checkc("╧╡═│",'2'),
  353.                checkc("╘╦╨╨",'5'),
  354.                check("╗╖╛│"),
  355.                not(check("consistent")),
  356.                cause(drop_power).
  357. diagm("│╠╨≥"):-
  358.                checkc("╧╡═│",'2'),
  359.                checkc("╘╦╨╨",'6'),
  360.                check("╗╖╛│"),
  361.                check("run_program"),
  362.                cause("run_program_dos").
  363. diagm("│╠╨≥"):-
  364.                checkc("╧╡═│",'2'),
  365.                checkc("╘╦╨╨",'6'),
  366.                check("╗╖╛│"),
  367.                not(check("run_program")),
  368.                cause("run_program_application").
  369. diagm("╙▓┼╠"):-
  370.                checkc("╧╡═│",'2'),
  371.                checkc("╘╦╨╨",'7'),
  372.                checkc("run_hard_disk",'1'),
  373.                check("└⌐╒╣"),
  374.                cause("└⌐╒╣").
  375. diagm("╙▓┼╠"):-
  376.                checkc("╧╡═│",'2'),
  377.                checkc("╘╦╨╨",'7'),
  378.                checkc("run_hard_disk",'1'),
  379.                not(check("└⌐╒╣")),
  380.               cause("run_hard_disk").
  381. diagm("╙▓┼╠"):-
  382.                checkc("╧╡═│",'2'),
  383.                checkc("╘╦╨╨",'7'),
  384.                checkc("run_hard_disk",'1'),
  385.                check("└⌐╒╣"),
  386.                cause("run_expansion").
  387. diagm("╙▓┼╠"):-
  388.                checkc("╧╡═│",'2'),
  389.                checkc("╘╦╨╨",'7'),
  390.                checkc("run_hard_disk",'2'),
  391.                check("run_disk_software"),
  392.                cause("run_disk_software").
  393. diagm("╙▓┼╠"):-
  394.                checkc("╧╡═│",'2'),
  395.                checkc("╘╦╨╨",'7'),
  396.                checkc("run_hard_disk",'2'),
  397.                not(check("run_disk_software")),
  398.                not(check("run_resident")),
  399.                cause("run_resident").
  400. diagm("╙▓┼╠"):-
  401.                checkc("╧╡═│",'2'),
  402.                checkc("╘╦╨╨",'7'),
  403.                checkc("run_hard_disk",'2'),
  404.                not(check("run_disk_software")),
  405.                check("run_resident"),
  406.                cause("run_harddisk_write").
  407. diagm("╙▓┼╠"):-
  408.                checkc("╧╡═│",'2'),
  409.                checkc("╘╦╨╨",'7'),
  410.                checkc("run_hard_disk",'3'),
  411.                check("run_disk_software"),
  412.                cause("run_disk_software").
  413. diagm("╙▓┼╠"):-
  414.                checkc("╧╡═│",'2'),
  415.                checkc("╘╦╨╨",'7'),
  416.                checkc("run_hard_disk",'3'),
  417.                not(check("run_disk_software")),
  418.                not(check("run_resident")),
  419.                cause("run_resident").
  420. diagm("╙▓┼╠"):-
  421.                checkc("╧╡═│",'2'),
  422.                checkc("╘╦╨╨",'7'),
  423.                checkc("run_hard_disk",'3'),                              
  424.                not(check("run_disk_software")),
  425.                check("run_resident"),
  426.                cause("run_harddisk_write").
  427. diagm("╙▓┼╠"):-
  428.                checkc("╧╡═│",'2'),
  429.                checkc("╘╦╨╨",'7'),
  430.                checkc("run_hard_disk",'4'),
  431.                cause("run_harddisk_chkdsk").
  432. diagm("╙▓┼╠"):-
  433.                checkc("╧╡═│",'2'),
  434.                checkc("╘╦╨╨",'7'),
  435.                checkc("run_hard_disk",'5'),
  436.                cause("run_harddisk_noise").
  437. diagm("╙▓┼╠"):-
  438.                checkc("╧╡═│",'2'),
  439.                checkc("╘╦╨╨",'7'),
  440.                checkc("run_hard_disk",'6'),
  441.                check("physical_move"),
  442.                cause("physical_move").
  443. diagm("╙▓┼╠"):-
  444.                checkc("╧╡═│",'2'),
  445.                checkc("╘╦╨╨",'7'),
  446.                checkc("run_hard_disk",'6'),
  447.                not(check("physical_move")),
  448.                cause("run_hard").
  449. diagm("╚φ┼╠"):-
  450.                checkc("╧╡═│",'2'),
  451.                checkc("╘╦╨╨",'8'),
  452.                checkc("run_floppy_disk",'1'),
  453.                cause("run_floppy_power").
  454. diagm("╚φ┼╠"):-
  455.                checkc("╧╡═│",'2'),
  456.                checkc("╘╦╨╨",'8'),
  457.                checkc("run_floppy_disk",'2'),
  458.                cause("run_floppy_not_ready").
  459. diagm("╚φ┼╠"):-
  460.                checkc("╧╡═│",'2'),
  461.                checkc("╘╦╨╨",'8'),
  462.                checkc("run_floppy_disk",'3'),
  463.                not(check("run_floppy_physical")),
  464.                cause("run_floppy_physical").
  465. diagm("╚φ┼╠"):-
  466.                checkc("╧╡═│",'2'),
  467.                checkc("╘╦╨╨",'8'),
  468.                checkc("run_floppy_disk",'3'),
  469.                check("run_floppy_physical"),
  470.                not(check("run_resident")),
  471.                cause("run_resident").
  472. diagm("╚φ┼╠"):-
  473.                checkc("╧╡═│",'2'),
  474.                checkc("╘╦╨╨",'8'),
  475.                checkc("run_floppy_disk",'3'),
  476.                check("run_floppy_physical"),
  477.                check("run_resident"),
  478.                check("run_twodisks"),                              
  479.                check("second_disk"),
  480.                cause("bad_floppy").
  481. diagm("╚φ┼╠"):-
  482.                checkc("╧╡═│",'2'),
  483.                checkc("╘╦╨╨",'8'),
  484.                checkc("run_floppy_disk",'3'),
  485.                check("run_floppy_physical"),
  486.                check("run_resident"),
  487.                check("run_twodisks"),
  488.                not(check("second_disk")),
  489.                check("drive"),
  490.                cause("dirt").
  491. diagm("╚φ┼╠"):-
  492.                checkc("╧╡═│",'2'),
  493.                checkc("╘╦╨╨",'8'),
  494.                checkc("run_floppy_disk",'3'),
  495.                check("run_floppy_physical"),
  496.                check("run_resident"),
  497.                check("run_twodisks"),
  498.                not(check("second_disk")),
  499.                not(check("drive")),
  500.                cause("bad_floppy_drive").
  501. diagm("╚φ┼╠"):-
  502.                checkc("╧╡═│",'2'),
  503.                checkc("╘╦╨╨",'8'),
  504.                checkc("run_floppy_disk",'3'),
  505.                check("run_floppy_physical"),
  506.                check("run_resident"),
  507.                not(check("run_twodisks")),
  508.                not(check("second_disk")),
  509.                check("drive"),
  510.                cause("dirt").
  511. diagm("╚φ┼╠"):-
  512.                checkc("╧╡═│",'2'),
  513.                checkc("╘╦╨╨",'8'),
  514.                checkc("run_floppy_disk",'3'),
  515.                check("run_floppy_physical"),
  516.                check("run_resident"),
  517.                not(check("run_twodisks")),
  518.                not(check("drive")),
  519.                check("run_disk_software"),
  520.                cause("run_disk_software").
  521. diagm("╚φ┼╠"):-
  522.                checkc("╧╡═│",'2'),
  523.                checkc("╘╦╨╨",'8'),
  524.                checkc("run_floppy_disk",'3'),
  525.                check("run_floppy_physical"),
  526.                check("run_resident"),
  527.                not(check("run_twodisks")),
  528.                not(check("drive")),
  529.                not(check("run_disk_software")),
  530.                check("run_one_floppy"),
  531.                cause("bad_floppy2").
  532. diagm("╚φ┼╠"):-
  533.                checkc("╧╡═│",'2'),                              
  534.                checkc("╘╦╨╨",'8'),
  535.                checkc("run_floppy_disk",'3'),
  536.                check("run_floppy_physical"),
  537.                check("run_resident"),
  538.                not(check("run_twodisks")),
  539.                not(check("drive")),
  540.                not(check("run_disk_software")),
  541.                not(check("run_one_floppy")),
  542.                cause("bad_floppy_drive").
  543. diagm("╚φ┼╠"):-
  544.                checkc("╧╡═│",'2'),
  545.                checkc("╘╦╨╨",'8'),
  546.                checkc("run_floppy_disk",'4'),
  547.                not(check("run_floppy_physical")),
  548.                cause("run_floppy_physical").
  549. diagm("╚φ┼╠"):-
  550.                checkc("╧╡═│",'2'),
  551.                checkc("╘╦╨╨",'8'),
  552.                checkc("run_floppy_disk",'4'),
  553.                check("run_floppy_physical"),
  554.                not(check("write_protect")),
  555.                cause("write_protect").
  556. diagm("╚φ┼╠"):-
  557.                checkc("╧╡═│",'2'),
  558.                checkc("╘╦╨╨",'8'),
  559.                checkc("run_floppy_disk",'4'),
  560.                check("run_floppy_physical"),
  561.                check("write_protect"),
  562.                not(check("run_resident")),
  563.                cause("run_resident").
  564. diagm("╚φ┼╠"):-
  565.                checkc("╧╡═│",'2'),
  566.                checkc("╘╦╨╨",'8'),
  567.                checkc("run_floppy_disk",'4'),
  568.                check("run_floppy_physical"),
  569.                check("write_protect"),
  570.                check("run_resident"),
  571.                check("run_twodisks"),
  572.                check("second_disk"),
  573.                cause("bad_floppy").
  574. diagm("╚φ┼╠"):-
  575.                checkc("╧╡═│",'2'),
  576.                checkc("╘╦╨╨",'8'),
  577.                checkc("run_floppy_disk",'4'),
  578.                check("run_floppy_physical"),
  579.                check("write_protect"),
  580.                check("run_resident"),
  581.                check("run_twodisks"),
  582.                not(check("second_disk")),
  583.                check("drive"),
  584.                cause("dirt").
  585. diagm("╚φ┼╠"):-
  586.                checkc("╧╡═│",'2'),
  587.                checkc("╘╦╨╨",'8'),
  588.                checkc("run_floppy_disk",'4'),                              
  589.                check("run_floppy_physical"),
  590.                check("write_protect"),
  591.                check("run_resident"),
  592.                check("run_twodisks"),
  593.                not(check("second_disk")),
  594.                not(check("drive")),
  595.                cause("bad_floppy_drive").
  596. diagm("╚φ┼╠"):-
  597.                checkc("╧╡═│",'2'),
  598.                checkc("╘╦╨╨",'8'),
  599.                checkc("run_floppy_disk",'4'),
  600.                check("run_floppy_physical"),
  601.                check("write_protect"),
  602.                check("run_resident"),
  603.                not(check("run_twodisks")),
  604.                check("drive"),
  605.                cause("dirt").
  606. diagm("╚φ┼╠"):-
  607.                checkc("╧╡═│",'2'),
  608.                checkc("╘╦╨╨",'8'),
  609.                checkc("run_floppy_disk",'4'),
  610.                check("run_floppy_physical"),
  611.                check("write_protect"),
  612.                check("run_resident"),
  613.                not(check("run_twodisks")),
  614.                not(check("drive")),
  615.                check("run_disk_software"),
  616.                cause("run_disk_software").
  617. diagm("╚φ┼╠"):-
  618.                checkc("╧╡═│",'2'),
  619.                checkc("╘╦╨╨",'8'),
  620.                checkc("run_floppy_disk",'4'),
  621.                check("run_floppy_physical"),
  622.                check("write_protect"),
  623.                check("run_resident"),
  624.                not(check("run_twodisks")),
  625.                not(check("drive")),
  626.                not(check("run_disk_software")),
  627.                check("run_one_floppy"),
  628.                cause("bad_floppy2").
  629. diagm("╚φ┼╠"):-
  630.                checkc("╧╡═│",'2'),
  631.                checkc("╘╦╨╨",'8'),
  632.                checkc("run_floppy_disk",'4'),
  633.                check("run_floppy_physical"),
  634.                check("write_protect"),
  635.                check("run_resident"),
  636.                not(check("run_twodisks")),
  637.                not(check("drive")),
  638.                not(check("run_disk_software")),
  639.                not(check("run_one_floppy")),
  640.                cause("bad_floppy_drive").
  641. diagm("╚φ┼╠"):-
  642.                checkc("╧╡═│",'2'),
  643.                checkc("╘╦╨╨",'8'),                              
  644.                checkc("run_floppy_disk",'5'),
  645.                not(check("run_floppy_physical")),
  646.                cause("run_floppy_physical").
  647. diagm("╚φ┼╠"):-
  648.                checkc("╧╡═│",'2'),
  649.                checkc("╘╦╨╨",'8'),
  650.                checkc("run_floppy_disk",'5'),
  651.                check("run_floppy_physical"),
  652.                cause("floppy_noise").
  653. diagm("╚φ┼╠"):-
  654.                checkc("╧╡═│",'2'),
  655.                checkc("╘╦╨╨",'8'),
  656.                checkc("run_floppy_disk",'6'),
  657.                cause("floppy_load").
  658. diagm("╧╡═│╣²╚╚"):-
  659.                checkc("╧╡═│",'2'),
  660.                checkc("╘╦╨╨",'9'),
  661.                cause("╘╦╨╨╣²╚╚").
  662. diagm("╬▐╧╘╩╛"):-
  663.                checkc("╧╡═│",'3'),
  664.                checkc("╧╘╩╛",'1'),
  665.                cause("╬▐╧╘╩╛").
  666. diagm("╧╘╩╛╡¡─«"):-
  667.                checkc("╧╡═│",'3'),
  668.                checkc("╧╘╩╛",'2'),
  669.                cause("╧╘╩╛╡¡─«").
  670. diagm("╧╘╩╛╣²╚╚"):-
  671.                checkc("╧╡═│",'3'),
  672.                checkc("╧╘╩╛",'3'),
  673.                cause("╧╘╩╛╣²╚╚").
  674. diagm("╧╘╩╛v"):-
  675.                checkc("╧╡═│",'3'),
  676.                checkc("╧╘╩╛",'4'),
  677.                cause("╧╘╩╛v").
  678. diagm("╧╘╩╛h"):-
  679.                checkc("╧╡═│",'3'),
  680.                checkc("╧╘╩╛",'5'),
  681.                cause("╧╘╩╛h").
  682. diagm("╧╘╩╛╘╙┬╥"):-
  683.                checkc("╧╡═│",'3'),
  684.                checkc("╧╘╩╛",'6'),
  685.                cause("╧╘╩╛╘╙┬╥").
  686. diagm("╧╘╩╛▓╩╔½"):-
  687.                checkc("╧╡═│",'3'),
  688.                checkc("╧╘╩╛",'7'),
  689.                cause("╧╘╩╛▓╩╔½").
  690. diagm("╝ⁿ┼╠_d"):-
  691.                checkc("╧╡═│",'4'),
  692.                checkc("╝ⁿ┼╠",'1'),
  693.                cause("╝ⁿ┼╠_d").
  694. diagm("╝ⁿ┼╠_g"):-
  695.                checkc("╧╡═│",'4'),
  696.                checkc("╝ⁿ┼╠",'2'),
  697.                cause("╝ⁿ┼╠_g").
  698. diagm("╝ⁿ┼╠_k"):-               
  699.                checkc("╧╡═│",'4'),
  700.                checkc("╝ⁿ┼╠",'3'),
  701.                cause("╝ⁿ┼╠_k").
  702. diagm("╝ⁿ┼╠_dup"):-
  703.                checkc("╧╡═│",'4'),
  704.                checkc("╝ⁿ┼╠",'4'),
  705.                cause("╝ⁿ┼╠_dup").
  706. diagm("╝ⁿ┼╠_f"):-
  707.                checkc("╧╡═│",'4'),
  708.                checkc("╝ⁿ┼╠",'5'),
  709.                cause("╝ⁿ┼╠_f").
  710. diagm("╝ⁿ┼╠_s"):-
  711.                checkc("╧╡═│",'4'),
  712.                checkc("╝ⁿ┼╠",'6'),
  713.                cause("╝ⁿ┼╠_s").
  714. diagm("┤≥╙í╗·_d"):-
  715.                checkc("╧╡═│",'5'),
  716.                checkc("┤≥╙í╗·",'a'),
  717.                cause("┤≥╙í╗·_d").
  718. diagm("┤≥╙í╗·_n"):-
  719.                checkc("╧╡═│",'5'),
  720.                checkc("┤≥╙í╗·",'b'),
  721.                cause("┤≥╙í╗·_n").
  722. diagm("┤≥╙í╗·_nol"):-
  723.        checkc("╧╡═│",'5'),
  724.        checkc("┤≥╙í╗·",'c'),
  725.        cause("┤≥╙í╗·_nol").
  726. diagm("┤≥╙í╗·_j"):-
  727.                checkc("╧╡═│",'5'),
  728.                checkc("┤≥╙í╗·",'d'),
  729.                not(check("printer_program")),
  730.                cause("┤≥╙í╗·_j").
  731. diagm("┤≥╙í╗·_j"):-
  732.                checkc("╧╡═│",'5'),
  733.                checkc("┤≥╙í╗·",'d'),
  734.                check("printer_program"),
  735.                cause("┤≥╙í╗·│╠╨≥").
  736. diagm("┤≥╙í╗·_e"):-
  737.                checkc("╧╡═│",'5'),
  738.                checkc("┤≥╙í╗·",'e'),
  739.                cause("┤≥╙í╗·_e").
  740. diagm("┤≥╙í╗·_s"):-
  741.                checkc("╧╡═│",'5'),
  742.                checkc("┤≥╙í╗·",'f'),
  743.                cause("┤≥╙í╗·_s").
  744. diagm("┤≥╙í╗·_c"):-
  745.                checkc("╧╡═│",'5'),               
  746.                checkc("┤≥╙í╗·",'g'),               
  747.                cause("┤≥╙í╗·_c").
  748. diagm("┤≥╙í╗·_np"):-
  749.                checkc("╧╡═│",'5'),
  750.                checkc("┤≥╙í╗·",'h'),
  751.                cause("┤≥╙í╗·_np").
  752. diagm("┤≥╙í╗·_o"):-
  753.                checkc("╧╡═│",'5'),
  754.                checkc("┤≥╙í╗·",'i'),
  755.                cause("┤≥╙í╗·_o").
  756. diagm("┤≥╙í╗·_u"):-
  757.                checkc("╧╡═│",'5'),
  758.                checkc("┤≥╙í╗·",'j'),
  759.                cause("┤≥╙í╗·_u").
  760. diagm("┤≥╙í╗·_m"):-
  761.                checkc("╧╡═│",'5'),
  762.                checkc("┤≥╙í╗·",'k'),
  763.                cause("┤≥╙í╗·_m").
  764. diagm("┤≥╙í╗·_jam"):-
  765.                checkc("╧╡═│",'5'),
  766.                checkc("┤≥╙í╗·",'l'),
  767.                cause("┤≥╙í╗·_jam").
  768. diags("╚φ┼╠╞⌠╢»"):-
  769.                 checkc("╚φ┼╠╞⌠╢»",'1'),
  770.                 cause("╟²╢»╞≈╡τ╘┤").
  771. diags("╚φ┼╠╞⌠╢»"):-
  772.                 checkc("╚φ┼╠╞⌠╢»",'2'),
  773.                 check("physical_disk:"),nl,
  774.                 cause("physical_disk:").
  775. diags("╚φ┼╠╞⌠╢»"):-
  776.                 checkc("╚φ┼╠╞⌠╢»",'2'),
  777.                 not(check("physical_disk:")),nl,
  778.                 check("drive"),
  779.                 cause("dirt").
  780. diags("╚φ┼╠╞⌠╢»"):-
  781.                 checkc("╚φ┼╠╞⌠╢»",'2'),
  782.                 not(check("physical_disk:")),nl,
  783.                 not(check("drive")),
  784.                 check("twodisks"),
  785.                 cause("twodisks").
  786. diags("╚φ┼╠╞⌠╢»"):-
  787.                 checkc("╚φ┼╠╞⌠╢»",'2'),
  788.                 not(check("physical_disk:")),nl,
  789.                 not(check("drive")),
  790.                 not(check("twodisks")),
  791.                 cause("╚φ┼╠╟²╢»╞≈").
  792. diags("╚φ┼╠╞⌠╢»"):-
  793.                 checkc("╚φ┼╠╞⌠╢»",'3'),
  794.                 cause("format").
  795. diags("╚φ┼╠╞⌠╢»"):-
  796.                 checkc("╚φ┼╠╞⌠╢»",'4'),
  797.                 cause("├┼").
  798. diags("╚φ┼╠╞⌠╢»"):-
  799.                 checkc("╚φ┼╠╞⌠╢»",'5'),
  800.                 cause("├ⁿ┴ε").
  801.  check(X):-
  802.            dbase(X,'y'),!.
  803.            check(X):-
  804.            dbase(X,'n'),!,fail.
  805. check("╡τ╘┤"):-
  806.       title,
  807.       write("╝∞▓Θ╡τ╘┤╧▀,▒ú╧╒║╨,╡τ╘┤▓σ╫∙"),nl,
  808.       write("╝╞╦π╗·─┌═¿╡τ┴╦┬≡? (Y/N)"),
  809.       response(Reply),
  810.       asserta(dbase("╡τ╘┤",Reply)),Reply='y'.
  811. check("twodisks"):-
  812.       title,
  813.       write("╧┬╥╗▓╜╥¬╘┌┤┼┼╠╟²╢»╞≈,┐╪╓╞╞≈,┼╠╡τ└┬╓«╝Σ▓Θ╟σ╬╩╠Γ"),nl,
  814.       write(" ╚⌠╙╨┴╜╕÷┤┼┼╠╟²╢»╞≈,╗≥╙╨▒╕╖▌╟²╢»╞≈┐╔╝≥╗»┤╦╣²│╠"),nl,
  815.       write(" ─π╙╨┴╜╕÷╗≥╙╨▒╕╖▌╟²╢»╞≈┬≡ (Y/N)? "),
  816.       response(Reply),
  817.       asserta(dbase("twodisks",Reply)),Reply='y'.
  818. check("─┌┤µ"):-
  819.        title,
  820.        write("─┌┤µ▓Γ╩╘│╔╣ª┬≡?(Y/N)"),
  821.        response(Reply),
  822.        asserta(dbase("─┌┤µ",Reply)),Reply='y'.
  823. check("dos"):-
  824.         title,
  825.          write("╙▓┼╠╔╧░▓╫░╡─╩╟DOS 2.0╗≥╕ⁿ╕▀░µ▒╛┬≡?(Y/N)"),
  826.          response(Reply),
  827.          asserta(dbase("dos",Reply)),Reply='y'.
  828. check("╙▓┼╠"):-
  829.           title,
  830.           write("╥¬┤╙╙▓┼╠╥²╡╝┬≡?(Y/N)"),
  831.           response(Reply),
  832.           asserta(dbase("╙▓┼╠",Reply)),Reply='y'.
  833. check("hard"):-
  834.          title,
  835.          write("╥²╡╝╩▒┤Ñ├■┤┼┼╠├µ░σ─▄╕╨╡╜┬φ┤∩╫¬,╫░╚δ╡╞┴┴┬≡?(Y/N)"),
  836.          response(Reply),
  837.          asserta(dbase("hard",Reply)),Reply='y'.
  838. check("drive"):-
  839.          title,
  840.          write("╘┌┤┼┼╠╫░╚δ╒²╚╖,┬φ┤∩╫¬╡─╟░╠ß╧┬,╙├╟σ╧┤╣ñ╛▀╟σ╧┤╢┴═╖"),nl,
  841.          write("╟σ╧┤╣ñ╫≈╒²│ú┬≡?(Y/N)"),
  842.          response(Reply),
  843.          asserta(dbase("drive",Reply)),Reply='y'.
  844. check("╚φ┼╠╞⌠╢»"):-
  845.          title,
  846.           write("╙├║├╡─DOS┼╠┤╙╚φ┼╠╟²╢»╞≈╥²╡╝╞⌠╢»"),nl,
  847.           write("╥²╡╝│╔╣ª┬≡?(Y/N)"),nl,
  848.           response(Reply),
  849.           asserta(dbase("╚φ┼╠╞⌠╢»",Reply)),Reply='y'.
  850. check("physical_disk"):-
  851.          title,
  852.           write("╧┬├µ╘┌┼╠╞¼╫╘╔φ╗≥╙▓╝■╓╨▓Θ╬╩╠Γ"),nl,
  853.           write("╚╖▒ú┼╠╬▐╬∩└φ╦≡╔╦;╥╤╕±╩╜╗»╟╥║¼DOS"),nl,
  854.           write("╘┌═¼╥╗╟²╢»╞≈╓╨╩╘┴φ╥╗┼╠╗≥╙├═¼╥╗┼╠╘┌┴φ╥╗╗·╓╨╞⌠╢»"),nl,
  855.           write("╕├┼╠╙╨╚▒╧▌┬≡?(Y/N)"),
  856.           response(Reply),          
  857.           asserta(dbase("physical_disk",Reply)),Reply='y'.
  858. check("╞⌠╢»╢┴╙▓"):-
  859.       title,
  860.       write("┤╙╚φ┼╠╥²╡╝║≤,╩╘╢┴╙▓┼╠╔╧╡─╥╗╕÷─┐┬╝▓ó╞⌠╢»╥╗╕÷│╠╨≥"),nl,
  861.       write("╒Γ╤∙╫÷│╔╣ª┬≡?(Y/N)"),
  862.       response(Reply),
  863.       asserta(dbase("╞⌠╢»╢┴╙▓",Reply)),Reply='y'.
  864. check("╞⌠╢»╨┤╙▓"):-
  865.       title,
  866.       write("╖┼DOS┼╠╙┌A:╓╨,╝ⁿ╚δSYS C:┤╙╚φ┼╠╗╓╕┤DOS╡╜╙▓┼╠"),nl,
  867.       write("╒Γ╤∙╫÷│╔╣ª┬≡?(Y/N)"),
  868.       response(Reply),
  869.       asserta(dbase("╞⌠╢»╨┤╙▓",Reply)),Reply='y'.
  870. check("autoexec"):-
  871.       title,
  872.       write("┤╙╚φ┼╠reboot,╕ⁿ╕─╙▓┼╠╔╧╡─AUTOEXEC.BAT╬─╝■├√"),nl,
  873.       write("╘┘┤╙╙▓┼╠REBOOT"),nl,
  874.       write("╒Γ╤∙╫÷│╔╣ª┬≡?(Y/N)"),
  875.       response(Reply),
  876.       asserta(dbase("autoexec",Reply)),Reply='y'.
  877. check("config"):-
  878.       title,
  879.       write("┤╙╚φ┼╠reboot,╕ⁿ╕─╙▓┼╠╔╧╡─CONFIG.SYS╬─╝■├√"),nl,
  880.       write("╘┘┤╙╙▓┼╠REBOOT"),nl,
  881.       write("╒Γ╤∙╫÷│╔╣ª┬≡?(Y/N)"),
  882.       response(Reply),
  883.       asserta(dbase("config",Reply)),Reply='y'.
  884. check("reboot"):-
  885.       title,
  886.       write("╩╫╧╚╙├ALT/CTR/DEL REBOOT,╚⌠▓╗│╔╣ª,╣╪╡⌠╗·╞≈╘┘┐¬╥╗┤╬"),nl,
  887.       write("╚⌠╚╘▓╗╣ñ╫≈,╘┘╣╪╝╕╖╓╓╙╗·,╘┘REBOOT"),nl,
  888.       write("╫ε║≤│╔╣ª┴╦┬≡?(Y/N)"),
  889.       response(Reply),
  890.       asserta(dbase("reboot",Reply)),Reply='y'.
  891. check("repeat"):-
  892.       title,
  893.       write("╡▒╝╞╦π╗·╦└╦°╩▒,╥╘═¼╥╗╦│╨≥╓╪╕┤─π╡─├┐╥╗▓╜╣ñ╫≈"),nl,
  894.       write("╝╞╦π╗·╗╣╦└╦°┬≡?(Y/N)"),
  895.       response(Reply),
  896.       asserta(dbase("repeat",Reply)),Reply='y'.
  897. check("unplugged"):-
  898.        title,
  899.        write("╚╖▒ú╝ⁿ┼╠┴¼╚δ╧╡═│,╡τ└┬╬▐╥╗╦╔╢»╗≥╢╧┐¬"),nl,
  900.        write("╦∙╙╨╡τ└┬├╗╙╨╬╩╠Γ┬≡? (Y/N)"),
  901.       response(Reply),
  902.       asserta(dbase("unplugged",Reply)),Reply='y'.
  903. check("æ"):-
  904.       title,
  905.       write("╚╖▒ú╝╞╦π╗·▓╗╫÷╚╬║╬╩┬,╣╩╥Γ╖╓└δ╝ⁿ┼╠,╣█▓∞┤┼┼╠╡╞"),
  906.       write("╝╞╦π╗·╗╣╘┌├ª┬≡? (Y/N)"),
  907.       response(Reply),
  908.       asserta(dbase("├ª",Reply)),Reply='y'.
  909. check("consistent"):-
  910.       title,
  911.       write("╡▒╫÷═¼╥╗╩┬╩▒╢╘═¼╤∙│╠╨≥╫▄╩╟╩º░▄┬≡? (Y/N)"),nl,      
  912.       write("╒Γ╨⌐╬╩╠Γ╙╨─│╨⌐╥╗╓┬╨╘┬≡? (Y/N)"),
  913.       response(Reply),
  914.       asserta(dbase("consistent",Reply)),Reply='y'.
  915. check("╗╖╛│"):-
  916.       title,
  917.       write("╝╞╦π╗·╕╜╜ⁿ╡─╗╖╛│╬┬╢╚╘┌╔π╩╧ 16-32╢╚┬≡ (Y/N)?"),nl,
  918.       write("╦∙╙╨╖τ╔╚╛∙╘┌╩╣╙├, ╦∙╙╨═¿╞°┐╫╢╝│⌐═¿┬≡ (Y/N)?"),
  919.       response(Reply),
  920.       asserta(dbase("╗╖╛│",Reply)),Reply='y'.
  921. check("run_program"):-
  922.       title,
  923.       write("╒Γ╩╟╥╗╕÷ DOS │╠╨≥┬≡?(Y/N)"),
  924.       response(Reply),
  925.       asserta(dbase("run_program",Reply)),Reply='y'.
  926. check("└⌐╒╣"):-
  927.       title,
  928.       write("╙▓┼╠╘┌└⌐╒╣╡Ñ╘¬─┌┬≡? (Y/N)"),
  929.       response(Reply),
  930.       asserta(dbase("└⌐╒╣",Reply)),Reply='y'.
  931. check("physical_move"):-
  932.        title,
  933.        write("─π╜ⁿ╞┌╥╞╢»╙▓┼╠┴╦┬≡? (Y/N)"),
  934.       response(Reply),
  935.       asserta(dbase("physical_move",Reply)),Reply='y'.
  936. check("run_disk_software"):-
  937.      write("╒Γ╜÷╢╘╥╗╕÷│╠╨≥╖ó╔·┬≡? (Y/N)"),
  938.       response(Reply),
  939.       asserta(dbase("run_disk_software",Reply)),Reply='y'.
  940. check("run_resident"):-
  941.       write("▓╗╙├ AUTOEXEC.BAT ╬─╝■╢°╞⌠╢»╧╡═│,╚Ñ╡⌠╦∙╙╨╫ñ┴⌠│╠╨≥"),nl,
  942.       write("╕├╬╩╠Γ╗╣┤µ╘┌┬≡? (Y/N)"),
  943.       response(Reply),
  944.       asserta(dbase("run_resident",Reply)),Reply='y'.
  945. check("run_floppy_physical"):-
  946.      title,
  947.      write("╝∞▓Θ┼╠╞¼╔╧┐╔╝√╡─╬∩└φ╦≡╔╦,┼╠╞¼┐┤╞≡└┤║├┬≡?(Y/N)"),
  948.       response(Reply),
  949.       asserta(dbase("run_floppy_physical",Reply)),Reply='y'.
  950. check("run_twodisks"):-
  951.       title,
  952.       write("─π╙╨╦½╟²╢»╞≈╗≥┐╔╙├┴φ╥╗╠¿╝╞╦π╗·┬≡? (Y/N)"),
  953.       response(Reply),
  954.       asserta(dbase("run_twodisk",Reply)),Reply='y'.
  955. check("second_disk"):-
  956.       write("╕├┼╠╥╘═¼╤∙╖╜╩╜╘┌┴φ╥╗╟²╢»╞≈╓╨╣ñ╫÷┬≡? (Y/N)"),
  957.       response(Reply),
  958.       asserta(dbase("second_disk",Reply)),Reply='y'.
  959. check("run_one_floppy"):-
  960.        title,
  961.        write("╢╘╥╗╠╪╢¿╗≥╥╗╓╓┼╞╫╙╡─╚φ┼╠╫▄╩╟╖ó╔·┤╦╬╩╠Γ┬≡? (Y/N)"),
  962.       response(Reply),
  963.       asserta(dbase("run_one_ploppy",Reply)),Reply='y'.
  964. check("write_protect"):-
  965.       title,
  966.       write("├╗╙╨╕┤╕╟┼╠╔╧╡─╨┤▒ú╗ñ┐╫┬≡? (Y/N)"),      
  967.       response(Reply),
  968.       asserta(dbase("write_protect",Reply)),Reply='y'.
  969.       check("printer_program"):-
  970.       title,
  971.       write("╙├ DIR,CTR/P,Enter ░╤┴╨▒φ─┌╚▌╦═┤≥╥²╗·"),nl,
  972.       write("┤≥╙í╒²╚╖┬≡? (Y/N)"),
  973.       response(Reply),
  974.       asserta(dbase("printer_program",Reply)),Reply='y'.
  975. check("one_beep"):-
  976.       write("┤╙╚φ┼╠╥²╡╝╟░,╥╗╔∙╢╠╜╨╬¬╒²│ú,╥²╡╝╙╨╬╩╠Γ┬≡? (Y/N)"),
  977.       response(Reply),
  978.       Reply='y'.
  979. checkc(Z,X):-
  980.       dbase(Z,Y),X=Y,!.
  981. checkc("╧╡═│",X):-
  982.        not(dbase("╧╡═│",_)),repeat,title,
  983.        write("           ╬╩╠Γ╗∙▒╛└α╨═:"),nl,nl,
  984.        write("1) ╞⌠╢»╬╩╠Γ          2) ╘╦╨╨╬╩╠Γ"),nl,
  985.        write("3) ╧╘╩╛╬╩╠Γ          4) ╝ⁿ┼╠╬╩╠Γ"),nl,
  986.        write("5) ┤≥╙í╗·╬╩╠Γ        6) ═╦│÷"),nl,nl,
  987.        write("╟δ╩Σ╚δ─π╡─╤í╘±"),
  988.        response(Reply),
  989.        char_int(Reply,Z),
  990.        Z<64,Z>48,!,
  991.        asserta(dbase("╧╡═│",Reply)),X=Reply.
  992. checkc("╞⌠╢»",X):-
  993.               not(dbase("╞⌠╢»",_)),repeat,title,
  994.               write("        ╞⌠╢»╬╩╠Γ└α╨═:"),nl,
  995.               write("1) ╞⌠╢»╩▒│÷╧╓╧╡═│┤φ(POST╩º░▄)"),nl,
  996.               write("2) ▓╗─▄╞⌠╢»,╡τ╘┤╡╞▓╗┴┴,╞┴─╗▓╗╧╘╩╛ ,┼╠▓╗╣ñ╫≈"),nl,
  997.               write("3) ▓╗─▄╞⌠╢»,╡τ╘┤╡╞┴┴,╞┴─╗╞┴─╗╬▐╚╬║╬╧╘╩╛,┼╠▓╗╣ñ╫≈"),nl,
  998.               write("4)  POST ╒²│ú,╡½▓╗─▄╞⌠╢»"),nl,nl,
  999.               write(" ╟δ╩Σ╚δ─π╡─╤í╘±:"),nl,
  1000.               response(Reply),
  1001.               char_int(Reply,Z),
  1002.               Z<53, Z>48,!,
  1003.               asserta(dbase("╞⌠╢»",Reply)),
  1004.               X=Reply.
  1005. checkc("╜╨╔∙",X):-
  1006.               not(dbase("╜╨╔∙",_)),repeat,title,
  1007.               write("   │⌡╩╝╒∩╢╧╩▒╡─╜╨╔∙└α╨═:"),nl,
  1008.               write("1) ╬▐╜╨╔∙,╗·╞≈╬▐╖┤╙ª"),nl,  
  1009.               write("2) ╥╗╔∙╢╠╜╨,┤┼┼╠╡╞┴┴"),nl,
  1010.               write("3) ┴¼╨°╜╨ "),nl,      
  1011.               write("4)╥╗╔∙│ñ╜╨,╥╗╔∙╢╠╜╨"),nl,
  1012.               write("5)╥╗╔∙│ñ╜╨,┴╜╔∙╢╠╜╨"),nl,
  1013.               write("6)╥╗╔∙╢╠╜╨,╞┴─╗▒Σ║┌╗≥╧╘╩╛▓╗╒²│ú"),nl,
  1014.               write("7) ╓╪╕┤╡─╢╠╜╨╔∙"),nl,
  1015.               write("8)╥╗╔∙╢╠╜╨,╝┤│÷╧╓ BASIC╠ß╩╛╖√"),nl,nl,
  1016.               write("╟δ╩Σ╚δ─π╡─╤í╘±"),
  1017.               response(Reply),
  1018.               char_int(Reply,Z),
  1019.               Z<57, Z>48,!,
  1020.               asserta(dbase("╜╨╔∙",Reply)),
  1021.               X=Reply.
  1022. checkc("┤φ╬≤┤·┬δ",X):-
  1023.        not(dbase("┤φ╬≤┤·┬δ",_)),
  1024.        repeat,title,
  1025.        write("      ┤φ╬≤└α╨═:"),nl,
  1026.        write("a) ╬▐┤φ╬≤╨┼╧ó "),nl,
  1027.        write("b) 101 ╗≥ 131 ╗≥ 1xx "),nl,
  1028.        write("c) 201 ╗≥ xxxx201 parity check x ╗≥ 20x ╗≥xx20x"),nl,
  1029.        write("d) 301 ╗≥ xx301 ╗≥ 30x ╗≥ ╝ⁿ┼╠┤φ"),nl,
  1030.        write("e) 601 ╗≥ 6xx"),nl,
  1031.        write("f) 4xx"),nl,
  1032.        write("g) 5xx"),nl,
  1033.        write("h) 9xx"),nl,
  1034.        write("i) 13xx"),nl,
  1035.        write("j) 14xx"),nl,
  1036.        write("k) 1701 ╗≥ 17xx"),nl,
  1037.        write("l) 1801 ╗≥ 17xx"),nl,
  1038.        write("m) 02x"),nl,nl,
  1039.          write("╟δ╩Σ╚δ─π╡─╤í╘±"),
  1040.          response(Reply),nl,
  1041.          char_int(Reply,Z),
  1042.          Z<110,Z>96,!,
  1043.          asserta(dbase("┤φ╬≤┤·┬δ",Reply)), X=Reply.
  1044. checkc("╚φ┼╠╞⌠╢»",X):-
  1045.           not(dbase("╚φ┼╠╞⌠╢»",_)),repeat,title,
  1046.           write("╧┬├µ╙├╚φ┼╠╞⌠╢»└┤╒∩╢╧╬╩╠Γ"),nl,nl,
  1047.           write("       ╚φ┼╠╟²╢»╞≈╓ó╫┤└α╨═:"),nl,
  1048.           write("1) ╚φ┼╠╟²╢»╞≈▓╗╢»,╫░╚δ╡╞▓╗┴┴,┬φ┤∩▓╗╫¬"),nl,
  1049.           write("2) ╫░╚δ╡╞┴┴,┬φ┤∩╫¬,╡½▓╗╫÷╞Σ╦ⁿ╢»╫≈"),nl,
  1050.   write("3)╧╘╩╛ Non System disk or disk error ╗≥disk boot failure"),nl,
  1051.           write("4)╧╘╩╛ Drive not ready"), nl,
  1052.           write("5)╧╘╩╛ Bad or missing Command interpreter"),nl,nl,
  1053.               write("╟δ╩Σ╚δ─π╡─╤í╘±"),
  1054.          response(Reply),nl,
  1055.          char_int(Reply,Z),
  1056.          Z<58,Z>48,!,
  1057.          asserta(dbase("╚φ┼╠╞⌠╢»",Reply)), X=Reply.
  1058. checkc("run_hard_disk",X):-
  1059.          not(dbase("run_hard_disk",_)),repeat,title,
  1060.          write("        ╙▓┼╠╓ó╫┤└α╨═:"),nl,
  1061.          write("1) ╙▓┼╠▓╗╢»--╖├╬╩╩▒╫░╚δ╡╞▓╗┴┴"),nl,
  1062.          write("2) ╢┴╨┤▓╗═Ω╒√ "),nl,
  1063.          write("3) ╢┴╒²╚╖,╡½╨┤▓╗╒²╚╖ "),nl,
  1064.          write("4) ╘╦╨╨ CHKDSK ╩▒│÷┤φ "),nl,
  1065.          write("5) ╧∞╔∙╥∞│ú "),nl,
  1066.          write("6) ╢¬╡⌠┴╦╦∙┤µ╨┼╧ó "),nl,nl,
  1067.          write("╟δ╩Σ╚δ─π╡─╤í╘±"),
  1068.          response(Reply),
  1069.          char_int(Reply,Z),
  1070.          Z<55,Z>48,!,
  1071.          asserta(dbase("run_hard_disk",Reply)), X=Reply.
  1072. checkc("run_floppy_disk",X):-
  1073.          not(dbase("run_floppy_disk",_)),repeat,title,
  1074.          write("         ╚φ┼╠╓ó╫┤└α╨═:"),nl,
  1075.          write("1) ╚φ┼╠▓╗╢»--╖├╬╩╩▒╫░╚δ╡╞▓╗┴┴"),nl,
  1076.          write("2) ╧╘╩╛ Not ready reading drivex,Abort,Retry,Ignore?"),         write("3) ╢┴╨┤▓╗═Ω╒√ "),nl,
  1077.          write("4) ╢┴╒²╚╖,╡½╨┤▓╗╒²╚╖ "),nl,
  1078.          write("5) ╧∞╔∙╥∞│ú "),nl,
  1079.          write("6) ╫░╚δ,╨╢╧┬┼╠╞¼▒╚╜╧└º─╤ "),nl,nl,
  1080.          write("╟δ╩Σ╚δ─π╡─╤í╘±"),
  1081.          response(Reply),
  1082.          char_int(Reply,Z),
  1083.          Z<55,Z>48,!,
  1084.          asserta(dbase("run_floppy_disk",Reply)), X=Reply.
  1085. checkc("╘╦╨╨",X):-
  1086.          not(dbase("╘╦╨╨",_)),repeat,title,
  1087.          write("       ╘╦╨╨╬╩╠Γ└α╨═:"),nl,nl,
  1088.          write("1) ╝╞╦π╗·╦°╢¿,╡½╡τ╘┤╚╘╘┌╣ñ╫≈"),nl,
  1089.          write("2) ╝╞╦π╗·╡⌠╡τ,╫╘╝║╣╪╢╧╡τ╘┤"),nl,
  1090.          write("3) ╞µ┼╝╨ú╤Θ┤φ "),nl,
  1091.          write("4) ╜╙╔╧═Γ▓┐╔Φ▒╕╩▒╝╞╦π╗·▒└└ú"),nl,
  1092.         write("5) ╘╦╨╨╜ß╣√╖┤╕┤╬▐│ú,╗≥╝Σ╙╨╩º░▄"),nl,
  1093.         write("6) ╘╦╨╨╠╪╩Γ│╠╨≥╩▒│÷┤φ"),nl,
  1094.         write("7) ╙▓┼╠╬╩╠Γ"),nl,
  1095.         write("8) ╚φ┼╠╬╩╠Γ"),nl,
  1096.         write("9) ╣²╚╚"),nl,nl,
  1097.          write("╟δ╩Σ╚δ─π╡─╤í╘±"),
  1098.          response(Reply),nl,
  1099.          char_int(Reply,Z),
  1100.          Z<58,Z>48,!,
  1101.          asserta(dbase("╘╦╨╨",Reply)), X=Reply.
  1102. checkc("╧╘╩╛",X):-
  1103.          not(dbase("╧╘╩╛",_)),repeat,title,
  1104.          write("╧╘╩╛╬╩╠Γ└α╨═"),nl,nl,
  1105.          write("1) ╬▐╧╘╩╛"),nl,
  1106.          write("2) ╧╘╩╛╡¡─«"),nl,
  1107.          write("3) ╧╘╩╛╞≈╣²╚╚"),nl,
  1108.          write("4) ┤╣╓▒═¼▓╜╩º"),nl,
  1109.          write("5) ╦«╞╜═¼▓╜╩º"),nl,
  1110.          write("6) ╧╘╩╛╨┼╧ó╘╙┬╥"),nl,
  1111.          write("7) ▓╩╔½╧╘╩╛╞≈╗╡╗≥╬▐▓╩╔½"),nl,nl,
  1112.          write("      ╟δ╩Σ╚δ─π╡─╤í╘±"),
  1113.          response(Reply),nl,
  1114.          char_int(Reply,Z),
  1115.          Z<56,Z>48,!,
  1116.          asserta(dbase("╧╘╩╛",Reply)), X=Reply.
  1117. checkc("╝ⁿ┼╠",X):-
  1118.          not(dbase("╝ⁿ┼╠",_)),repeat,title,
  1119.          write("╝╠╨°╒∩╢╧╟░╙ª╚╖▒ú╝ⁿ┼╠╬▐╬∩└φ╦≡╔╦"),nl,
  1120.          write("    ╝ⁿ┼╠╬╩╠Γ└α╨═:"),nl,nl,
  1121.         write("1) ╝ⁿ┼╠╩º┴Θ"),nl,
  1122.         write("2) ╝ⁿ┼╠╩Σ╚δ┤φ╬≤╫╓╖√"),nl,
  1123.         write("3) ╥╗╕÷╗≥╢α╕÷╝ⁿ╩º┴Θ"),nl,
  1124.         write("4) ╤╣╧┬╥╗╕÷╝ⁿ╧╘╩╛╢α╕÷╫╓╖√"),nl,
  1125.         write("5) ═Γ▓┐╬∩╠σ╢¬╜°┴╦╝ⁿ┼╠"),nl,
  1126.         write("6) ╝ⁿ┼╠╔╧╙╨─│╓╓╥▌│÷╬∩"),nl,nl,
  1127.         write("    ╟δ╩Σ╚δ─π╡─╤í╘±"),
  1128.         response(Reply),nl,
  1129.         char_int(Reply,Z),
  1130.         Z<56,Z>48,!,         
  1131.         asserta(dbase("╝ⁿ┼╠",Reply)), X=Reply.
  1132. checkc("┤≥╙í╗·",X):-
  1133.          not(dbase("┤≥╙í╗·",_)),repeat,title,         
  1134.          write("    ┤≥╙í╗·╬╩╠Γ└α╨═:"),nl,nl,
  1135.          write("╬a)  ┤≥╙í╗·╩º┴Θ"),nl,
  1136.          write("╬b)  ▓╗─▄╫╘╝∞"),nl,
  1137.          write("╬c)  ╫╘╝∞╒²│ú,┴¬╗·╩º░▄"),nl,
  1138.          write("╬d)  ┤≥╙í╨┼╧ó╘╙┬╥"),nl,
  1139.          write("╬e)  │÷╧╓╥∞│ú╡─┼╝╚╗╡─┤φ╬≤"),nl,
  1140.          write("╬f)  ═╗╚╗═ú╓╣┤≥╙í"),nl,
  1141.          write("╬g)  ┤≥╙í═╖╨í│╡▓╗─▄╥╞╢»"),nl,
  1142.          write("╬h)  ┤≥╙í╘┌╣ñ╫≈,╡½┤≥╙í▓╗│÷╚╬║╬╫╓╖√"),nl,
  1143.          write("╬i)  ┤≥╙í╗·╗≥┤≥╙í═╖╣²╚╚"),nl,
  1144.          write("╬j)  ╙í│÷╡─╫╓╖√╝Σ╛α▓╗╛∙╘╚"),nl,
  1145.          write("╬k)  ╢¬╡⌠▓┐╖╓┤≥╙í╫╓╖√"),nl,
  1146.          write(" l)  ┤≥╙í╓╜╙╡╝╖│╔╢╤"),nl,nl,
  1147.          write("     ╟δ╩Σ╚δ─π╡─╤í╘±"),
  1148.          response(Reply),nl,
  1149.          char_int(Reply,Z),
  1150.          Z<109,Z>96,!,
  1151.          asserta(dbase("┤≥╙í╗·",Reply)), 
  1152.          X=Reply.
  1153.  response(Reply):-
  1154.          readchar(Reply),
  1155.          write("   " ,Reply),nl.
  1156. cause("AC ╡τ╘┤"):-
  1157.           write("╗≥╨φAC╡τ╘┤├╗╜╙║├"),
  1158.           write("╟δ╝∞▓Θ╡τ╘┤╧▀╝░▓σ╫∙,╚╖▒ú╡τ╘┤╜╙═¿").
  1159. cause("┐¬╣╪"):-
  1160.           write("╗≥╨φ╣╩╒╧╘┌ ON/OFF ┐¬╣╪╗≥╡τ╘┤"),nl,
  1161.           write("╟δ╝∞▓Θ ON/OFF┐¬╣╪╝░╧╡═│─┌▓┐╡τ╘┤").
  1162. cause("╬▐╡τ"):-
  1163.           write("╗≥╨φ╡τ╘┤╣⌐╕°╗≥╡τ╘┤┴¼╜╙╞≈╙╨╬╩╠Γ"),
  1164.           write("╟δ╝∞▓Θ╗·─┌╡τ╘┤╣⌐╕°╧╡═│").
  1165. cause("╡τ╘┤╣⌐╕°"):-
  1166.          write("  ╗≥╨φ─┌▓┐╡τ╘┤╣⌐╕°╙╨╬╩╠Γ"),nl,
  1167.          write("╝∞▓Θ─┌▓┐╡τ╘┤╣⌐╕°╡τ└┬╝░╧╡═│").
  1168. cause("╧╡═│░σ"):-
  1169.         write("╧╡═│░σ╙╨╬╩╠Γ,╨▐└φ╗≥╕ⁿ╗╗╓«").
  1170. cause("╧╡═│░σ2"):-
  1171.         write("╧╡═│░σ┐¬╣╪╔Φ╓├╗≥╧╡═│░σ╙╨╬╩╠Γ"),nl,
  1172.         write("╝∞▓Θ┐¬╣╪╗≥╕ⁿ╗╗╧╡═│░σ").
  1173. cause("╧╘╩╛"):-
  1174.          write("╧╘╩╛╞≈╗≥╧╘╩╛╡τ└┬╙╨╬╩╠Γ,╕ⁿ╗╗╗≥╨▐└φ╦ⁿ").
  1175. cause("┤┼┼╠╟²╢»╞≈"):-
  1176.         write("╟²╢»╞≈, ╡τ└┬, ┐╪╓╞┐¿╙╨╬╩╠Γ╗≥╜╙┤Ñ▓╗┴╝"),nl,
  1177.         write("╕ⁿ╗╗╗≥╓╪╜╙╟²╢»╞≈╝░┐╪╓╞┐¿").
  1178. cause("─┌┤µ"):-
  1179.          write("╧╡═│╗≥╜╙┐┌░σ╔╧╙╨╥╗╕÷╗≥╢α╕÷╙╨╬╩╠Γ╨╛╞¼,╚╖▒ú╦∙╙╨╞¼╫╙"),nl,
  1180.          write("└╬┐┐╡╪╫░╘┌▓σ╫∙╔╧,▒╪╥¬╩▒╙├╒∩╢╧│╠╨≥╚╖╢¿╙╨╬╩╠Γ╡─╞¼╫╙").
  1181. cause("╝ⁿ┼╠"):-
  1182.         write("╝ⁿ┼╠╙╨╬╩╠Γ╗≥╜╙┤Ñ▓╗┴╝").
  1183. cause("╡Ñ╔½╧╘╩╛╞≈"):-
  1184.         write("╧╘╩╛╞≈╙╨╬╩╠Γ╗≥╜╙┤Ñ▓╗┴╝,╝∞▓Θ╧╘╩╛╞≈,╜╙┐┌┐¿,╡τ└┬").
  1185. cause("▓╩╔½╧╘╩╛╞≈"):-
  1186.         write("╧╘╩╛╞≈╙╨╬╩╠Γ╗≥╜╙┤Ñ▓╗┴╝,╝∞▓Θ╧╘╩╛╞≈,╜╙┐┌┐¿,╡τ└┬").
  1187.         cause("┤≥╙í╗·"):-
  1188.         write("┤≥╙í╗·╙╨╬╩╠Γ╗≥╜╙┤Ñ▓╗┴╝,╝∞▓Θ┤≥╙í╗·,╜╙┐┌┐¿,╡τ└┬").
  1189. cause("╙▓┼╠:"):-        
  1190.         write("╙▓┼╠╗·╙╨╬╩╠Γ╗≥╜╙┤Ñ▓╗┴╝,╝∞▓Θ╙▓┼╠╗·,╜╙┐┌┐¿,╡τ╘┤").
  1191. cause("╙╬╧╖╩╩┼Σ╞≈"):-
  1192.       write("╙╬╧╖╩╩┼Σ╞≈╬┤╜╙╔╧╗≥╙╨╚▒╧▌.╝∞▓Θ╙╬╧╖╩╩┼Σ╞≈┐¿╝░╡τ└┬").
  1193. cause("└⌐╒╣╡Ñ╘¬"):-
  1194.        write("└⌐╒╣╡Ñ╘¬╙╨├½▓í╗≥╬┤╜╙║├").
  1195. cause("config"):-
  1196.        write("config ╬─╝■╓╨╡──│╨⌐─┌╚▌╫Φ╓╣┴╦╞⌠╢»╡─═Ω│╔.╠╪▒≡╥¬╗│╥╔╜ⁿ╞┌"),nl,
  1197.        write("╠φ╝╙╡╜╕├╬─╝■╓╨╡──┌╚▌,╠╪▒≡╫ó╥Γ DEVICE=xxxx ╒Γ╥╗╧ε").
  1198. cause("╙▓┼╠"):-
  1199.         write("╙▓┼╠╗≥╞Σ┐╪╓╞┐¿╙╨╬╩╠Γ,╥▓┐╔─▄╩╟╙▓┼╠╟²╢»╞≈╡τ╘┤╙╨╬╩╠Γ"),nl,
  1200.         write("╚⌠╙▓┼╠╘┌└⌐╒╣╡Ñ╘¬╓╨,╙ª╝∞▓Θ╡τ╘┤╩╟╖±╜╙═¿").                    
  1201. cause("dos"):-
  1202.         write("╘┌╙▓┼╠╔╧░▓╫░ DOS 2.0╗≥╕ⁿ╕▀░µ▒╛").
  1203. cause("╞⌠╢»╢┴╙▓"):-
  1204.         write("╚⌠▓╗─▄╢┴╙▓┼╠╔╧╡──┐┬╝,╗≥╨φ╢¬╡⌠┴╦╙▓┼╠╔╧╡─│╠╨≥╗≥╩²╛▌"),nl,
  1205.         write("╩╘╕±╩╜╗»╙▓┼╠▓ó╗╓╕┤╫¬┤ó╡─│╠╨≥,╩²╛▌").
  1206. cause("bad_dos"):-
  1207.         write("╙▓┼╠╔╧╡─ DOS╙╨╬╩╠Γ").
  1208. cause("AUTOEXEC"):-
  1209.         write("╘┌ AUTOEXEC.BAT ╓╨╡──│╨⌐╢½╬≈╫Φ╓╣╥²╡╝╡─═Ω│╔"),nl,
  1210.         write("╙ª╗│╥╔╜ⁿ╞┌╠φ╝╙╡╜╕├╬─╝■╓╨╡─╥╗╨⌐─┌╚▌").
  1211. cause("δ֪"):-
  1212.          write("╬╩╠Γ─╤╥╘╚╖╢¿,╙ª╗│╥╔╚╬║╬╨┬░▓╫░╡─╙▓╝■╝░╚φ╝■"),nl,
  1213.          write("╥╞╚Ñ╦ⁿ├╟╘┘╥²╡╝╓«.╝∞▓Θ╧╡═│░σ╔╧╡─┐¬╣╪").
  1214. cause("╟²╢»╞≈╡τ╘┤"):-
  1215.          write("╟²╢»╞≈╙╨├½▓í╗≥╡╜╟²╢»╞≈╡─╡τ╘┤▓╗═¿.╝∞▓Θ╡╜╟²╢»"),nl,
  1216.          write("╞≈╡─╡τ╘┤╡τ└┬.╚⌠╡τ╘┤╒²│ú, ╘≥╕ⁿ╗╗╗≥╨▐└φ╟²╢»╞≈").
  1217. cause("physical_disk"):-
  1218.         write("╚⌠╚φ┼╠╙╨╬∩└φ╦≡╔╦,╘┌╙╨┴╦▒╕╖▌╓«║≤┼╫╞·╦ⁿ").
  1219. cause("dirt"):-
  1220.        write("╢┴═╖╠½╘α╗≥╟²╢»╞≈╓╨╙╨╥∞╬∩,╙ª▒ú│╓┼╠╡─╟σ╜α").
  1221. cause("twodisks"):-
  1222.        write("╩╫╧╚┤╙┴φ╥╗╕÷╟²╢»╞≈╥²╡╝,╚⌠│╔╣ª╘≥┤╦╟²╢»╞≈╙╨╬╩╠Γ"),nl,
  1223.       write("╝∞▓Θ╦≡╗╡╗≥╦╔╔ó╡─╟²╢»╞≈┤½╢»╫░╓├.╚⌠╥²╡╝╩º░▄╘≥┐╔─▄"),nl,
  1224.       write("┐╪╓╞┐¿╡τ└┬╙╨╬╩╠Γ.┐╔╜╗╗╗╟²╢»╞≈ A,B ╡╜┐╪╓╞┐¿╡─,▓σ"),nl,
  1225.       write("╫∙╬╗╓├,╚⌠╚╘▓╗─▄┤╙A ╟²╢»╞≈╓╨╥²╡╝,╘≥┐╔─▄┐╪╓╞┐¿╗≥╡τ"),nl,
  1226.       write("└┬╙╨╬╩╠Γ,╖±╘≥╟²╢»╞≈╙╨╬╩╠Γ.╟²╢»╞≈╬╩╠Γ║▄┐╔─▄╩╟┤½╢»"),nl,
  1227.       write("╗·╣╣,┬φ┤∩,╨ú╫╝╬╩╠Γ").
  1228. cause("╚φ┼╠╟²╢»╞≈"):-
  1229.         write("╬╩╠Γ┐╔─▄╘┌┼╠╟²╢»╞≈,╡τ└┬╗≥┐╪╓╞┐¿.").
  1230. cause("format"):-
  1231.         write("╕├┼╠╬┤╕±╩╜╗»╗≥╞Σ╔╧╬▐ DOS ,╩╣╙├║¼ DOS ╡─╕±╩╜╗»┼╠").
  1232. cause("├┼"):-
  1233.         write("╕├┼╠╬┤╕±╩╜╗»╗≥╟²╢»╞≈├┼├╗╣╪,╣╪╔╧├┼╗≥╗╗┼╠").
  1234. cause("├ⁿ┴ε"):-
  1235.        write("COMMAND.COM ╬─╝■▓╗╘┌┼╠╔╧,╙├╙╨┤╦╬─╝■╡─DOS┼╠").
  1236. cause("unplugged"):-
  1237.       write("╓╪▓╝╗≥╕ⁿ╗╗╡τ└┬,▒▄├Γ╬╩╠Γ╘┘│÷╧╓").
  1238. cause("╙▓╝■"):-
  1239.       write("╩╘┤╙╚φ┼╠╥²╡╝╥╘╝∞▓Θ╗╡ DOS,╚⌠╥²╡╝╩º░▄,╙ª╓╪╕┤╒Γ╓╓╒∩╢╧"),nl,
  1240.       write("╥╘╝∞▓Θ╥²╡╝╬╩╠Γ.╒Γ║▄┐╔─▄╩╟╧╡═│░σ,╝ⁿ┼╠╗≥─┌┤µ╨╛╞¼╬╩╠Γ").
  1241. cause("╚φ╝■"):-
  1242.      write("╘╦╨╨╠╪╢¿│╠╨≥╩▒│÷┤φ┐╔─▄╙δ╫ñ┴⌠│╠╨≥╙╨│σ═╗,╩╘╚Ñ╡⌠╦∙╙╨╫ñ┴⌠"),nl,
  1243.      write("│╠╨≥╘┘╩╘╘╦╨╨.╚⌠│╠╨≥╩╟╨┬╡─╟╥╩╣╙├╨┬╡─╙▓╝■╘≥┐╔─▄╩╟╓╨╢╧│σ═╗").
  1244. cause("static"):-
  1245.       write("╬╩╠Γ┐╔─▄╙╔╛▓╡τ╗≥╡τ╘┤└╦╙┐╥²╞≡,╙ª╩╣╙├└╦╙┐▒ú╗ñ╞≈╖└╡τ╘┤"),nl,
  1246.       write("└╦╙┐,╩╣╙├┐╣╛▓╡τ╡╪░σ╖└╛▓╡τ").
  1247. cause("æ"):-
  1248.       write("╨φ╢α│╠╨≥╘╦╨╨╩▒╙╨╥Γ╦°╫í╝ⁿ┼╠╥╘╖└╦√╚╦╖╟╖¿╕─▒Σ╩²╛▌,╙╪╡╜"),nl,
  1249.       write("╒Γ╓╓╬╩╠Γ┐╔╙├╕ⁿ┐∞╗≥╓º│╓╢α╚╬╬±╡─╝╞╦π╗·").
  1250. cause("drop_power"):-
  1251.       write("╬╩╠Γ┐╔─▄╙╔╛▓╡τ,╡τ╘┤└╦╙┐╗≥╙╨╚▒╧▌╡─╡τ╘┤╣⌐"),nl,
  1252.       write("╕°,╗≥╗╡╡─╧╡═│░σ╦∙╥²╞≡").
  1253. cause("╞µ┼╝┤φ"):-
  1254.       write("╫ε╥╗░π╡─╘¡╥≥╩╟─┌┤µ╨╛╞¼┤φ,╒Γ┐╔╙├─┌┤µ╒∩╢╧│╠╨≥╚╖╢¿.┴φ╥╗"),nl,
  1255.      write("╕÷╘¡╥≥╩╟╩╣╙├╞µ┼╝╨ú╤Θ┤φ╡─╓╨╢╧,╚τ─│╨⌐EGA░σ.╚⌠╜ⁿ╞┌░▓╫░"),nl,
  1256.      write("┴╦╨┬╡─╙▓╝■╗≥╚φ╝■,╙ª╗│╥╔╦ⁿ╥²╞≡┴╦╞µ┼╝┤φ╨┼╧ó").
  1257. cause("crashes"):-
  1258.       write("╬╩╠Γ┐╔─▄╩╟: 1)╘┌╠╪╩Γ│╠╨≥╓╨╙╨╚φ╝■┤φ╬≤(BUG); 2)╘┌╙▓╝■"),nl,
  1259.       write("╗≥╚φ╝■╟²╢»╞≈╓╨╙╨╚▒╧▌; 3)╧╡═│░σ╗≥╡τ╘┤╣⌐╕°╙╨╬╩╠Γ").
  1260. cause("erratic_software"):-
  1261.        write("╝∞▓Θ╙δ╫ñ┴⌠│╠╨≥╡─│σ═╗.╚⌠╬▐│σ═╗╩╘┤╙╓≈┼╠╫≈│╠╨≥╡─▒╕╖▌,"),nl,
  1262.        write(" ╚╗║≤╘┘╝∞▓Θ│╠╨≥").
  1263. cause("╗╖╛│"):-
  1264.       write("╝╞╦π╗·╕╜╜ⁿ╡─╬┬╢╚╙ª╬¬╔π╩╧ 16--32 ╢╚"),nl, 
  1265.       write("╒Γ┐╔─▄╦µ▓·╞╖▓╗═¼╢°╥∞").
  1266. cause("run_hard_disk"):-
  1267.        write("╡τ╘┤╡τ└┬╗≥╟²╢»╞≈╙╨╬╩╠Γ").
  1268. cause("run_expansion"):-
  1269.       write("╚╖▒ú└⌐╒╣╡Ñ╘¬═¿╡τ.╚⌠╥╤═¿╡τ,╘≥╡τ╘┤╣⌐╕°,╞Σ╡τ└┬╗≥╙▓┼╠╙╨╬╩╠Γ").
  1270. cause("run_harddisk_write"):-
  1271.      write("┐╔─▄╟²╢»╞≈,┐╪╓╞┐¿╗≥┐╪╓╞┐¿╡╜╟²╢»╞≈╡─╡τ└┬╙╨╬╩╠Γ").
  1272. cause("run_harddisk_read"):-
  1273.      write("┐╔─▄╟²╢»╞≈,┐╪╓╞┐¿╗≥┐╪╓╞┐¿╡╜╟²╢»╞≈╡─╡τ└┬╙╨╬╩╠Γ").
  1274. cause("run_harddisk_chkdsk"):-
  1275.       write("┐╔─▄┼╠╟²╢»╞≈╙╨╬╩╠Γ.╥▓┐╔─▄╩╟╙ª╙├│╠╨≥╔Φ╝╞╡─▓╗║├"),nl,
  1276.       write("╚⌠╘╦╨╨ CHKDSK ║≤╒╥▓╗╡╜╢¬╡⌠╡─CLUSTER╘≥┤╦│╠╨≥╙╨╬╩╠Γ"),nl,
  1277.       write("╨┬╡─ CHKDSK │╠╨≥(1985)└√╙├┴╦╜╧╨┬╡─ DOS ╣ª─▄╧√│²╬╩╠Γ").
  1278. cause("run_harddisk_noise"):-
  1279.       write("┐╔─▄╓ß│╨╙╨╬╩╠Γ,┴ó╝┤╕ⁿ╗╗┤┼┼╠╜°╨╨╝∞▓Θ").
  1280. cause("run_hard"):-
  1281.       write("┐╔─▄╟²╢»╞≈╗╡┴╦,┴ó╝┤╕ⁿ╗╗┤┼┼╠╜°╨╨╝∞▓Θ").
  1282. cause("physical_move"):-
  1283.       write("╢╘╨φ╢α╝╞╦π╗·└┤╦╡,╥╞╢»┼╠╟░▒╪╨δ╩╣╟²╢»╞≈═╖ PARKED (═ú┴⌠"),nl,
  1284.       write("╘┌░▓╚½╬╗╓├),╒Γ┐╔╙├╒∩╢╧│╠╨≥╡─╥╗╕÷╤í╘±╧ε└┤╫÷.╚⌠─π╡─╧╡═│"),nl,
  1285.       write("╙╨╒Γ╓╓╨Φ╥¬,╘┌╥╞╢»┼╠╥╘╟░▒╪╨δ╧╚ PARK").
  1286. cause("run_disk_software"):-
  1287.        write("─│╨⌐│╠╨≥─╤╘┌╙╨╨⌐┼╠╔╧╘╦╨╨,╚⌠╢╘╡Ñ╕÷│╠╨≥▓·╔·┤╦╓╓╬╩╠Γ"),nl,
  1288.        write("╙ª╒╥│╠╨≥┐¬╖ó╒▀▓Θ╬╩╠Γ").
  1289. cause("run_resident"):-
  1290.       write("─│╨⌐╫ñ┴⌠╚φ╝■┐╔╙├╢┴╨┤┼╠└┤╜╙┐┌.╩╘╥╞╚Ñ╠╪╢¿╫ñ┴⌠│╠╨≥╗≥"),nl,
  1291.       write("╥╘▓╗═¼┤╬╨≥░▓╫░╦ⁿ├╟").
  1292. cause("run_floppy_physical"):-
  1293.        write("╟º╖╜░┘╝╞┤╙┼╠╔╧╗╪╩╒╩²╛▌,╚╗║≤╢¬╞·╕├┼╠").
  1294. cause("bad_floppy"):-
  1295.         write("┤╙┼╠╔╧╗╪╩╒╩²╛▌╚╗║≤╓╪╨┬╕±╩╜╗»╕├┼╠▓ó▓Γ╩╘╦ⁿ.╚⌠"),nl,
  1296.         write("╚╘╩º░▄╘≥╢¬╞·╗≥╕ⁿ╗╗╕├┼╠").
  1297. cause("bad_floppy_drive"):-
  1298.        write("┐╔─▄╚φ┼╠╟²╢»╞≈╗╡┴╦╗≥╨Φ╨ú╫╝╚φ┼╠╟²╢»╞≈").
  1299. cause("bad_floppy2"):-
  1300.      write("╚⌠╢╘═¼╥╗┤┼┼╠┴¼╨°╖ó╔·╬╩╠Γ,╘≥╢╘╕├┼╠╫≈▒╕╖▌║≤╢¬╞·╗≥╕ⁿ╗╗┤╦"),nl,
  1301.      write("┼╠.╚⌠╢╘═¼╥╗┼╞║┼╡─┼╠┴¼╨°╖ó╔·╬╩╠Γ,╕ⁿ╗╗┴φ╥╗┼╞║┼╡─┼╠").
  1302. cause("run_floppy_disk_power"):-
  1303.      write("┤┼┼╠╡τ╘┤╡τ└┬╗≥╡τ╘┤╣⌐╕°╙╨╬╩╠Γ").
  1304. cause("run_floppy_not_ready"):-
  1305.      write("┐╔─▄╩╟╚φ┼╠▓σ┤φ┴╦╗≥╟²╢»╞≈├┼┐¬╫┼,╥▓┐╔─▄╩╟╙╔╙┌┼╠╙╨╚▒╧▌"),nl,
  1306.      write("╗≥╞≤═╝╢┴├╗╕±╩╜╗»╡─┼╠.┐╔╘┌┴φ╥╗╟²╢»╞≈╗≥╝╞╦π╗·╩╘┤╦┼╠,╚⌠"),nl,
  1307.      write("┼╠┐╔╣ñ╫≈,╦╡├≈╟²╢»╞≈┤½╢»╗·╣╣╗≥╟²╢»╞≈▒╛╔φ╙╨╬╩╠Γ").
  1308. cause("write_protect"):-
  1309.        write("┼╠╞¼╔╧╡─▒ú╗ñ┐╫╕┤╕╟╩▒▓╗─▄═∙┼╠╔╧╨┤").
  1310. cause("floppy_noise"):-
  1311.        write("┐╔─▄╩╟╟²╢»╞≈╓╨╡─╞ñ┤°╢╧┐¬,╟²╢»╞≈╓╨╙╨╥∞╬∩╗≥╟²╢»╞≈┬φ┤∩"),nl,
  1312.        write("╙╨╬╩╠Γ").
  1313. cause("floppy_load"):-
  1314.         write("┐╔─▄╩╟╟²╢»╞≈╓╨╙╨╥∞╬∩,├┼╬╩╠Γ╗≥┴φ╝■╦╔┴╦").
  1315. cause("╘╦╨╨╣²╚╚"):-
  1316.          write("┐╔─▄╖τ╔╚,╖τ╔╚═¿╖τ╗≥╩Σ╚δ═¿╖τ┐╫╙╨├½▓í.╚⌠▒╪╥¬╩▒╟σ└φ"),nl,
  1317.          write("╖τ╔╚╣²┬╦╞≈,▓ó╚╖▒ú╖τ╔╚╫¬╢».▓╗╥¬╘┌╧╡═│░▓╫░╣²╢α╡─╗≥"),nl,
  1318.          write("╣ª┬╩╣²┤≤╡─╜╙┐┌┐¿").
  1319. cause("run_software_dos"):-
  1320.          write("╘┌DOS╩╓▓ß╓╨▓Θ┐┤┤φ╬≤╨┼╧ó,▓ó╜°╨╨╩╓▓ß╦∙╜¿╥Θ╡─╣²│╠").
  1321. cause("run_software_application"):-
  1322.          write("═¿╣²╨┼╗≥╡τ╗░╙δ╚φ╝■╣½╦╛┴¬╧╡").
  1323. cause("╬▐╧╘╩╛"):-
  1324.          write("╚╖▒ú╝α┐╪╞≈═¿╡τ,╗╘╢╚║╧╩╩,▓ó╝∞▓Θ╩╙╞╡╡τ└┬╗≥╝α┐╪╞≈").
  1325. cause("╧╘╩╛╡¡─