mirror of
https://github.com/historicalsource/seastalker.git
synced 2026-01-12 07:26:49 +00:00
41 lines
486 B
Plaintext
41 lines
486 B
Plaintext
|
|
|
|
.FUNCT PRINTT,O
|
|
EQUAL? O,TURN \?ELS5
|
|
PRINTI " "
|
|
PRINTN P-NUMBER
|
|
PRINTI " turns"
|
|
RTRUE
|
|
?ELS5: CALL THE?,O
|
|
PRINTI " "
|
|
PRINTD O
|
|
RTRUE
|
|
|
|
|
|
.FUNCT PRINTA,O
|
|
FSET? O,PERSON /?CND1
|
|
FSET? O,NARTICLEBIT \?ELS3
|
|
JUMP ?CND1
|
|
?ELS3: FSET? O,VOWELBIT \?ELS7
|
|
PRINTI "an "
|
|
JUMP ?CND1
|
|
?ELS7: PRINTI "a "
|
|
?CND1: PRINTD O
|
|
RTRUE
|
|
|
|
|
|
.FUNCT PICK-ONE,FROB
|
|
GET FROB,0
|
|
RANDOM STACK
|
|
GET FROB,STACK
|
|
RSTACK
|
|
|
|
|
|
.FUNCT SPLIT-SCREEN?
|
|
GETB 0,1
|
|
BAND STACK,32
|
|
ZERO? STACK /FALSE
|
|
RTRUE
|
|
|
|
.ENDI
|