58 lines
2.0 KiB
Plaintext
58 lines
2.0 KiB
Plaintext
<FLAGS-AND-DEFAULTS (("ONE-BYTE-PARTS-OF-SPEECH" %<>)("IN-ZILCH" T)(
|
|
"WORD-FLAGS-IN-TABLE" T)) ()>
|
|
|
|
<ZZPACKAGE "REDS">
|
|
<ENTRY RED-BE-FORM RED-BE RED-NOT RED-SNBN RED-SNBA RED-SNBP RED-SNBAP
|
|
RED-CANDO>
|
|
<INCLUDE "BASEDEFS" "FIND" "PBITDEFS" "PDEFS">
|
|
<USE "NEWSTRUC" "PARSER" "PMEM" "PSTACK">
|
|
<FILE-FLAGS MDL-ZIL?>
|
|
<BEGIN-SEGMENT 0>
|
|
<NEW-ADD-WORD "AM" TOBE <> <ORB ,FIRST-PERSON ,PRESENT-TENSE>>
|
|
<NEW-ADD-WORD "ARE" TOBE <> <ORB ,FIRST-PERSON ,SECOND-PERSON ,THIRD-PERSON ,
|
|
PRESENT-TENSE ,PLURAL-FLAG>>
|
|
<NEW-ADD-WORD "IS" TOBE <> <ORB ,THIRD-PERSON ,PRESENT-TENSE>>
|
|
<NEW-ADD-WORD "WAS" TOBE <> <ORB ,FIRST-PERSON ,THIRD-PERSON ,PAST-TENSE>>
|
|
<NEW-ADD-WORD "WERE" TOBE <> <ORB ,FIRST-PERSON ,SECOND-PERSON ,THIRD-PERSON ,
|
|
PAST-TENSE ,PLURAL-FLAG>>
|
|
<NEW-ADD-WORD "WILL" TOBE <> ,FUTURE-TENSE>
|
|
<NEW-ADD-WORD "SHALL" TOBE <> ,FUTURE-TENSE>
|
|
<ADD-WORD "HOW" QWORD>
|
|
<ADD-WORD "WHAT" QWORD>
|
|
<ADD-WORD "WHEN" QWORD>
|
|
<ADD-WORD "WHERE" QWORD>
|
|
<ADD-WORD "WHO" QWORD>
|
|
<ADD-WORD "WHY" QWORD>
|
|
<DEFINE-ROUTINE RED-BE-FORM>
|
|
<DEFINE-ROUTINE EXCH-4-5-Q>
|
|
<DEFINE-ROUTINE RED-SBNN>
|
|
<DEFINE-ROUTINE RED-SNBN>
|
|
<DEFINE-ROUTINE DETERMINE-SUBJ>
|
|
<DEFINE-ROUTINE RED-SBNA>
|
|
<DEFINE-ROUTINE RED-SNBA>
|
|
<OBJECT INTADJ (LOC GLOBAL-OBJECTS) (DESC "adjective") (SYNONYM L.G)>
|
|
<DEFINE-ROUTINE RED-SBNP>
|
|
<DEFINE-ROUTINE RED-SNBP>
|
|
<DEFINE-ROUTINE RED-SNBAP>
|
|
<DEFINE-ROUTINE P-PP-OBJ>
|
|
<DEFINE-ROUTINE P-PP-PREP>
|
|
<OBJECT INTPP (LOC GLOBAL-OBJECTS) (DESC "prep phrase") (SYNONYM L.G)>
|
|
<DEFINE-ROUTINE RED-SQBN>
|
|
<DEFINE-ROUTINE RED-BE>
|
|
<DEFINE-ROUTINE RED-NOT>
|
|
<NEW-ADD-WORD "CAN" CANDO <>>
|
|
<NEW-ADD-WORD "COULD" CANDO <>>
|
|
<NEW-ADD-WORD "DO" CANDO <>>
|
|
<NEW-ADD-WORD "DOES" CANDO <VOC "DO"> <ORB ,THIRD-PERSON>>
|
|
<NEW-ADD-WORD "DID" CANDO <VOC "DO"> ,PAST-TENSE>
|
|
<NEW-ADD-WORD "MAY" CANDO <>>
|
|
<NEW-ADD-WORD "MIGHT" CANDO <>>
|
|
<NEW-ADD-WORD "WILL" CANDO <>>
|
|
<NEW-ADD-WORD "SHALL" CANDO <VOC "WILL"> ,FUTURE-TENSE>
|
|
<NEW-ADD-WORD "WOULD" CANDO <>>
|
|
<NEW-ADD-WORD "SHOULD" CANDO <>>
|
|
<NEW-ADD-WORD "MUST" CANDO <>>
|
|
<DEFINE-ROUTINE RED-CANDO>
|
|
<DEFINE-ROUTINE INSERT-WHAT>
|
|
<END-SEGMENT>
|
|
<ENDPACKAGE> |