Reset P0.4
    Gosub Statusscheck
    Set P0.4





'INIT

    Gosub Statusscheck
Gosub Writedata
    P2 = &H00
    Gosub Statusscheck
    Gosub Writedata

    P2 = &H02
    Gosub Statusscheck
    Gosub Writecommand

    P2 = &H42                                                 'Graphics home Adres
    Gosub Statusscheck
    Gosub Writedata

    P2 = &H20
    Gosub Statusscheck
    Gosub Writedata

    P2 = &H02
    Gosub Statusscheck
    Gosub Writecommand

    P2 = &H43                                                 'Graphics Area set
    Gosub Statusscheck
    Gosub Writedata

    P2 = &H00
    Gosub Statusscheck
    Gosub Writedata

    P2 = &H08

    Gosub Statusscheck
    Gosub Writecommand
    P2 = &H40
    Gosub Statusscheck
    Gosub Writedata

    P2 = &H20
    Gosub Statusscheck
    Gosub Writedata

    P2 = &H00
    Gosub Statusscheck
    Gosub Writecommand

    P2 = &H41
    Gosub Statusscheck
    Gosub Writecommand

    P2 = &B10000000                                           'OR, XOR, AND of TEXT mode
    Gosub Statusscheck
    Gosub Writecommand

    P2 = &B10011111                                           'display mode
    Gosub Statusscheck
    Gosub Writecommand
    P2 = &HA4
    Gosub Statusscheck
    Gosub Writedata
    P2 = &H24
    Gosub Statusscheck
    Gosub Writedata
    P2 = &H03
    Gosub Statusscheck
    Gosub Writecommand
    P2 = &H21
End




Statusscheck:

    P0 = &B00011001

    P2 = &B00000011
    Return

Writedata:
    P0 = &B00010010

Return
Writecommand:
    P0 = &B00011010



Return