PARSER MAIN
FILE INFORMATION
FILENAME(S): PARSER MAIN
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
f0f1ed2901ea874ddc3d5d7b969ce07d1fa0fc7a69b75e27b22802fec395ec40
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU SEPTEMBER | PARSER MAIN | PRG | UK CD | 11 | 20 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 70 17 99 22 93 22 00 29 08 7A 17 97 |....p..".".).z..| 00000010: 35 33 32 38 30 2C 31 34 3A 97 36 34 36 2C 31 34 |53280,14:.646,14| 00000020: 3A 97 35 33 32 38 31 2C 36 00 33 08 84 17 41 B2 |:.53281,6.3...A.| 00000030: 41 AA 31 00 4F 08 89 17 8B 41 B2 31 A7 93 22 50 |A.1.O....A.1.."P| 00000040: 41 52 53 45 52 20 43 4F 44 45 22 2C 38 2C 31 00 |ARSER CODE",8,1.| 00000050: 68 08 58 1B 8F 20 20 20 42 41 53 49 43 20 50 41 |h.X.. BASIC PA| 00000060: 52 53 45 20 43 41 4C 4C 00 87 08 62 1B 50 41 B2 |RSE CALL...b.PA.| 00000070: 35 30 30 31 38 3A 8F 20 53 45 54 20 50 41 3D 22 |50018:. SET PA="| 00000080: 57 44 50 54 52 41 22 00 A4 08 6C 1B 4D 4F B2 35 |WDPTRA"...l.MO.5| 00000090: 30 30 36 35 3A 8F 20 53 45 54 20 4D 4F 3D 22 4D |0065:. SET MO="M| 000000A0: 4F 52 45 22 00 C3 08 76 1B 53 4D B2 35 30 30 36 |ORE"...v.SM.5006| 000000B0: 36 3A 8F 20 53 45 54 20 53 4D 3D 22 53 41 4D 4F |6:. SET SM="SAMO| 000000C0: 52 45 22 00 E2 08 80 1B 42 46 B2 35 30 30 37 36 |RE".....BF.50076| 000000D0: 3A 8F 20 53 45 54 20 42 46 3D 22 49 4E 42 55 46 |:. SET BF="INBUF| 000000E0: 46 22 00 01 09 8A 1B 4C 53 B2 35 30 30 37 35 3A |F".....LS.50075:| 000000F0: 8F 20 53 45 54 20 4C 53 3D 22 4C 53 42 55 46 46 |. SET LS="LSBUFF| 00000100: 22 00 1E 09 94 1B 4F 55 B2 35 30 30 34 30 3A 8F |".....OU.50040:.| 00000110: 20 53 45 54 20 4F 55 3D 22 56 45 52 42 22 00 34 | SET OU="VERB".4| 00000120: 09 9E 1B 96 20 A5 20 50 28 58 29 B2 C2 20 28 4F |.... . P(X).. (O| 00000130: 55 AA 58 29 00 43 09 A8 1B 41 24 B2 22 22 3A 85 |U.X).C...A$."":.| 00000140: 20 41 24 00 5B 09 B2 1B 8B 20 C3 20 28 41 24 29 | A$.[.... . (A$)| 00000150: B2 30 20 A7 20 89 20 37 31 33 30 00 6E 09 BC 1B |.0 . . 7130.n...| 00000160: 81 20 49 B2 31 20 A4 20 C3 20 28 41 24 29 00 8B |. I.1 . . (A$)..| 00000170: 09 C6 1B 3A 20 97 20 42 46 AA 49 AB 31 2C C6 20 |...: . BF.I.1,. | 00000180: 28 CA 28 41 24 2C 49 2C 31 29 29 00 93 09 D0 1B |(.(A$,I,1)).....| 00000190: 82 20 49 00 A3 09 DA 1B 97 20 4C 53 2C C3 20 28 |. I...... LS,. (| 000001A0: 41 24 29 00 BC 09 E4 1B 97 20 50 41 2C 30 3A 97 |A$)...... PA,0:.| 000001B0: 20 4D 4F 2C 30 3A 97 20 53 4D 2C 30 00 C8 09 EE | MO,0:. SM,0....| 000001C0: 1B 9E 20 34 39 31 35 32 00 04 0A F8 1B 8B 20 A5 |.. 49152...... .| 000001D0: 50 28 32 29 B1 B2 35 AF 20 A5 50 28 32 32 29 B2 |P(2)..5. .P(22).| 000001E0: 30 AF 20 A5 50 28 31 37 29 B3 B1 30 A7 20 97 20 |0. .P(17)..0. . | 000001F0: 4F 55 AA 32 32 2C A5 50 28 32 29 3A 97 20 4F 55 |OU.22,.P(2):. OU| 00000200: AA 32 2C 30 00 10 0A 02 1C 9E 20 34 39 31 36 31 |.2,0...... 49161| 00000210: 00 2F 0A 0C 1C 8F 20 20 20 20 20 20 20 20 20 20 |./.... | 00000220: 20 20 20 50 52 49 4E 54 20 4F 55 54 50 55 54 00 | PRINT OUTPUT.| 00000230: 70 0A 16 1C 99 3A 99 20 22 41 43 54 49 4F 4E 20 |p....:. "ACTION | 00000240: 20 3A 22 3B A5 50 28 33 31 29 3B 22 56 45 52 42 | :";.P(31);"VERB| 00000250: 22 3B A5 50 28 30 29 3B A5 50 28 31 29 3B 22 56 |";.P(0);.P(1);"V| 00000260: 45 52 53 22 3B A5 50 28 32 29 3B A5 50 28 33 29 |ERS";.P(2);.P(3)| 00000270: 00 7E 0A 20 1C 81 20 49 B2 30 20 A4 20 32 00 BA |.~. .. I.0 . 2..| 00000280: 0A 2A 1C 99 20 22 4F 42 4A 45 43 54 22 3B C7 28 |.*.. "OBJECT";.(| 00000290: 34 39 AA 49 29 3B 22 20 3A 22 3B A5 50 28 33 32 |49.I);" :";.P(32| 000002A0: AA 49 29 3B 22 4E 22 3B A5 50 28 31 36 AA 49 29 |.I);"N";.P(16.I)| 000002B0: 3B A5 50 28 31 39 AA 49 29 3B 00 EA 0A 34 1C 99 |;.P(19.I);...4..| 000002C0: 20 22 41 22 3B A5 50 28 31 30 AA 49 29 3B A5 50 | "A";.P(10.I);.P| 000002D0: 28 31 33 AA 49 29 3B 22 4F 22 3B A5 50 28 34 AA |(13.I);"O";.P(4.| 000002E0: 49 29 3B A5 50 28 37 AA 49 29 00 F2 0A 3E 1C 82 |I);.P(7.I)...>..| 000002F0: 20 49 00 12 0B 48 1C 99 20 22 50 52 45 50 4F 53 | I...H.. "PREPOS| 00000300: 49 54 3A 22 3B A5 50 28 32 32 29 3B A5 50 28 32 |IT:";.P(22);.P(2| 00000310: 33 29 00 32 0B 52 1C 99 20 22 53 41 59 20 56 45 |3).2.R.. "SAY VE| 00000320: 52 42 3A 22 3B A5 50 28 32 37 29 3B A5 50 28 32 |RB:";.P(27);.P(2| 00000330: 38 29 00 52 0B 5C 1C 99 20 22 53 41 59 20 50 52 |8).R.\.. "SAY PR| 00000340: 45 50 3A 22 3B A5 50 28 32 39 29 3B A5 50 28 33 |EP:";.P(29);.P(3| 00000350: 30 29 00 6B 0B 66 1C 99 20 22 53 41 59 20 4D 4F |0).k.f.. "SAY MO| 00000360: 52 45 3A 22 3B A5 50 28 32 36 29 00 84 0B 70 1C |RE:";.P(26)...p.| 00000370: 99 20 22 4D 4F 52 45 20 20 20 20 3A 22 3B A5 50 |. "MORE :";.P| 00000380: 28 32 35 29 00 9D 0B 7A 1C 99 20 22 45 52 52 4F |(25)...z.. "ERRO| 00000390: 52 20 20 20 3A 22 3B A5 50 28 32 34 29 00 B5 0B |R :";.P(24)...| 000003A0: 84 1C 8B 20 A5 50 28 32 34 29 B2 30 20 A7 20 89 |... .P(24).0 . .| 000003B0: 20 37 33 34 30 00 D6 0B 8E 1C 99 20 22 49 20 47 | 7340...... "I G| 000003C0: 4F 54 20 53 54 55 43 4B 20 41 54 20 22 3B 3A 9E |OT STUCK AT ";:.| 000003D0: 20 34 39 31 35 35 00 DC 0B 98 1C 99 00 FD 0B A2 | 49155..........| 000003E0: 1C 8F 20 41 52 45 20 41 4C 4C 20 4F 42 4A 45 43 |.. ARE ALL OBJEC| 000003F0: 54 53 20 52 45 43 4F 47 4E 49 5A 45 44 00 0B 0C |TS RECOGNIZED...| 00000400: AC 1C 81 20 49 B2 30 20 A4 20 32 00 28 0C B6 1C |... I.0 . 2.(...| 00000410: 8B 20 A5 50 28 33 32 AA 49 29 B3 B1 32 35 35 20 |. .P(32.I)..255 | 00000420: A7 20 89 20 37 34 31 30 00 46 0C C0 1C 99 20 22 |. . 7410.F.... "| 00000430: 49 20 44 4F 4E 27 54 20 4B 4E 4F 57 20 57 48 41 |I DON'T KNOW WHA| 00000440: 54 20 41 20 22 3B 00 61 0C CA 1C 97 20 50 41 2C |T A ";.a.... PA,| 00000450: 33 3A 97 20 50 41 AA 31 2C A5 50 28 31 33 AA 49 |3:. PA.1,.P(13.I| 00000460: 29 00 74 0C D4 1C 9E 20 34 39 31 35 38 3A 99 20 |).t.... 49158:. | 00000470: 22 20 22 3B 00 8F 0C DE 1C 97 20 50 41 2C 32 3A |" ";...... PA,2:| 00000480: 97 20 50 41 AA 31 2C A5 50 28 31 39 AA 49 29 00 |. PA.1,.P(19.I).| 00000490: A4 0C E8 1C 9E 20 34 39 31 35 38 3A 99 20 22 20 |..... 49158:. " | 000004A0: 49 53 2E 22 00 AC 0C F2 1C 82 20 49 00 CB 0C FC |IS."...... I....| 000004B0: 1C 8F 20 49 53 20 54 48 45 20 41 43 54 49 4F 4E |.. IS THE ACTION| 000004C0: 20 52 45 43 4F 47 4E 49 5A 45 44 00 E7 0C 06 1D | RECOGNIZED.....| 000004D0: 8B 20 A5 50 20 28 33 31 29 B3 B1 32 35 35 20 A7 |. .P (31)..255 .| 000004E0: 20 89 20 37 35 30 30 00 05 0D 10 1D 99 20 22 C9 | . 7500...... ".| 000004F0: 20 44 4F 4E 27 54 20 4B 4E 4F 57 20 48 4F 57 20 | DON'T KNOW HOW | 00000500: 54 4F 20 22 3B 00 1D 0D 1A 1D 97 20 50 41 2C 30 |TO ";...... PA,0| 00000510: 3A 97 20 50 41 AA 31 2C A5 50 28 31 29 00 30 0D |:. PA.1,.P(1).0.| 00000520: 24 1D 9E 20 34 39 31 35 38 3A 99 20 22 20 22 3B |$.. 49158:. " ";| 00000530: 00 48 0D 2E 1D 97 20 50 41 2C 31 3A 97 20 50 41 |.H.... PA,1:. PA| 00000540: AA 31 2C A5 50 28 33 29 00 5A 0D 38 1D 9E 20 34 |.1,.P(3).Z.8.. 4| 00000550: 39 31 35 38 3A 99 20 22 2E 22 00 60 0D 42 1D 3A |9158:. ".".`.B.:| 00000560: 00 76 0D 4C 1D 8F 20 41 4C 4C 20 4F 55 54 50 55 |.v.L.. ALL OUTPU| 00000570: 54 20 44 4F 4E 45 00 7C 0D 56 1D 99 00 94 0D 60 |T DONE.|.V.....`| 00000580: 1D 8B 20 C2 20 28 4D 4F 29 B2 30 20 A7 20 89 20 |.. . (MO).0 . . | 00000590: 37 30 38 30 00 B6 0D 6A 1D 99 20 22 50 52 45 53 |7080...j.. "PRES| 000005A0: 53 20 53 50 41 43 45 20 46 4F 52 20 4E 45 58 54 |S SPACE FOR NEXT| 000005B0: 20 4C 49 53 54 22 00 CF 0D 74 1D A1 20 41 24 3A | LIST"...t.. A$:| 000005C0: 8B 20 41 24 B3 B1 22 20 22 A7 20 37 35 34 30 00 |. A$.." ". 7540.| 000005D0: DA 0D 7E 1D 89 20 37 31 35 30 00 00 00 |..~.. 7150... |
....P..".".).Z..53280,14:.646,14:.53281, 6.3...A.A.1.O....A.1.."PARSER CODE",8,1. H.X.. BASIC PARSE CALL...B.PA.50018:. SET PA="WDPTRA"...L.MO.50065:. SET MO="M ORE".C.V.SM.50066:. SET SM="SAMORE"..... BF.50076:. SET BF="INBUFF".....LS.50075: . SET LS="LSBUFF".....OU.50040:. SET OU= "VERB".4.... . P(X).B (OU.X).C...A$."":. A$.[.... C (A$).0 . . 7130.N.... I.1 . C (A$)...F.: . BF.I.1,F (J(A$,I,1))...P. . I...Z.. LS,C (A$)...... PA,0:. MO,0:. SM,0.H.... 49152...... .P(2)..5. .P(22). 0. .P(17)..0. . OU.22,.P(2):. OU.2,0.... .. 49161./.... PRINT OUTPUT. P....:. "ACTION :";.P(31);"VERB";.P(0); .P(1);"VERS";.P(2);.P(3).~. .. I.0 . 2.. .*.. "OBJECT";G(49.I);" :";.P(32.I);"N"; .P(16.I);.P(19.I);...4.. "A";.P(10.I);.P (13.I);"O";.P(4.I);.P(7.I)...>.. I...H.. "PREPOSIT:";.P(22);.P(23).2.R.. "SAY VE RB:";.P(27);.P(28).R.\.. "SAY PREP:";.P( 29);.P(30).K.F.. "SAY MORE:";.P(26)...P. . "MORE :";.P(25)...Z.. "ERROR :";. P(24)...... .P(24).0 . . 7340.V.... "I G OT STUCK AT ";:. 49155............ ARE A LL OBJECTS RECOGNIZED...... I.0 . 2.(... . .P(32.I)..255 . . 7410.F.... "I DON'T KNOW WHAT A ";.A.J.. PA,3:. PA.1,.P(13.I ).T.T.. 49158:. " ";...... PA,2:. PA.1,. P(19.I)...... 49158:. " IS."...... I.K.. .. IS THE ACTION RECOGNIZED...... .P (31 )..255 . . 7500...... "I DON'T KNOW HOW TO ";...... PA,0:. PA.1,.P(1).0.$.. 4915 8:. " ";.H.... PA,1:. PA.1,.P(3).Z.8.. 4 9158:. ".".`.B.:.V.L.. ALL OUTPUT DONE.| .V.....`.. B (MO).0 . . 7080...J.. "PRES S SPACE FOR NEXT LIST".O.T.. A$:. A$.." ". 7540.Z.~.. 7150...
> CLICK IMAGE PREVIEW FOR FULL MODAL