/ RISCWORLD 3 / RISCWORLD_VOL3.iso / SOFTWARE / AGM / Parser

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 20 | 50 61 72 73 65 72 0d 00 |..... > |Parser..|
|00000010| 14 05 3a 0d 00 1e 0f f2 | 69 6e 69 74 69 61 6c 69 |..:.....|initiali|
|00000020| 73 65 0d 00 28 05 f5 0d | 00 32 05 f5 0d 00 3c 13 |se..(...|.2....<.|
|00000030| 63 6f 6d 6d 61 6e 64 24 | 3d a4 69 6e 70 75 74 0d |command$|=.input.|
|00000040| 00 46 11 fd 20 63 6f 6d | 6d 61 6e 64 24 3e 22 22 |.F.. com|mand$>""|
|00000050| 0d 00 50 14 f2 70 61 72 | 73 65 28 63 6f 6d 6d 61 |..P..par|se(comma|
|00000060| 6e 64 24 29 0d 00 5a 68 | f1 20 22 56 65 72 62 3d |nd$)..Zh|. "Verb=|
|00000070| 22 3b 76 65 72 25 2c 22 | 4e 6f 75 6e 31 3d 22 3b |";ver%,"|Noun1=";|
|00000080| 6e 6f 31 25 2c 22 4e 6f | 75 6e 32 3d 22 3b 6e 6f |no1%,"No|un2=";no|
|00000090| 32 25 2c 22 50 72 65 70 | 2e 3d 22 3b 70 72 65 25 |2%,"Prep|.=";pre%|
|000000a0| 2c 22 41 64 6a 2e 31 3d | 22 3b 61 64 31 25 2c 22 |,"Adj.1=|";ad1%,"|
|000000b0| 41 64 6a 2e 32 3d 22 3b | 61 64 32 25 2c 22 41 64 |Adj.2=";|ad2%,"Ad|
|000000c0| 76 65 72 62 3d 22 3b 61 | 64 76 25 27 0d 00 64 12 |verb=";a|dv%'..d.|
|000000d0| fd 20 63 6f 6d 6d 61 6e | 64 24 3d 22 2a 22 0d 00 |. comman|d$="*"..|
|000000e0| 6e 08 ef 20 32 36 0d 00 | 78 0c f1 20 8a 30 2c 33 |n.. 26..|x.. .0,3|
|000000f0| 30 29 0d 00 82 05 e0 0d | 00 8c 05 3a 0d 00 96 11 |0)......|...:....|
|00000100| dd 20 f2 69 6e 69 74 69 | 61 6c 69 73 65 0d 00 a0 |. .initi|alise...|
|00000110| 08 eb 20 31 32 0d 00 aa | 0f f3 20 6e 75 6d 76 65 |.. 12...|.. numve|
|00000120| 72 62 73 25 0d 00 b4 27 | de 20 76 65 72 62 24 28 |rbs%...'|. verb$(|
|00000130| 6e 75 6d 76 65 72 62 73 | 25 29 2c 76 65 72 62 25 |numverbs|%),verb%|
|00000140| 28 6e 75 6d 76 65 72 62 | 73 25 29 0d 00 be 0d f1 |(numverb|s%).....|
|00000150| 20 22 56 65 72 62 73 22 | 0d 00 c8 16 e3 20 49 25 | "Verbs"|..... I%|
|00000160| 3d 30 20 b8 20 6e 75 6d | 76 65 72 62 73 25 0d 00 |=0 . num|verbs%..|
|00000170| d2 19 f3 20 76 65 72 62 | 24 28 49 25 29 2c 76 65 |... verb|$(I%),ve|
|00000180| 72 62 25 28 49 25 29 0d | 00 dc 18 f1 20 8a 49 25 |rb%(I%).|.... .I%|
|00000190| 2a 31 30 29 20 76 65 72 | 62 24 28 49 25 29 3b 0d |*10) ver|b$(I%);.|
|000001a0| 00 e6 05 ed 0d 00 f0 0f | f3 20 6e 75 6d 6e 6f 75 |........|. numnou|
|000001b0| 6e 73 25 0d 00 fa 27 de | 20 6e 6f 75 6e 24 28 6e |ns%...'.| noun$(n|
|000001c0| 75 6d 6e 6f 75 6e 73 25 | 29 2c 6e 6f 75 6e 25 28 |umnouns%|),noun%(|
|000001d0| 6e 75 6d 6e 6f 75 6e 73 | 25 29 0d 01 04 0e f1 27 |numnouns|%).....'|
|000001e0| 27 22 4e 6f 75 6e 73 22 | 0d 01 0e 16 e3 20 49 25 |'"Nouns"|..... I%|
|000001f0| 3d 30 20 b8 20 6e 75 6d | 6e 6f 75 6e 73 25 0d 01 |=0 . num|nouns%..|
|00000200| 18 19 f3 20 6e 6f 75 6e | 24 28 49 25 29 2c 6e 6f |... noun|$(I%),no|
|00000210| 75 6e 25 28 49 25 29 0d | 01 22 18 f1 20 8a 49 25 |un%(I%).|.".. .I%|
|00000220| 2a 31 30 29 20 6e 6f 75 | 6e 24 28 49 25 29 3b 0d |*10) nou|n$(I%);.|
|00000230| 01 2c 05 ed 0d 01 36 0f | f3 20 6e 75 6d 70 72 65 |.,....6.|. numpre|
|00000240| 70 73 25 0d 01 40 27 de | 20 70 72 65 70 24 28 6e |ps%..@'.| prep$(n|
|00000250| 75 6d 70 72 65 70 73 25 | 29 2c 70 72 65 70 25 28 |umpreps%|),prep%(|
|00000260| 6e 75 6d 70 72 65 70 73 | 25 29 0d 01 4a 15 f1 27 |numpreps|%)..J..'|
|00000270| 27 22 50 72 65 70 6f 73 | 69 74 69 6f 6e 73 22 0d |'"Prepos|itions".|
|00000280| 01 54 16 e3 20 49 25 3d | 30 20 b8 20 6e 75 6d 70 |.T.. I%=|0 . nump|
|00000290| 72 65 70 73 25 0d 01 5e | 19 f3 20 70 72 65 70 24 |reps%..^|.. prep$|
|000002a0| 28 49 25 29 2c 70 72 65 | 70 25 28 49 25 29 0d 01 |(I%),pre|p%(I%)..|
|000002b0| 68 18 f1 20 8a 49 25 2a | 31 30 29 20 70 72 65 70 |h.. .I%*|10) prep|
|000002c0| 24 28 49 25 29 3b 0d 01 | 72 05 ed 0d 01 7c 0f f3 |$(I%);..|r....|..|
|000002d0| 20 6e 75 6d 61 64 6a 65 | 73 25 0d 01 86 27 de 20 | numadje|s%...'. |
|000002e0| 61 64 6a 65 24 28 6e 75 | 6d 61 64 6a 65 73 25 29 |adje$(nu|madjes%)|
|000002f0| 2c 61 64 6a 65 25 28 6e | 75 6d 61 64 6a 65 73 25 |,adje%(n|umadjes%|
|00000300| 29 0d 01 90 13 f1 27 27 | 22 41 64 6a 65 63 74 69 |).....''|"Adjecti|
|00000310| 76 65 73 22 0d 01 9a 16 | e3 20 49 25 3d 30 20 b8 |ves"....|. I%=0 .|
|00000320| 20 6e 75 6d 61 64 6a 65 | 73 25 0d 01 a4 19 f3 20 | numadje|s%..... |
|00000330| 61 64 6a 65 24 28 49 25 | 29 2c 61 64 6a 65 25 28 |adje$(I%|),adje%(|
|00000340| 49 25 29 0d 01 ae 18 f1 | 20 8a 49 25 2a 31 30 29 |I%).....| .I%*10)|
|00000350| 20 61 64 6a 65 24 28 49 | 25 29 3b 0d 01 b8 05 ed | adje$(I|%);.....|
|00000360| 0d 01 c2 0f f3 20 6e 75 | 6d 61 64 76 65 73 25 0d |..... nu|madves%.|
|00000370| 01 cc 27 de 20 61 64 76 | 65 24 28 6e 75 6d 61 64 |..'. adv|e$(numad|
|00000380| 76 65 73 25 29 2c 61 64 | 76 65 25 28 6e 75 6d 61 |ves%),ad|ve%(numa|
|00000390| 64 76 65 73 25 29 0d 01 | d6 10 f1 27 27 22 41 64 |dves%)..|...''"Ad|
|000003a0| 76 65 72 62 73 22 0d 01 | e0 16 e3 20 49 25 3d 30 |verbs"..|... I%=0|
|000003b0| 20 b8 20 6e 75 6d 61 64 | 76 65 73 25 0d 01 ea 19 | . numad|ves%....|
|000003c0| f3 20 61 64 76 65 24 28 | 49 25 29 2c 61 64 76 65 |. adve$(|I%),adve|
|000003d0| 25 28 49 25 29 0d 01 f4 | 18 f1 20 8a 49 25 2a 31 |%(I%)...|.. .I%*1|
|000003e0| 30 29 20 61 64 76 65 24 | 28 49 25 29 3b 0d 01 fe |0) adve$|(I%);...|
|000003f0| 05 ed 0d 02 08 3f f1 27 | 27 22 45 6e 74 65 72 20 |.....?.'|'"Enter |
|00000400| 73 65 6e 74 65 6e 63 65 | 20 74 6f 20 70 61 72 73 |sentence| to pars|
|00000410| 65 20 28 63 61 70 69 74 | 61 6c 73 20 6f 6e 6c 79 |e (capit|als only|
|00000420| 29 2c 20 6f 72 20 2a 20 | 74 6f 20 73 74 6f 70 2e |), or * |to stop.|
|00000430| 22 0d 02 12 14 ef 20 32 | 38 2c 30 2c 33 31 2c 37 |"..... 2|8,0,31,7|
|00000440| 39 2c bc 2b 31 0d 02 1c | 05 e1 0d 02 26 11 dc 20 |9,.+1...|....&.. |
|00000450| 37 3a 52 45 4d 20 76 65 | 72 62 73 0d 02 30 3d dc |7:REM ve|rbs..0=.|
|00000460| 20 47 4f 2c 31 2c 47 45 | 54 2c 32 2c 43 41 52 52 | GO,1,GE|T,2,CARR|
|00000470| 59 2c 32 2c 44 52 4f 50 | 2c 33 2c 4b 49 4c 4c 2c |Y,2,DROP|,3,KILL,|
|00000480| 34 2c 48 49 54 2c 35 2c | 45 58 41 4d 49 4e 45 2c |4,HIT,5,|EXAMINE,|
|00000490| 36 2c 46 49 4e 44 2c 37 | 0d 02 3a 11 dc 20 36 3a |6,FIND,7|..:.. 6:|
|000004a0| 52 45 4d 20 6e 6f 75 6e | 73 0d 02 44 37 dc 20 4b |REM noun|s..D7. K|
|000004b0| 45 59 2c 31 2c 44 4f 47 | 2c 32 2c 47 4c 41 53 53 |EY,1,DOG|,2,GLASS|
|000004c0| 2c 33 2c 42 45 41 4b 45 | 52 2c 33 2c 42 4f 58 2c |,3,BEAKE|R,3,BOX,|
|000004d0| 34 2c 53 54 4f 4e 45 2c | 35 2c 52 4f 43 4b 2c 35 |4,STONE,|5,ROCK,5|
|000004e0| 0d 02 4e 19 dc 20 31 31 | 3a 52 45 4d 20 70 72 65 |..N.. 11|:REM pre|
|000004f0| 70 6f 73 69 74 69 6f 6e | 73 0d 02 58 5f dc 20 49 |position|s..X_. I|
|00000500| 4e 53 49 44 45 2c 31 2c | 49 4e 2c 31 2c 4f 55 54 |NSIDE,1,|IN,1,OUT|
|00000510| 53 49 44 45 2c 32 2c 55 | 4e 44 45 52 2c 33 2c 4f |SIDE,2,U|NDER,3,O|
|00000520| 56 45 52 2c 34 2c 4f 4e | 2c 35 2c 4f 4e 54 4f 2c |VER,4,ON|,5,ONTO,|
|00000530| 35 2c 42 45 53 49 44 45 | 2c 36 2c 42 59 2c 36 2c |5,BESIDE|,6,BY,6,|
|00000540| 41 47 41 49 4e 53 54 2c | 36 2c 57 49 54 48 2c 37 |AGAINST,|6,WITH,7|
|00000550| 2c 55 53 49 4e 47 2c 37 | 0d 02 62 16 dc 20 37 3a |,USING,7|..b.. 7:|
|00000560| 52 45 4d 20 61 64 6a 65 | 63 74 69 76 65 73 0d 02 |REM adje|ctives..|
|00000570| 6c 43 dc 20 52 45 44 2c | 31 2c 42 4c 55 45 2c 32 |lC. RED,|1,BLUE,2|
|00000580| 2c 47 52 45 45 4e 2c 33 | 2c 59 45 4c 4c 4f 57 2c |,GREEN,3|,YELLOW,|
|00000590| 34 2c 42 49 47 2c 35 2c | 4c 49 54 54 4c 45 2c 36 |4,BIG,5,|LITTLE,6|
|000005a0| 2c 52 4f 55 47 48 2c 37 | 2c 53 4d 4f 4f 54 48 2c |,ROUGH,7|,SMOOTH,|
|000005b0| 38 0d 02 76 13 dc 20 34 | 3a 52 45 4d 20 61 64 76 |8..v.. 4|:REM adv|
|000005c0| 65 72 62 73 0d 02 80 35 | dc 20 51 55 49 43 4b 4c |erbs...5|. QUICKL|
|000005d0| 59 2c 31 2c 53 4c 4f 57 | 4c 59 2c 32 2c 51 55 49 |Y,1,SLOW|LY,2,QUI|
|000005e0| 45 54 4c 59 2c 33 2c 47 | 45 4e 54 4c 59 2c 34 2c |ETLY,3,G|ENTLY,4,|
|000005f0| 48 45 41 56 49 4c 59 2c | 35 0d 02 8a 05 3a 0d 02 |HEAVILY,|5....:..|
|00000600| 94 0c dd 20 a4 69 6e 70 | 75 74 0d 02 9e 08 ea 20 |... .inp|ut..... |
|00000610| 63 24 0d 02 a8 08 e8 20 | 63 24 0d 02 b2 0f e7 20 |c$..... |c$..... |
|00000620| ac 20 a4 6d 6f 72 65 20 | 8c 0d 02 bc 11 c8 95 20 |. .more |....... |
|00000630| c2 63 24 2c 31 29 3d 22 | 20 22 0d 02 c6 12 63 24 |.c$,1)="| "....c$|
|00000640| 3d c0 63 24 2c a9 20 63 | 24 2d 31 29 0d 02 d0 05 |=.c$,. c|$-1)....|
|00000650| ce 0d 02 da 05 cd 0d 02 | e4 07 3d 63 24 0d 02 ee |........|..=c$...|
|00000660| 05 3a 0d 02 f8 10 dd 20 | f2 70 61 72 73 65 28 63 |.:..... |.parse(c|
|00000670| 24 29 0d 03 02 34 76 65 | 72 25 3d 30 3a 6e 6f 31 |$)...4ve|r%=0:no1|
|00000680| 25 3d 30 3a 6e 6f 32 25 | 3d 30 3a 70 72 65 25 3d |%=0:no2%|=0:pre%=|
|00000690| 30 3a 61 64 31 25 3d 30 | 3a 61 64 32 25 3d 30 3a |0:ad1%=0|:ad2%=0:|
|000006a0| 61 64 76 25 3d 30 0d 03 | 0c 05 f5 0d 03 16 0f 66 |adv%=0..|.......f|
|000006b0| 6c 61 67 25 3d a4 6d 6f | 72 65 0d 03 20 29 f2 77 |lag%=.mo|re.. ).w|
|000006c0| 6f 72 64 28 76 65 72 62 | 24 28 29 2c 76 65 72 62 |ord(verb|$(),verb|
|000006d0| 25 28 29 2c 76 65 72 25 | 2c 6e 75 6d 76 65 72 62 |%(),ver%|,numverb|
|000006e0| 73 25 29 0d 03 2a 29 f2 | 77 6f 72 64 28 6e 6f 75 |s%)..*).|word(nou|
|000006f0| 6e 24 28 29 2c 6e 6f 75 | 6e 25 28 29 2c 6e 6f 31 |n$(),nou|n%(),no1|
|00000700| 25 2c 6e 75 6d 6e 6f 75 | 6e 73 25 29 0d 03 34 29 |%,numnou|ns%)..4)|
|00000710| f2 77 6f 72 64 28 6e 6f | 75 6e 24 28 29 2c 6e 6f |.word(no|un$(),no|
|00000720| 75 6e 25 28 29 2c 6e 6f | 32 25 2c 6e 75 6d 6e 6f |un%(),no|2%,numno|
|00000730| 75 6e 73 25 29 0d 03 3e | 29 f2 77 6f 72 64 28 70 |uns%)..>|).word(p|
|00000740| 72 65 70 24 28 29 2c 70 | 72 65 70 25 28 29 2c 70 |rep$(),p|rep%(),p|
|00000750| 72 65 25 2c 6e 75 6d 70 | 72 65 70 73 25 29 0d 03 |re%,nump|reps%)..|
|00000760| 48 5a e7 20 6e 6f 31 25 | 3d 30 20 f2 77 6f 72 64 |HZ. no1%|=0 .word|
|00000770| 28 61 64 6a 65 24 28 29 | 2c 61 64 6a 65 25 28 29 |(adje$()|,adje%()|
|00000780| 2c 61 64 31 25 2c 6e 75 | 6d 61 64 6a 65 73 25 29 |,ad1%,nu|madjes%)|
|00000790| 20 8b 20 f2 77 6f 72 64 | 28 61 64 6a 65 24 28 29 | . .word|(adje$()|
|000007a0| 2c 61 64 6a 65 25 28 29 | 2c 61 64 32 25 2c 6e 75 |,adje%()|,ad2%,nu|
|000007b0| 6d 61 64 6a 65 73 25 29 | 0d 03 52 29 f2 77 6f 72 |madjes%)|..R).wor|
|000007c0| 64 28 61 64 76 65 24 28 | 29 2c 61 64 76 65 25 28 |d(adve$(|),adve%(|
|000007d0| 29 2c 61 64 76 25 2c 6e | 75 6d 61 64 76 65 73 25 |),adv%,n|umadves%|
|000007e0| 29 0d 03 5c 16 e7 20 66 | 6c 61 67 25 3d a3 20 f2 |)..\.. f|lag%=. .|
|000007f0| 64 69 73 63 61 72 64 0d | 03 66 0b fd 20 63 24 3d |discard.|.f.. c$=|
|00000800| 22 22 0d 03 70 05 e1 0d | 03 7a 05 3a 0d 03 84 0b |""..p...|.z.:....|
|00000810| dd 20 a4 6d 6f 72 65 0d | 03 8e 11 c8 95 20 c0 63 |. .more.|..... .c|
|00000820| 24 2c 31 29 3d 22 20 22 | 0d 03 98 12 63 24 3d c2 |$,1)=" "|....c$=.|
|00000830| 63 24 2c a9 20 63 24 2d | 31 29 0d 03 a2 05 ce 0d |c$,. c$-|1)......|
|00000840| 03 ac 0a 3d 63 24 3d 22 | 22 0d 03 b6 05 3a 0d 03 |...=c$="|"....:..|
|00000850| c0 1e dd 20 f2 77 6f 72 | 64 28 74 24 28 29 2c 74 |... .wor|d(t$(),t|
|00000860| 25 28 29 2c f8 20 77 25 | 2c 6e 25 29 0d 03 ca 0b |%(),. w%|,n%)....|
|00000870| ea 20 61 25 2c 77 24 0d | 03 d4 14 e7 20 77 25 3e |. a%,w$.|.... w%>|
|00000880| 30 20 84 20 66 6c 61 67 | 25 20 e1 0d 03 de 0f 61 |0 . flag|% .....a|
|00000890| 25 3d a7 63 24 2c 22 20 | 22 29 0d 03 e8 0c e7 20 |%=.c$," |")..... |
|000008a0| 61 25 3d 30 20 8c 0d 03 | f2 09 77 24 3d 63 24 0d |a%=0 ...|..w$=c$.|
|000008b0| 03 fc 05 cc 0d 04 06 10 | 77 24 3d c0 63 24 2c 61 |........|w$=.c$,a|
|000008c0| 25 2d 31 29 0d 04 10 05 | cd 0d 04 1a 09 49 25 3d |%-1)....|.....I%=|
|000008d0| 2d 31 0d 04 24 05 f5 0d | 04 2e 09 49 25 2b 3d 31 |-1..$...|...I%+=1|
|000008e0| 0d 04 38 18 fd 20 49 25 | 3e 3d 6e 25 20 84 20 74 |..8.. I%|>=n% . t|
|000008f0| 24 28 49 25 29 3d 77 24 | 0d 04 42 11 e7 20 74 24 |$(I%)=w$|..B.. t$|
|00000900| 28 49 25 29 3d 77 24 20 | 8c 0d 04 4c 0d 77 25 3d |(I%)=w$ |...L.w%=|
|00000910| 74 25 28 49 25 29 0d 04 | 56 1f e7 20 61 25 3d 30 |t%(I%)..|V.. a%=0|
|00000920| 20 63 24 3d 22 22 20 8b | 20 63 24 3d c1 63 24 2c | c$="" .| c$=.c$,|
|00000930| 61 25 2b 31 29 0d 04 60 | 0b 66 6c 61 67 25 3d b9 |a%+1)..`|.flag%=.|
|00000940| 0d 04 6a 05 cd 0d 04 74 | 05 e1 0d 04 7e 05 3a 0d |..j....t|....~.:.|
|00000950| 04 88 0e dd 20 f2 64 69 | 73 63 61 72 64 0d 04 92 |.... .di|scard...|
|00000960| 0b ea 20 61 25 2c 77 24 | 0d 04 9c 0f 61 25 3d a7 |.. a%,w$|....a%=.|
|00000970| 63 24 2c 22 20 22 29 0d | 04 a6 0c e7 20 61 25 3d |c$," ").|.... a%=|
|00000980| 30 20 8c 0d 04 b0 09 63 | 24 3d 22 22 0d 04 ba 05 |0 .....c|$=""....|
|00000990| cc 0d 04 c4 10 63 24 3d | c1 63 24 2c 61 25 2b 31 |.....c$=|.c$,a%+1|
|000009a0| 29 0d 04 ce 05 cd 0d 04 | d8 05 e1 0d ff          |).......|.....   |
+--------+-------------------------+-------------------------+--------+--------+