last edited by typewiz on 39-3722.01

AL0 / editor~typewiz

view entry rationale

aqp

view navigator


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

This page contains ancillary content protected by an access code. If you are authorised to view this content, please enter the access code below.


Almanet

This file has been provided free of charge by AlmaNet,
the interconnected digital multimedia almanac.

AlmaNet is a GRID service provided by the Free Knowledge Movement.
All content on AlmaNet is freely available for quotation and reference.

Created by Morton Powell on Tallis