LG-GRAMMAR
FILE INFORMATION
FILENAME(S): LG-GRAMMAR
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 1 disk(s)
FILE HASH
f991033f0fc17378ba8dcd150287c5ee2c42e7db6ff53765bbeb0633e64e4751
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-GRAMMAR | PRG | DuncanTwain | 21 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 52 53 48 41 50 45 0D 20 57 4F 52 |. TO RSHAPE. WOR| 00000010: 4C 44 20 5B 52 53 48 41 50 45 5D 0D 20 52 20 22 |LD [RSHAPE]. R "| 00000020: 52 53 48 41 50 45 20 5B 2B 20 5B 4D 4F 56 45 20 |RSHAPE [+ [MOVE | 00000030: 52 53 48 41 50 45 5D 20 5B 54 55 52 4E 20 52 53 |RSHAPE] [TURN RS| 00000040: 48 41 50 45 5D 20 5B 5D 5D 0D 20 52 20 22 4D 4F |HAPE] []]. R "MO| 00000050: 56 45 20 5B 2B 20 5B 46 44 20 31 30 5D 20 5B 46 |VE [+ [FD 10] [F| 00000060: 44 20 33 30 5D 20 5B 46 44 20 35 5D 5D 0D 20 52 |D 30] [FD 5]]. R| 00000070: 20 22 54 55 52 4E 20 5B 2B 20 5B 52 54 20 31 30 | "TURN [+ [RT 10| 00000080: 5D 20 5B 52 54 20 33 30 5D 20 5B 52 54 20 34 35 |] [RT 30] [RT 45| 00000090: 5D 5D 0D 45 4E 44 0D 0D 54 4F 20 50 49 43 4B 52 |]].END..TO PICKR| 000000A0: 41 4E 44 4F 4D 20 3A 4C 49 53 54 0D 20 49 46 20 |ANDOM :LIST. IF | 000000B0: 45 4D 50 54 59 3F 20 3A 4C 49 53 54 20 53 54 4F |EMPTY? :LIST STO| 000000C0: 50 0D 20 4F 50 20 49 54 45 4D 20 28 20 31 20 2B |P. OP ITEM ( 1 +| 000000D0: 20 52 41 4E 44 4F 4D 20 43 4F 55 4E 54 20 3A 4C | RANDOM COUNT :L| 000000E0: 49 53 54 20 29 20 3A 4C 49 53 54 0D 45 4E 44 0D |IST ) :LIST.END.| 000000F0: 0D 54 4F 20 53 45 4C 45 43 54 20 3A 50 41 54 54 |.TO SELECT :PATT| 00000100: 45 52 4E 0D 20 49 46 20 46 49 52 53 54 20 3A 50 |ERN. IF FIRST :P| 00000110: 41 54 54 45 52 4E 20 3D 20 22 2B 20 4F 50 20 50 |ATTERN = "+ OP P| 00000120: 49 43 4B 52 41 4E 44 4F 4D 20 42 46 20 3A 50 41 |ICKRANDOM BF :PA| 00000130: 54 54 45 52 4E 0D 20 4F 50 20 3A 50 41 54 54 45 |TTERN. OP :PATTE| 00000140: 52 4E 0D 45 4E 44 0D 0D 54 4F 20 52 45 50 4C 41 |RN.END..TO REPLA| 00000150: 43 45 20 3A 4F 4C 44 20 3A 4E 45 57 20 3A 4C 49 |CE :OLD :NEW :LI| 00000160: 53 54 0D 20 49 46 20 45 4D 50 54 59 3F 20 3A 4C |ST. IF EMPTY? :L| 00000170: 49 53 54 20 4F 50 20 5B 5D 0D 20 49 46 20 3A 4F |IST OP []. IF :O| 00000180: 4C 44 20 3D 20 46 49 52 53 54 20 3A 4C 49 53 54 |LD = FIRST :LIST| 00000190: 20 4F 50 20 53 45 20 3A 4E 45 57 20 42 46 20 3A | OP SE :NEW BF :| 000001A0: 4C 49 53 54 0D 20 4F 50 20 46 50 55 54 20 46 49 |LIST. OP FPUT FI| 000001B0: 52 53 54 20 3A 4C 49 53 54 20 52 45 50 4C 41 43 |RST :LIST REPLAC| 000001C0: 45 20 3A 4F 4C 44 20 3A 4E 45 57 20 42 46 20 3A |E :OLD :NEW BF :| 000001D0: 4C 49 53 54 0D 45 4E 44 0D 0D 54 4F 20 53 48 4F |LIST.END..TO SHO| 000001E0: 57 20 3A 53 45 0D 20 49 46 20 45 4D 50 54 59 3F |W :SE. IF EMPTY?| 000001F0: 20 3A 53 45 20 50 52 49 4E 54 20 5B 5D 20 53 54 | :SE PRINT [] ST| 00000200: 4F 50 0D 20 28 20 50 52 49 4E 54 31 20 46 49 52 |OP. ( PRINT1 FIR| 00000210: 53 54 20 3A 53 45 20 29 0D 20 49 46 20 42 46 20 |ST :SE ). IF BF | 00000220: 3A 53 45 20 3D 20 5B 5D 20 50 52 49 4E 54 20 5B |:SE = [] PRINT [| 00000230: 5D 20 53 54 4F 50 0D 20 49 46 20 46 49 52 53 54 |] STOP. IF FIRST| 00000240: 20 42 46 20 3A 53 45 20 3D 20 22 2E 20 50 52 49 | BF :SE = ". PRI| 00000250: 4E 54 31 20 22 27 2E 20 27 20 53 48 4F 57 20 42 |NT1 "'. ' SHOW B| 00000260: 46 20 42 46 20 3A 53 45 20 53 54 4F 50 0D 20 50 |F BF :SE STOP. P| 00000270: 52 49 4E 54 31 20 22 27 20 27 20 53 48 4F 57 20 |RINT1 "' ' SHOW | 00000280: 42 46 20 3A 53 45 0D 45 4E 44 0D 0D 54 4F 20 52 |BF :SE.END..TO R| 00000290: 20 3A 4D 41 54 43 48 20 3A 50 41 54 54 45 52 4E | :MATCH :PATTERN| 000002A0: 0D 20 49 46 20 3A 52 54 52 41 43 45 3F 20 53 48 |. IF :RTRACE? SH| 000002B0: 4F 57 20 3A 57 4F 52 4C 44 0D 20 4C 4F 43 41 4C |OW :WORLD. LOCAL| 000002C0: 20 22 41 4E 53 57 45 52 0D 20 4D 41 4B 45 20 22 | "ANSWER. MAKE "| 000002D0: 41 4E 53 57 45 52 20 52 45 50 4C 41 43 45 20 3A |ANSWER REPLACE :| 000002E0: 4D 41 54 43 48 20 28 20 53 45 4C 45 43 54 20 3A |MATCH ( SELECT :| 000002F0: 50 41 54 54 45 52 4E 20 29 20 3A 57 4F 52 4C 44 |PATTERN ) :WORLD| 00000300: 0D 20 49 46 20 3A 57 4F 52 4C 44 20 3D 20 3A 41 |. IF :WORLD = :A| 00000310: 4E 53 57 45 52 20 53 54 4F 50 0D 20 4D 41 4B 45 |NSWER STOP. MAKE| 00000320: 20 22 57 4F 52 4C 44 20 3A 41 4E 53 57 45 52 0D | "WORLD :ANSWER.| 00000330: 20 52 20 3A 4D 41 54 43 48 20 3A 50 41 54 54 45 | R :MATCH :PATTE| 00000340: 52 4E 0D 45 4E 44 0D 0D 54 4F 20 57 4F 52 4C 44 |RN.END..TO WORLD| 00000350: 20 3A 50 41 54 54 45 52 4E 0D 20 4D 41 4B 45 20 | :PATTERN. MAKE | 00000360: 22 57 4F 52 4C 44 20 3A 50 41 54 54 45 52 4E 0D |"WORLD :PATTERN.| 00000370: 45 4E 44 0D 0D 54 4F 20 52 54 52 41 43 45 0D 20 |END..TO RTRACE. | 00000380: 4D 41 4B 45 20 22 52 54 52 41 43 45 3F 20 4E 4F |MAKE "RTRACE? NO| 00000390: 54 20 3A 52 54 52 41 43 45 3F 0D 20 50 52 20 53 |T :RTRACE?. PR S| 000003A0: 45 20 22 52 54 52 41 43 45 20 3A 52 54 52 41 43 |E "RTRACE :RTRAC| 000003B0: 45 3F 0D 45 4E 44 0D 0D 54 4F 20 53 45 4E 54 0D |E?.END..TO SENT.| 000003C0: 20 57 4F 52 4C 44 20 5B 50 41 52 41 47 52 41 50 | WORLD [PARAGRAP| 000003D0: 48 5D 0D 20 52 20 22 50 41 52 41 47 52 41 50 48 |H]. R "PARAGRAPH| 000003E0: 20 5B 2B 20 5B 53 45 4E 54 45 4E 43 45 20 2E 5D | [+ [SENTENCE .]| 000003F0: 20 5B 53 45 4E 54 45 4E 43 45 20 2E 20 50 41 52 | [SENTENCE . PAR| 00000400: 41 47 52 41 50 48 5D 5D 0D 20 52 20 22 53 45 4E |AGRAPH]]. R "SEN| 00000410: 54 45 4E 43 45 20 5B 2B 20 5B 4D 4E 50 20 49 2E |TENCE [+ [MNP I.| 00000420: 56 45 52 42 5D 20 5B 4D 4E 50 20 49 2E 56 45 52 |VERB] [MNP I.VER| 00000430: 42 20 41 44 56 45 52 42 5D 20 5B 4D 4E 50 20 54 |B ADVERB] [MNP T| 00000440: 2E 56 45 52 42 20 4D 4E 50 5D 20 5B 4D 4E 50 20 |.VERB MNP] [MNP | 00000450: 54 2E 56 45 52 42 20 4D 4E 50 20 41 44 56 45 52 |T.VERB MNP ADVER| 00000460: 42 5D 5D 0D 20 52 20 22 4D 4E 50 20 5B 2B 20 4E |B]]. R "MNP [+ N| 00000470: 50 20 5B 54 48 45 20 41 44 4A 45 43 54 49 56 45 |P [THE ADJECTIVE| 00000480: 20 43 2E 4E 4F 55 4E 5D 5D 0D 20 52 20 22 4E 50 | C.NOUN]]. R "NP| 00000490: 20 5B 2B 20 50 2E 4E 4F 55 4E 20 5B 54 48 45 20 | [+ P.NOUN [THE | 000004A0: 43 2E 4E 4F 55 4E 5D 5D 0D 20 52 20 22 50 2E 4E |C.NOUN]]. R "P.N| 000004B0: 4F 55 4E 20 5B 2B 20 4C 41 55 52 41 20 42 49 4C |OUN [+ LAURA BIL| 000004C0: 4C 59 20 43 4C 41 52 41 20 4A 4F 45 59 5D 0D 20 |LY CLARA JOEY]. | 000004D0: 52 20 22 43 2E 4E 4F 55 4E 20 5B 2B 20 48 4F 55 |R "C.NOUN [+ HOU| 000004E0: 53 45 20 44 4F 4F 52 20 44 4F 47 20 43 41 54 20 |SE DOOR DOG CAT | 000004F0: 54 41 42 4C 45 20 49 44 45 41 5D 0D 20 52 20 22 |TABLE IDEA]. R "| 00000500: 56 45 52 42 20 5B 2B 20 54 2E 56 45 52 42 20 49 |VERB [+ T.VERB I| 00000510: 2E 56 45 52 42 5D 0D 20 52 20 22 54 2E 56 45 52 |.VERB]. R "T.VER| 00000520: 42 20 5B 2B 20 43 48 41 53 45 53 20 53 45 45 53 |B [+ CHASES SEES| 00000530: 20 5B 50 4C 41 59 53 20 57 49 54 48 5D 5D 0D 20 | [PLAYS WITH]]. | 00000540: 52 20 22 49 2E 56 45 52 42 20 5B 2B 20 53 4C 45 |R "I.VERB [+ SLE| 00000550: 45 50 53 20 52 45 41 44 53 20 52 55 4E 53 20 53 |EPS READS RUNS S| 00000560: 4C 45 45 50 53 5D 0D 20 52 20 22 41 44 56 45 52 |LEEPS]. R "ADVER| 00000570: 42 20 5B 2B 20 51 55 49 43 4B 4C 59 20 53 4C 45 |B [+ QUICKLY SLE| 00000580: 45 50 49 4C 59 20 53 4C 4F 57 4C 59 20 46 55 52 |EPILY SLOWLY FUR| 00000590: 49 4F 55 53 4C 59 5D 0D 20 52 20 22 41 44 4A 45 |IOUSLY]. R "ADJE| 000005A0: 43 54 49 56 45 20 5B 2B 20 43 4F 4C 4F 52 4C 45 |CTIVE [+ COLORLE| 000005B0: 53 53 20 42 49 47 20 52 45 44 20 59 45 4C 4C 4F |SS BIG RED YELLO| 000005C0: 57 20 53 4D 41 4C 4C 20 47 52 45 45 4E 5D 0D 20 |W SMALL GREEN]. | 000005D0: 53 48 4F 57 20 3A 57 4F 52 4C 44 0D 45 4E 44 0D |SHOW :WORLD.END.| 000005E0: 0D 54 4F 20 50 4F 53 54 43 41 52 44 0D 20 57 4F |.TO POSTCARD. WO| 000005F0: 52 4C 44 20 5B 50 4F 53 54 43 41 52 44 5D 0D 20 |RLD [POSTCARD]. | 00000600: 52 20 22 50 4F 53 54 43 41 52 44 20 5B 47 52 45 |R "POSTCARD [GRE| 00000610: 45 54 49 4E 47 20 42 4F 44 59 20 43 4C 4F 53 49 |ETING BODY CLOSI| 00000620: 4E 47 5D 0D 20 52 20 22 47 52 45 45 54 49 4E 47 |NG]. R "GREETING| 00000630: 20 5B 2B 20 5B 44 45 41 52 20 4A 55 4E 45 2C 5D | [+ [DEAR JUNE,]| 00000640: 20 5B 44 45 41 52 20 46 52 45 44 2C 5D 20 5B 47 | [DEAR FRED,] [G| 00000650: 45 4E 54 4C 45 4D 45 4E 3A 5D 20 5B 44 45 41 52 |ENTLEMEN:] [DEAR| 00000660: 20 46 4F 4C 4B 53 2C 5D 5D 0D 20 52 20 22 42 4F | FOLKS,]]. R "BO| 00000670: 44 59 20 5B 53 45 4E 54 45 4E 43 45 20 53 45 4E |DY [SENTENCE SEN| 00000680: 54 45 4E 43 45 20 53 45 4E 54 45 4E 43 45 5D 0D |TENCE SENTENCE].| 00000690: 20 52 20 22 43 4C 4F 53 49 4E 47 20 5B 2B 20 5B | R "CLOSING [+ [| 000006A0: 53 45 45 20 59 4F 55 20 53 4F 4F 4E 2C 20 46 52 |SEE YOU SOON, FR| 000006B0: 45 44 5D 20 5B 57 49 53 48 49 4E 47 20 59 4F 55 |ED] [WISHING YOU| 000006C0: 20 57 45 52 45 20 48 45 52 45 2C 20 4A 4F 45 59 | WERE HERE, JOEY| 000006D0: 5D 20 5B 53 49 4E 43 45 52 45 4C 59 2C 20 4C 49 |] [SINCERELY, LI| 000006E0: 4C 41 48 5D 20 5B 2D 2D 41 55 52 45 4C 49 41 5D |LAH] [--AURELIA]| 000006F0: 5D 0D 20 52 20 22 53 45 4E 54 45 4E 43 45 20 5B |]. R "SENTENCE [| 00000700: 2B 20 5B 53 55 52 46 27 53 20 55 50 21 5D 20 5B |+ [SURF'S UP!] [| 00000710: 54 48 45 20 57 41 54 45 52 27 53 20 46 55 4E 2E |THE WATER'S FUN.| 00000720: 5D 20 5B 49 54 20 52 41 49 4E 53 20 41 20 4C 4F |] [IT RAINS A LO| 00000730: 54 2E 5D 20 5B 49 54 27 53 20 4C 4F 54 53 20 4F |T.] [IT'S LOTS O| 00000740: 46 20 46 55 4E 2E 5D 20 5B 44 4F 4E 27 54 20 46 |F FUN.] [DON'T F| 00000750: 4F 52 47 45 54 20 54 4F 20 57 41 54 45 52 20 54 |ORGET TO WATER T| 00000760: 48 45 20 50 4C 41 4E 54 53 2E 5D 5D 0D 20 53 48 |HE PLANTS.]]. SH| 00000770: 4F 57 20 3A 57 4F 52 4C 44 0D 45 4E 44 0D 0D 54 |OW :WORLD.END..T| 00000780: 4F 20 48 45 4C 50 0D 20 4E 44 0D 20 50 52 20 5B |O HELP. ND. PR [| 00000790: 54 48 49 53 20 49 53 20 41 20 47 45 4E 45 52 41 |THIS IS A GENERA| 000007A0: 54 49 56 45 20 47 52 41 4D 4D 41 52 20 50 52 4F |TIVE GRAMMAR PRO| 000007B0: 47 52 41 4D 2E 5D 0D 20 50 52 20 5B 5D 0D 20 50 |GRAM.]. PR []. P| 000007C0: 52 20 5B 54 59 50 45 5D 0D 20 50 52 20 5B 50 4F |R [TYPE]. PR [PO| 000007D0: 20 50 4F 53 54 43 41 52 44 5D 0D 20 50 52 20 5B | POSTCARD]. PR [| 000007E0: 50 4F 20 53 45 4E 54 5D 0D 20 50 52 20 5B 41 4E |PO SENT]. PR [AN| 000007F0: 44 20 54 52 59 20 52 55 4E 4E 49 4E 47 20 54 48 |D TRY RUNNING TH| 00000800: 4F 53 45 20 50 52 4F 43 45 44 55 52 45 53 5D 0D |OSE PROCEDURES].| 00000810: 20 50 52 20 5B 5D 0D 20 50 52 20 5B 54 59 50 45 | PR []. PR [TYPE| 00000820: 20 52 54 52 41 43 45 20 54 4F 20 53 45 45 20 41 | RTRACE TO SEE A| 00000830: 20 54 52 41 43 45 20 4F 46 20 54 48 45 5D 0D 20 | TRACE OF THE]. | 00000840: 50 52 20 5B 50 52 4F 43 45 53 53 2E 20 54 59 50 |PR [PROCESS. TYP| 00000850: 45 20 52 54 52 41 43 45 20 41 47 41 49 4E 20 54 |E RTRACE AGAIN T| 00000860: 4F 20 53 54 4F 50 5D 0D 20 50 52 20 5B 54 48 45 |O STOP]. PR [THE| 00000870: 20 54 52 41 43 49 4E 47 2E 5D 0D 45 4E 44 0D 0D | TRACING.].END..| 00000880: 54 4F 20 52 54 52 41 43 45 3F 0D 20 4D 41 4B 45 |TO RTRACE?. MAKE| 00000890: 20 22 52 54 52 41 43 45 3F 20 4E 4F 54 20 3A 52 | "RTRACE? NOT :R| 000008A0: 54 52 41 43 45 0D 20 50 52 20 53 45 20 22 52 54 |TRACE. PR SE "RT| 000008B0: 52 41 43 45 3F 20 3A 52 54 52 41 43 45 3F 0D 45 |RACE? :RTRACE?.E| 000008C0: 4E 44 0D 0D 54 4F 20 53 45 54 55 50 2E 47 52 41 |ND..TO SETUP.GRA| 000008D0: 4D 4D 41 52 0D 20 4D 41 4B 45 20 22 52 54 52 41 |MMAR. MAKE "RTRA| 000008E0: 43 45 3F 20 22 46 41 4C 53 45 0D 20 52 41 4E 44 |CE? "FALSE. RAND| 000008F0: 4F 4D 49 5A 45 0D 20 48 45 4C 50 0D 45 4E 44 0D |OMIZE. HELP.END.| 00000900: 0D 4D 41 4B 45 20 22 52 54 52 41 43 45 3F 20 22 |.MAKE "RTRACE? "| 00000910: 46 41 4C 53 45 0D 4D 41 4B 45 20 22 53 54 41 52 |FALSE.MAKE "STAR| 00000920: 54 55 50 20 5B 53 45 54 55 50 2E 47 52 41 4D 4D |TUP [SETUP.GRAMM| 00000930: 41 52 5D 0D |AR]. |
. TO RSHAPE. WORLD [RSHAPE]. R "RSHAPE [ + [MOVE RSHAPE] [TURN RSHAPE] []]. R "MO VE [+ [FD 10] [FD 30] [FD 5]]. R "TURN [ + [RT 10] [RT 30] [RT 45]].END..TO PICKR ANDOM :LIST. IF EMPTY? :LIST STOP. OP IT EM ( 1 + RANDOM COUNT :LIST ) :LIST.END. .TO SELECT :PATTERN. IF FIRST :PATTERN = "+ OP PICKRANDOM BF :PATTERN. OP :PATTE RN.END..TO REPLACE :OLD :NEW :LIST. IF E MPTY? :LIST OP []. IF :OLD = FIRST :LIST OP SE :NEW BF :LIST. OP FPUT FIRST :LIS T REPLACE :OLD :NEW BF :LIST.END..TO SHO W :SE. IF EMPTY? :SE PRINT [] STOP. ( PR INT1 FIRST :SE ). IF BF :SE = [] PRINT [ ] STOP. IF FIRST BF :SE = ". PRINT1 "'. ' SHOW BF BF :SE STOP. PRINT1 "' ' SHOW BF :SE.END..TO R :MATCH :PATTERN. IF :RT RACE? SHOW :WORLD. LOCAL "ANSWER. MAKE " ANSWER REPLACE :MATCH ( SELECT :PATTERN ) :WORLD. IF :WORLD = :ANSWER STOP. MAKE "WORLD :ANSWER. R :MATCH :PATTERN.END.. TO WORLD :PATTERN. MAKE "WORLD :PATTERN. END..TO RTRACE. MAKE "RTRACE? NOT :RTRAC E?. PR SE "RTRACE :RTRACE?.END..TO SENT. WORLD [PARAGRAPH]. R "PARAGRAPH [+ [SEN TENCE .] [SENTENCE . PARAGRAPH]]. R "SEN TENCE [+ [MNP I.VERB] [MNP I.VERB ADVERB ] [MNP T.VERB MNP] [MNP T.VERB MNP ADVER B]]. R "MNP [+ NP [THE ADJECTIVE C.NOUN] ]. R "NP [+ P.NOUN [THE C.NOUN]]. R "P.N OUN [+ LAURA BILLY CLARA JOEY]. R "C.NOU N [+ HOUSE DOOR DOG CAT TABLE IDEA]. R " VERB [+ T.VERB I.VERB]. R "T.VERB [+ CHA SES SEES [PLAYS WITH]]. R "I.VERB [+ SLE EPS READS RUNS SLEEPS]. R "ADVERB [+ QUI CKLY SLEEPILY SLOWLY FURIOUSLY]. R "ADJE CTIVE [+ COLORLESS BIG RED YELLOW SMALL GREEN]. SHOW :WORLD.END..TO POSTCARD. WO RLD [POSTCARD]. R "POSTCARD [GREETING BO DY CLOSING]. R "GREETING [+ [DEAR JUNE,] [DEAR FRED,] [GENTLEMEN:] [DEAR FOLKS,] ]. R "BODY [SENTENCE SENTENCE SENTENCE]. R "CLOSING [+ [SEE YOU SOON, FRED] [WIS HING YOU WERE HERE, JOEY] [SINCERELY, LI LAH] [--AURELIA]]. R "SENTENCE [+ [SURF' S UP!] [THE WATER'S FUN.] [IT RAINS A LO T.] [IT'S LOTS OF FUN.] [DON'T FORGET TO WATER THE PLANTS.]]. SHOW :WORLD.END..T O HELP. ND. PR [THIS IS A GENERATIVE GRA MMAR PROGRAM.]. PR []. PR [TYPE]. PR [PO POSTCARD]. PR [PO SENT]. PR [AND TRY RU NNING THOSE PROCEDURES]. PR []. PR [TYPE RTRACE TO SEE A TRACE OF THE]. PR [PROC ESS. TYPE RTRACE AGAIN TO STOP]. PR [THE TRACING.].END..TO RTRACE?. MAKE "RTRACE ? NOT :RTRACE. PR SE "RTRACE? :RTRACE?.E ND..TO SETUP.GRAMMAR. MAKE "RTRACE? "FAL SE. RANDOMIZE. HELP.END..MAKE "RTRACE? " FALSE.MAKE "STARTUP [SETUP.GRAMMAR].
> CLICK IMAGE PREVIEW FOR FULL MODAL