🚀 go-pugleaf

In article <1991May10.203452.14328@ux1.cts.eiu.edu> bucacs@ux1.cts.eiu.edu (Carlos Dragonslayer Butler) writes:
>
>	Does anyone have or know of some Pascal code to reboot a computer?

Sat 5-January-1991

Summary of the Functions and Procedures in the /pc/ts/tspas23##.arc
Package (##=40,50,55,60), available from our site.

TSUNTA: (uses Dos, Crt, TSUNTE)
:

TSUNTG: (uses Dos)
  ALTFN    Is the alt key depressed
  CLS      Set 25*80 text mode and clear screen (no Crt required)
  CLS40    Set 25*40 text mode and clear screen (no Crt required)
  COLDBOOT Reboot computer, including memory tests
  CTRLFN   Is the ctrl key depressed
  DRIVESFN Number of diskette drives on the system
  DSKCNTFN Get the number of disk devices (MsDos 3+ only)
  FDRIVEFN The name of the first diskette drive on the system
  FIXEDFN  Is a drive a fixed disk or not
  GOATXY   As the ordinary GoToXY but no Crt unit required
  INDRIVFN Is a media present in the given drive
  INKEYFN  Basic-like timed character input
  KEYPREFN As the ordinary KeyPressed but no Crt unit required
  LFALTFN  Is the left alt key depressed
  LFCTRLFN Is the left ctrl key depressed
  LFSHFTFN Is the left shift key depressed
  RDENKEFN Enhanced keyboard ReadKey, detects also F11 and F12
  READKEFN As the ordinary ReadKey but no Crt unit required
  REVAREA  Reverse the colors of an area
  RTALTFN  Is the right alt key depressed
  RTCTRLFN Is the right ctrl key depressed
  RTSHFTFN Is the right shift key depressed
  SYSRQFN  Is the SysRq key depressed
  USECON   Restore write and writeln direction to the screen
  USEPRN   Redirect write and writeln to the printer
  WARMBOOT Warm reboot of the coputer (as alt-ctrl-del)
  WHEREXFN As the ordinary WhereX but no Crt unit required
  WHEREYFN As the ordinary WhereY but no Crt unit required
:

...................................................................
Prof. Timo Salmi        
Moderating at garbo.uwasa.fi anonymous ftp archives 128.214.12.37
School of Business Studies, University of Vaasa, SF-65101, Finland
Internet: ts@chyde.uwasa.fi Funet: gado::salmi Bitnet: salmi@finfun