home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / hakaut10.exe / HYPER.BTM < prev    next >
Text File  |  1995-01-30  |  43KB  |  1,539 lines
  1. : Batch program for control
  2. : of HyperDisk cache.
  3. : 
  4. : 
  5. Echo Off
  6. SetLocal
  7. : List of PROGRAMS with their PATH
  8. : Program which manages cache
  9.  Set hyperdk=c:\utility\hyperdk
  10. : Cache memory
  11.  Set CacheMemory=c:\hyper386
  12. : List of STANDARD COLORS
  13. : Standard color of background of menus frame
  14.  Set Colorbcm=Black
  15. : Standard color of foreground of menus frame
  16.  Set Colorfcm=Green
  17. : Standard  color of background of menus choices
  18.  Set Colorbom=Black
  19. : Standard color of foreground of menus choices
  20.  Set Colorfom=Green
  21. : Standard color of background of editors frames
  22.  Set Colorbce=Black
  23. : Standard color of foreground of editors frames
  24.  Set Colorfce=Green
  25. : Standard color of background screen
  26.  Set Colorbsch=Black
  27. : Standard color of foreground screen
  28.  Set Colorfsch=White
  29. :Loop
  30.  Gosub Main
  31. Goto Loop
  32.  
  33. :Heading
  34.  DrawBox 5 27 11 50 2 Cyan On Black Fill Black Zoom
  35.  ScrPut 6 34 Cyan On Black H Y P E R
  36.  ScrPut 7 30 Cyan On Black Program to control
  37.  ScrPut 8 28 Cyan On Black HyperWare Cache Memory
  38.  ScrPut 10 30 Cyan On Black by Severino Bozzer
  39. Return
  40.  
  41. : Main
  42. :Main
  43.  Gosub BoxMain
  44.  Gosub Heading
  45.  Inkey/P/X/K"CRGDISQ[Esc]" %%Main
  46.  DrawBox 5 27 11 50 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  47.  Iff "%Main" == "C" Then
  48.   Gosub Cache
  49.  ElseIff "%Main" == "R" Then
  50.   Gosub Report
  51.  ElseIff "%Main" == "G" Then
  52.   Gosub Generic
  53.  ElseIff "%Main" == "D" Then
  54.   Gosub Dimension
  55.  ElseIff "%Main" == "I" Then
  56.   Gosub Installation
  57.  ElseIff "%Main" == "S" Then
  58.   %hyperdk E
  59.  Else
  60.   Cls %Colorfsch On %Colorbsch
  61.   Quit
  62.  EndIff
  63. Return
  64.  
  65. : Cache
  66. :Cache
  67.  Gosub BoxCache
  68.  Inkey/P/X/K"GWADREUQ[Esc]" %%Cache
  69.  Iff "%Cache" == "G" Then
  70.   Gosub CacheGeneral
  71.  ElseIff "%Cache" == "W" Then
  72.   Gosub Writing
  73.  ElseIff "%Cache" == "A" Then
  74.   Gosub Asynchronous
  75.  ElseIff "%Cache" == "D" Then
  76.   %hyperdk XU
  77.   Return
  78.  ElseIff "%Cache" == "R" Then
  79.   Gosub Drives
  80.  ElseIff "%Cache" == "E" Then
  81.   Gosub ReadAhead
  82.  ElseIff "%Cache" == "U" Then
  83.   Gosub UseXMS
  84.  Else
  85.   Return
  86.  EndIff
  87. Goto Cache
  88.  
  89. : CacheGeneral
  90. :CacheGeneral
  91.  Gosub BoxCacheGeneral
  92.  Inkey/P/X/K"ADOLQ[Esc]" %%CacheGeneral
  93.  Iff "%CacheGeneral" == "A" Then
  94.   %hyperdk E
  95.  ElseIff "%CacheGeneral" == "D" Then
  96.   %hyperdk D
  97.  ElseIff "%CacheGeneral" == "O" Then
  98.   %hyperdk H
  99.  ElseIff "%CacheGeneral" == "L" Then
  100.   %hyperdk F
  101.  EndIff
  102.  DrawBox 4 19 9 34 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  103. Return
  104.  
  105. : Writing
  106. :Writing
  107.  Gosub BoxWriting
  108.  Inkey/P/X/K"IDREOQ[Esc]" %%Writing
  109.  Iff "%Writing" == "I" Then
  110.   Gosub ImmediateWriting
  111.  ElseIff "%Writing" == "D" Then
  112.   Gosub DelayedWriting
  113.  ElseIff "%Writing" == "R" Then
  114.   Gosub RedundatWriting
  115.  ElseIff "%Writing" == "E" Then
  116.   Gosub ExitWindows
  117.  ElseIff "%Writing" == "O" Then
  118.   Gosub DosDiskReset
  119.  Else
  120.   DrawBox 5 19 11 34 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  121.   Return
  122.  EndIff
  123. Goto Writing
  124.  
  125. : ImmediateWriting
  126. :ImmediateWriting
  127.  Gosub BoxImmediateWriting
  128.  Inkey/P/X/K"AHFQ[Esc]" %%ImmediateWriting
  129.  Iff "%ImmediateWriting" == "A" Then
  130.   %hyperdk W Q
  131.  ElseIff "%ImmediateWriting" == "H" Then
  132.   %hyperdk W
  133.  ElseIff "%ImmediateWriting" == "F" Then
  134.   %hyperdk Q
  135.  EndIff
  136.  DrawBox 6 35 10 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  137. Return
  138.  
  139. : DelayedWriting
  140. :DelayedWriting
  141.  Gosub BoxDelayedWriting
  142.  Inkey/P/X/K"AHFDQ[Esc]" %%DelayedWriting
  143.  Iff "%DelayedWriting" == "A" Then
  144.   %hyperdk S A
  145.   DrawBox 7 35 12 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  146.   Return
  147.  ElseIff "%DelayedWriting" == "H" Then
  148.   %hyperdk S
  149.   DrawBox 7 35 12 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  150.   Return
  151.  ElseIff "%DelayedWriting" == "F" Then
  152.   %hyperdk A
  153.   DrawBox 7 35 12 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  154.   Return
  155.  ElseIff "%DelayedWriting" == "D" Then
  156.   Gosub Delay
  157.  Else
  158.   DrawBox 7 35 12 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  159.   Return
  160.  EndIff
  161. Goto DelayedWriting
  162.  
  163. : Delay
  164. :Delay
  165.  DrawBox 18 34 20 47 3 %Colorfce On %Colorbce Fill Green
  166.  ScrPut 18 38 %Colorfce On %Colorbce Delay
  167.  Screen 19 35
  168.  Input/X/D/E/L2 Seconds: %%Delay
  169.  Iff "%Delay" != "" Then
  170.   %hyperdk T:%Delay
  171.  EndIff
  172.  DrawBox 18 34 20 47 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  173. Return
  174.  
  175. : RedundatWriting
  176. :RedundatWriting
  177.  Gosub BoxRedundatWriting
  178.  Inkey/P/X/K"ADQ[Esc]" %%RedundatWriting
  179.  Iff "%RedundatWriting" == "A" Then
  180.   Gosub AbleRedundant
  181.  ElseIff "%RedundatWriting" == "D" Then
  182.   Gosub DisableRedundant
  183.  Else
  184.   DrawBox 8 35 11 43 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  185.   Return
  186.  EndIff
  187. Goto RedundatWriting
  188.  
  189. : AbleRedundant
  190. :AbleRedundant
  191.  Gosub BoxAbleRedundant
  192.  Inkey/P/X/K"AHFQ[Esc]" %%AbleRedundant
  193.  Iff "%AbleRedundant" == "A" Then
  194.   %hyperdk XWH XWF
  195.  ElseIff "%AbleRedundant" == "H" Then
  196.   %hyperdk XWH
  197.  ElseIff "%AbleRedundant" == "F" Then
  198.   %hyperdk XWF
  199.  EndIff
  200.  DrawBox 9 44 13 58 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  201. Return
  202.  
  203. : DisableRedundant
  204. :DisableRedundant
  205.  Gosub BoxDisableRedundant
  206.  Inkey/P/X/K"AHFQ[Esc]" %%DisableRedundant
  207.  Iff "%DisableRedundant" == "A" Then
  208.   %hyperdk XWH:- XWF:-
  209.  ElseIff "%DisableRedundant" == "H" Then
  210.   %hyperdk XWH:-
  211.  ElseIff "%DisableRedundant" == "F" Then
  212.   %hyperdk XWF:-
  213.  EndIff
  214.  DrawBox 10 44 14 58 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  215. Return
  216.  
  217. : ExitWindows
  218. :ExitWindows
  219.  Gosub BoxExitWindows
  220.  Inkey/P/X/K"UNQ[Esc]" %%ExitWindows
  221.  Iff "%ExitWindows" == "U" Then
  222.   %hyperdk KA:+
  223.   DrawBox 9 35 12 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  224.   Return
  225.  ElseIff "%ExitWindows" == "N" Then
  226.   %hyperdk KA:-
  227.  Else
  228.   DrawBox 9 35 12 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  229.   Return
  230.  EndIff
  231. Goto ExitWindows
  232.  
  233. : DosDiskReset
  234. :DosDiskReset
  235.  Gosub BoxDosDiskReset
  236.  Inkey/P/X/K"UNQ[Esc]" %%DosDiskReset
  237.  Iff "%DosDiskReset" == "U" Then
  238.   %hyperdk KD:-
  239.  ElseIff "%DosDiskReset" == "N" Then
  240.   %hyperdk KD:+
  241.  EndIff
  242.  DrawBox 10 35 13 54 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  243. Return
  244.  
  245. : Asynchronous
  246. :Asynchronous
  247.  Gosub BoxAsynchronous
  248.  Inkey/P/X/K"ADQ[Esc]" %%Asynchronous
  249.  Iff "%Asynchronous" == "A" Then
  250.   Gosub AbleAsynchronous
  251.  ElseIff "%Asynchronous" == "D" Then
  252.   Gosub DisableAsynchronous
  253.  Else
  254.   DrawBox 6 19 9 27 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  255.   Return
  256.  EndIff
  257. Goto Asynchronous
  258.  
  259. : AbleAsynchronous
  260. :AbleAsynchronous
  261.  Gosub BoxAbleAsynchronous
  262.  Inkey/P/X/K"AHFQ[Esc]" %%AbleAsynchronous
  263.  Iff "%AbleAsynchronous" == "A" Then
  264.   %hyperdk XI
  265.  ElseIff "%AbleAsynchronous" == "H" Then
  266.   %hyperdk XIH
  267.  ElseIff "%AbleAsynchronous" == "F" Then
  268.   %hyperdk XIF
  269.  EndIff
  270.  DrawBox 7 28 11 42 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  271. Return
  272.  
  273. : DisableAsynchronous
  274. :DisableAsynchronous
  275.  Gosub BoxDisableAsynchronous
  276.  Inkey/P/X/K"AHFQ[Esc]" %%DisableAsynchronous
  277.  Iff "%DisableAsynchronous" == "A" Then
  278.   %hyperdk XI:-
  279.  ElseIff "%DisableAsynchronous" == "H" Then
  280.   %hyperdk XIH:-
  281.  ElseIff "%DisableAsynchronous" == "F" Then
  282.   %hyperdk XIF:-
  283.  EndIff
  284.  DrawBox 8 28 12 42 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  285. Return
  286.  
  287. : Drives
  288. :Drives
  289.  Gosub BoxDrives
  290.  Inkey/P/X/K"ALFONQ[Esc]" %%Drives
  291.  Iff "%Drives" == "A" Then
  292.   Gosub DrivesAll
  293.  ElseIff "%Drives" == "L" Then
  294.   Gosub DrivesHard
  295.  ElseIff "%Drives" == "F" Then
  296.   Gosub DrivesFloppy
  297.  ElseIff "%Drives" == "O" Then
  298.   Gosub DrivesSomeHard
  299.  ElseIff "%Drives" == "N" Then
  300.   Gosub DrivesSomeFloppy
  301.  Else
  302.   DrawBox 8 19 14 37 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  303.   Return
  304.  EndIff
  305. Goto Drives
  306.  
  307. : DrivesAll
  308. :DrivesAll
  309.  Gosub BoxDrivesAll
  310.  Inkey/P/X/K"ADQ[Esc]" %%DrivesAll
  311.  Iff "%DrivesAll" == "A" Then
  312.   %hyperdk EH EF
  313.  ElseIff "%DrivesAll" == "D" Then
  314.   %hyperdk DH DF
  315.  EndIff
  316.  Gosub BoxMain
  317.  Gosub BoxCache
  318. Return
  319.  
  320. : DrivesHard
  321. :DrivesHard
  322.  Gosub BoxDrivesHard
  323.  Inkey/P/X/K"ADQ[Esc]" %%DrivesHard
  324.  Iff "%DrivesHard" == "A" Then
  325.   %hyperdk EH
  326.  ElseIff "%DrivesHard" == "D" Then
  327.   %hyperdk DH
  328.  EndIff
  329.  Gosub BoxMain
  330.  Gosub BoxCache
  331. Return
  332.  
  333. : DrivesFloppy
  334. :DrivesFloppy
  335.  Gosub BoxDrivesFloppy
  336.  Inkey/P/X/K"ADQ[Esc]" %%DrivesFloppy
  337.  Iff "%DrivesFloppy" == "A" Then
  338.   %hyperdk EF
  339.  ElseIff "%DrivesFloppy" == "D" Then
  340.   %hyperdk DF
  341.  EndIff
  342.  Gosub BoxMain
  343.  Gosub BoxCache
  344. Return
  345.  
  346. : DrivesSomeHard
  347. :DrivesSomeHard
  348.  Gosub BoxDrivesSomeHard
  349.  Inkey/P/X/K"ADQ[Esc]" %%DrivesSomeHard
  350.  Iff "%DrivesSomeHard" == "A" Then
  351.   Gosub AbleOneHard
  352.  ElseIff "%DrivesSomeHard" == "D" Then
  353.   Gosub DisableOneHard
  354.  EndIff
  355.  Gosub BoxMain
  356.  Gosub BoxCache
  357. Return
  358.  
  359. : AbleOneHard
  360. :AbleOneHard
  361.  DrawBox 18 33 20 48 3 %Colorfce On %Colorbce Fill Green
  362.  ScrPut 18 39 %Colorfce On %Colorbce Able
  363.  Screen 19 34
  364.  Input/X/L1 Hard drive: %%AbleOneHard
  365.  Iff "%AbleOneHard" != "" Then
  366.   %hyperdk EH:%AbleOneHard
  367.  EndIff
  368.  DrawBox 18 33 20 48 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  369. Return
  370.  
  371. : DisableOneHard
  372. :DisableOneHard
  373.  DrawBox 18 33 20 48 3 %Colorfce On %Colorbce Fill Green
  374.  ScrPut 18 37 %Colorfce On %Colorbce Disable
  375.  Screen 19 34
  376.  Input/X/L1 Hard drive: %%DisableOneHard
  377.  Iff "%DisableOneHard" != "" Then
  378.   %hyperdk DH:%DisableOneHard
  379.  EndIff
  380.  DrawBox 18 33 20 48 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  381. Return
  382.  
  383. : DrivesSomeFloppy
  384. :DrivesSomeFloppy
  385.  Gosub BoxDrivesSomeFloppy
  386.  Inkey/P/X/K"ADQ[Esc]" %%DrivesSomeFloppy
  387.  Iff "%DrivesSomeFloppy" == "A" Then
  388.   Gosub AbleOneFloppy
  389.  ElseIff "%DrivesSomeFloppy" == "D" Then
  390.   Gosub DisableOneFloppy
  391.  EndIff
  392.  Gosub BoxMain
  393.  Gosub BoxCache
  394. Return
  395.  
  396. : AbleOneFloppy
  397. :AbleOneFloppy
  398.  DrawBox 18 32 20 49 3 %Colorfce On %Colorbce Fill Green
  399.  ScrPut 18 39 %Colorfce On %Colorbce Able
  400.  Screen 19 33
  401.  Input/X/L1 Floppy drive: %%AbleOneFloppy
  402.  Iff "%AbleOneFloppy" != "" Then
  403.   %hyperdk EF:%AbleOneFloppy
  404.  EndIff
  405.  DrawBox 18 32 20 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  406. Return
  407.  
  408. : DisableOneFloppy
  409. :DisableOneFloppy
  410.  DrawBox 18 32 20 49 3 %Colorfce On %Colorbce Fill Green
  411.  ScrPut 18 37 %Colorfce On %Colorbce Disable
  412.  Screen 19 33
  413.  Input/X/L1 Floppy drive: %%DisableOneFloppy
  414.  Iff "%DisableOneFloppy" != "" Then
  415.   %hyperdk DF:%DisableOneFloppy
  416.  EndIff
  417.  DrawBox 18 32 20 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  418. Return
  419.  
  420. : ReadAhead
  421. :ReadAhead
  422.  Gosub BoxReadAhead
  423.  Inkey/P/X/K"ADQ[Esc]" %%ReadAhead
  424.  Iff "%ReadAhead" == "A" Then
  425.   %hyperdk NR:+
  426.  ElseIff "%ReadAhead" == "D" Then
  427.   %hyperdk NR:-
  428.  EndIff
  429.  DrawBox 9 19 12 27 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  430. Return
  431.  
  432. : UseXMS
  433. :UseXMS
  434.  Gosub BoxUseXMS
  435.  Inkey/P/X/K"ADLUQ[Esc]" %%UseXMS
  436.  Iff "%UseXMS" == "A" Then
  437.   Gosub AbleXMS
  438.  ElseIff "%UseXMS" == "D" Then
  439.   %hyperdk XM:-
  440.   DrawBox 10 19 15 27 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  441.   Return
  442.  ElseIff "%UseXMS" == "L" Then
  443.   %hyperdk XML:+
  444.   DrawBox 10 19 15 27 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  445.   Return
  446.  ElseIff "%UseXMS" == "U" Then
  447.   %hyperdk XML:-
  448.   DrawBox 10 19 15 27 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  449.   Return
  450.  Else
  451.   DrawBox 10 19 15 27 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  452.   Return
  453.  EndIff
  454. Goto UseXMS
  455.  
  456. : AbleXMS
  457. :AbleXMS
  458.  Gosub BoxAbleXMS
  459.  Inkey/P/X/K"REPQ[Esc]" %%AbleXMS
  460.  Iff "%AbleXMS" == "R" Then
  461.   %hyperdk XT
  462.  ElseIff "%AbleXMS" == "E" Then
  463.   %hyperdk XTR
  464.  ElseIff "%AbleXMS" == "P" Then
  465.   %hyperdk XTP
  466.  EndIff
  467.  DrawBox 11 28 15 50 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  468. Return
  469.  
  470. : Report
  471. :Report
  472.  Gosub BoxReport
  473.  Inkey/P/X/K"GSDRQ[Esc]" %%Report
  474.  Iff "%Report" == "G" Then
  475.   %hyperdk
  476.  ElseIff "%Report" == "S" Then
  477.   %hyperdk YD
  478.  ElseIff "%Report" == "D" Then
  479.   %hyperdk Y
  480.  ElseIff "%Report" == "R" Then
  481.   %hyperdk R
  482.  Else
  483.   Return
  484.  EndIff
  485.  Gosub BoxMain
  486. Goto Report
  487.  
  488. : Generic
  489. :Generic
  490.  Gosub BoxGeneric
  491.  Inkey/P/X/K"VOCTHEAQ[Esc]" %%Generic
  492.  Iff "%Generic" == "V" Then
  493.   Gosub Verify
  494.  ElseIff "%Generic" == "O" Then
  495.   Gosub Output
  496.  ElseIff "%Generic" == "C" Then
  497.   %hyperdk OK:0
  498.   Return
  499.  ElseIff "%Generic" == "T" Then
  500.   Gosub Tone
  501.  ElseIff "%Generic" == "H" Then
  502.   Gosub HotKey
  503.  ElseIff "%Generic" == "E" Then
  504.   Gosub CheckFloppy
  505.  ElseIff "%Generic" == "A" Then
  506.   Gosub Advanced
  507.  Else
  508.   Return
  509.  EndIff
  510. Goto Generic
  511.  
  512. : Verify
  513. :Verify
  514.  Gosub BoxVerify
  515.  Inkey/P/X/K"ADQ[Esc]" %%Verify
  516.  Iff "%Verify" == "A" Then
  517.   Gosub AbleVerify
  518.  ElseIff "%Verify" == "D" Then
  519.   Gosub DisableVerify
  520.  Else
  521.   DrawBox 4 38 7 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  522.   Return
  523.  EndIff
  524. Goto Verify
  525.  
  526. : AbleVerify
  527. :AbleVerify
  528.  Gosub BoxAbleVerify
  529.  Inkey/P/X/K"AHFQ[Esc]" %%AbleVerify
  530.  Iff "%AbleVerify" == "A" Then
  531.   %hyperdk V
  532.  ElseIff "%AbleVerify" == "H" Then
  533.   %hyperdk VH
  534.  ElseIff "%AbleVerify" == "F" Then
  535.   %hyperdk VF
  536.  EndIff
  537.  DrawBox 5 47 9 61 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  538. Return
  539.  
  540. : DisableVerify
  541. :DisableVerify
  542.  Gosub BoxDisableVerify
  543.  Inkey/P/X/K"AHFQ[Esc]" %%DisableVerify
  544.  Iff "%DisableVerify" == "A" Then
  545.   %hyperdk V:-
  546.  ElseIff "%DisableVerify" == "H" Then
  547.   %hyperdk VH:-
  548.  ElseIff "%DisableVerify" == "F" Then
  549.   %hyperdk VF:-
  550.  EndIff
  551.  DrawBox 6 47 10 61 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  552. Return
  553.  
  554. : Output
  555. :Output
  556.  Gosub BoxOutput
  557.  Inkey/P/X/K"VDQ[Esc]" %%Output
  558.  Iff "%Output" == "V" Then
  559.   %hyperdk OK:+
  560.  ElseIff "%Output" == "D" Then
  561.   %hyperdk OK:-
  562.  EndIff
  563.  DrawBox 5 38 8 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  564. Return
  565.  
  566. : Tone
  567. :Tone
  568.  Gosub BoxTone
  569.  Inkey/P/X/K"AFUCQ[Esc]" %%Tone
  570.  Iff "%Tone" == "A" Then
  571.   Gosub AllDriveTone
  572.  ElseIff "%Tone" == "F" Then
  573.   Gosub FloppyTone
  574.  ElseIff "%Tone" == "U" Then
  575.   Gosub UpdateTone
  576.  ElseIff "%Tone" == "C" Then
  577.   Gosub ChangeFloppy
  578.  Else
  579.   DrawBox 7 38 12 52 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  580.   Return
  581.  EndIff
  582. Goto Tone
  583.  
  584. : AllDriveTone
  585. :AllDriveTone
  586.  Gosub BoxAllDriveTone
  587.  Inkey/P/X/K"ADQ[Esc]" %%AllDriveTone
  588.  Iff "%AllDriveTone" == "A" Then
  589.   %hyperdk OT:+ KT:+
  590.  ElseIff "%AllDriveTone" == "D" Then
  591.   %hyperdk OT:- KT:-
  592.  EndIff
  593.  DrawBox 8 53 11 61 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  594. Return
  595.  
  596. : FloppyTone
  597. :FloppyTone
  598.  Gosub BoxFloppyTone
  599.  Inkey/P/X/K"ADQ[Esc]" %%FloppyTone
  600.  Iff "%FloppyTone" == "A" Then
  601.   %hyperdk KT:+
  602.  ElseIff "%FloppyTone" == "D" Then
  603.   %hyperdk KT:-
  604.  EndIff
  605.  DrawBox 9 53 12 61 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  606. Return
  607.  
  608. : UpdateTone
  609. :UpdateTone
  610.  Gosub BoxUpdateTone
  611.  Inkey/P/X/K"VFQ[Esc]" %%UpdateTone
  612.  Iff "%UpdateTone" == "V" Then
  613.   Gosub Volume
  614.  ElseIff "%UpdateTone" == "F" Then
  615.   Gosub Frequency
  616.  Else
  617.   DrawBox 10 53 13 63 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  618.   Return
  619.  EndIff
  620. Goto UpdateTone
  621.  
  622. : Volume
  623. :Volume
  624.  DrawBox 18 36 20 44 3 %Colorfce On %Colorbce Fill Green
  625.  ScrPut 18 37 %Colorfce On %Colorbce Volume
  626.  Screen 19 37
  627.  Input/X/D/L2 Hz: %%Volume
  628.  Iff "%Volume" != "" Then
  629.   %hyperdk I:%Volume
  630.  EndIff
  631.  DrawBox 18 36 20 44 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  632. Return
  633.  
  634. : Frequency
  635. :Frequency
  636.  DrawBox 18 34 20 47 3 %Colorfce On %Colorbce Fill Green
  637.  ScrPut 18 36 %Colorfce On %Colorbce Frequency
  638.  Screen 19 35
  639.  Input/X/D/L2 Seconds: %%Frequency
  640.  Iff "%Frequency" != "" Then
  641.   %hyperdk P:%Frequency
  642.  EndIff
  643.  DrawBox 18 34 20 47 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  644. Return
  645.  
  646. : ChangeFloppy
  647. :ChangeFloppy
  648.  Gosub BoxChangeFloppy
  649.  Inkey/P/X/K"ADQ[Esc]" %%ChangeFloppy
  650.  Iff "%ChangeFloppy" == "A" Then
  651.   %hyperdk OC:-
  652.  ElseIff "%ChangeFloppy" == "D" Then
  653.   %hyperdk OC:+
  654.  EndIff
  655.  DrawBox 11 53 14 61 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  656. Return
  657.  
  658. : HotKey
  659. :HotKey
  660.  Gosub BoxHotKey
  661.  Inkey/P/X/K"AMSPQ[Esc]" %%HotKey
  662.  Iff "%HotKey" == "A" Then
  663.   Gosub AfterReport
  664.  ElseIff "%HotKey" == "M" Then
  665.   Gosub Method
  666.  ElseIff "%HotKey" == "S" Then
  667.   Gosub Status
  668.  ElseIff "%HotKey" == "P" Then
  669.   Gosub SpecialKey
  670.  Else
  671.   DrawBox 8 38 13 51 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  672.   Return
  673.  EndIff
  674. Goto HotKey
  675.  
  676. : AfterReport
  677. :AfterReport
  678.  Gosub BoxAfterReport
  679.  Inkey/P/X/K"WNTQ[Esc]" %%AfterReport
  680.  Iff "%AfterReport" == "W" Then
  681.   %hyperdk KW:+
  682.  ElseIff "%AfterReport" == "N" Then
  683.   %hyperdk KW:-
  684.  ElseIff "%AfterReport" == "T" Then
  685.   Gosub SecondsAfterReport
  686.  EndIff
  687.  Gosub BoxMain
  688.  Gosub BoxGeneric
  689. Return
  690.  
  691. : SecondsAfterReport
  692. :SecondsAfterReport
  693.  DrawBox 18 34 20 47 3 %Colorfce On %Colorbce Fill Green
  694.  ScrPut 18 39 %Colorfce On %Colorbce Time
  695.  Screen 19 35
  696.  Input/X/D/L2 Seconds: %%SecondsAfterReport
  697.  Iff "%SecondsAfterReport" != "" Then
  698.   %hyperdk KW:%SecondsAfterReport
  699.  EndIff
  700.  DrawBox 18 34 20 47 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  701. Return
  702.  
  703. : Method
  704. :Method
  705.  DrawBox 18 33 20 48 3 %Colorfce On %Colorbce Fill Green
  706.  Screen 19 34
  707.  Input/X/L5 Method: %%Method
  708.  Iff "%Method" != "" Then
  709.   %hyperdk OH:%Method
  710.  EndIff
  711.  DrawBox 18 33 20 48 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  712. Return
  713.  
  714. : Status
  715. :Status
  716.  Gosub BoxStatus
  717.  Inkey/P/X/K"ADQ[Esc]" %%Status
  718.  Iff "%Status" == "A" Then
  719.   %hyperdk K:+
  720.  ElseIff "%Status" == "D" Then
  721.   %hyperdk K:-
  722.  EndIff
  723.  DrawBox 11 52 14 60 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  724. Return
  725.  
  726. : SpecialKey
  727. :SpecialKey
  728.  Gosub BoxSpecialKey
  729.  Inkey/P/X/K"ALRSEIQ[Esc]" %%SpecialKey
  730.  Iff "%SpecialKey" == "A" Then
  731.   %hyperdk K:ac
  732.  ElseIff "%SpecialKey" == "L" Then
  733.   %hyperdk K:al
  734.  ElseIff "%SpecialKey" == "R" Then
  735.   %hyperdk K:ar
  736.  ElseIff "%SpecialKey" == "S" Then
  737.   %hyperdk K:lr
  738.  ElseIff "%SpecialKey" == "E" Then
  739.   %hyperdk K:cl
  740.  ElseIff "%SpecialKey" == "I" Then
  741.   %hyperdk K:cr
  742.  EndIff
  743.  DrawBox 12 52 19 69 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  744. Return
  745.  
  746. : CheckFloppy
  747. :CheckFloppy
  748.  DrawBox 18 34 20 47 3 %Colorfce On %Colorbce Fill Green
  749.  Screen 19 35
  750.  Input/X/D/L2 Seconds: %%CheckFloppy
  751.  Iff "%CheckFloppy" != "" Then
  752.   %hyperdk M:%CheckFloppy
  753.  EndIff
  754.  DrawBox 18 34 20 47 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  755. Return
  756.  
  757. : Advanced
  758. :Advanced
  759.  Gosub BoxAdvanced
  760.  Inkey/P/X/K"SUBEIDQ[Esc]" %%Advanced
  761.  Iff "%Advanced" == "S" Then
  762.   Gosub SectorPerBuffer
  763.  ElseIff "%Advanced" == "U" Then
  764.   Gosub Background
  765.  ElseIff "%Advanced" == "B" Then
  766.   Gosub Bypass
  767.  ElseIff "%Advanced" == "E" Then
  768.   Gosub Qemm
  769.  ElseIff "%Advanced" == "I" Then
  770.   Gosub Interrupt
  771.  ElseIff "%Advanced" == "D" Then
  772.   %hyperdk OD
  773.   DrawBox 10 38 17 65 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  774.   Return
  775.  Else
  776.   DrawBox 10 38 17 65 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  777.   Return
  778.  EndIff
  779. Goto Advanced
  780.  
  781. : SectorPerBuffer
  782. :SectorPerBuffer
  783.  DrawBox 18 33 20 47 3 %Colorfce On %Colorbce Fill Green
  784.  Screen 19 34
  785.  Input/X/D/L3 Sectors: %%SectorPerBuffer
  786.  Iff "%SectorPerBuffer" != "" Then
  787.   %hyperdk Z:%SectorPerBuffer
  788.  EndIff
  789.  DrawBox 18 33 20 47 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  790. Return
  791.  
  792. : Background
  793. :Background
  794.  Gosub BoxBackground
  795.  Inkey/P/X/K"PADQ[Esc]" %%Background
  796.  Iff "%Background" == "P" Then
  797.   Gosub PercentageUpdate
  798.  ElseIff "%Background" == "A" Then
  799.   Gosub Oldest
  800.  ElseIff "%Background" == "D" Then
  801.   %hyperdk XB:0
  802.  EndIff
  803.  Gosub BoxMain
  804.  Gosub BoxGeneric
  805. Return
  806.  
  807. : PercentageUpdate
  808. :PercentageUpdate
  809.  DrawBox 18 32 20 49 3 %Colorfce On %Colorbce Fill Green
  810.  Screen 19 33
  811.  Input/X/D/L3 Percentage: %%PercentageUpdate
  812.  Iff "%PercentageUpdate" != "" Then
  813.   %hyperdk XP:%PercentageUpdate
  814.  EndIff
  815.  DrawBox 18 32 20 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  816. Return
  817.  
  818. : Oldest
  819. :Oldest
  820.  DrawBox 18 34 20 46 3 %Colorfce On %Colorbce Fill Green
  821.  ScrPut 18 38 %Colorfce On %Colorbce Able
  822.  Screen 19 35
  823.  Input/X/D/L3 Ticks: %%Oldest
  824.  Iff "%Oldest" != "" Then
  825.   %hyperdk XB:%Oldest
  826.  EndIff
  827.  DrawBox 18 34 20 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  828. Return
  829.  
  830. : Bypass
  831. :Bypass
  832.  Gosub BoxBypass
  833.  Inkey/P/X/K"ADQ[Esc]" %%Bypass
  834.  Iff "%Bypass" == "A" Then
  835.   Gosub AbleBypass
  836.  ElseIff "%Bypass" == "D" Then
  837.   %hyperdk OB:0
  838.  EndIff
  839.  DrawBox 13 66 16 74 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  840. Return
  841.  
  842. : AbleBypass
  843. :AbleBypass
  844.  DrawBox 18 33 20 47 3 %Colorfce On %Colorbce Fill Green
  845.  Screen 19 34
  846.  Input/X/D/L3 Sectors: %%AbleBypass
  847.  Iff "%AbleBypass" != "" Then
  848.   Iff %AbleBypass LT 0 .OR. %AbleBypass GT 128 Then
  849.    Beep
  850.    ScrPut 23 26 %Colorbsch On %Colorfsch ERROR ! Number not in [0..128]
  851.    Inkey/P/X %%$risp
  852.    Gosub BoxMain
  853.    Gosub BoxGeneric
  854.    Gosub BoxAdvanced
  855.    Gosub BoxBypass
  856.    Goto AbleBypass
  857.   EndIff
  858.   %hyperdk OB:%AbleBypass
  859.  EndIff
  860.  DrawBox 18 33 20 47 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  861. Return
  862.  
  863. : Qemm
  864. :Qemm
  865.  Gosub BoxQemm
  866.  Inkey/P/X/K"ADQ[Esc]" %%Qemm
  867.  Iff "%Qemm" == "A" Then
  868.   %hyperdk VI:+
  869.  ElseIff "%Qemm" == "D" Then
  870.   %hyperdk VI:-
  871.  EndIff
  872.  DrawBox 14 66 17 74 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  873. Return
  874.  
  875. : Interrupt
  876. :Interrupt
  877.  Gosub BoxInterrupt
  878.  Inkey/P/X/K"USQ[Esc]" %%Interrupt
  879.  Iff "%Interrupt" == "U" Then
  880.   %hyperdk UI:+
  881.  ElseIff "%Interrupt" == "S" Then
  882.   %hyperdk UI:-
  883.  EndIff
  884.  Gosub BoxMain
  885.  Gosub BoxGeneric
  886. Return
  887.  
  888. : Dimension
  889. :Dimension
  890.  Gosub BoxDimension
  891.  Inkey/P/X/K"DWQ[Esc]" %%Dimension
  892.  Iff "%Dimension" == "D" Then
  893.   Gosub DosDimension
  894.  ElseIff "%Dimension" == "W" Then
  895.   Gosub WindowsDimension
  896.  Else
  897.   Return
  898.  EndIff
  899. Goto Dimension
  900.  
  901. : DosDimension
  902. :DosDimension
  903.  Gosub BoxDosDimension
  904.  Inkey/P/X/K"NSCIDQ[Esc]" %%DosDimension
  905.  Iff "%DosDimension" == "N" Then
  906.   Gosub NewDosDimension
  907.  ElseIff "%DosDimension" == "S" Then
  908.   %hyperdk XC
  909.  ElseIff "%DosDimension" == "C" Then
  910.   %hyperdk XD
  911.  ElseIff "%DosDimension" == "I" Then
  912.   Gosub IncreaseDosDimension
  913.  ElseIff "%DosDimension" == "D" Then
  914.   Gosub DecreaseDosDimension
  915.  EndIff
  916.  Gosub BoxMain
  917. Return
  918.  
  919. : NewDosDimension
  920. :NewDosDimension
  921.  DrawBox 18 35 20 46 3 %Colorfce On %Colorbce Fill Green
  922.  ScrPut 18 36 %Colorfce On %Colorbce Dimension
  923.  Screen 19 36
  924.  Input/X/D/L5 Kb: %%NewDosDimension
  925.  Iff "%NewDosDimension" != "" Then
  926.   %hyperdk XC:%NewDosDimension
  927.  EndIff
  928.  DrawBox 18 35 20 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  929. Return
  930.  
  931. : IncreaseDosDimension
  932. :IncreaseDosDimension
  933.  DrawBox 18 35 20 46 3 %Colorfce On %Colorbce Fill Green
  934.  ScrPut 18 37 %Colorfce On %Colorbce Increase
  935.  Screen 19 36
  936.  Input/X/D/L5 Kb: %%IncreaseDosDimension
  937.  Iff "%IncreaseDosDimension" != "" Then
  938.   %hyperdk XA:%IncreaseDosDimension
  939.  EndIff
  940.  DrawBox 18 35 20 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  941. Return
  942.  
  943. : DecreaseDosDimension
  944. :DecreaseDosDimension
  945.  DrawBox 18 35 20 46 3 %Colorfce On %Colorbce Fill Green
  946.  ScrPut 18 37 %Colorfce On %Colorbce Decrease
  947.  Screen 19 36
  948.  Input/X/D/L5 Kb: %%DecreaseDosDimension
  949.  Iff "%DecreaseDosDimension" != "" Then
  950.   %hyperdk XD:%DecreaseDosDimension
  951.  EndIff
  952.  DrawBox 18 35 20 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  953. Return
  954.  
  955. : WindowsDimension
  956. :WindowsDimension
  957.  Gosub BoxWindowsDimension
  958.  Inkey/P/X/K"NSBPQ[Esc]" %%WindowsDimension
  959.  Iff "%WindowsDimension" == "N" Then
  960.   Gosub NewWindowsDimension
  961.   DrawBox 5 44 10 56 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  962.   Return
  963.  ElseIff "%WindowsDimension" == "S" Then
  964.   %hyperdk CW
  965.   Gosub BoxMain
  966.   Return
  967.  ElseIff "%WindowsDimension" == "B" Then
  968.   Gosub BaseWindows
  969.  ElseIff "%WindowsDimension" == "P" Then
  970.   Gosub PercentageWindows
  971.  Else
  972.   DrawBox 5 44 10 56 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  973.   Return
  974.  EndIff
  975. Goto WindowsDimension
  976.  
  977. : NewWindowsDimension
  978. :NewWindowsDimension
  979.  DrawBox 18 35 20 46 3 %Colorfce On %Colorbce Fill Green
  980.  ScrPut 18 37 %Colorfce On %Colorbce Windows
  981.  Screen 19 36
  982.  Input/X/D/L5 Kb: %%NewWindowsDimension
  983.  Iff "%NewWindowsDimension" != "" Then
  984.   %hyperdk CW:%NewWindowsDimension
  985.  EndIff
  986.  DrawBox 18 35 20 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  987. Return
  988.  
  989. : BaseWindows
  990. :BaseWindows
  991.  DrawBox 18 35 20 46 3 %Colorfce On %Colorbce Fill Green
  992.  ScrPut 18 39 %Colorfce On %Colorbce Base
  993.  Screen 19 36
  994.  Input/X/D/L5 Kb: %%BaseWindows
  995.  Iff "%BaseWindows" != "" Then
  996.   %hyperdk CB:%BaseWindows
  997.  EndIff
  998.  DrawBox 18 35 20 46 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  999. Return
  1000.  
  1001. : PercentageWindows
  1002. :PercentageWindows
  1003.  DrawBox 18 32 20 49 3 %Colorfce On %Colorbce Fill Green
  1004.  Screen 19 33
  1005.  Input/X/D/L3 Percentage: %%PercentageWindows
  1006.  Iff "%PercentageWindows" != "" Then
  1007.   %hyperdk CP:%PercentageWindows
  1008.  EndIff
  1009.  DrawBox 18 32 20 49 0 %Colorbsch On %Colorbsch Fill %Colorbsch
  1010. Return
  1011.  
  1012. : Installation
  1013. :Installation
  1014.  Gosub BoxInstallation
  1015.  Inkey/P/X/K"HQ[Esc]" %%Installation
  1016.  Iff "%Installation" == "H" Then
  1017.   %CacheMemory a s or
  1018.  EndIff
  1019. Return
  1020.  
  1021. :BoxMain
  1022.  Cls %Colorfsch On %Colorbsch
  1023.  ScrPut 1 5 %Colorfom On %Colorbom Cache
  1024.  ScrPut 1 5 Blink Green On Black C
  1025.  ScrPut 1 14 %Colorfom On %Colorbom Report
  1026.  ScrPut 1 14 Blink Green On Black R
  1027.  ScrPut 1 24 %Colorfom On %Colorbom Generic
  1028.  ScrPut 1 24 Blink Green On Black G
  1029.  ScrPut 1 35 %Colorfom On %Colorbom Dimension
  1030.  ScrPut 1 35 Blink Green On Black D
  1031.  ScrPut 1 48 %Colorfom On %Colorbom Installation
  1032.  ScrPut 1 48 Blink Green On Black I
  1033.  ScrPut 1 64 %Colorfom On %Colorbom Save data
  1034.  ScrPut 1 64 Blink Green On Black S
  1035.  DrawBox 0 0 2 79 2 %Colorfcm On %Colorbcm
  1036.  ScrPut 0 36 %Colorfcm On %Colorbcm Hyperdk
  1037. Return
  1038.  
  1039. :BoxCache
  1040.  ScrPut 4 5 %Colorfom On %Colorbom .General     .
  1041.  ScrPut 4 6 Blink Green On Black G
  1042.  ScrPut 5 5 %Colorfom On %Colorbom .Writing     .
  1043.  ScrPut 5 6 Blink Green On Black W
  1044.  ScrPut 6 5 %Colorfom On %Colorbom .Asynchronous.
  1045.  ScrPut 6 6 Blink Green On Black A
  1046.  ScrPut 7 5 %Colorfom On %Colorbom .DeInstall   .
  1047.  ScrPut 7 6 Blink Green On Black D
  1048.  ScrPut 8 5 %Colorfom On %Colorbom .Drives      .
  1049.  ScrPut 8 7 Blink Green On Black r
  1050.  ScrPut 9 5 %Colorfom On %Colorbom .Read Ahead  .
  1051.  ScrPut 9 7 Blink Green On Black e
  1052.  ScrPut 10 5 %Colorfom On %Colorbom .Use XMS     .
  1053.  ScrPut 10 6 Blink Green On Black U
  1054.  DrawBox 3 5 11 18 1 %Colorfcm On %Colorbcm
  1055.  ScrPut 3 9 %Colorfcm On %Colorbcm Cache
  1056. Return
  1057.  
  1058. :BoxCacheGeneral
  1059.  ScrPut 5 19 %Colorfom On %Colorbom .Able          .
  1060.  ScrPut 5 20 Blink Green On Black A
  1061.  ScrPut 6 19 %Colorfom On %Colorbom .Disable       .
  1062.  ScrPut 6 20 Blink Green On Black D
  1063.  ScrPut 7 19 %Colorfom On %Colorbom .Only Hard Disk.
  1064.  ScrPut 7 20 Blink Green On Black O
  1065.  ScrPut 8 19 %Colorfom On %Colorbom .All Drives    .
  1066.  ScrPut 8 21 Blink Green On Black l
  1067.  DrawBox 4 19 9 34 1 %Colorfcm On %Colorbcm
  1068.  ScrPut 4 23 %Colorfcm On %Colorbcm General
  1069. Return
  1070.  
  1071. :BoxInstallation
  1072.  ScrPut 4 48 %Colorfom On %Colorbom .Hyper386 A S OR.
  1073.  ScrPut 4 49 Blink Green On Black H
  1074.  DrawBox 3 48 5 64 1 %Colorfcm On %Colorbcm
  1075.  ScrPut 3 50 %Colorfcm On %Colorbcm Installation
  1076. Return
  1077.  
  1078. :BoxWriting
  1079.  ScrPut 6 19 %Colorfom On %Colorbom .Immediate     .
  1080.  ScrPut 6 20 Blink Green On Black I
  1081.  ScrPut 7 19 %Colorfom On %Colorbom .Delayed       .
  1082.  ScrPut 7 20 Blink Green On Black D
  1083.  ScrPut 8 19 %Colorfom On %Colorbom .Redundant     .
  1084.  ScrPut 8 20 Blink Green On Black R
  1085.  ScrPut 9 19 %Colorfom On %Colorbom .Exit Windows  .
  1086.  ScrPut 9 20 Blink Green On Black E
  1087.  ScrPut 10 19 %Colorfom On %Colorbom .Dos Disk Reset.
  1088.  ScrPut 10 21 Blink Green On Black o
  1089.  DrawBox 5 19 11 34 1 %Colorfcm On %Colorbcm
  1090.  ScrPut 5 23 %Colorfcm On %Colorbcm Writing
  1091. Return
  1092.  
  1093. :BoxImmediateWriting
  1094.  ScrPut 7 35 %Colorfom On %Colorbom .All Drives   .
  1095.  ScrPut 7 36 Blink Green On Black A
  1096.  ScrPut 8 35 %Colorfom On %Colorbom .Hard Drives  .
  1097.  ScrPut 8 36 Blink Green On Black H
  1098.  ScrPut 9 35 %Colorfom On %Colorbom .Floppy Drives.
  1099.  ScrPut 9 36 Blink Green On Black F
  1100.  DrawBox 6 35 10 49 1 %Colorfcm On %Colorbcm
  1101.  ScrPut 6 38 %Colorfcm On %Colorbcm Immediate
  1102. Return
  1103.  
  1104. :BoxDelayedWriting
  1105.  ScrPut 8 35 %Colorfom On %Colorbom .All Drives   .
  1106.  ScrPut 8 36 Blink Green On Black A
  1107.  ScrPut 9 35 %Colorfom On %Colorbom .Hard Drives  .
  1108.  ScrPut 9 36 Blink Green On Black H
  1109.  ScrPut 10 35 %Colorfom On %Colorbom .Floppy Drives.
  1110.  ScrPut 10 36 Blink Green On Black F
  1111.  ScrPut 11 35 %Colorfom On %Colorbom .Delay        .
  1112.  ScrPut 11 36 Blink Green On Black D
  1113.  DrawBox 7 35 12 49 1 %Colorfcm On %Colorbcm
  1114.  ScrPut 7 39 %Colorfcm On %Colorbcm Delayed
  1115. Return
  1116.  
  1117. :BoxRedundatWriting
  1118.  ScrPut 9 35 %Colorfom On %Colorbom .Able   .
  1119.  ScrPut 9 36 Blink Green On Black A
  1120.  ScrPut 10 35 %Colorfom On %Colorbom .Disable.
  1121.  ScrPut 10 36 Blink Green On Black D
  1122.  DrawBox 8 35 11 43 1 %Colorfcm On %Colorbcm
  1123. Return
  1124.  
  1125. :BoxAbleRedundant
  1126.  ScrPut 10 44 %Colorfom On %Colorbom .All Drives   .
  1127.  ScrPut 10 45 Blink Green On Black A
  1128.  ScrPut 11 44 %Colorfom On %Colorbom .Hard Drives  .
  1129.  ScrPut 11 45 Blink Green On Black H
  1130.  ScrPut 12 44 %Colorfom On %Colorbom .Floppy Drives.
  1131.  ScrPut 12 45 Blink Green On Black F
  1132.  DrawBox 9 44 13 58 1 %Colorfcm On %Colorbcm
  1133.  ScrPut 9 49 %Colorfcm On %Colorbcm Able
  1134. Return
  1135.  
  1136. :BoxDisableRedundant
  1137.  ScrPut 11 44 %Colorfom On %Colorbom .All Drives   .
  1138.  ScrPut 11 45 Blink Green On Black A
  1139.  ScrPut 12 44 %Colorfom On %Colorbom .Hard Drives  .
  1140.  ScrPut 12 45 Blink Green On Black H
  1141.  ScrPut 13 44 %Colorfom On %Colorbom .Floppy Drives.
  1142.  ScrPut 13 45 Blink Green On Black F
  1143.  DrawBox 10 44 14 58 1 %Colorfcm On %Colorbcm
  1144.  ScrPut 10 48 %Colorfcm On %Colorbcm Disable
  1145. Return
  1146.  
  1147. :BoxExitWindows
  1148.  ScrPut 10 35 %Colorfom On %Colorbom .Unload    .
  1149.  ScrPut 10 36 Blink Green On Black U
  1150.  ScrPut 11 35 %Colorfom On %Colorbom .Not Unload.
  1151.  ScrPut 11 36 Blink Green On Black N
  1152.  DrawBox 9 35 12 46 1 %Colorfcm On %Colorbcm
  1153.  ScrPut 9 37 %Colorfcm On %Colorbcm Windows
  1154. Return
  1155.  
  1156. :BoxDosDiskReset
  1157.  ScrPut 11 35 %Colorfom On %Colorbom .Update Buffers    .
  1158.  ScrPut 11 36 Blink Green On Black U
  1159.  ScrPut 12 35 %Colorfom On %Colorbom .Not Update Buffers.
  1160.  ScrPut 12 36 Blink Green On Black N
  1161.  DrawBox 10 35 13 54 1 %Colorfcm On %Colorbcm
  1162.  ScrPut 10 40 %Colorfcm On %Colorbcm Reset Dos
  1163. Return
  1164.  
  1165. :BoxAsynchronous
  1166.  ScrPut 7 19 %Colorfom On %Colorbom .Able   .
  1167.  ScrPut 7 20 Blink Green On Black A
  1168.  ScrPut 8 19 %Colorfom On %Colorbom .Disable.
  1169.  ScrPut 8 20 Blink Green On Black D
  1170.  DrawBox 6 19 9 27 1 %Colorfcm On %Colorbcm
  1171. Return
  1172.  
  1173. :BoxAbleAsynchronous
  1174.  ScrPut 8 28 %Colorfom On %Colorbom .All Drives   .
  1175.  ScrPut 8 29 Blink Green On Black A
  1176.  ScrPut 9 28 %Colorfom On %Colorbom .Hard Drives  .
  1177.  ScrPut 9 29 Blink Green On Black H
  1178.  ScrPut 10 28 %Colorfom On %Colorbom .Floppy Drives.
  1179.  ScrPut 10 29 Blink Green On Black F
  1180.  DrawBox 7 28 11 42 1 %Colorfcm On %Colorbcm
  1181.  ScrPut 7 33 %Colorfcm On %Colorbcm Able
  1182. Return
  1183.  
  1184. :BoxDisableAsynchronous
  1185.  ScrPut 9 28 %Colorfom On %Colorbom .All Drives   .
  1186.  ScrPut 9 29 Blink Green On Black A
  1187.  ScrPut 10 28 %Colorfom On %Colorbom .Hard Drives  .
  1188.  ScrPut 10 29 Blink Green On Black H
  1189.  ScrPut 11 28 %Colorfom On %Colorbom .Floppy Drives.
  1190.  ScrPut 11 29 Blink Green On Black F
  1191.  DrawBox 8 28 12 42 1 %Colorfcm On %Colorbcm
  1192.  ScrPut 8 32 %Colorfcm On %Colorbcm Disable
  1193. Return
  1194.  
  1195. :BoxDrives
  1196.  ScrPut 9 19 %Colorfom On %Colorbom .All Drives       .
  1197.  ScrPut 9 20 Blink Green On Black A
  1198.  ScrPut 10 19 %Colorfom On %Colorbom .All Hard Drives  .
  1199.  ScrPut 10 21 Blink Green On Black l
  1200.  ScrPut 11 19 %Colorfom On %Colorbom .All Floppy Drives.
  1201.  ScrPut 11 24 Blink Green On Black F
  1202.  ScrPut 12 19 %Colorfom On %Colorbom .One Hard Drives  .
  1203.  ScrPut 12 20 Blink Green On Black O
  1204.  ScrPut 13 19 %Colorfom On %Colorbom .One Floppy Drives.
  1205.  ScrPut 13 21 Blink Green On Black n
  1206.  DrawBox 8 19 14 37 1 %Colorfcm On %Colorbcm
  1207.  ScrPut 8 25 %Colorfcm On %Colorbcm Drives
  1208. Return
  1209.  
  1210. :BoxDrivesAll
  1211.  ScrPut 10 38 %Colorfom On %Colorbom .Able   .
  1212.  ScrPut 10 39 Blink Green On Black A
  1213.  ScrPut 11 38 %Colorfom On %Colorbom .Disable.
  1214.  ScrPut 11 39 Blink Green On Black D
  1215.  DrawBox 9 38 12 46 1 %Colorfcm On %Colorbcm
  1216.  ScrPut 9 41 %Colorfcm On %Colorbcm All
  1217. Return
  1218.  
  1219. :BoxDrivesHard
  1220.  ScrPut 11 38 %Colorfom On %Colorbom .Able   .
  1221.  ScrPut 11 39 Blink Green On Black A
  1222.  ScrPut 12 38 %Colorfom On %Colorbom .Disable.
  1223.  ScrPut 12 39 Blink Green On Black D
  1224.  DrawBox 10 38 13 46 1 %Colorfcm On %Colorbcm
  1225.  ScrPut 10 40 %Colorfcm On %Colorbcm Hard
  1226. Return
  1227.  
  1228. :BoxDrivesFloppy
  1229.  ScrPut 12 38 %Colorfom On %Colorbom .Able   .
  1230.  ScrPut 12 39 Blink Green On Black A
  1231.  ScrPut 13 38 %Colorfom On %Colorbom .Disable.
  1232.  ScrPut 13 39 Blink Green On Black D
  1233.  DrawBox 11 38 14 46 1 %Colorfcm On %Colorbcm
  1234.  ScrPut 11 39 %Colorfcm On %Colorbcm Floppy
  1235. Return
  1236.  
  1237. :BoxDrivesSomeHard
  1238.  ScrPut 13 38 %Colorfom On %Colorbom .Able   .
  1239.  ScrPut 13 39 Blink Green On Black A
  1240.  ScrPut 14 38 %Colorfom On %Colorbom .Disable.
  1241.  ScrPut 14 39 Blink Green On Black D
  1242.  DrawBox 12 38 15 46 1 %Colorfcm On %Colorbcm
  1243. Return
  1244.  
  1245. :BoxDrivesSomeFloppy
  1246.  ScrPut 14 38 %Colorfom On %Colorbom .Able   .
  1247.  ScrPut 14 39 Blink Green On Black A
  1248.  ScrPut 15 38 %Colorfom On %Colorbom .Disable.
  1249.  ScrPut 15 39 Blink Green On Black D
  1250.  DrawBox 13 38 16 46 1 %Colorfcm On %Colorbcm
  1251. Return
  1252.  
  1253. :BoxReadAhead
  1254.  ScrPut 10 19 %Colorfom On %Colorbom .Able   .
  1255.  ScrPut 10 20 Blink Green On Black A
  1256.  ScrPut 11 19 %Colorfom On %Colorbom .Disable.
  1257.  ScrPut 11 20 Blink Green On Black D
  1258.  DrawBox 9 19 12 27 1 %Colorfcm On %Colorbcm
  1259. Return
  1260.  
  1261. :BoxUseXMS
  1262.  ScrPut 11 19 %Colorfom On %Colorbom .Able   .
  1263.  ScrPut 11 20 Blink Green On Black A
  1264.  ScrPut 12 19 %Colorfom On %Colorbom .Disable.
  1265.  ScrPut 12 20 Blink Green On Black D
  1266.  ScrPut 13 19 %Colorfom On %Colorbom .Lock   .
  1267.  ScrPut 13 20 Blink Green On Black L
  1268.  ScrPut 14 19 %Colorfom On %Colorbom .Unlock .
  1269.  ScrPut 14 20 Blink Green On Black U
  1270.  DrawBox 10 19 15 27 1 %Colorfcm On %Colorbcm
  1271.  ScrPut 10 22 %Colorfcm On %Colorbcm XMS
  1272. Return
  1273.  
  1274. :BoxAbleXMS
  1275.  ScrPut 12 28 %Colorfom On %Colorbom .Real & Protected Mode.
  1276.  ScrPut 12 29 Blink Green On Black R
  1277.  ScrPut 13 28 %Colorfom On %Colorbom .Real Mode            .
  1278.  ScrPut 13 30 Blink Green On Black e
  1279.  ScrPut 14 28 %Colorfom On %Colorbom .Protected Mode       .
  1280.  ScrPut 14 29 Blink Green On Black P
  1281.  DrawBox 11 28 15 50 1 %Colorfcm On %Colorbcm
  1282.  ScrPut 11 35 %Colorfcm On %Colorbcm Able XMS
  1283. Return
  1284.  
  1285. :BoxReport
  1286.  ScrPut 4 14 %Colorfom On %Colorbom .Generic      .
  1287.  ScrPut 4 15 Blink Green On Black G
  1288.  ScrPut 5 14 %Colorfom On %Colorbom .System Access.
  1289.  ScrPut 5 15 Blink Green On Black S
  1290.  ScrPut 6 14 %Colorfom On %Colorbom .Dyagnostic   .
  1291.  ScrPut 6 15 Blink Green On Black D
  1292.  ScrPut 7 14 %Colorfom On %Colorbom .Reset Hit    .
  1293.  ScrPut 7 15 Blink Green On Black R
  1294.  DrawBox 3 14 8 28 1 %Colorfcm On %Colorbcm
  1295.  ScrPut 3 18 %Colorfcm On %Colorbcm Report
  1296. Return
  1297.  
  1298. :BoxGeneric
  1299.  ScrPut 4 24 %Colorfom On %Colorbom .Verify      .
  1300.  ScrPut 4 25 Blink Green On Black V
  1301.  ScrPut 5 24 %Colorfom On %Colorbom .Output      .
  1302.  ScrPut 5 25 Blink Green On Black O
  1303.  ScrPut 6 24 %Colorfom On %Colorbom .Colors      .
  1304.  ScrPut 6 25 Blink Green On Black C
  1305.  ScrPut 7 24 %Colorfom On %Colorbom .Tone        .
  1306.  ScrPut 7 25 Blink Green On Black T
  1307.  ScrPut 8 24 %Colorfom On %Colorbom .Hot Key     .
  1308.  ScrPut 8 25 Blink Green On Black H
  1309.  ScrPut 9 24 %Colorfom On %Colorbom .Check Floppy.
  1310.  ScrPut 9 27 Blink Green On Black e
  1311.  ScrPut 10 24 %Colorfom On %Colorbom .Advanced    .
  1312.  ScrPut 10 25 Blink Green On Black A
  1313.  DrawBox 3 24 11 37 1 %Colorfcm On %Colorbcm
  1314.  ScrPut 3 27 %Colorfcm On %Colorbcm Generic
  1315. Return
  1316.  
  1317. :BoxVerify
  1318.  ScrPut 5 38 %Colorfom On %Colorbom .Able   .
  1319.  ScrPut 5 39 Blink Green On Black A
  1320.  ScrPut 6 38 %Colorfom On %Colorbom .Disable.
  1321.  ScrPut 6 39 Blink Green On Black D
  1322.  DrawBox 4 38 7 46 1 %Colorfcm On %Colorbcm
  1323.  ScrPut 4 39 %Colorfcm On %Colorbcm Verify
  1324. Return
  1325.  
  1326. :BoxAbleVerify
  1327.  ScrPut 6 47 %Colorfom On %Colorbom .All Drives   .
  1328.  ScrPut 6 48 Blink Green On Black A
  1329.  ScrPut 7 47 %Colorfom On %Colorbom .Hard Drives  .
  1330.  ScrPut 7 48 Blink Green On Black H
  1331.  ScrPut 8 47 %Colorfom On %Colorbom .Floppy Drives.
  1332.  ScrPut 8 48 Blink Green On Black F
  1333.  DrawBox 5 47 9 61 1 %Colorfcm On %Colorbcm
  1334.  ScrPut 5 52 %Colorfcm On %Colorbcm Able
  1335. Return
  1336.  
  1337. :BoxDisableVerify
  1338.  ScrPut 7 47 %Colorfom On %Colorbom .All Drives   .
  1339.  ScrPut 7 48 Blink Green On Black A
  1340.  ScrPut 8 47 %Colorfom On %Colorbom .Hard Drives  .
  1341.  ScrPut 8 48 Blink Green On Black H
  1342.  ScrPut 9 47 %Colorfom On %Colorbom .Floppy Drives.
  1343.  ScrPut 9 48 Blink Green On Black F
  1344.  DrawBox 6 47 10 61 1 %Colorfcm On %Colorbcm
  1345.  ScrPut 6 51 %Colorfcm On %Colorbcm Disable
  1346. Return
  1347.  
  1348. :BoxAdvanced
  1349.  ScrPut 11 38 %Colorfom On %Colorbom .Sectors Per Buffer        .
  1350.  ScrPut 11 39 Blink Green On Black S
  1351.  ScrPut 12 38 %Colorfom On %Colorbom .Update of Background      .
  1352.  ScrPut 12 39 Blink Green On Black U
  1353.  ScrPut 13 38 %Colorfom On %Colorbom .Bypass Sector Size        .
  1354.  ScrPut 13 39 Blink Green On Black B
  1355.  ScrPut 14 38 %Colorfom On %Colorbom .QEMM Stealth Support      .
  1356.  ScrPut 14 40 Blink Green On Black E
  1357.  ScrPut 15 38 %Colorfom On %Colorbom .Interrupt 67h             .
  1358.  ScrPut 15 39 Blink Green On Black I
  1359.  ScrPut 16 38 %Colorfom On %Colorbom .DMA Boundary Test Override.
  1360.  ScrPut 16 39 Blink Green On Black D
  1361.  DrawBox 10 38 17 65 1 %Colorfcm On %Colorbcm
  1362.  ScrPut 10 48 %Colorfcm On %Colorbcm Advanced
  1363. Return
  1364.  
  1365. :BoxOutput
  1366.  ScrPut 6 38 %Colorfom On %Colorbom .Video Bios.
  1367.  ScrPut 6 39 Blink Green On Black V
  1368.  ScrPut 7 38 %Colorfom On %Colorbom .Dos I/O   .
  1369.  ScrPut 7 39 Blink Green On Black D
  1370.  DrawBox 5 38 8 49 1 %Colorfcm On %Colorbcm
  1371.  ScrPut 5 41 %Colorfcm On %Colorbcm Output
  1372. Return
  1373.  
  1374. :BoxTone
  1375.  ScrPut 8 38 %Colorfom On %Colorbom .All Drives   .
  1376.  ScrPut 8 39 Blink Green On Black A
  1377.  ScrPut 9 38 %Colorfom On %Colorbom .Floppy Drives.
  1378.  ScrPut 9 39 Blink Green On Black F
  1379.  ScrPut 10 38 %Colorfom On %Colorbom .Update Data  .
  1380.  ScrPut 10 39 Blink Green On Black U
  1381.  ScrPut 11 38 %Colorfom On %Colorbom .Change Floppy.
  1382.  ScrPut 11 39 Blink Green On Black C
  1383.  DrawBox 7 38 12 52 1 %Colorfcm On %Colorbcm
  1384.  ScrPut 7 43 %Colorfcm On %Colorbcm Tone
  1385. Return
  1386.  
  1387. :BoxAllDriveTone
  1388.  ScrPut 9 53 %Colorfom On %Colorbom .Able   .
  1389.  ScrPut 9 54 Blink Green On Black A
  1390.  ScrPut 10 53 %Colorfom On %Colorbom .Disable.
  1391.  ScrPut 10 54 Blink Green On Black D
  1392.  DrawBox 8 53 11 61 1 %Colorfcm On %Colorbcm
  1393. Return
  1394.  
  1395. :BoxFloppyTone
  1396.  ScrPut 10 53 %Colorfom On %Colorbom .Able   .
  1397.  ScrPut 10 54 Blink Green On Black A
  1398.  ScrPut 11 53 %Colorfom On %Colorbom .Disable.
  1399.  ScrPut 11 54 Blink Green On Black D
  1400.  DrawBox 9 53 12 61 1 %Colorfcm On %Colorbcm
  1401. Return
  1402.  
  1403. :BoxUpdateTone
  1404.  ScrPut 11 53 %Colorfom On %Colorbom .Volume   .
  1405.  ScrPut 11 54 Blink Green On Black V
  1406.  ScrPut 12 53 %Colorfom On %Colorbom .Frequency.
  1407.  ScrPut 12 54 Blink Green On Black F
  1408.  DrawBox 10 53 13 63 1 %Colorfcm On %Colorbcm
  1409. Return
  1410.  
  1411. :BoxChangeFloppy
  1412.  ScrPut 12 53 %Colorfom On %Colorbom .Able   .
  1413.  ScrPut 12 54 Blink Green On Black A
  1414.  ScrPut 13 53 %Colorfom On %Colorbom .Disable.
  1415.  ScrPut 13 54 Blink Green On Black D
  1416.  DrawBox 11 53 14 61 1 %Colorfcm On %Colorbcm
  1417. Return
  1418.  
  1419. :BoxHotKey
  1420.  ScrPut 9 38 %Colorfom On %Colorbom .After Report.
  1421.  ScrPut 9 39 Blink Green On Black A
  1422.  ScrPut 10 38 %Colorfom On %Colorbom .Method      .
  1423.  ScrPut 10 39 Blink Green On Black M
  1424.  ScrPut 11 38 %Colorfom On %Colorbom .Status      .
  1425.  ScrPut 11 39 Blink Green On Black S
  1426.  ScrPut 12 38 %Colorfom On %Colorbom .Special Keys.
  1427.  ScrPut 12 40 Blink Green On Black p
  1428.  DrawBox 8 38 13 51 1 %Colorfcm On %Colorbcm
  1429.  ScrPut 8 41 %Colorfcm On %Colorbcm Hot Key
  1430. Return
  1431.  
  1432. :BoxAfterReport
  1433.  ScrPut 10 52 %Colorfom On %Colorbom .Wait    .
  1434.  ScrPut 10 53 Blink Green On Black W
  1435.  ScrPut 11 52 %Colorfom On %Colorbom .Not Wait.
  1436.  ScrPut 11 53 Blink Green On Black N
  1437.  ScrPut 12 52 %Colorfom On %Colorbom .Time    .
  1438.  ScrPut 12 53 Blink Green On Black T
  1439.  DrawBox 9 52 13 61 1 %Colorfcm On %Colorbcm
  1440. Return
  1441.  
  1442. :BoxStatus
  1443.  ScrPut 12 52 %Colorfom On %Colorbom .Able   .
  1444.  ScrPut 12 53 Blink Green On Black A
  1445.  ScrPut 13 52 %Colorfom On %Colorbom .Disable.
  1446.  ScrPut 13 53 Blink Green On Black D
  1447.  DrawBox 11 52 14 60 1 %Colorfcm On %Colorbcm
  1448.  ScrPut 11 53 %Colorfcm On %Colorbcm Status
  1449. Return
  1450.  
  1451. :BoxSpecialKey
  1452.  ScrPut 13 52 %Colorfom On %Colorbom .Alt+Ctrl        .
  1453.  ScrPut 13 53 Blink Green On Black A
  1454.  ScrPut 14 52 %Colorfom On %Colorbom .Left Shift+Alt  .
  1455.  ScrPut 14 53 Blink Green On Black L
  1456.  ScrPut 15 52 %Colorfom On %Colorbom .Right Shift+Alt .
  1457.  ScrPut 15 53 Blink Green On Black R
  1458.  ScrPut 16 52 %Colorfom On %Colorbom .Shift+Shift     .
  1459.  ScrPut 16 53 Blink Green On Black S
  1460.  ScrPut 17 52 %Colorfom On %Colorbom .Left Shift+Ctrl .
  1461.  ScrPut 17 54 Blink Green On Black e
  1462.  ScrPut 18 52 %Colorfom On %Colorbom .Right Shift+Ctrl.
  1463.  ScrPut 18 54 Blink Green On Black i
  1464.  DrawBox 12 52 19 69 1 %Colorfcm On %Colorbcm
  1465.  ScrPut 12 55 %Colorfcm On %Colorbcm Special Keys
  1466. Return
  1467.  
  1468. :BoxDimension
  1469.  ScrPut 4 35 %Colorfom On %Colorbom .Dos    .
  1470.  ScrPut 4 36 Blink Green On Black D
  1471.  ScrPut 5 35 %Colorfom On %Colorbom .Windows.
  1472.  ScrPut 5 36 Blink Green On Black W
  1473.  DrawBox 3 35 6 43 1 %Colorfcm On %Colorbcm
  1474. Return
  1475.  
  1476. :BoxDosDimension
  1477.  ScrPut 5 44 %Colorfom On %Colorbom .New Value  .
  1478.  ScrPut 5 45 Blink Green On Black N
  1479.  ScrPut 6 44 %Colorfom On %Colorbom .Start Value.
  1480.  ScrPut 6 45 Blink Green On Black S
  1481.  ScrPut 7 44 %Colorfom On %Colorbom .Clear      .
  1482.  ScrPut 7 45 Blink Green On Black C
  1483.  ScrPut 8 44 %Colorfom On %Colorbom .Increase   .
  1484.  ScrPut 8 45 Blink Green On Black I
  1485.  ScrPut 9 44 %Colorfom On %Colorbom .Decrease   .
  1486.  ScrPut 9 45 Blink Green On Black D
  1487.  DrawBox 4 44 10 56 1 %Colorfcm On %Colorbcm
  1488.  ScrPut 4 49 %Colorfcm On %Colorbcm Dos
  1489. Return
  1490.  
  1491. :BoxWindowsDimension
  1492.  ScrPut 6 44 %Colorfom On %Colorbom .New Value  .
  1493.  ScrPut 6 45 Blink Green On Black N
  1494.  ScrPut 7 44 %Colorfom On %Colorbom .Start Value.
  1495.  ScrPut 7 45 Blink Green On Black S
  1496.  ScrPut 8 44 %Colorfom On %Colorbom .Base       .
  1497.  ScrPut 8 45 Blink Green On Black B
  1498.  ScrPut 9 44 %Colorfom On %Colorbom .Percentage .
  1499.  ScrPut 9 45 Blink Green On Black P
  1500.  DrawBox 5 44 10 56 1 %Colorfcm On %Colorbcm
  1501.  ScrPut 5 47 %Colorfcm On %Colorbcm Windows
  1502. Return
  1503.  
  1504. :BoxBackground
  1505.  ScrPut 13 55 %Colorfom On %Colorbom .Percentage             .
  1506.  ScrPut 13 56 Blink Green On Black P
  1507.  ScrPut 14 55 %Colorfom On %Colorbom .Able download oldest   .
  1508.  ScrPut 14 56 Blink Green On Black A
  1509.  ScrPut 15 55 %Colorfom On %Colorbom .Disable download oldest.
  1510.  ScrPut 15 56 Blink Green On Black D
  1511.  DrawBox 12 55 16 79 1 %Colorfcm On %Colorbcm
  1512. Return
  1513.  
  1514. :BoxBypass
  1515.  ScrPut 14 66 %Colorfom On %Colorbom .Able   .
  1516.  ScrPut 14 67 Blink Green On Black A
  1517.  ScrPut 15 66 %Colorfom On %Colorbom .Disable.
  1518.  ScrPut 15 67 Blink Green On Black D
  1519.  DrawBox 13 66 16 74 1 %Colorfcm On %Colorbcm
  1520. Return
  1521.  
  1522. :BoxQemm
  1523.  ScrPut 15 66 %Colorfom On %Colorbom .Able   .
  1524.  ScrPut 15 67 Blink Green On Black A
  1525.  ScrPut 16 66 %Colorfom On %Colorbom .Disable.
  1526.  ScrPut 16 67 Blink Green On Black D
  1527.  DrawBox 14 66 17 74 1 %Colorfcm On %Colorbcm
  1528. Return
  1529.  
  1530. :BoxInterrupt
  1531.  ScrPut 16 59 %Colorfom On %Colorbom .Use Interrupt 67h  .
  1532.  ScrPut 16 60 Blink Green On Black U
  1533.  ScrPut 17 59 %Colorfom On %Colorbom .Use Original Method.
  1534.  ScrPut 17 61 Blink Green On Black s
  1535.  DrawBox 15 59 18 79 1 %Colorfcm On %Colorbcm
  1536.  ScrPut 15 63 %Colorfcm On %Colorbcm Interrupt 67h
  1537. Return
  1538.  
  1539.