───── last edited 39-3722.01 by 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 │
└─────────────────────────────────────────────────────────────────┘