REM From PC Mag, Vol11 Number 5

DECLARE SUB ReBoot (Warm%)

CALL ReBoot(1)      'be sure to save this program before running it!

SUB ReBoot (Warm%) STATIC
  IF Warm% THEN                 'if they want a warm boot
    DEF SEG = 0                 'assign the value 1234 Hex
    POKE &H473, &H12            'to address 0000:0473 Hex
    POKE &H472, &H34
  END IF
  DEF SEG = &HFFFF              'either way call the BIOS
  CALL Absolute(0)              'routine at FFFF:0000 Hex
END SUB