RE-BOOT

 BBS: Inland Empire Archive
Date: 02-15-93 (17:52)             Number: 383
From: ROB MCKEE                    Refer#: NONE
  To: ERIC MAYS                     Recvd: NO  
Subj: RE-BOOT                        Conf: (2) Quik_Bas

Hello Eric!
   You wrote in a message to All:

 EM> HELLO, ALL
 EM> IS THERE ANY WAY TO RE BOOT THE COMPUTER USING A QBASIC OR
 EM> MACHINE  LANGUAGE IN A QBASIC PROGRAM CODE..

Sure is...

    ' From Another Quik_bas Programmmer
    ' If you can make a Buck with this, make a buck!
    ' QBS Dist=Only If Lee can fit it in into the next
issue! <G>     ' Now this header must remain unchanged in
your source code     '   for a maximum of 2 seconds!
    ' Warm Reboot

    def seg = 0
    If WarmBoot%= True then
        poke &h0473,&h12 ' Setup for Warm Boot
        poke &h0472,&h34
    else
        poke &h0472,&h12 ' Setup for Cold Boot
        poke &h0473,&h34 ' tho not really nessary
    end if
    Def sef= &hffff
    Off%=0
    Call Absolute(Off%)

    This doesn't work on Commodore PC computers use
Interrupt &h19 instead. But which Qbasic doesn't have..


 Catcha Later , I'll see you on the flip side - Rob

$$
--- timEd/B6
 * Origin: Another Quik_Bas Point in Richmond, CA (1:125/411)