home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DPSX / TOOL-PAS.ZIP / VMODE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-05-28  |  1.2 KB  |  45 lines
  1.  
  2. uses dos,tools;
  3.  
  4. var
  5.    reg:  registers;
  6.    s:    string;
  7.  
  8. begin
  9.    if paramcount <> 1 then
  10.    begin
  11.       writeln('usage: vmode VIDEOMODE');
  12.       writeln('       vmode $HEXMODE');
  13.  
  14.       writeln;
  15.       writeln('VGA video modes');
  16.       writeln('   3     80x25 color text');
  17.       writeln('   7     80X25 mono text');
  18.       writeln('   $12   80x30 color graphics');
  19.       writeln('   $50   80x30 color text');
  20.       writeln('   $51   80x43 color text');
  21.       writeln('   $52   80x60 color text');
  22.       writeln('   $53  132x25 color text 1056x');
  23.       writeln('   $54  132x30 color text 1056x');
  24.       writeln('   $55  132x43 color text 1056x');
  25.       writeln('   $56  132x60 color text 1056x');
  26.       writeln('   $57  132x25 color text 1188x');
  27.       writeln('   $58  132x30 color text 1188x');
  28.       writeln('   $59  132x43 color text 1188x');
  29.       writeln('   $5A  132x60 color text 1188x');
  30.       writeln('   $5B  100x75 color graphics');
  31.       writeln('   $5F  128x48 color graphics');
  32.       writeln('   $61   96x64 color graphics');
  33.  
  34.       halt;
  35.    end;
  36.  
  37.    s := paramstr(1);
  38.    if s[1] = '$' then
  39.       reg.ax := htoi(copy(s,2,99))
  40.    else
  41.       reg.ax := atoi(paramstr(1));
  42.    intr($10,reg);
  43. end.
  44.  
  45.