===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 04-07-93 (04:29)             Number: 159
From: JOE NEGRON                   Refer#: 151
  To: CHAD GUNTER                   Recvd: NO  
Subj: Reboot                         Conf: (35) Quick Basi
---------------------------------------------------------------------------
CG> Does anyone know how to make the computer reboot from inside
  > QB? Thanx!

Here you go:

============================== Begin code ==============================
DEFINT A-Z

'$INCLUDE: 'qb.bi'       'replace with qbx.bi if you're using PDS

DECLARE SUB Reboot (BootType%)

'***********************************************************************
'* SUB Reboot
'*
'* PURPOSE
'*    Reboots the machine by executing the machine language procedure
'*    located at FFFF:0000.
'*
'* EXTERNAL ROUTINE(S)
'*    QBX.LIB
'*    -------
'*    SUB Absolute (Address%)
'***********************************************************************
SUB Reboot (BootType%) STATIC
   DEF SEG = &H40
   POKE &H72, 0 - ((BootType% = 0) * &H34)   'if BootType% = 0, perform
   POKE &H73, 0 - ((BootType% = 0) * &H12)   '  a warm boot, else a cold boot
   DEF SEG = &HFFFF                          'set segment to bootstrap loader
   Absolute 0                                'do system call
END SUB
=============================== End code ===============================

Set BootType% = 0 to perform a warm boot, or anything else to perform a
cold boot.

          --Joe in Bay Ridge, Brooklyn, NY, Wed, 04-07-1993--

... Beeeep!  This is a test of the emergency tagline system.
___
 X Blue Wave/QWK v2.12 X

--- Maximus 2.01wb
 * Origin: * BlueDog BBS * (212) 594-4425 * NYC FileBone Hub (1:278/709)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 280/1 390/1 396/1 15 397/2 2230/100 3603/20