*BOXOFF -  Normal cursor pad and PAL structures

home          macrobegin begline
cursorup      macrobegin cursorup
pgup          macrobegin pageup
cursorright   macrobegin cursorright
pgdn          macrobegin pagedown
cursordown    macrobegin cursordown
end           macrobegin endline
cursorleft    macrobegin cursorleft
grey+         macrobegin "+"
grey-         macrobegin "-"
grey*         macrobegin "*"

@c  macro_begin end_line return "SWITCH" return "  CASE :" return &
    "OTHERWISE:" return cursor_left cursor_left "ENDSWITCH" return &
    cursor_up cursor_up cursor_up end_line cursor_left

@f  macro_begin end_line return "FOR" return "  FROM  TO  STEP" &
    return cursor_left cursor_left "ENDFOR" return cursor_up cursor_up &
    cursor_up end_line cursor_right

@h  macro_begin ";=========================================================================" return

@i  macro_begin end_line return "IF  THEN" return "  ELSE" return &
    cursor_left cursor_left "ENDIF" return cursor_up cursor_up cursor_up &
    word_right cursor_left

@p  macro_begin end_line return beg_line &
    ";=========================================================================" &
    return "PROC ()" return "  PRIVATE" return beg_line "ENDPROC" &
    return return "WRITELIB "" "" " return "RELEASE PROCS ALL" return &
    cursor_up cursor_up cursor_up cursor_up cursor_up cursor_up end_line &
    cursor_left cursor_left

@q  macro_begin end_line return "QUERY" return "ENDQUERY" return &
    cursor_up beg_line return return cursor_up

@r  macro_begin end_line return "RELEASE PROCS VARS ALL" return &
    cursor_up word_right

@s  macro_begin end_line return "SCAN  FOR" return "ENDSCAN" return &
    cursor_up cursor_up word_right cursor_left

@w  macro_begin end_line return "WHILE" return "ENDWHILE" return &
    cursor_up cursor_up end_line cursor_right

@y  macro_begin end_line return "STYLE BLINK INTENSE REVERSE ;NORMAL" return &
    cursor_up word_right


