' software reset using ROM routine at address &h0800 - requires C-Control I 1.1 OS
' source code and idea inspired by  http://ccintern.dharlos.de/tipsutri.txt
' (ressource in German language)
'
'  das |_ Team

option ccbas

DEFINE b1 byte[1]

PRINT
PRINT



FOR b1 = 7 TO 0 STEP -1

  IF rxd THEN

    PRINT : PRINT "**ABORTED" : GET b1 : END

   ELSE

    PRINT "  SW-Reset _";b1"_ (oder TASTE) "; : PUT 13

  END IF


PAUSE 50

NEXT

PRINT
PRINT

  sys &h0800