15 lines
219 B
Plaintext
15 lines
219 B
Plaintext
|
|
||
|
|
|
||
|
|
.FUNCT V-FLUSH
|
||
|
|
EQUAL? PRSO,INTNUM \?CND1
|
||
|
|
EQUAL? P-NUMBER,33 \?CND1
|
||
|
|
GETB 0,18
|
||
|
|
ZERO? STACK /?THN6
|
||
|
|
ZERO? P-VMERGE /?CND1
|
||
|
|
?THN6: CALL GOTO,P-NMERGE
|
||
|
|
CALL V-LOOK
|
||
|
|
RTRUE
|
||
|
|
?CND1: PRINTR "You can't flush that."
|
||
|
|
|
||
|
|
.ENDI
|