editor~typewiz

We're not out here to write a mediocre encyclopaedia.

In case you ever forget your password, use this.

SEQD
    INIT_YEAR
    CALC_PART1
    CALC_PART2
    COMBINE
    OUTPUT
SEQD

PTIN INIT_YEAR
    MOVE RTNL-DATE-YEAR Y  ; Initialize Y with the current year
    INIT X 100             ; Initialize X with 100
PEND

PTIN CALC_PART1
    MOVE "TYPE" ECHO  ; Put "TYPE" into ECHO
    LIFT ECHO         ; Lift "TYPE" onto PILE
PEND

PTIN CALC_PART2
    DIVV X Y          ; Divide 100 by current year
    INCR X            ; Increment X
    MULT X Y U        ; Multiply X by current year, store in U
    SUBV U X          ; Subtract X from U
    DIVV U Y          ; Divide U by current year
    MULT U Y V        ; Multiply U by current year, store in V
    SUBV U V          ; Subtract V from U
    MULT U -1 U       ; Multiply U by -1
    MOVE U ECHO       ; Move U to ECHO
PEND

PTIN COMBINE
    DROP ECHO         ; Drop "TYPE" from PILE to ECHO
    MOVE ECHO ECHO    ; Combine "TYPE" and U in ECHO
    MOVE Y ECHO       ; Append current year to ECHO
PEND

PTIN OUTPUT
    LIFT ECHO         ; Lift the result onto PILE
    DROP TTY0         ; Output the result to the terminal
PEND

PSTR  ; Start executing patterns