last edited by typewiz on 39-3722.01
AL0 / editor~typewiz
view entry rationale
aqp
view navigator
Title: editor~typewiz
Description: Personal entry for editor typewiz.
Last Edited: 39-3722.01 by typewiz
Path: AL0 / editor-typewiz
This page contains locked content.
Content Length: 189 words
GRID Identifier: https://almanet.cc/alma/AL0/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.
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