home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / TSPA3370.ZIP / TSUNTH.TST < prev    next >
Text File  |  1993-02-04  |  4KB  |  165 lines

  1. (* This is a test program for the TSUNTH.TPU unit 25-Feb-89
  2.    Updated 21-Mar-90, 23-Jul-90, 1-Aug-90, 5-Jan-91, 21-Jul-91,
  3.            24-Nov-91, 23-Aug-92, 4-Feb-93 *)
  4.  
  5. uses Dos, TSUNTH;
  6.  
  7. procedure LOGO;
  8. begin
  9.   writeln;
  10.   writeln ('TSUNTH unit test by Prof. Timo Salmi, 4-Feb-93');
  11.   writeln ('University of Vaasa, Finland, ts@uwasa.fi');
  12. {$IFDEF VER40}
  13.   writeln ('TP version 4.0');
  14. {$ENDIF}
  15. {$IFDEF VER50}
  16.   writeln ('TP version 5.0');
  17. {$ENDIF}
  18. {$IFDEF VER55}
  19.   writeln ('TP version 5.5');
  20. {$ENDIF}
  21. {$IFDEF VER60}
  22.   writeln ('TP version 6.0');
  23. {$ENDIF}
  24. {$IFDEF VER70}
  25.   writeln ('TP version 7.0');
  26. {$ENDIF}
  27.   writeln;
  28. end;  (* logo *)
  29.  
  30. (* Testing if graftabl is loaded *)
  31. procedure TEST1;
  32. begin
  33.   if GRTABLFN then
  34.      writeln ('GRAFTABL has been loaded')
  35.    else
  36.      writeln ('GRAFTABL has not been loaded');
  37. end;  (* test1 *)
  38.  
  39. (* Testing for the processor type *)
  40. procedure TEST2;
  41. begin
  42.   write ('The processor is a ');
  43.   case CPUFN of
  44.     0 : writeln ('8086');
  45.     2 : writeln ('80286');
  46.     3 : writeln ('80386');
  47.     4 : writeln ('80486');
  48.   end;
  49. end;  (* test2 *)
  50.  
  51. (* Is a math coprocessor present *)
  52. procedure TEST4;
  53. begin
  54.   if MATHCOFN then
  55.      writeln ('A math coprocessor is present')
  56.    else
  57.      writeln ('No math coprocessor present');
  58. end;  (* test4 *)
  59.  
  60. (* Number of serial ports *)
  61. procedure TEST5;
  62. begin
  63.   writeln ('Number of serial ports ', RS232FN);
  64.   Flush (output);
  65. end;  (* test5 *)
  66.  
  67. (* Number of parallel ports *)
  68. procedure TEST6;
  69. begin
  70.   writeln ('Number of parallel ports ', PARPORFN);
  71.   Flush (output);
  72. end;  (* test6 *)
  73.  
  74. (* Country code *)
  75. procedure TEST7;
  76. begin
  77.   writeln ('The country code is ', COUNTRFN);
  78.   Flush (output);
  79. end;  (* test7 *)
  80.  
  81. (* Get ROM BIOS version *)
  82. procedure TEST9;
  83. begin
  84.   writeln ('The ROM BIOS version (date) is ', ROMDTEFN);
  85.   Flush (output);
  86. end;  (* test9 *)
  87.  
  88. (* Is an enhanced keyboard present *)
  89. procedure TEST10;
  90. begin
  91.   if ISENHAFN then
  92.     writeln ('Enhanced keyboard')
  93.   else
  94.     writeln ('Not an enhanced keyboard');
  95. end;  (* test10 *)
  96.  
  97. (* Last drive, and interleave values *)
  98. procedure TEST11;
  99. var lastdrive  : char;
  100.     interleave : byte;
  101.     ch         : char;
  102. begin
  103.   lastdrive := LASTDRFN;
  104.   writeln ('The last drive on this system is ', lastdrive);
  105.   if lastdrive > 'B' then
  106.     for ch := 'C' to lastdrive do
  107.       writeln ('Drive ', ch, ' interleave is ', INTERLFN (ch));
  108.   writeln;
  109.   for ch := 'A' to lastdrive do
  110.     writeln ('Drive ', ch, ' number of FATs is ', FATSFN (ch));
  111. end;  (* test11 *)
  112.  
  113. (* Show date and time formats of your configuration *)
  114. procedure TEST13;
  115. begin
  116.   writeln ('The country-dependent date format is ', DATEFMFN);
  117.   writeln ('The country-dependent time format is ', TIMEFMFN);
  118. end;  (* test13 *)
  119.  
  120. procedure TEST14;
  121. const drive = 'A';
  122. begin
  123.    writeln ('Number of cylinders on ', drive, ', is ', NRCYLFN(drive));
  124. end;  (* test14 *)
  125.  
  126. (* Test whether a mouse is available *)
  127. procedure TEST15;
  128. begin
  129.   write ('MOUSTAFN: ');
  130.   case MOUSTAFN of
  131.     0 : writeln ('No mouse & driver detected');
  132.     1 : writeln ('Mouse detected, with other than two buttons');
  133.     2 : writeln ('Mouse detected, with two buttons');
  134.     3 : writeln ('Mouse Systems or Logitech mouse detected, EEEEEK!!!!');
  135.     4 : writeln ('Mouse status unknown');
  136.   end;
  137. end;  (* test15 *)
  138.  
  139. (* Simple false/true test whether a mouse is available *)
  140. procedure TEST16;
  141. begin
  142.   write ('ISMOUSFN: ');
  143.   case ISMOUSFN of
  144.     true  : writeln ('Mouse detected');
  145.     false : writeln ('No mouse detected');
  146.   end;
  147. end;  (* test16 *)
  148.  
  149. (* Main program *)
  150. begin
  151.   LOGO;
  152.   TEST2;
  153.   TEST4;
  154.   TEST5;
  155.   TEST6;
  156.   TEST7;
  157.   TEST9;
  158.   TEST10;
  159.   TEST15;
  160.   {}
  161.   {... if you want the rest of the tests, just include them ...}
  162.   {}
  163.   write ('Press <═╝'); readln;
  164. end.  (* tsunth.tst *)
  165.