mirror of
https://github.com/kennethreitz/elizagen.org.git
synced 2026-06-21 15:10:57 +00:00
Rupert Lane
47 lines
2.1 KiB
Plaintext
47 lines
2.1 KiB
Plaintext
R **** LETTER TEST CODE ****
|
|
NORMAL MODE IS INTEGER
|
|
PRINT COMMENT $TESTING LETTER$
|
|
WHENEVER LETTER.($012345$) .NE. 141414141414K
|
|
PRINT COMMENT $LETTER.(012345) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($6789X=$) .NE. 141414140401K
|
|
PRINT COMMENT $LETTER.(6789X=) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($'XXX+A$) .NE. 160404040304K
|
|
PRINT COMMENT $LETTER.('XXX+A) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($BCDEFG$) .NE. 040404040404K
|
|
PRINT COMMENT $LETTER.(BCDEFG) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($HIX.)X$) .NE. 040404050604K
|
|
PRINT COMMENT $LETTER.(HIX.)X) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($XX-JKL$) .NE. 040402040404K
|
|
PRINT COMMENT $LETTER.(XX-JKL) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($MNOPQR$) .NE. 040404040404K
|
|
PRINT COMMENT $LETTER.(MNOPQR) FAILED$
|
|
END OF CONDITIONAL
|
|
R BELOW WILL SET TEST TO BE "$ "
|
|
TEST = -$=$
|
|
WHENEVER LETTER.(TEST) .NE. 071111111111K
|
|
PRINT COMMENT $LETTER.(dollar) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($******$) .NE. 101010101010K
|
|
PRINT COMMENT $LETTER.(******) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($ /STUV$) .NE. 111304040404K
|
|
PRINT COMMENT $LETTER.( /STUV) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($WXYZX,$) .NE. 040404040415K
|
|
PRINT COMMENT $LETTER.(WXYZX,) FAILED$
|
|
END OF CONDITIONAL
|
|
WHENEVER LETTER.($(XXX00$) .NE. 120404041414K
|
|
PRINT COMMENT $LETTER.((XXX00) FAILED$
|
|
END OF CONDITIONAL
|
|
R The below will allow the next program in the runcom
|
|
R chain to execute. Remove if you want it to remain
|
|
R in core for analysis.
|
|
CHNCOM.(0)
|
|
END OF PROGRAM
|