Main:
    di
    call _HomeUp
    call _ClrLCDFull
    call _RunIndicOff
    ld (backupSP), sp
    jp RunProgram
ForceStopProgramWithFadeOut:
    call fadeOut
ForceStopProgram:
    ;call gfx_End
backupSP = $+1
    ld sp, 0
    ld a, 0D1h
    ld mb, a
    call.lis fLockFlash & 0FFFFh
    ld a, 0D0h
    ld mb, a
    ld iy, flags
    call _DrawStatusBar
    ld a, kClear
    jp _JForceCmd
#include "flash.asm"
RunProgram:
    jp ForceStopProgram