mirror of
https://github.com/historicalsource/spellbreaker
synced 2024-05-02 09:29:19 +03:00
31 lines
631 B
Plaintext
31 lines
631 B
Plaintext
|
"RECORD for
|
||
|
MAGE
|
||
|
(c) Copyright 1985 Infocom, Inc. All Rights Reserved."
|
||
|
|
||
|
<SYNTAX \#RANDOM OBJECT = V-$RANDOM>
|
||
|
<SYNTAX \#COMMAND = V-$COMMAND>
|
||
|
<SYNTAX \#RECORD = V-$RECORD>
|
||
|
<SYNTAX \#UNRECORD = V-$UNRECORD>
|
||
|
|
||
|
<ROUTINE V-$COMMAND ()
|
||
|
<DIRIN 1>
|
||
|
<RTRUE>>
|
||
|
|
||
|
<ROUTINE V-$RANDOM ()
|
||
|
<COND (<NOT <EQUAL? ,PRSO ,INTNUM>>
|
||
|
<TELL "Illegal call to #RANDOM." CR>)
|
||
|
(T
|
||
|
<RANDOM <- 0 ,P-NUMBER>>
|
||
|
<RTRUE>)>>
|
||
|
|
||
|
<CONSTANT D-RECORD-ON 4>
|
||
|
<CONSTANT D-RECORD-OFF -4>
|
||
|
|
||
|
<ROUTINE V-$RECORD ()
|
||
|
<DIROUT ,D-RECORD-ON> ;"all READS and INPUTS get sent to command file"
|
||
|
<RTRUE>>
|
||
|
|
||
|
<ROUTINE V-$UNRECORD ()
|
||
|
<DIROUT ,D-RECORD-OFF>
|
||
|
<RTRUE>>
|