        AREA |C$$code|, CODE, READONLY

        IMPORT  exit
        EXPORT  call_for_error
call_for_error
        ADR      r0, error_block
        MOV      r1, #2_000010001
        ADR      r2, app_name
        SWI      &400DF         ; Wimp_ReportError
        BL       exit
        LDMDB    fp,{fp,sp,pc}  ; magic!

error_block
        DCD      123
        =        "Sorry, this program has expired. "
        =        "Please purchase the full version "
        =        "if you wish to continue using "
        =        "this software...", 0
        ALIGN

app_name
        =        "Hack demo #2", 0
        ALIGN

        END
