home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / COMREF / DOS5TUT / DOSTUTOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-05  |  50.7 KB  |  1,542 lines
  1. Program  DOSTUTOR_II;
  2. uses graph, crt, dos, Printer;
  3. const StringLength = 40;
  4.       MenuStart = 1;
  5.       MenuEnd =136;
  6.       F1 = #59;
  7.       F10 = #68;
  8.       pgdn = #81;
  9.       pgup = #73;
  10.       CursorUp = #72;
  11.       CursorDown = #80;
  12.       Escape = #27;
  13.       Enter = #13;
  14.       y2    = #121;
  15.       Y1   = #89;
  16.  
  17. TYPE
  18.     MenuString = string[Stringlength];
  19.     Index = MenuStart .. MenuEnd;
  20.     MenuList = array[Index] of MenuString;
  21.  
  22.  
  23.     
  24. label VGA1,exit1;
  25. VAR
  26.    VGA, z,  a : string;
  27.    i,y,x,            oldrowcounter,
  28.    safty,            oldmenucounter,
  29.    rowCounter,ende,GRA1,menucounter,check   :     integer;
  30.    MenuChoice                               :     MenuList;
  31.  
  32.    year,month,day,dayofweek:word;
  33.    weekday:string[10];
  34.  
  35.  
  36. {========================================================}
  37.  
  38.  
  39.  
  40. procedure CursorOn;
  41.    begin
  42.       inline($B4/$01/$B9/$13/$12/$CD/$10);
  43.    end;
  44.  
  45. procedure CursorOff;
  46.    begin
  47.       inline($B4/$01/$B9/$FF/$FF/$CD/$10);
  48.    end;
  49. PROCEDURE mainmenu;
  50. BEGIN
  51.     clrscr;
  52.     textbackground (black);
  53.     textcolor(LIGHTBLUE);
  54.     gotoxy(24,1);
  55.     writeln('┌──────────────────────────────╖');
  56.     gotoxy(24,2);
  57.     writeln('│                              ║');
  58.     gotoxy(24,3);
  59.     writeln('│                              ║');
  60.     gotoxy(24,4);
  61.     writeln('│                              ║');
  62.     gotoxy(24,5);
  63.     writeln('│                              ║');
  64.     gotoxy(24,6);
  65.     writeln('╘══════════════════════════════╝');
  66.     gotoxy(34,2);textcolor(LIGHTred);write('DOS 5.0 TUTOR');
  67.     gotoxy(34,3);textcolor(cyan);write('Programmed by');
  68.     gotoxy(33,4);textcolor(cyan);write('Carsten & Frank');
  69.     getdate(year,month,day,dayofweek);
  70.     case dayofweek of
  71.     0:weekday:='Sunday';          1:weekday:='Monday';
  72.     2:weekday:='Tuesday';         3:weekday:='Wednesday';
  73.     4:weekday:='Thursday';        5:weekday:='Friday';
  74.     6:weekday:='Saturday';
  75.     end;
  76.     gotoxy(26,5);textcolor(red);
  77.     write('Today is: ',weekday,' ',MONTH,'/',DAY,'/',year);
  78.     textcolor(LIGHTBLUE);
  79.     gotoxy(51,7);
  80.     write('┌');
  81.     for i:=1 to 25 DO
  82.     write('─');
  83.     write('╖');
  84.     for y:=8 to 24 do
  85.     BEGIN
  86.          gotoxy(51,y);write('│');
  87.          gotoxy(77,y);write('║');
  88.     end;
  89.     gotoxy(51,25);write('╘');
  90.     for i:=1 to 25 Do
  91.     write('═');
  92.     write('╝');
  93.     gotoxy (4,4);
  94.     write                ('Press F1 To Exit');
  95.     gotoxy (4,5) ; write ('  And Register');
  96.     GOTOXY (10,4); TEXTCOLOR (LIGHTRED); WRITE ('F1');
  97.     textcolor (lightred);
  98.     gotoxy (63,4);write (#24,' ',#25);
  99.     textcolor (lightblue);write (' = Up, Down');
  100.     gotoxy (63,5);textcolor (lightred);write ('<─┘');
  101.     textcolor (lightblue);write(' = Choose');
  102.  
  103. END;
  104. {=================================================}
  105. PROCEDURE viewwindow;
  106. BEGIN
  107.      textcolor (lightblue);
  108.      textbackground (black);
  109.      gotoxy (1,7); write ('┌');
  110.      gotoxy (50,7); write ('╖');
  111.      for x:=2 to 49 do
  112.         begin
  113.          gotoxy (x,7);     write ('─');
  114.         end;
  115.      for y:=8 to 25 do
  116.      BEGIN
  117.      gotoxy(1,y);write('│');
  118.      gotoxy(50,y);write('║');
  119.      end;
  120.      gotoxy(1,25);write('╘');
  121.      for i:=1 to 48 do
  122.      write('═');
  123.      write('╝');
  124. END;
  125.  
  126. PROCEDURE viewwindow1;
  127. BEGIN
  128.      textcolor (lightblue);
  129.      textbackground (black);
  130.      gotoxy (1,7);
  131.      write ('┌────────────────────────────────────────────────╖');
  132.      gotoxy (1,8);
  133.      write ('│                                                ║');
  134.      gotoxy (1,9);
  135.      write ('│                                                ║');
  136.      gotoxy (1,10);
  137.      write ('│                                                ║');
  138.      gotoxy (1,11);
  139.      write ('│                                                ║');
  140.       gotoxy (1,12);
  141.      write ('│                                                ║');
  142.      gotoxy (1,13);
  143.      write ('│                                                ║');
  144.      gotoxy (1,14);
  145.      write ('│                                                ║');
  146.       gotoxy (1,15);
  147.      write ('│                                                ║');
  148.     gotoxy (1,16);
  149.      write ('│                                                ║');
  150.        gotoxy (1,17);
  151.      write ('│                                                ║');
  152.        gotoxy (1,18);
  153.      write ('│                                                ║');
  154.      gotoxy (1,19);
  155.      write ('│                                                ║');
  156.        gotoxy (1,20);
  157.      write ('│                                                ║');
  158.       gotoxy (1,21);
  159.      write ('│                                                ║');
  160.         gotoxy (1,22);
  161.      write ('│                                                ║');
  162.      gotoxy (1,23);
  163.      write ('│                                                ║');
  164.         gotoxy (1,24);
  165.      write ('│                                                ║');
  166.       gotoxy (1,25);
  167.      write ('╘════════════════════════════════════════════════╝');
  168.      textcolor (cyan);
  169. END;
  170. {====================================================}
  171. PROCEDURE REGISTRATION;
  172. BEGIN
  173. clrscr;
  174. gotoxy (1,1);
  175. writeln('      ******DOS TUTOR II REGISTRATION FORM******    ');
  176. writeln(' I wish to register the following PROGRAM:       ');
  177. writeln;
  178. writeln(' ____copies of Dos 5.0 TUTOR,   @ $9 (16 DM) each.   ');
  179. writeln;
  180. writeln('For a total of: $______  or  German Marks DM______ ');
  181. writeln;
  182. writeln('Please make the INTERNATIONAL MONEY ORDER payable to');
  183. writeln('CARSTEN BOCKSTETTE.                            ');
  184. writeln('                   *******************************');
  185. writeln('Please send the    * G E R M A N Y, KRESSENWEG 2 *');
  186. writeln('Registration to:   *       2842 LOHNE i. O.      *');
  187. writeln('                   *******************************');
  188. writeln;
  189. writeln ('Please ship any updates to:      (Please print)');
  190. writeln('Name:_____________________________________________________');
  191. writeln('Street Address:___________________________________________');
  192. writeln('City, State/Province:_____________________________________');
  193. writeln('Zip Code:_____________     Country:_______________________');
  194. writeln ;
  195. writeln('Please let us know what we could do to improve the T U T O R:');
  196. writeln('____________________________________________________________');
  197. writeln('____________________________________________________________');
  198. writeln('____________________________________________________________');
  199.  
  200. end;
  201.  
  202. {000000000000000000000000000000000000000000000000000000000}
  203. procedure PRINT;
  204.  
  205.  
  206. VAR
  207.    Row, Column,
  208.    SegmentNumber: word;
  209.  
  210.    function Videosegment : word;
  211.    BEGIN
  212.       if Mem [ $0040 : $0049 ] = 7 then
  213.          Videosegment := $B000
  214.       else
  215.          Videosegment := $B800;
  216.    END;
  217. Begin
  218.      SegmentNumber := Videosegment;
  219.      for Row :=0 to 24 do begin
  220.          for Column := 0 to 79 do
  221.               write (lst, chr (Mem[ SegmentNumber : 2*Column + 160*Row ] ) );
  222.          writeln (Lst );
  223.          end;
  224.       write (lst, #12);
  225.       end;
  226.  
  227. {---------------------------------------------------------------}
  228. procedure testprinter;
  229.  
  230.  
  231. function PrinterReady (printer :byte) : boolean;
  232.  
  233. Var
  234.    Regs : registers;
  235.   x : integer;
  236.  
  237. Begin
  238.      x:=1;
  239.  
  240.      Regs.AH :=$02;
  241.      Regs.DX :=printer;
  242.      Intr( $17, Regs );
  243.      Printerready := (Regs.AH and $80 = $80) and
  244.                      (Regs.AH and $10 = $10) and
  245.                      (Regs.AH and $08 = $00);
  246. end;
  247.  
  248. Function Printeroutofpaper ( Printer : byte) :boolean;
  249. var
  250.  
  251. Regs : Registers;
  252. begin
  253.  
  254.  
  255.       Regs.AH := $02;
  256.       Regs.DX := Printer;
  257.       Intr ($17, Regs);
  258.       printeroutofpaper:= Regs.AH and $20 = $20;
  259. end;
  260.  
  261. Begin
  262. check:=0;
  263. x:=1;
  264. while x=1 do
  265. begin
  266.      if PrinterReady (0) then
  267.      begin
  268.           x:=0;
  269.           if Printeroutofpaper (0) then
  270.           begin
  271.              x:=1;
  272.              textcolor (red);
  273.              writeln ('Printer out of Paper!');
  274.              readln;
  275.           end;
  276.      end
  277.       else
  278.       begin
  279.            if not Printerready (0) then
  280.            begin
  281.                 x:=1;
  282.                 cursoron;
  283.                 textcolor (Red);
  284.                 writeln ('Printer not ready!!');
  285.                 textcolor (cyan);
  286.                 writeln ('If you want to continue without printing');
  287.                 write ('enter "y"es, otherwise correct the problem:');
  288.                 readln (z);
  289.                 cursoroff;
  290.                 if (z='Y') or (z='y') then
  291.                 begin
  292.                      x:=0;
  293.                      check:=1;
  294.                 end;
  295.           registration;
  296.           end;
  297.       end;
  298.  
  299. end;
  300. end;
  301.  
  302. {=================================================}
  303.  
  304.  
  305. PROCEDURE EXIT;
  306. BEGIN
  307.      a:=('C');
  308.      WHILE  a <> ('') DO BEGIN
  309.      GOTOXY (1,1);
  310.      TEXTBACKGROUND(BLACK);
  311.      TEXTCOLOR (LIGHTBLUE);
  312.      CLRSCR;
  313.      GOTOXY (13,5);
  314.      WRITELN ('                ╔═════════════════════════╗');
  315.      GOTOXY (13,6);
  316.      WRITELN ('             ╔══╣                         ╠══╗');
  317.      GOTOXY (13,7);
  318.      WRITELN ('             ║  ╚═════════════════════════╝  ║');
  319.      GOTOXY (13,8);
  320.      WRITELN ('             ║                               ║');
  321.      GOTOXY (13,9);
  322.      WRITELN ('╔════════════╩═══════════════════════════════╩════════════╗');
  323.      GOTOXY (13,10);
  324.      WRITELN ('║                                                         ║');
  325.      GOTOXY (13,11);
  326.      WRITELN ('║                                                         ║');
  327.      GOTOXY (13,12);
  328.      WRITELN ('║                                                         ║');
  329.      GOTOXY (13,13);
  330.      WRITELN ('║                                                         ║');
  331.      GOTOXY (13,14);
  332.      WRITELN ('║                                                         ║');
  333.      GOTOXY (13,15);
  334.      WRITELN ('║                                                         ║');
  335.      GOTOXY (13,16);
  336.      WRITELN ('║                                                         ║');
  337.      GOTOXY (13,17);
  338.      WRITELN ('║                                                         ║');
  339.      GOTOXY (13,18);
  340.      WRITELN ('║                                                         ║');
  341.      GOTOXY (13,19);
  342.      WRITELN ('║                                                         ║');
  343.      GOTOXY (13,20);
  344.      WRITELN ('║                                                         ║');
  345.      GOTOXY (13,21);
  346.      WRITELN ('║                                                         ║');
  347.      GOTOXY (13,22);
  348.      WRITELN ('╚═════════════════════════════════════════════════════════╝');
  349.      GOTOXY (13,23);
  350.      GOTOXY (33,6);
  351.      TEXTCOLOR (LIGHTRED);
  352.      WRITE (' E X I T  M E N U ');
  353.      TEXTCOLOR (CYAN);
  354.      GOTOXY (20,13);
  355.      WRITE ('If you want to exit, enter " "es.');
  356.      TEXTCOLOR (RED);
  357.      GOTOXY (48,13);
  358.      WRITE ('Y');
  359.      TEXTCOLOR (CYAN);
  360.      GOTOXY (20,15);
  361.      WRITE ('Press <     > to return to the TUTOR.');
  362.      TEXTCOLOR (RED);
  363.      GOTOXY (27,15);
  364.      WRITE ('ENTER');
  365.      GOTOXY (20,17);
  366.      TEXTCOLOR (CYAN);
  367.      WRITE ('Enter " " if you would like to register.');
  368.      TEXTCOLOR (RED);
  369.      GOTOXY (27,17);
  370.      WRITE ('R');
  371.      TEXTCOLOR (CYAN);
  372.      GOTOXY (20,24);
  373.      CURSORON;
  374.      WRITE ('Your choice:');
  375.      readln(a);
  376.      CURSOROFF;
  377.      if (a='R') or (a='r') then
  378.      begin
  379.            CLRSCR; WRITE ('Please turn on your PRINTER and press <ENTER>.');
  380.            readln;
  381.            registration;
  382.            testprinter;
  383.            if check<>1 then begin
  384.            print;
  385.            write ('Press <ENTER> to continue.'); end
  386.            else write ('Press <ENTER> to continue.');readln;
  387.      end;
  388.      if (a='y') or (a='Y') then
  389.      begin
  390.           A:=('');
  391.           ENDE:=1;
  392.      end;
  393.       END;
  394.      END;
  395. {================================================}
  396. PROCEDURE CGAEXIT;
  397. BEGIN
  398.      CLRSCR;
  399.      TEXTCOLOR (CYAN);TEXTBACKGROUND (BLACK);
  400.      GOTOXY (36,2); WRITE (' THANK YOU');
  401.      GOTOXY (30,3); WRITE ('     FOR USEING THE:');
  402.  
  403.  
  404.      TEXTCOLOR (CYAN); GOTOXY (31,4); WRITE (' D O S  5.0  T U T O R ');
  405.      TEXTCOLOR (LIGHTRED);GOTOXY (39,4); WRITE ('5.0');
  406.  
  407.      for i:=20 downto 1 do
  408.     BEGIN
  409.      IF ODD(I) THEN TEXTCOLOR (BLUE) ELSE TEXTCOLOR (CYAN);
  410.      GOTOXY (27,1);  WRITE ('══');         GOTOXY (31,1);  WRITE ('══');
  411.      GOTOXY (35,1);  WRITE ('══');         GOTOXY (39,1);  WRITE ('══');
  412.      GOTOXY (43,1);  WRITE ('══');         GOTOXY (47,1);  WRITE ('══');
  413.      GOTOXY (51,1);  WRITE ('══');         GOTOXY (55,1);  WRITE ('══');
  414.      GOTOXY (25,2);  WRITE ('║');          GOTOXY (59,2);  WRITE ('║');
  415.      GOTOXY (25,4);  WRITE ('║');          GOTOXY (59,4);  WRITE ('║');
  416.  
  417.      GOTOXY (27,5);  WRITE ('══');         GOTOXY (31,5);  WRITE ('══');
  418.      GOTOXY (35,5);  WRITE ('══');         GOTOXY (39,5);  WRITE ('══');
  419.      GOTOXY (43,5);  WRITE ('══');         GOTOXY (47,5);  WRITE ('══');
  420.      GOTOXY (51,5);  WRITE ('══');         GOTOXY (55,5);  WRITE ('══');
  421.  
  422.  
  423.      DELAY (50);
  424.      IF ODD(I) THEN  TEXTCOLOR (CYAN) ELSE TEXTCOLOR (BLUE);
  425.      GOTOXY (25,1);  WRITE ('╔═');         GOTOXY (29,1);  WRITE ('══');
  426.      GOTOXY (33,1);  WRITE ('══');         GOTOXY (37,1);  WRITE ('══');
  427.      GOTOXY (41,1);  WRITE ('══');         GOTOXY (45,1);  WRITE ('══');
  428.      GOTOXY (49,1);  WRITE ('══');         GOTOXY (53,1);  WRITE ('══');
  429.      GOTOXY (57,1);  WRITE ('══╗');
  430.      GOTOXY (25,3);  WRITE ('║');          GOTOXY (59,3);  WRITE ('║');
  431.  
  432.      GOTOXY (25,5);  WRITE ('╚═');         GOTOXY (29,5);  WRITE ('══');
  433.      GOTOXY (33,5);  WRITE ('══');         GOTOXY (37,5);  WRITE ('══');
  434.      GOTOXY (41,5);  WRITE ('══');         GOTOXY (45,5);  WRITE ('══');
  435.      GOTOXY (49,5);  WRITE ('══');         GOTOXY (53,5);  WRITE ('══');
  436.      GOTOXY (57,5);  WRITE ('══╝');
  437.  
  438.      DELAY (50);
  439.      
  440.     END;
  441.  
  442. END;
  443. {-----------------------------------------------------}
  444.  
  445. procedure Initialize_MenuChoices(var MenuChoice: MenuList);
  446. begin
  447.    MenuChoice[1] := '1.   APPEND            ';
  448.    MenuChoice[2] := '2.   ASSIGN            ';
  449.    MenuChoice[3] := '3.   ATTRIB            ';
  450.    Menuchoice[4] := '4.   BACKUP            ';
  451.    MENUCHOICE[5] := '5.   BREAK             ';
  452.    MenuChoice[6] := '6.   CHCP              ';
  453.    MenuChoice[7] := '7.   CHDIR ( CD )      ';
  454.    MenuChoice[8] := '8.   CHKDSK            ';
  455.    Menuchoice[9] := '9.   CLS               ';
  456.    MENUCHOICE[10] :='10.  COMMAND           ';
  457.    MenuChoice[11] := '11.  COMP              ';
  458.    MenuChoice[12] := '12.  COPY              ';
  459.    MenuChoice[13] := '13.  CTTY              ';
  460.    Menuchoice[14] := '14.  DATE              ';
  461.    MENUCHOICE[15] := '15.  DEBUG             ';
  462.    MenuChoice[16] := '16.  DEL ( ERASE )     ';
  463.    MenuChoice[17] := '17.  DIR               ';
  464.    TextColor(CYAN);
  465.    TextBackGround(BLUE);
  466.    gotoxy(52,8); writeln(MenuChoice[1]);
  467.    TextColor(CYAN);
  468.    TextBackGround(BLACK);
  469.    CURSOROFF;
  470.    gotoxy(52,9);   writeln(MenuChoice[2]);
  471.    gotoxy(52,10);  writeln(MenuChoice[3]);
  472.    gotoxy(52,11);  writeln (Menuchoice[4]);
  473.    GOTOXY(52,12);  WRITELN (MENUCHOICE[5]);
  474.    gotoxy(52,13);  writeln(MenuChoice[6]);
  475.    gotoxy(52,14);  writeln(MenuChoice[7]);
  476.    gotoxy(52,15);  writeln (Menuchoice[8]);
  477.    GOTOXY(52,16);  WRITELN (MENUCHOICE[9]);
  478.    gotoxy(52,17);  writeln(MenuChoice[10]);
  479.    gotoxy(52,18);  writeln(MenuChoice[11]);
  480.    gotoxy(52,19);  writeln (Menuchoice[12]);
  481.    GOTOXY(52,20);  WRITELN (MENUCHOICE[13]);
  482.    gotoxy(52,21);  writeln(MenuChoice[14]);
  483.    gotoxy(52,22);  writeln(MenuChoice[15]);
  484.    gotoxy(52,23);  writeln (Menuchoice[16]);
  485.    gOTOXY(52,24);  WRITELN (MENUCHOICE[17]);
  486.    TextColor(CYAN);
  487.    TextBackGround(BLACK);
  488.    end;
  489. {================================================}
  490.  
  491. procedure Initialize_MenuChoices1(var MenuChoice: MenuList);
  492. begin
  493.    MenuChoice[18] := '18.  DISKCOMP          ';
  494.    Menuchoice[19] := '19.  DISKCOPY          ';
  495.    MENUCHOICE[20] := '20.  DOSKEY            ';
  496.    MenuChoice[21] := '21.  DOSSHELL          ';
  497.    MenuChoice[22] := '22.  EDIT              ';
  498.    MenuChoice[23] := '23.  EDLIN             ';
  499.    Menuchoice[24] := '24.  EMM386            ';
  500.    MENUCHOICE[25] := '25.  EXE2BIN           ';
  501.    MenuChoice[26] := '26.  EXIT              ';
  502.    MenuChoice[27] := '27.  EXPAND            ';
  503.    MenuChoice[28] := '28.  FASTOPEN          ';
  504.    Menuchoice[29] := '29.  FC                ';
  505.    MENUCHOICE[30] := '30.  FDISK             ';
  506.    MenuChoice[31] := '31.  FIND              ';
  507.    Menuchoice[32] := '32.  FOR               ';
  508.    MENUCHOICE[33] := '33.  FORMAT            ';
  509.    MENUCHOICE[34] := '34.  GRAFTABL          ';
  510.    TextColor(CYAN);   TextBackGround(BLUE);
  511.    gotoxy(52,8); writeln(MenuChoice[18]);
  512.    TextColor(CYAN);
  513.    TextBackGround(BLACK);
  514.    CURSOROFF;
  515.    gotoxy(52,9); writeln(Menuchoice[19]);
  516.    GOTOXY(52,10);WRITELN(MENUCHOICE[20]);
  517.    gotoxy(52,11);writeln(MenuChoice[21]);
  518.    gotoxy(52,12);writeln(MenuChoice[22]);
  519.    gotoxy(52,13);writeln(Menuchoice[23]);
  520.    GOTOXY(52,14);WRITELN(MENUCHOICE[24]);
  521.    gotoxy(52,15);writeln(MenuChoice[25]);
  522.    gotoxy(52,16);writeln(MenuChoice[26]);
  523.    gotoxy(52,17);writeln(Menuchoice[27]);
  524.    GOTOXY(52,18);WRITELN(MENUCHOICE[28]);
  525.    gotoxy(52,19);writeln(MenuChoice[29]);
  526.    gotoxy(52,20);writeln(MenuChoice[30]);
  527.    gotoxy(52,21);writeln(Menuchoice[31]);
  528.    gotoxy(52,22);writeln(MenuChoice[32]);
  529.    gotoxy(52,23);writeln(Menuchoice[33]);
  530.    gotoxy(52,24);writeln(MenuChoice[34]);
  531.                        TextColor(CYAN);
  532.    TextBackGround(BLACK);
  533. end;
  534. {==========================================}
  535. procedure Initialize_MenuChoices2(var MenuChoice: MenuList);
  536. begin
  537.    MenuChoice[35] := '35.  GRAPHICS          ';
  538.    Menuchoice[36] := '36.  HELP              ';
  539.    MENUCHOICE[37] := '37.  JOIN              ';
  540.    MenuChoice[38] := '38.  KEYB              ';
  541.    MenuChoice[39] := '39.  LABEL             ';
  542.    MenuChoice[40] := '40.  LOADHIGH ( LH )   ';
  543.    Menuchoice[41] := '41.  MEM               ';
  544.    MENUCHOICE[42] := '42.  MIRROR            ';
  545.    MenuChoice[43] := '43.  MKDIR ( MD )      ';
  546.    MenuChoice[44] := '44.  MODE              ';
  547.    MenuChoice[45] := '45.  MORE              ';
  548.    Menuchoice[46] := '46.  NLSFUNC           ';
  549.    MENUCHOICE[47] := '47.  PATH              ';
  550.    MenuChoice[48] := '48.  PRINT             ';
  551.    Menuchoice[49] := '49.  PROMPT            ';
  552.    MENUCHOICE[50] := '50.  QBASIC            ';
  553.    MENUCHOICE[51] := '51.  RECOVER           ';
  554.    TextColor(CYAN);    TextBackGround(BLUE);
  555.    gotoxy(52,8); writeln(MenuChoice[35]);
  556.    TextColor(CYAN);
  557.    TextBackGround(BLACK);
  558.    CURSOROFF;
  559.    gotoxy(52,9); writeln(Menuchoice[36]);
  560.    GOTOXY(52,10);WRITELN(MENUCHOICE[37]);
  561.    gotoxy(52,11);writeln(MenuChoice[38]);
  562.    gotoxy(52,12);writeln(MenuChoice[39]);
  563.    gotoxy(52,13);writeln(Menuchoice[40]);
  564.    GOTOXY(52,14);WRITELN(MENUCHOICE[41]);
  565.    gotoxy(52,15);writeln(MenuChoice[42]);
  566.    gotoxy(52,16);writeln(MenuChoice[43]);
  567.    gotoxy(52,17);writeln(Menuchoice[44]);
  568.    GOTOXY(52,18);WRITELN(MENUCHOICE[45]);
  569.    gotoxy(52,19);writeln(MenuChoice[46]);
  570.    gotoxy(52,20);writeln(MenuChoice[47]);
  571.    gotoxy(52,21);writeln(Menuchoice[48]);
  572.    gotoxy(52,22);writeln(MenuChoice[49]);
  573.    gotoxy(52,23);writeln(Menuchoice[50]);
  574.    gotoxy(52,24);writeln(MenuChoice[51]);
  575.    TextColor(CYAN);
  576.    TextBackGround(BLACK);
  577. end;
  578. {=======================================================}
  579. procedure Initialize_MenuChoices3(var MenuChoice: MenuList);
  580.  
  581. begin
  582.    MenuChoice[52] := '52.  RENAME ( REN)     ';
  583.    Menuchoice[53] := '53.  REPLACE           ';
  584.    MENUCHOICE[54] := '54.  RESTORE           ';
  585.    MenuChoice[55] := '55.  RMDIR ( RD )      ';
  586.    MenuChoice[56] := '56.  SET               ';
  587.    MenuChoice[57] := '57.  SETVER            ';
  588.    Menuchoice[58] := '58.  SHARE             ';
  589.    MENUCHOICE[59] := '59.  SORT              ';
  590.    MenuChoice[60] := '60.  SUBST             ';
  591.    MenuChoice[61] := '61.  SYS               ';
  592.    MenuChoice[62] := '62.  TIME              ';
  593.    Menuchoice[63] := '63.  TREE              ';
  594.    MENUCHOICE[64] := '64.  TYPE              ';
  595.    MenuChoice[65] := '65.  UNDELETE          ';
  596.    Menuchoice[66] := '66.  UNFORMAT          ';
  597.    MENUCHOICE[67] := '67.  VER               ';
  598.    MENUCHOICE[68] := '68.  VERIFY            ';
  599.    TextColor(CYAN);
  600.    TextBackGround(BLUE);
  601.    gotoxy(52,8); writeln(MenuChoice[52]);
  602.    TextColor(CYAN);
  603.    TextBackGround(BLACK);
  604.    CURSOROFF;
  605.    gotoxy(52,9); writeln(Menuchoice[53]);
  606.    GOTOXY(52,10);WRITELN(MENUCHOICE[54]);
  607.    gotoxy(52,11);writeln(MenuChoice[55]);
  608.    gotoxy(52,12);writeln(MenuChoice[56]);
  609.    gotoxy(52,13);writeln(Menuchoice[57]);
  610.    GOTOXY(52,14);WRITELN(MENUCHOICE[58]);
  611.    gotoxy(52,15);writeln(MenuChoice[59]);
  612.    gotoxy(52,16);writeln(MenuChoice[60]);
  613.    gotoxy(52,17);writeln(Menuchoice[61]);
  614.    GOTOXY(52,18);WRITELN(MENUCHOICE[62]);
  615.    gotoxy(52,19);writeln(MenuChoice[63]);
  616.    gotoxy(52,20);writeln(MenuChoice[64]);
  617.    gotoxy(52,21);writeln(Menuchoice[65]);
  618.    gotoxy(52,22);writeln(MenuChoice[66]);
  619.    gotoxy(52,23);writeln(Menuchoice[67]);
  620.    gotoxy(52,24);writeln(MenuChoice[68]);
  621.    TextColor(CYAN);
  622.    TextBackGround(BLACK);
  623. end;
  624. {=======================================================}
  625. procedure Initialize_MenuChoices4(var MenuChoice: MenuList);
  626. begin
  627.    MenuChoice[69] := '69.  VOL               ';
  628.    Menuchoice[70] := '70.  XCOPY             ';
  629.    MENUCHOICE[71] := '71.  CALL   {BATCH}    ';
  630.    MenuChoice[72] := '72.  ECHO   {BATCH}    ';
  631.    MenuChoice[73] := '73.  FOR    {BATCH}    ';
  632.    MenuChoice[74] := '74.  GOTO   {BATCH}    ';
  633.    Menuchoice[75] := '75.  IF     {BATCH}    ';
  634.    MENUCHOICE[76] := '76.  PAUSE  {BATCH}    ';
  635.    MenuChoice[77] := '77.  REM    {BATCH}    ';
  636.    MenuChoice[78] := '78.  SHIFT  {BATCH}    ';
  637.    MenuChoice[79] := '79.  BREAK     {CONFIG}';
  638.    Menuchoice[80] := '80.  BUFFERS   {CONFIG}';
  639.    MENUCHOICE[81] := '81.  COUNTRY   {CONFIG}';
  640.    MenuChoice[82] := '82.  DEVICE    {CONFIG}';
  641.    Menuchoice[83] := '83.  DEVICEHIGH{CONFIG}';
  642.    MENUCHOICE[84] := '84.  DOS       {CONFIG}';
  643.    MENUCHOICE[85] := '85.  DRIVPARM  {CONFIG}';
  644.    TextColor(CYAN);    TextBackGround(BLUE);
  645.    gotoxy(52,8); writeln(MenuChoice[69]);
  646.    TextColor(CYAN);
  647.    TextBackGround(BLACK);
  648.    CURSOROFF;
  649.    gotoxy(52,9); writeln(Menuchoice[70]);
  650.    GOTOXY(52,10);WRITELN(MENUCHOICE[71]);
  651.    gotoxy(52,11);writeln(MenuChoice[72]);
  652.    gotoxy(52,12);writeln(MenuChoice[73]);
  653.    gotoxy(52,13);writeln(Menuchoice[74]);
  654.    GOTOXY(52,14);WRITELN(MENUCHOICE[75]);
  655.    gotoxy(52,15);writeln(MenuChoice[76]);
  656.    gotoxy(52,16);writeln(MenuChoice[77]);
  657.    gotoxy(52,17);writeln(Menuchoice[78]);
  658.    GOTOXY(52,18);WRITELN(MENUCHOICE[79]);
  659.    gotoxy(52,19);writeln(MenuChoice[80]);
  660.    gotoxy(52,20);writeln(MenuChoice[81]);
  661.    gotoxy(52,21);writeln(Menuchoice[82]);
  662.    gotoxy(52,22);writeln(MenuChoice[83]);
  663.    gotoxy(52,23);writeln(Menuchoice[84]);
  664.    gotoxy(52,24);writeln(MenuChoice[85]);
  665.    TextColor(CYAN);
  666.    TextBackGround(BLACK);
  667. end;
  668. {======================================================}
  669. procedure Initialize_MenuChoices5(var MenuChoice: MenuList);
  670.  
  671. begin
  672.    MenuChoice[86] := '86.  FCBS      {CONFIG}';
  673.    Menuchoice[87] := '87.  FILES     {CONFIG}';
  674.    MENUCHOICE[88] := '88.  INSTALL   {CONFIG}';
  675.    MenuChoice[89] := '89.  LASTDRIVE {CONFIG}';
  676.    MenuChoice[90] := '90.  REM       {CONFIG}';
  677.    MenuChoice[91] := '91.  SHELL     {CONFIG}';
  678.    Menuchoice[92] := '92.  STACKS    {CONFIG}';
  679.    MENUCHOICE[93] := '93.  SWITCHES  {CONFIG}';
  680.    MenuChoice[94] := '94.  A  {DEBUG}        ';
  681.    MenuChoice[95] := '95.  C  {DEBUG}        ';
  682.    MenuChoice[96] := '96.  D  {DEBUG}        ';
  683.    Menuchoice[97]  := '97.  E  {DEBUG}        ';
  684.    MENUCHOICE[98]  := '98.  F  {DEBUG}        ';
  685.    MenuChoice[99]  := '99.  G  {DEBUG}        ';
  686.    Menuchoice[100] :='100. H  {DEBUG}        ';
  687.    MENUCHOICE[101] :='101. I  {DEBUG}        ';
  688.    MENUCHOICE[102] :='102. L  {DEBUG}        ';
  689.    TextColor(CYAN);
  690.    TextBackGround(BLUE);
  691.    gotoxy(52,8); writeln(MenuChoice[86]);
  692.    TextColor(CYAN);
  693.    TextBackGround(BLACK);
  694.    CURSOROFF;
  695.    gotoxy(52,9); writeln(Menuchoice[87]);
  696.    gotoxy(52,10); writeln (menuchoice[88]);
  697.    gotoxy(52,11);writeln(MenuChoice[89]);
  698.    gotoxy(52,12);writeln(MenuChoice[90]);
  699.    gotoxy(52,13);writeln(Menuchoice[91]);
  700.    GOTOXY(52,14);WRITELN(MENUCHOICE[92]);
  701.    gotoxy(52,15);writeln(MenuChoice[93]);
  702.    gotoxy(52,16);writeln(MenuChoice[94]);
  703.    gotoxy(52,17);writeln(Menuchoice[95]);
  704.    GOTOXY(52,18);WRITELN(MENUCHOICE[96]);
  705.    gotoxy(52,19);writeln(MenuChoice[97]);
  706.    gotoxy(52,20);writeln(MenuChoice[98]);
  707.    gotoxy(52,21);writeln(Menuchoice[99]);
  708.    gotoxy(52,22);writeln(MenuChoice[100]);
  709.    gotoxy(52,23);writeln(Menuchoice[101]);
  710.    gotoxy(52,24);writeln(MenuChoice[102]);
  711.    TextColor(CYAN);
  712.    TextBackGround(BLACK);
  713. end;
  714. {======================================================}
  715. procedure Initialize_MenuChoices6(var MenuChoice: MenuList);
  716.  
  717. begin
  718.    MenuChoice[103] := '103. M  {DEBUG}        ';
  719.    Menuchoice[104] := '104. N  {DEBUG}        ';
  720.    MENUCHOICE[105] := '105. O  {DEBUG}        ';
  721.    MenuChoice[106] := '106. P  {DEBUG}        ';
  722.    MenuChoice[107] := '107. Q  {DEBUG}        ';
  723.    MenuChoice[108] := '108. R  {DEBUG}        ';
  724.    Menuchoice[109] := '109. S  {DEBUG}        ';
  725.    MENUCHOICE[110] := '110. T  {DEBUG}        ';
  726.    MenuChoice[111] := '111. U  {DEBUG}        ';
  727.    MenuChoice[112] := '112. W  {DEBUG}        ';
  728.    MenuChoice[113] := '113. XA {DEBUG}        ';
  729.    Menuchoice[114] := '114. XD {DEBUG}        ';
  730.    MENUCHOICE[115] := '115. XM {DEBUG}        ';
  731.    MenuChoice[116] := '116. XS {DEBUG}        ';
  732.    Menuchoice[117] := '117. A   {EDLIN}       ';
  733.    MENUCHOICE[118] := '118. C   {EDLIN}       ';
  734.    MENUCHOICE[119] := '119. D   {EDLIN}       ';
  735.    Textcolor(CYAN);
  736.    TextBackGround(BLUE);
  737.    gotoxy(52,8); writeln(MenuChoice[103]);
  738.    TextColor(CYAN);
  739.    TextBackGround(BLACK);
  740.    CURSOROFF;
  741.    gotoxy(52,9); writeln(Menuchoice[104]);
  742.    gotoxy(52,10); writeln (menuchoice[105]);
  743.    gotoxy(52,11);writeln(MenuChoice[106]);
  744.    gotoxy(52,12);writeln(MenuChoice[107]);
  745.    gotoxy(52,13);writeln(Menuchoice[108]);
  746.    GOTOXY(52,14);WRITELN(MENUCHOICE[109]);
  747.    gotoxy(52,15);writeln(MenuChoice[110]);
  748.    gotoxy(52,16);writeln(MenuChoice[111]);
  749.    gotoxy(52,17);writeln(Menuchoice[112]);
  750.    GOTOXY(52,18);WRITELN(MENUCHOICE[113]);
  751.    gotoxy(52,19);writeln(MenuChoice[114]);
  752.    gotoxy(52,20);writeln(MenuChoice[115]);
  753.    gotoxy(52,21);writeln(Menuchoice[116]);
  754.    gotoxy(52,22);writeln(MenuChoice[117]);
  755.    gotoxy(52,23);writeln(Menuchoice[118]);
  756.    gotoxy(52,24);writeln(MenuChoice[119]);
  757.    TextColor(CYAN);
  758.    TextBackGround(BLACK);
  759. end;
  760. {======================================================}
  761. procedure Initialize_MenuChoices7(var MenuChoice: MenuList);
  762.  
  763. begin
  764.    MenuChoice[120] := '120. E   {EDLIN}       ';
  765.    Menuchoice[121] := '121. I   {EDLIN}       ';
  766.    MENUCHOICE[122] := '122. L   {EDLIN}       ';
  767.    MenuChoice[123] := '123. M   {EDLIN}       ';
  768.    MenuChoice[124] := '124. P   {EDLIN}       ';
  769.    MenuChoice[125] := '125. Q   {EDLIN}       ';
  770.    Menuchoice[126] := '126. R   {EDLIN}       ';
  771.    MENUCHOICE[127] := '127. S   {EDLIN}       ';
  772.    MenuChoice[128] := '128. T   {EDLIN}       ';
  773.    MenuChoice[129] := '129. W   {EDLIN}       ';
  774.    MenuChoice[130] := '                       ';
  775.    Menuchoice[131] := '                       ';
  776.    MENUCHOICE[132] := '                       ';
  777.    MenuChoice[133] := '                       ';
  778.    Menuchoice[134] := '                       ';
  779.    MENUCHOICE[135] := '                       ';
  780.    MENUCHOICE[136] := '                       ';
  781.    TextColor(CYAN);
  782.    TextBackGround(BLUE);
  783.    gotoxy(52,8); writeln(MenuChoice[120]);
  784.    TextColor(CYAN);
  785.    TextBackGround(BLACK);
  786.    CURSOROFF;
  787.    gotoxy(52,9); writeln(Menuchoice[121]);
  788.    gotoxy(52,10); writeln (menuchoice[122]);
  789.    gotoxy(52,11);writeln(MenuChoice[123]);
  790.    gotoxy(52,12);writeln(MenuChoice[124]);
  791.    gotoxy(52,13);writeln(Menuchoice[125]);
  792.    GOTOXY(52,14);WRITELN(MENUCHOICE[126]);
  793.    gotoxy(52,15);writeln(MenuChoice[127]);
  794.    gotoxy(52,16);writeln(MenuChoice[128]);
  795.    gotoxy(52,17);writeln(Menuchoice[129]);
  796.    GOTOXY(52,18);WRITELN(MENUCHOICE[130]);
  797.    gotoxy(52,19);writeln(MenuChoice[131]);
  798.    gotoxy(52,20);writeln(MenuChoice[132]);
  799.    gotoxy(52,21);writeln(Menuchoice[133]);
  800.    gotoxy(52,22);writeln(MenuChoice[134]);
  801.    gotoxy(52,23);writeln(Menuchoice[135]);
  802.    gotoxy(52,24);writeln(MenuChoice[136]);
  803.    TextColor(CYAN);
  804.    TextBackGround(BLACK);
  805. end;
  806. {======================================================}
  807. procedure Check_Keys(var MenuCounter: Integer);
  808.  
  809. var WhatKey:        char;
  810. begin
  811.    if safty = 0 then
  812.    begin
  813.    OldRowCounter := 8;
  814.    OldMenuCounter := 1;
  815.    MenuCounter := 1;
  816.    RowCounter :=8 ;
  817.    WhatKey := #0;
  818.    end;
  819.    while (WhatKey <> Enter) AND (ENDE<>1)do
  820.       begin
  821.          WhatKey := readkey;
  822.          if whatkey = F1 then
  823.          BEGIN
  824.                 EXIT;
  825.                 IF ENDE<>1 THEN BEGIN
  826.                 MAINMENU;
  827.                 VIEWWINDOW;
  828.                 
  829.                    OldRowCounter := 8;
  830.                    OldMenuCounter := 1;
  831.                    MenuCounter := 1;
  832.                    RowCounter :=8 ;
  833.                    WhatKey := #0;
  834.                    initialize_MenuChoices(MenuChoice);
  835.                 END;
  836.  
  837.         END;
  838.         if WhatKey = CursorDown then
  839.             begin
  840.                RowCounter := RowCounter + 1;
  841.                MenuCounter := MenuCounter + 1;
  842.                OldRowCounter := RowCounter - 1;
  843.                OldMenuCounter := MenuCounter - 1;
  844.             end;
  845.          if WhatKey = CursorUp then
  846.             begin
  847.                RowCounter := RowCounter - 1;
  848.                MenuCounter := MenuCounter - 1;
  849.                OldRowCounter := RowCounter + 1;
  850.                OldMenuCounter := MenuCounter + 1;
  851.             end;
  852.          if (RowCounter =25) and (menucounter=18)then
  853.             begin
  854.                rowcounter:=8;
  855.                oldRowCounter := 24;
  856.                oldmenucounter:=34;
  857.                Initialize_MenuChoices1(MenuChoice);
  858.              end;
  859.           if (RowCounter =25) and (menucounter=35)then
  860.             begin
  861.                rowcounter:=8;
  862.                oldRowCounter := 24;
  863.                oldmenucounter:=51;
  864.                Initialize_MenuChoices2(MenuChoice);
  865.              end;
  866.            if (RowCounter =25) and (menucounter=52)then
  867.             begin
  868.                rowcounter:=8;
  869.                oldRowCounter := 24;
  870.                oldmenucounter:=68;
  871.                Initialize_MenuChoices3(MenuChoice);
  872.              end;
  873.            if (RowCounter =25) and (menucounter=69)then
  874.             begin
  875.                rowcounter:=8;
  876.                oldRowCounter := 24;
  877.                oldmenucounter:=85;
  878.                Initialize_MenuChoices4(MenuChoice);
  879.              end;
  880.            if (RowCounter =25) and (menucounter=86)then
  881.             begin
  882.                rowcounter:=8;
  883.                oldRowCounter := 24;
  884.                oldmenucounter:=102;
  885.                Initialize_MenuChoices5(MenuChoice);
  886.              end;
  887.          if (RowCounter =25) and (menucounter=103)then
  888.             begin
  889.                rowcounter:=8;
  890.                oldRowCounter := 24;
  891.                oldmenucounter:=119;
  892.                Initialize_MenuChoices6(MenuChoice);
  893.              end;
  894.          if (RowCounter =25) and (menucounter=120)then
  895.             begin
  896.                rowcounter:=8;
  897.                oldRowCounter := 24;
  898.                oldmenucounter:=136;
  899.                Initialize_MenuChoices7(MenuChoice);
  900.              end;
  901.          
  902.          if (RowCounter =18) and (menucounter=130)then
  903.             begin
  904.                rowcounter:=8;
  905.                menucounter:=1;
  906.                oldRowCounter := 24;
  907.                oldmenucounter:=17;
  908.                Initialize_MenuChoices(MenuChoice);
  909.           end;
  910.          if (RowCounter =7) and (menucounter=0)then
  911.             begin
  912.                RowCounter := 17;
  913.                MenuCounter := 129;
  914.                OldMenuCounter := 120;
  915.               oldRowCounter := 8;
  916.                Initialize_MenuChoices7(MenuChoice);
  917.             end;
  918.            if (RowCounter =7) and (menucounter=34)then
  919.             begin
  920.                RowCounter := 24;
  921.                OldMenuCounter := 18;
  922.               oldRowCounter := 8;
  923.                Initialize_MenuChoices1(MenuChoice);
  924.             end;
  925.           if (RowCounter =7) and (menucounter=17)then
  926.             begin
  927.                RowCounter := 24;
  928.                OldMenuCounter := 1;
  929.                OldRowCounter := 8;
  930.                Initialize_MenuChoices(MenuChoice);
  931.             end;
  932.          if (RowCounter =7) and (menucounter=51)then
  933.             begin
  934.                RowCounter := 24;
  935.                OldMenuCounter := 35;
  936.                OldRowCounter := 8;
  937.                Initialize_MenuChoices2(MenuChoice);
  938.             end;
  939.          if (RowCounter =7) and (menucounter=68)then
  940.             begin
  941.                RowCounter := 24;
  942.                OldMenuCounter := 52;
  943.                OldRowCounter := 8;
  944.                Initialize_MenuChoices3(MenuChoice);
  945.             end;
  946.          if (RowCounter =7) and (menucounter=85)then
  947.             begin
  948.                RowCounter := 24;
  949.                OldMenuCounter :=69;
  950.                oldRowCounter := 8;
  951.                Initialize_MenuChoices4(MenuChoice);
  952.             end;
  953.          if (RowCounter =7) and (menucounter=102)then
  954.             begin
  955.                RowCounter := 24;
  956.                OldMenuCounter :=86;
  957.                OldRowCounter := 8;
  958.                Initialize_MenuChoices5(MenuChoice);
  959.             end;
  960.          if (RowCounter =7) and (menucounter=119)then
  961.             begin
  962.                RowCounter := 24;
  963.                OldMenuCounter :=103;
  964.                OldRowCounter := 8;
  965.                Initialize_MenuChoices6(MenuChoice);
  966.             end;
  967.          
  968.          
  969.          gotoxy(52, OldRowCounter);
  970.          TextColor(CYAN);
  971.          TextBackGround(BLACK);
  972.          write(MenuChoice[oldMenuCounter]);
  973.          gotoxy(52, RowCounter);
  974.          TextColor(CYAN);
  975.          TextBackGround(LIGHTBLUE);
  976.          write(MenuChoice[MenuCounter]);
  977.          
  978.       end; 
  979.  
  980. end;
  981. {----------------------------------------------}
  982.  
  983. PROCEDURE NEUNTE1;
  984. BEGIN
  985.  
  986.      IF KEYPRESSED=FALSE THEN BEGIN
  987.      sound(659);delay(416);NOSOUND;
  988.      IF KEYPRESSED=FALSE THEN
  989.      sound(659);delay(416);
  990.      IF KEYPRESSED=FALSE THEN BEGIN
  991.      sound(698);delay(416);
  992.      IF KEYPRESSED=FALSE THEN
  993.      sound(784);delay(416);NOSOUND;END;
  994.      END;IF KEYPRESSED=FALSE THEN BEGIN
  995.      sound(784);delay(416);
  996.      IF KEYPRESSED=FALSE THEN
  997.      sound(698);delay(416);
  998.      IF KEYPRESSED=FALSE THEN
  999.      sound(659);delay(416);
  1000.      IF KEYPRESSED=FALSE THEN
  1001.      sound(587);delay(416);
  1002.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1003.      SOUND(523);DELAY(416);NOSOUND;
  1004.      IF KEYPRESSED=FALSE THEN
  1005.      SOUND(523);DELAY (416);
  1006.      IF KEYPRESSED=FALSE THEN
  1007.      SOUND(587);DELAY (416);
  1008.      IF KEYPRESSED=FALSE THEN
  1009.      SOUND(659);DELAY (416);NOSOUND;
  1010.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1011.      {===============}
  1012.      SOUND (659);DELAY (624);
  1013.      IF KEYPRESSED=FALSE THEN
  1014.      SOUND (587);DELAY (208);NOSOUND;
  1015.      IF KEYPRESSED=FALSE THEN
  1016.      SOUND (587);DELAY (425);
  1017.      {================}
  1018.      NOSOUND;
  1019.      end;
  1020.  
  1021. END;
  1022. {====================================================}
  1023. PROCEDURE NEUNTE2;
  1024. BEGIN
  1025.      IF KEYPRESSED=FALSE THEN BEGIN
  1026.      sound(659);delay(416);NOSOUND;
  1027.      IF KEYPRESSED=FALSE THEN
  1028.      sound(659);delay(416);
  1029.      IF KEYPRESSED=FALSE THEN
  1030.      sound(698);delay(416);
  1031.      IF KEYPRESSED=FALSE THEN
  1032.      sound(784);delay(416);NOSOUND;
  1033.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1034.  
  1035.      sound(784);delay(416);
  1036.      IF KEYPRESSED=FALSE THEN
  1037.      sound(698);delay(416);
  1038.      IF KEYPRESSED=FALSE THEN
  1039.      sound(659);delay(416);
  1040.      IF KEYPRESSED=FALSE THEN
  1041.      sound(587);delay(416);
  1042.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1043.  
  1044.      SOUND (523);DELAY (416);NOSOUND;
  1045.      IF KEYPRESSED=FALSE THEN
  1046.      SOUND (523);DELAY (416);
  1047.      IF KEYPRESSED=FALSE THEN
  1048.      SOUND (587);DELAY (416);
  1049.      IF KEYPRESSED=FALSE THEN
  1050.      SOUND (659);DELAY (416);NOSOUND;
  1051.  
  1052.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1053.      SOUND (587);DELAY (624);
  1054.      IF KEYPRESSED=FALSE THEN
  1055.      SOUND (523);DELAY (208);NOSOUND;
  1056.      IF KEYPRESSED=FALSE THEN
  1057.      SOUND (523);DELAY (624);NOSOUND;
  1058.      IF KEYPRESSED=FALSE THEN
  1059.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1060.      IF KEYPRESSED=FALSE THEN
  1061.      SOUND (587);DELAY (416);NOSOUND;
  1062.     IF KEYPRESSED=FALSE THEN
  1063.      SOUND (587);DELAY (416);
  1064.      IF KEYPRESSED=FALSE THEN
  1065.      SOUND (659);DELAY (416);
  1066.      IF KEYPRESSED=FALSE THEN
  1067.      SOUND (523);DELAY (416);
  1068.  
  1069.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1070.      SOUND (587);DELAY (416);
  1071.      IF KEYPRESSED=FALSE THEN
  1072.      SOUND (659);DELAY (208);
  1073.      IF KEYPRESSED=FALSE THEN
  1074.      SOUND (698);DELAY (208);
  1075.      IF KEYPRESSED=FALSE THEN
  1076.      SOUND (659);DELAY (416);
  1077.     IF KEYPRESSED=FALSE THEN
  1078.      SOUND (523);DELAY (416);
  1079.  
  1080.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1081.      SOUND (587);DELAY (416);
  1082.      IF KEYPRESSED=FALSE THEN
  1083.      SOUND (659);DELAY (208);
  1084.     IF KEYPRESSED=FALSE THEN
  1085.      SOUND (698);DELAY (208);
  1086.      IF KEYPRESSED=FALSE THEN
  1087.      SOUND (659);DELAY (416);
  1088.      IF KEYPRESSED=FALSE THEN
  1089.      SOUND (587);DELAY (416);
  1090.  
  1091.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1092.      SOUND (523);DELAY (416);
  1093.      IF KEYPRESSED=FALSE THEN
  1094.      SOUND (587);DELAY (416);
  1095.      IF KEYPRESSED=FALSE THEN
  1096.      SOUND (392);DELAY (416);
  1097.  
  1098.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1099.      SOUND (659);DELAY (625);NOSOUND;
  1100.      IF KEYPRESSED=FALSE THEN
  1101.      SOUND (659);DELAY (416);
  1102.      IF KEYPRESSED=FALSE THEN
  1103.      SOUND (698);DELAY (416);
  1104.      IF KEYPRESSED=FALSE THEN
  1105.      SOUND (784);DELAY (416);NOSOUND;
  1106.  
  1107.      END; IF KEYPRESSED=FALSE THEN BEGIN
  1108.      SOUND (784);DELAY (416);
  1109.      IF KEYPRESSED=FALSE THEN
  1110.      SOUND (698);DELAY (416);
  1111.      IF KEYPRESSED=FALSE THEN
  1112.      SOUND (659);DELAY (416);
  1113.      IF KEYPRESSED=FALSE THEN
  1114.      SOUND (587);DELAY (416);
  1115.  
  1116.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1117.      SOUND (523);DELAY (416);NOSOUND;
  1118.      IF KEYPRESSED=FALSE THEN
  1119.      SOUND (523);DELAY (416);
  1120.      IF KEYPRESSED=FALSE THEN
  1121.      SOUND (587);DELAY (416);
  1122.      IF KEYPRESSED=FALSE THEN
  1123.      SOUND (659);DELAY (416);
  1124.  
  1125.      END;IF KEYPRESSED=FALSE THEN BEGIN
  1126.      SOUND (587);DELAY (624);
  1127.      IF KEYPRESSED=FALSE THEN
  1128.      SOUND (523);DELAY (208);NOSOUND;DELAY (10);
  1129.      IF KEYPRESSED=FALSE THEN
  1130.      SOUND (523);DELAY (625);NOSOUND;
  1131.      END;
  1132.      nosound;
  1133.  
  1134. End;
  1135. {=================================================}
  1136. PROCEDURE titleCGA;
  1137. BEGIN
  1138. CLRSCR;
  1139. Textmode (co40);
  1140. CURSOROFF;
  1141. textcolor (lightblue);
  1142.      textbackground (black);
  1143.      gotoxy (9,8); write ('┌'); DELAY (25);
  1144.       for x:=10 to 31 do
  1145.         begin
  1146.          gotoxy (x,8);     write ('─');DELAY (25);
  1147.         end;
  1148.      gotoxy (31,8); write ('╖');DELAY (25);
  1149.      for y:=9 to 13 do
  1150.      BEGIN
  1151.         Gotoxy(31,y);write('║');
  1152.         DELAY (25);
  1153.     end;
  1154.       GOTOXY (31,14);
  1155.      write('╝');  DELAY (25);
  1156.      for i:=30 DOWNTO 10 do
  1157.      BEGIN
  1158.      GOTOXY (I,14);Write('═');
  1159.      END;
  1160.     gotoxy(9,14);write('╘');DELAY (25);
  1161.     for y:=13 DOWNTO 9 do
  1162.      BEGIN
  1163.      gotoxy(9,y);write('│');
  1164.      DELAY (25);
  1165.      end;
  1166.  
  1167.      GOTOXY (27,10); WRITE ('R');DELAY (45);
  1168.      GOTOXY (14,12);  WRITE ('V');DELAY (45);
  1169.      GOTOXY (26,10); WRITE ('O');DELAY (45);
  1170.      GOTOXY (15,12); WRITE ('E');DELAY (45);
  1171.      GOTOXY (25,10); WRITE ('T');DELAY (45);
  1172.      GOTOXY (16,12); WRITE ('R');DELAY (45);
  1173.      GOTOXY (24,10); WRITE ('U');DELAY (45);
  1174.      GOTOXY (17,12); WRITE ('S');DELAY (45);
  1175.      GOTOXY (23,10); WRITE ('T');DELAY (45);
  1176.      GOTOXY (18,12); WRITE ('I');DELAY (45);
  1177.  
  1178.  
  1179.      TEXTCOLOR (LIGHTRED); GOTOXY (19,10); WRITE ('0');DELAY (45);
  1180.      TEXTCOLOR (LIGHTBLUE);  GOTOXY (19,12); WRITE ('O');DELAY (45);
  1181.      TEXTCOLOR (LIGHTRED);GOTOXY (18,10); WRITE ('.');DELAY (45);
  1182.      TEXTCOLOR (LIGHTBLUE); GOTOXY (20,12); WRITE ('N');DELAY (45);
  1183.      TEXTCOLOR (LIGHTRED); GOTOXY (17,10); WRITE ('5');DELAY (45);
  1184.      TEXTCOLOR (LIGHTBLUE);
  1185.  
  1186.  
  1187.  
  1188.      GOTOXY (12,10); WRITE ('D');DELAY (45);
  1189.      GOTOXY (23,12); WRITE ('2');DELAY (45);
  1190.      GOTOXY (13,10); WRITE ('O');DELAY (45);
  1191.      GOTOXY (24,12); WRITE ('.');DELAY (45);
  1192.      GOTOXY (14,10); WRITE ('S');DELAY (45);
  1193.      GOTOXY (25,12); WRITE ('0');DELAY (45);
  1194.  
  1195.      NEUNTE1;
  1196.      TEXTMODE (CO80);
  1197. END;
  1198.  
  1199.  
  1200. {===================================================}
  1201. PROCEDURE tscreen;
  1202. BEGIN
  1203.    CURSOROFF;
  1204.    IF NOT KEYPRESSED THEN
  1205.    BEGIN
  1206.      TEXTCOLOR (LIGHTBLUE);
  1207.      CLRSCR;
  1208.      gotoXY (27,1);
  1209.      WRITELN ('╔═══════════════════════════╗ ');
  1210.      GOTOXY (27,2);
  1211.      WRITELN ('║  D O S         T U T O R  ║ ');
  1212.      GOTOXY (27,3);
  1213.      WRITELN ('║        VERSION 2.0        ║');
  1214.      GOTOXY (27,4);
  1215.      WRITELN ('╚═══════════════════════════╝ ');
  1216.      TEXTCOLOR (YELLOW + BLINK);
  1217.      GOTOXY (37,2);
  1218.      WRITELN (' 5.0');
  1219.      TEXTCOLOR (LIGHTGREEN);
  1220.      GOTOXY (26,5);
  1221.      WRITELN ('A C K N O W L E D G E M E N T S');
  1222.      TEXTCOLOR (YELLOW);
  1223.      GOTOXY (1,8);
  1224.      TEXTCOLOR (RED);
  1225.      WRITELN ('                               B A S I C  I D E A');
  1226.      TEXTCOLOR (YELLOW);
  1227.      WRITELN ('                               CARSTEN BOCKSTETTE             ');
  1228.      WRITELN;
  1229.      TEXTCOLOR (RED);
  1230.      WRITELN ('                              P R O G R A M I N G');
  1231.      TEXTCOLOR (YELLOW);
  1232.      WRITELN ('              THIS WAS DONE BY CARSTEN BOCKSTETTE AND FRANK DUCHNA.');
  1233.      WRITELN ('                        THE DEBUGGING WAS DONE BY CARSTEN. ');
  1234.      WRITELN;
  1235.      TEXTCOLOR (RED);
  1236.      WRITELN ('                           S C R E E N   D E S I G N S');
  1237.      TEXTCOLOR (YELLOW);
  1238.      WRITELN ('                     THE TITLE SCREEN WAS DESIGND BY CARSTEN.');
  1239.      WRITELN ('                  ALL THE OTHER SCREENS WERE DESIGND BY CARSTEN.');
  1240.      WRITELN;
  1241.      TEXTCOLOR (RED);
  1242.      WRITELN ('                            S O U N D  E F F E C T S');
  1243.      TEXTCOLOR (YELLOW);
  1244.      WRITELN ('                 ALL THE SOUND EFFECTS WERE PROGRAMED BY CARSTEN.');
  1245.      WRITELN ;
  1246.      TEXTCOLOR (LIGHTBLUE);
  1247.      WRITELN ('                  (c) COPYRIGHT 1991 BY GERMAN HACKERS SOFTWARE.');
  1248.      NEUNTE2;
  1249.      TEXTCOLOR (LIGHTBLUE);  GOTOXY (27,24);
  1250.      WRITE (' PRESS         TO CONTINUE!');
  1251.      TEXTCOLOR (YELLOW); GOTOXY    (34,24);
  1252.      WRITE ('<ENTER>');
  1253.      TEXTCOLOR (BLACK);
  1254.      GOTOXY (60,24);
  1255.    END
  1256.    ELSE
  1257.    NOSOUND;
  1258. END;
  1259.  
  1260.  
  1261. {===================================================}
  1262. Procedure titel2;
  1263. var
  1264.   graphdriver,graphmode : integer;
  1265. Begin
  1266.  
  1267.      graphdriver:=detect;
  1268.      initgraph(graphdriver,graphmode,'');
  1269.      cleardevice;
  1270.      setcolor(lightblue);
  1271.      settextstyle(gothicfont,horizdir,10);
  1272.      moveto(75,60);
  1273.      outtext('DOS 5.0');
  1274.      moveto(50,210);
  1275.      outtext(' TUTOR');
  1276.      settextstyle(smallfont,horizdir,5);
  1277.      setcolor(cyan);
  1278.      moveto(110,10);
  1279.      outtext('Copyright (c) August 1991 by German Hackers Software');
  1280.      settextstyle(smallfont,horizdir,5);
  1281.      neunte1;
  1282.      
  1283.  
  1284. end;
  1285. {======================================================}
  1286. Procedure acknowledge;
  1287. VAR graphdriver, graphmode:integer;
  1288. BEGIN
  1289.  
  1290.     graphdriver:=detect;
  1291.     cleardevice;
  1292.     settextstyle(sansseriffont,horizdir,5);
  1293.     setcolor(green);
  1294.     moveto(120,20);
  1295.     outtext('Acknowledgements');
  1296.     settextstyle(sansseriffont,horizdir,3);
  1297.     setcolor(red);
  1298.     moveto(230,100);
  1299.     outtext('Basic idea:');
  1300.     setcolor(cyan);
  1301.     moveto(190,130);
  1302.     outtext('Carsten Bockstette');
  1303.     setcolor(red);
  1304.     outtextxy(220,180,'Programming:');
  1305.     setcolor(cyan);
  1306.     outtextxy(120,210,'Carsten Bockstette & Frank Duchna');
  1307.     setcolor(red);
  1308.     outtextxy(220,260,'Sound effects:');
  1309.     setcolor(cyan);
  1310.     outtextxy(190,290,'Carsten Bockstette');
  1311.     setcolor(red);
  1312.     outtextxy(203,340,'Graphic screens:');
  1313.     setcolor(cyan);
  1314.     outtextxy(120,370,'Carsten Bockstette & Frank Duchna');
  1315.     settextstyle(smallfont,horizdir,5);
  1316.     neunte2;
  1317.     setcolor (red);
  1318.     outtextxy(200,450,'Press <ENTER> to continue');
  1319.     SETCOLOR (BLACK);
  1320.     readln;
  1321.     closegraph;
  1322.     clrscr;
  1323. end;
  1324.  {============================================================}
  1325.  
  1326. PROCEDURE THEEND;
  1327. VAR
  1328.    graphdriver,graphmode:Integer;
  1329.    color,x,y:Integer;
  1330.    radius:word;
  1331. BEGIN
  1332.      graphdriver:=detect;
  1333.      InitGraph(graphdriver,Graphmode,'');
  1334.      X:=getmaxx DIV 2;
  1335.      y:=getmaxy DIV 3+30;
  1336.      radius:=y;
  1337.      FOR color:=1 TO 20 DO
  1338.      BEGIN
  1339.           setcolor(LIGHTBLUE);
  1340.           Arc(x,y,0,360,radius);
  1341.           y:=y+3
  1342.      END;
  1343.     settextstyle(DEFAULTFONT,horizdir,2);
  1344.     setcolor(cyan);
  1345.     moveto(240,130);
  1346.     outtext('Thanks for');
  1347.     moveto (240,160);
  1348.     Outtext('using the:');
  1349.     settextstyle(TRIPLEXFONT,horizdir,5);
  1350.     setcolor (lightred);
  1351.     MOVETO(165,210);
  1352.     outtext('DOS 5.0 TUTOR');
  1353.     setcolor(cyan);
  1354.     settextstyle(smallfont,horizdir,5);
  1355.     moveto (220,300);
  1356.     outtext('(c) copyright 1991 by G.H.S.');
  1357.     delay (2100);
  1358.     CloseGraph;
  1359. END;
  1360. {-----------------------------------------------------}
  1361. PROCEDURE READFILE(F:string);
  1362. const
  1363. cr=chr(13);
  1364. lf=chr(10);
  1365. var
  1366. CH:CHAR;
  1367. x,y:integer;
  1368.   d:text;
  1369. begin
  1370.      textbackground (black);
  1371.      x:=3;
  1372.      y:=8;
  1373.      viewwindow1;
  1374.      assign(d,f);
  1375.      reset(d);
  1376.      read(d,ch);
  1377.      while NOT eof(d) OR NOT EOLN(D) Do
  1378.      begin
  1379.             gotoxy(x,y);
  1380.             write(ch);
  1381.             read(d,ch);
  1382.             X:=X+1;
  1383.             iF EOLN(D) tHEN
  1384.             BEGIN
  1385.                  WRITE(CH);
  1386.                  X:=1;
  1387.                  y:=y+1;
  1388.                  READ(D,CH);
  1389.             END;
  1390.      end;
  1391.      close (d);
  1392.       viewWINDOW;
  1393.      TEXTCOLOR (BLACK);
  1394.      textbackground (black);
  1395.  
  1396. end;
  1397.  
  1398.  
  1399. (****************** MAIN PROGRAM **********************)
  1400.  
  1401. Begin
  1402. GRA1:=5;
  1403. VGA:='';
  1404.   WHILE GRA1 <> 1 DO BEGIN
  1405.      cursoron;
  1406.      clrscr;
  1407.      textcolor (cyan);
  1408.      gotoxy (3,10);write ('MONO, CGA  =  1');
  1409.      GOTOXY (3,11);WRITE ('EGA, VGA   =  2');
  1410.      GOTOXY (3,16);WRITE ('PLEASE ENTER YOUR CHOICE:');
  1411.      READLN (VGA);
  1412.      IF VGA ='1' THEN
  1413.      BEGIN
  1414.           CLRSCR;
  1415.           CURSOROFF;
  1416.           TITLECGA;
  1417.           TSCREEN;
  1418.           CURSORON;
  1419.           GRA1 :=1;
  1420.      END;
  1421.  
  1422.      IF VGA='2' THEN BEGIN
  1423.      BEGIN
  1424.        titel2;
  1425.        acknowledge;
  1426.        GRA1:=1;
  1427.      END;
  1428.  
  1429. END;
  1430.    cursoroff;
  1431.    END;
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437.      textbackground (black);
  1438.      mainmenu;
  1439.      viewwindow;
  1440. {******  E V E N T   H A N D L E R *********}
  1441.  
  1442.      ende:=0;       safty :=0;          menucounter:=1;
  1443.      Initialize_MenuChoices(MenuChoice);
  1444.      IF ENDE=1 THEN GOTO EXIT1;
  1445.      while ENDE<> 1  do
  1446.      begin
  1447.  
  1448.          Check_Keys(MenuCounter);
  1449.  
  1450.          IF ENDE=1 THEN GOTO EXIT1;
  1451.          case MenuCounter of
  1452.  
  1453.  
  1454. 1  : readfile ('append.dat')  ;2 :   readfile ('assign.dat');
  1455. 3  : readfile ('attrib.dat')  ;4 :   readfile ('backup.dat');
  1456. 5  : readfile ('break.dat')   ;6 :   readfile ('chcp.dat');
  1457. 7  : readfile ('chdir.dat');   8 :   readfile ('chkdsk.dat');
  1458. 9  : readfile ('cls.dat');     10:   readfile ('command.dat');
  1459. 11 : readfile ('comp.dat');    12:   readfile ('copy.dat');
  1460. 13 : readfile ('ctty.dat');    14:   readfile ('date.dat');
  1461. 15 : readfile ('debug.dat');   16:   readfile ('del.dat');
  1462. 17 : readfile ('dir.dat');     18:   readfile ('comp.dat');
  1463. 19 : readfile ('diskcopy.dat');20:   readfile ('doskey.dat');
  1464. 21:  readfile ('dosshell.dat');
  1465. 22 : readfile ('edit.dat');23:   readfile ('edlin.dat');
  1466. 24 : readfile ('emm386.dat');  25:   readfile ('exe2bin.dat');
  1467. 26 : readfile ('exit.dat');    27:   readfile ('expand.dat');
  1468. 28 : readfile ('fastopen.dat');29:   readfile ('fc.dat');
  1469. 30 : readfile ('fdisk.dat');   31:   readfile ('find.dat');
  1470. 32 : readfile ('for.dat');     33:   readfile ('format.dat');
  1471. 34 : readfile ('graftabl.dat');35:   readfile ('graphics.dat');
  1472. 36 : readfile ('help.dat');    37:   readfile ('join.dat');
  1473. 38 : readfile ('keyb.dat');    39:   readfile ('label.dat');
  1474. 40 : readfile ('loadhigh.dat');41:   readfile ('mem.dat');
  1475. 42 : readfile ('mirror.dat');  43:   readfile ('mkdir.dat');
  1476. 44 : readfile ('mode.dat');    45:   readfile ('more.dat');
  1477. 46 : readfile ('nlsfunc.dat'); 47:   readfile ('Path.dat');
  1478. 48 : readfile ('print.dat');   49:   readfile ('prompt.dat');
  1479. 50 : readfile ('qbasic.dat');  51:   readfile ('recover.dat');
  1480. 52 : readfile ('rename.dat');  53:   readfile ('replace.dat');
  1481. 54 : readfile ('restore.dat'); 55:   readfile ('rmdir.dat');
  1482. 56 : readfile ('set.dat');     57:   readfile ('setver.dat');
  1483. 58 : readfile ('share.dat');   59:   readfile ('sort.dat');
  1484. 60 : readfile ('subst.dat');   61:   readfile ('sys.dat');
  1485. 62 : readfile ('time.dat');    63:   readfile ('tree.dat');
  1486. 64 : readfile ('type.dat');    65:   readfile ('undelete.dat');
  1487. 66 : readfile ('unformat.dat');67:   readfile ('ver.dat');
  1488. 68 : readfile ('verify.dat');  69:   readfile ('vol.dat');
  1489. 70 : readfile ('xcopy.dat');   71:   readfile ('bcall.dat');
  1490. 72 : readfile ('becho.dat');    73:   readfile ('for.dat');
  1491. 74 : readfile ('bgoto.dat');    75:   readfile ('bif.dat');
  1492. 76 : readfile ('bpause.dat');   77:   readfile ('brem.dat');
  1493. 78 : readfile ('bshift.dat');   79:   readfile ('cbreak.dat');
  1494. 80 : readfile ('cbuffers.dat'); 81:   readfile ('ccountry.dat');
  1495. 82 : readfile ('cdevice.dat');  83:   readfile ('devicehi.dat');
  1496. 84 : readfile ('dos.dat');     85:   readfile ('cdrivparm.dat');
  1497. 86 : readfile ('cfcbs.dat');    87:   readfile ('cfiles.dat');
  1498. 88 : readfile ('cinstall.dat'); 89:   readfile ('lastdriv.dat');
  1499. 90 : readfile ('crem.dat');     91:   readfile ('cshell.dat');
  1500. 92 : readfile ('cstacks.dat');  93:   readfile ('switch.dat');
  1501. 94 : readfile ('da.dat');      95:   readfile ('dc.dat');
  1502. 96 : readfile ('dd.dat');      97:   readfile ('de.dat');
  1503. 98 : readfile ('df.dat');      99:   readfile ('dg.dat');
  1504. 100: readfile ('dh.dat');      101:  readfile ('di.dat');
  1505. 102: readfile ('dl.dat');      103:  readfile ('dm.dat');
  1506. 104: readfile ('dn.dat');      105:  readfile ('do.dat');
  1507. 106: readfile ('dp.dat');      107:  readfile ('dq.dat');
  1508. 108: readfile ('dr.dat');      109:  readfile ('ds.dat');
  1509. 110: readfile ('dt.dat');      111:  readfile ('du.dat');
  1510. 112: readfile ('dw.dat');      113:  readfile ('xa.dat');
  1511. 114: readfile ('xd.dat');      115:  readfile ('xm.dat');
  1512. 116: readfile ('xs.dat');      117:  readfile ('ea.dat');
  1513. 118: readfile ('ec.dat');      119:  readfile ('ed.dat');
  1514. 120: readfile ('ee.dat');      121:  readfile ('ei.dat');
  1515. 122: readfile ('el.dat');      123:  readfile ('em.dat');
  1516. 124: readfile ('ep.dat');      125:  readfile ('eq.dat');
  1517. 126: readfile ('er.dat');      127:  readfile ('es.dat');
  1518. 128: readfile ('et.dat');      129:  readfile ('ew.dat');
  1519.  
  1520. end;
  1521.  
  1522.  
  1523. safty :=1;
  1524.  
  1525.        
  1526. end;
  1527. CLRSCR;
  1528. exit1:
  1529. textbackground (black);
  1530. IF VGA='1' THEN
  1531.   BEGIN
  1532.     CGAEXIT;
  1533.   END
  1534. else
  1535. THeend;
  1536.  
  1537. CURSORON;
  1538.  
  1539. END.
  1540.  
  1541.  
  1542.