; sample for maskedit use (thanks to murray).
 ;
 ; Run under PILI version 101c-11.18

 pili_header:
    JR Start                   ; jump to start of prog
    DL pili_bottom-pili_header ; /* size of binary image */
    DB "PILI BINARY MAIN "     ; header for beta, main application
    DB 0                       ; null terminate

    INCLUDE fncall.inc

 Start:
    FNCALL08    ClearScreen, 0

    RLD08       sto0, 1
    RLD08       sto1, 1
    FNCALL08    Locate, sto0        ; Locate the cursor
    FNCALL      OutText, test       ; Display the text

    RLD08       sto0, 1
    RLD08       sto1, 1
    FNCALL08    Locate, sto0        ; Re-locate the cursor
    FNCALL08    DispCursor, 1

    RLD16       sto1, 0h            ; All keys allowed
    RLD16       sto2, 0             ; Default editing
    RLD16       sto3, 14            ; Size of text
    RLD16       sto4, 80            ; Always 80, reserved for future use
    RLD32       sto5, 0             ; Forbidden characters
    RLD32       sto6, test          ; Text to edit
    FNCALL08    MaskEdit, sto1, sto7

    FNCALL08    ClearScreen, 0
    RLD08       sto0, 1
    RLD08       sto1, 1
    FNCALL08    Locate, sto0        ; Locate the cursor
    FNCALL      OutText, test       ; Display the new text

    FNCALL      Wait05, 2           ; Wait a while
    EXIT

 test:
    db "This is a test"
    db 0

 pili_bottom:
    END