PASCAL COMPILER
FILE INFORMATION
FILENAME(S): PASCAL COMPILER
FILE TYPE(S): PRG
FILE SIZE: 9.8K
FIRST SEEN: 2025-11-30 21:27:35
APPEARS ON: 1 disk(s)
FILE HASH
b9b10c34c95bbd6b074533b0351723d63eec99bf1ab7a756f8dc86e9573b3506
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HOLLYWOOD II | PASCAL COMPILER | PRG | DuncanTwain | 4 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 00 00 8F 20 50 2D 43 4F 44 45 20 43 |../.... P-CODE C|
00000010: 4F 4D 50 49 4C 45 52 20 28 43 29 31 39 38 30 20 |OMPILER (C)1980 |
00000020: 41 42 41 43 55 53 20 53 4F 46 54 57 41 52 45 00 |ABACUS SOFTWARE.|
00000030: 65 08 01 00 97 38 32 36 2C C2 28 35 35 29 3A 97 |e....826,.(55):.|
00000040: 38 32 37 2C C2 28 35 36 29 3A 97 35 35 2C 30 3A |827,.(56):.55,0:|
00000050: 97 35 36 2C C2 28 38 32 37 29 AB 32 30 34 38 AD |.56,.(827).2048.|
00000060: 32 35 36 3A 9C 00 96 08 02 00 54 30 B2 37 35 3A |256:......T0.75:|
00000070: 51 39 B2 C2 28 38 32 36 29 AA C2 28 38 32 37 29 |Q9..(826)..(827)|
00000080: AC 32 35 36 3A 50 37 B2 51 39 AB 32 30 34 38 3A |.256:P7.Q9.2048:|
00000090: 89 36 30 30 30 30 00 AA 08 05 00 8B 43 B1 B2 4C |.60000......C..L|
000000A0: 30 A7 8D 39 30 30 30 3A 89 35 00 C3 08 06 00 43 |0..9000:.5.....C|
000000B0: B2 43 AA 31 3A 58 24 B2 CA 28 4C 24 2C 43 2C 31 |.C.1:X$..(L$,C,1|
000000C0: 29 3A 8E 00 E6 08 0A 00 42 24 B2 22 20 22 3A 97 |):......B$." ":.|
000000D0: 50 2C 58 31 3A 5A 31 B2 58 33 AB B5 28 58 33 AD |P,X1:Z1.X3..(X3.|
000000E0: 43 32 29 AC 43 32 00 05 09 0B 00 5A 32 B2 B5 28 |C2).C2.....Z2..(|
000000F0: 58 33 AD 43 32 29 3A 8B 5A 32 B3 30 A7 5A 32 B2 |X3.C2):.Z2.0.Z2.|
00000100: 5A 32 AA 43 32 00 21 09 0C 00 97 50 AA 31 2C 5A |Z2.C2.!....P.1,Z|
00000110: 31 3A 97 50 AA 32 2C 5A 32 3A 8B A8 4C 4C A7 31 |1:.P.2,Z2:..LL.1|
00000120: 35 00 55 09 0D 00 58 58 B2 28 58 31 AF 32 34 30 |5.U...XX.(X1.240|
00000130: 29 AD 31 36 3A 59 59 B2 28 58 31 AF 31 35 29 3A |).16:YY.(X1.15):|
00000140: 8B 58 58 B1 B2 38 A7 42 24 B2 22 58 22 3A 58 58 |.XX..8.B$."X":XX|
00000150: B2 58 58 AB 38 00 90 09 0E 00 8D 34 30 3A 98 50 |.XX.8......40:.P|
00000160: 52 2C 48 58 24 3B 22 20 22 3B 43 31 3B 22 20 22 |R,HX$;" ";C1;" "|
00000170: 3B CA 28 4D 24 2C 58 58 AC 33 AA 31 2C 33 29 3B |;.(M$,XX.3.1,3);|
00000180: 42 24 3B 22 20 22 3B 59 59 3B 22 20 22 3B 58 33 |B$;" ";YY;" ";X3|
00000190: 00 B2 09 0F 00 43 31 B2 43 31 AA 31 3A 50 B2 50 |.....C1.C1.1:P.P|
000001A0: AA 33 3A 8B 50 B1 B2 51 39 A7 45 B2 31 3A 89 35 |.3:.P..Q9.E.1:.5|
000001B0: 34 30 00 B8 09 10 00 8E 00 F6 09 28 00 42 28 31 |40.........(.B(1|
000001C0: 29 B2 B5 28 50 AD 34 30 39 36 29 3A 59 31 B2 50 |)..(P.4096):Y1.P|
000001D0: AB 42 28 31 29 AC 34 30 39 36 3A 42 28 32 29 B2 |.B(1).4096:B(2).|
000001E0: B5 28 59 31 AD 43 32 29 3A 59 32 B2 59 31 AB 42 |.(Y1.C2):Y2.Y1.B|
000001F0: 28 32 29 AC 43 32 00 27 0A 29 00 42 28 33 29 B2 |(2).C2.'.).B(3).|
00000200: B5 28 59 32 AD 31 36 29 3A 42 28 34 29 B2 59 32 |.(Y2.16):B(4).Y2|
00000210: AB 42 28 33 29 AC 31 36 3A 48 58 24 B2 22 22 3A |.B(3).16:HX$."":|
00000220: 81 52 52 B2 31 A4 34 00 5F 0A 2A 00 55 24 B2 CA |.RR.1.4._.*.U$..|
00000230: 28 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 |("0123456789ABCD|
00000240: 45 46 22 2C 42 28 52 52 29 AA 31 2C 31 29 3A 48 |EF",B(RR).1,1):H|
00000250: 58 24 B2 48 58 24 AA 55 24 3A 82 52 52 3A 8E 00 |X$.HX$.U$:.RR:..|
00000260: 73 0A 7C 00 8B 58 24 B2 22 20 22 A7 8D 35 3A 89 |s.|..X$." "..5:.|
00000270: 31 32 34 00 8A 0A 80 00 8B 58 24 B3 22 41 22 B0 |124......X$."A".|
00000280: 58 24 B1 22 5A 22 A7 31 34 36 00 98 0A 82 00 4B |X$."Z".146.....K|
00000290: B2 30 3A 41 24 B2 22 22 00 A7 0A 83 00 8B 4B B1 |.0:A$.""......K.|
000002A0: B2 4E 32 A7 31 33 33 00 BA 0A 84 00 4B B2 4B AA |.N2.133.....K.K.|
000002B0: 31 3A 41 24 B2 41 24 AA 58 24 00 C9 0A 85 00 8D |1:A$.A$.X$......|
000002C0: 35 3A 54 B2 C6 28 58 24 29 00 E6 0A 87 00 8B 54 |5:T..(X$)......T|
000002D0: B1 34 37 AF 54 B3 35 38 B0 54 B1 36 34 AF 54 B3 |.47.T.58.T.64.T.|
000002E0: 39 31 A7 31 33 31 00 04 0B 88 00 42 24 B2 41 24 |91.131.....B$.A$|
000002F0: 3A 8B C3 28 41 24 29 B1 35 A7 42 24 B2 C8 28 41 |:..(A$).5.B$..(A|
00000300: 24 2C 35 29 00 32 0B 8A 00 53 30 24 B2 22 49 44 |$,5).2...S0$."ID|
00000310: 45 4E 54 22 3A 81 49 B2 31 A4 33 32 3A 8B 57 24 |ENT":.I.1.32:.W$|
00000320: 28 49 29 B2 42 24 A7 53 30 24 B2 42 24 3A 49 B2 |(I).B$.S0$.B$:I.|
00000330: 33 32 00 3A 0B 8B 00 82 3A 8E 00 50 0B 92 00 5A |32.:....:..P...Z|
00000340: 24 B2 22 22 3A 8B 58 24 B3 22 30 22 A7 31 35 38 |$."":.X$."0".158|
00000350: 00 60 0B 94 00 8B 58 24 B1 22 39 22 A7 31 35 38 |.`....X$."9".158|
00000360: 00 6E 0B 95 00 53 30 24 B2 22 4E 55 4D 22 00 95 |.n...S0$."NUM"..|
00000370: 0B 96 00 5A 24 B2 5A 24 AA 58 24 3A 8D 35 3A 8B |...Z$.Z$.X$:.5:.|
00000380: C6 28 58 24 29 B1 34 37 AF C6 28 58 24 29 B3 35 |.(X$).47..(X$).5|
00000390: 38 A7 31 35 30 00 AC 0B 99 00 4E 33 B2 C5 28 5A |8.150.....N3..(Z|
000003A0: 24 29 3A 8B 4E 33 B3 B2 4E 31 A7 8E 00 BB 0B 9B |$):.N3..N1......|
000003B0: 00 45 39 B2 33 30 3A 89 35 35 30 00 CC 0B 9E 00 |.E9.30:.550.....|
000003C0: 8B 58 24 B3 B1 22 3A 22 A7 31 36 34 00 DF 0B 9F |.X$..":".164....|
000003D0: 00 8D 35 3A 8B 58 24 B2 22 3D 22 A7 31 36 32 00 |..5:.X$."=".162.|
000003E0: ED 0B A1 00 53 30 24 B2 22 3A 22 3A 8E 00 FF 0B |....S0$.":":....|
000003F0: A2 00 53 30 24 B2 22 3A 3D 22 3A 8D 35 3A 8E 00 |..S0$.":=":.5:..|
00000400: 10 0C A4 00 8B 58 24 B3 B1 22 3C 22 A7 31 37 31 |.....X$.."<".171|
00000410: 00 23 0C A5 00 8D 35 3A 8B 58 24 B2 22 3E 22 A7 |.#....5:.X$.">".|
00000420: 31 36 39 00 33 0C A7 00 8B 58 24 B2 22 3D 22 A7 |169.3....X$."=".|
00000430: 31 37 30 00 41 0C A8 00 53 30 24 B2 22 3C 22 3A |170.A...S0$."<":|
00000440: 8E 00 53 0C A9 00 53 30 24 B2 22 3C 3E 22 3A 8D |..S...S0$."<>":.|
00000450: 35 3A 8E 00 65 0C AA 00 53 30 24 B2 22 3C 3D 22 |5:..e...S0$."<="|
00000460: 3A 8D 35 3A 8E 00 76 0C AB 00 8B 58 24 B3 B1 22 |:.5:..v....X$.."|
00000470: 3E 22 A7 31 37 35 00 85 0C AC 00 8D 35 3A 53 30 |>".175......5:S0|
00000480: 24 B2 22 3E 22 00 94 0C AD 00 8B 58 24 B3 B1 22 |$.">"......X$.."|
00000490: 3D 22 A7 8E 00 A6 0C AE 00 53 30 24 B2 22 3E 3D |=".......S0$.">=|
000004A0: 22 3A 8D 35 3A 8E 00 B7 0C AF 00 8B 58 24 B3 B1 |":.5:.......X$..|
000004B0: 22 27 22 A7 31 37 39 00 CB 0C B0 00 53 30 24 B2 |"'".179.....S0$.|
000004C0: 22 53 54 52 22 3A 43 24 B2 22 22 00 DD 0C B1 00 |"STR":C$."".....|
000004D0: 8D 35 3A 8B 20 58 24 B2 22 27 22 A7 35 00 EF 0C |.5:. X$."'".5...|
000004E0: B2 00 43 24 B2 43 24 AA 58 24 3A 89 31 37 37 00 |..C$.C$.X$:.177.|
000004F0: 00 0D B3 00 8B 58 24 B3 B1 22 5B 22 A7 31 38 32 |.....X$.."[".182|
00000500: 00 14 0D B4 00 8D 35 3A 8B 58 24 B3 B1 22 5D 22 |......5:.X$.."]"|
00000510: A7 31 38 30 00 20 0D B5 00 8D 35 3A 89 31 32 34 |.180. ....5:.124|
00000520: 00 31 0D B6 00 8B 58 24 B3 B1 22 25 22 A7 31 39 |.1....X$.."%".19|
00000530: 33 00 47 0D B7 00 8D 35 3A 53 30 24 B2 22 4E 55 |3.G....5:S0$."NU|
00000540: 4D 22 3A 4E 33 B2 30 00 6B 0D B8 00 81 49 B2 31 |M":N3.0.k....I.1|
00000550: A4 34 3A 54 B2 C6 28 58 24 29 3A 8B 54 B1 B2 34 |.4:T..(X$):.T..4|
00000560: 38 AF 54 B3 B2 35 37 A7 31 38 38 00 87 0D BA 00 |8.T..57.188.....|
00000570: 8B 54 B1 B2 36 35 AF 54 B3 B2 37 30 A7 54 B2 54 |.T..65.T..70.T.T|
00000580: AB 37 3A 89 31 38 38 00 94 0D BB 00 49 B2 36 3A |.7:.188.....I.6:|
00000590: 89 31 38 39 00 AD 0D BC 00 54 B2 54 AB 34 38 3A |.189.....T.T.48:|
000005A0: 4E 33 B2 4E 33 AC 31 36 AA 54 3A 8D 35 00 C2 0D |N3.N3.16.T:.5...|
000005B0: BD 00 82 49 3A 8B 49 B1 36 A7 49 B2 31 3A 89 31 |...I:.I.6.I.1:.1|
000005C0: 39 31 00 C8 0D BE 00 8E 00 DB 0D BF 00 8B 49 B1 |91............I.|
000005D0: 31 A7 45 B2 32 37 3A 89 35 34 30 00 E9 0D C0 00 |1.E.27:.540.....|
000005E0: 53 30 24 B2 22 25 22 3A 8E 00 F7 0D C1 00 53 30 |S0$."%":......S0|
000005F0: 24 B2 58 24 3A 89 35 00 25 0E C3 00 54 31 B2 54 |$.X$:.5.%...T1.T|
00000600: 31 AA 31 3A 54 24 28 54 31 29 B2 41 24 3A 54 30 |1.1:T$(T1).A$:T0|
00000610: 24 28 54 31 29 B2 4B 24 3A 8B 4B 24 B3 B1 22 43 |$(T1).K$:.K$.."C|
00000620: 22 A7 32 30 31 00 35 0E C8 00 54 32 28 54 31 29 |".201.5...T2(T1)|
00000630: B2 4E 33 3A 8E 00 4E 0E C9 00 54 31 28 54 31 29 |.N3:..N...T1(T1)|
00000640: B2 4C 31 3A 8B 4B 24 B3 B1 22 56 22 A7 8E 00 5A |.L1:.K$.."V"...Z|
00000650: 0E CB 00 8B 46 39 B2 30 A7 8E 00 72 0E CC 00 54 |....F9.0...r...T|
00000660: 32 28 54 31 29 B2 44 30 3A 44 30 B2 44 30 AA 31 |2(T1).D0:D0.D0.1|
00000670: 3A 8E 00 9B 0E CE 00 81 49 B2 54 31 A4 31 A9 AB |:.......I.T1.1..|
00000680: 31 3A 8B 41 24 B2 54 24 28 49 29 A7 4A B2 49 3A |1:.A$.T$(I).J.I:|
00000690: 49 B2 31 3A 82 3A 49 B2 4A 3A 8E 00 A7 0E D0 00 |I.1:.:I.J:......|
000006A0: 82 3A 49 B2 30 3A 8E 00 BD 0E DC 00 53 28 53 39 |.:I.0:......S(S9|
000006B0: 29 B2 58 3A 53 39 B2 53 39 AA 31 3A 8E 00 D3 0E |).X:S9.S9.1:....|
000006C0: E6 00 53 39 B2 53 39 AB 31 3A 58 B2 53 28 53 39 |..S9.S9.1:X.S(S9|
000006D0: 29 3A 8E 00 DC 0E EA 01 8D 31 32 34 00 EB 0E F4 |):.......124....|
000006E0: 01 8B 53 30 24 B2 45 31 24 A7 8E 00 24 0F 1C 02 |..S0$.E1$...$...|
000006F0: 99 A3 43 AA 34 29 3B 22 5E 22 3A 8B 45 B2 36 B0 |..C.4);"^":.E.6.|
00000700: 45 B2 37 B0 45 B2 38 B0 45 B2 31 34 B0 45 B2 31 |E.7.E.8.E.14.E.1|
00000710: 35 B0 45 B2 32 34 B0 45 B2 32 39 B0 45 B2 33 31 |5.E.24.E.29.E.31|
00000720: A7 45 B2 30 00 3C 0F 26 02 99 22 12 45 52 52 4F |.E.0.<.&..".ERRO|
00000730: 52 92 20 22 45 3A 89 36 30 32 30 30 00 66 0F 7A |R. "E:.60200.f.z|
00000740: 08 45 31 24 B2 22 49 44 45 4E 54 22 3A 45 B2 34 |.E1$."IDENT":E.4|
00000750: 3A 8D 35 30 30 3A 45 31 24 B2 22 3D 22 3A 45 B2 |:.500:E1$."=":E.|
00000760: 33 3A 8D 34 39 30 00 86 0F 98 08 8D 31 32 34 3A |3:.490......124:|
00000770: 8D 32 32 35 30 3A 4B 24 B2 22 43 22 3A 8D 31 39 |.2250:K$."C":.19|
00000780: 35 3A 89 31 32 34 00 97 0F CA 08 8B 53 30 24 B2 |5:.124......S0$.|
00000790: 22 4E 55 4D 22 A7 8E 00 AD 0F D4 08 8B 53 30 24 |"NUM"........S0$|
000007A0: B2 22 49 44 45 4E 54 22 A7 32 32 39 30 00 CF 0F |."IDENT".2290...|
000007B0: DE 08 45 31 24 B2 22 53 54 52 22 3A 45 B2 32 3A |..E1$."STR":E.2:|
000007C0: 8D 35 30 30 3A 4E 33 B2 C6 28 43 24 29 3A 8E 00 |.500:N3..(C$):..|
000007D0: E6 0F F2 08 8D 32 30 36 3A 8B 49 B2 30 A7 45 B2 |.....206:.I.0.E.|
000007E0: 32 3A 89 35 34 30 00 00 10 FC 08 8B 54 30 24 28 |2:.540......T0$(|
000007F0: 49 29 B3 B1 22 43 22 A7 45 B2 32 3A 89 35 34 30 |I).."C".E.2:.540|
00000800: 00 0F 10 06 09 4E 33 B2 54 32 28 49 29 3A 8E 00 |.....N3.T2(I):..|
00000810: 1E 10 1A 09 8F 20 56 41 52 20 44 45 43 4C 00 37 |..... VAR DECL.7|
00000820: 10 24 09 45 31 24 B2 22 49 44 45 4E 54 22 3A 45 |.$.E1$."IDENT":E|
00000830: B2 34 3A 8D 35 30 30 00 4C 10 38 09 4B 24 B2 22 |.4:.500.L.8.K$."|
00000840: 56 22 3A 8D 31 39 35 3A 89 31 32 34 00 5B 10 4C |V":.195:.124.[.L|
00000850: 09 8F 20 53 49 4D 50 20 45 58 50 00 6D 10 56 09 |.. SIMP EXP.m.V.|
00000860: 8B 53 30 24 B2 22 2B 22 A7 32 34 32 30 00 80 10 |.S0$."+".2420...|
00000870: 60 09 8B 53 30 24 B3 B1 22 2D 22 A7 32 35 39 30 |`..S0$.."-".2590|
00000880: 00 91 10 6A 09 59 24 B2 53 30 24 3A 8D 36 31 38 |...j.Y$.S0$:.618|
00000890: 30 00 A6 10 74 09 8D 31 32 34 3A 8D 32 36 31 30 |0...t..124:.2610|
000008A0: 3A 8D 36 32 34 30 00 C1 10 92 09 8B 59 24 B2 22 |:.6240......Y$."|
000008B0: 2D 22 A7 58 31 B2 31 36 3A 58 33 B2 31 3A 8D 31 |-".X1.16:X3.1:.1|
000008C0: 30 00 D3 10 9C 09 8B 53 30 24 B2 22 2B 22 A7 32 |0......S0$."+".2|
000008D0: 35 30 30 00 E5 10 A6 09 8B 53 30 24 B2 22 2D 22 |500......S0$."-"|
000008E0: A7 32 35 30 30 00 F6 10 B0 09 8B 53 30 24 B3 B1 |.2500......S0$..|
000008F0: 22 4F 52 22 A7 8E 00 18 11 C4 09 59 24 B2 53 30 |"OR".......Y$.S0|
00000900: 24 3A 8D 36 31 38 30 3A 8D 31 32 34 3A 8D 32 36 |$:.6180:.124:.26|
00000910: 31 30 3A 8D 36 32 34 30 00 29 11 EC 09 8B 59 24 |10:.6240.)....Y$|
00000920: B2 22 2D 22 A7 32 35 37 30 00 3A 11 F6 09 8B 59 |."-".2570.:....Y|
00000930: 24 B2 22 2B 22 A7 32 35 38 30 00 54 11 00 0A 58 |$."+".2580.T...X|
00000940: 31 B2 31 36 3A 58 33 B2 31 34 3A 8D 31 30 3A 89 |1.16:X3.14:.10:.|
00000950: 32 34 36 30 00 6D 11 0A 0A 58 31 B2 31 36 3A 58 |2460.m...X1.16:X|
00000960: 33 B2 33 3A 8D 31 30 3A 89 32 34 36 30 00 86 11 |3.3:.10:.2460...|
00000970: 14 0A 58 31 B2 31 36 3A 58 33 B2 32 3A 8D 31 30 |..X1.16:X3.2:.10|
00000980: 3A 89 32 34 36 30 00 96 11 1E 0A 8D 32 36 31 30 |:.2460......2610|
00000990: 3A 89 32 34 36 30 00 A1 11 32 0A 8F 20 54 45 52 |:.2460...2.. TER|
000009A0: 4D 00 AB 11 3C 0A 8D 32 38 35 30 00 BD 11 46 0A |M...<..2850...F.|
000009B0: 8B 53 30 24 B2 22 2A 22 A7 32 37 30 30 00 D1 11 |.S0$."*".2700...|
000009C0: 50 0A 8B 53 30 24 B2 22 44 49 56 22 A7 32 37 30 |P..S0$."DIV".270|
000009D0: 30 00 E5 11 5A 0A 8B 53 30 24 B2 22 41 4E 44 22 |0...Z..S0$."AND"|
000009E0: A7 32 37 30 30 00 F9 11 64 0A 8B 53 30 24 B2 22 |.2700...d..S0$."|
000009F0: 4D 4F 44 22 A7 32 37 30 30 00 0D 12 6E 0A 8B 53 |MOD".2700...n..S|
00000A00: 30 24 B2 22 53 48 4C 22 A7 32 37 30 30 00 1F 12 |0$."SHL".2700...|
00000A10: 78 0A 8B 53 30 24 B3 B1 22 53 48 52 22 A7 8E 00 |x..S0$.."SHR"...|
00000A20: 41 12 8C 0A 59 24 B2 53 30 24 3A 8D 36 31 38 30 |A...Y$.S0$:.6180|
00000A30: 3A 8D 31 32 34 3A 8D 32 38 35 30 3A 8D 36 32 34 |:.124:.2850:.624|
00000A40: 30 00 54 12 AA 0A 8B 59 24 B2 22 44 49 56 22 A7 |0.T....Y$."DIV".|
00000A50: 32 37 39 30 00 67 12 B4 0A 8B 59 24 B2 22 4D 4F |2790.g....Y$."MO|
00000A60: 44 22 A7 32 38 30 30 00 78 12 BE 0A 8B 59 24 B2 |D".2800.x....Y$.|
00000A70: 22 2A 22 A7 32 38 31 30 00 8B 12 C8 0A 8B 59 24 |"*".2810......Y$|
00000A80: B2 22 53 48 4C 22 A7 32 38 32 30 00 9E 12 D2 0A |."SHL".2820.....|
00000A90: 8B 59 24 B2 22 53 48 52 22 A7 32 38 33 30 00 B8 |.Y$."SHR".2830..|
00000AA0: 12 DC 0A 58 31 B2 31 36 3A 58 33 B2 31 35 3A 8D |...X1.16:X3.15:.|
00000AB0: 31 30 3A 89 32 36 33 30 00 D1 12 E6 0A 58 31 B2 |10:.2630.....X1.|
00000AC0: 31 36 3A 58 33 B2 35 3A 8D 31 30 3A 89 32 36 33 |16:X3.5:.10:.263|
00000AD0: 30 00 EA 12 F0 0A 58 31 B2 31 36 3A 58 33 B2 37 |0.....X1.16:X3.7|
00000AE0: 3A 8D 31 30 3A 89 32 36 33 30 00 03 13 FA 0A 58 |:.10:.2630.....X|
00000AF0: 31 B2 31 36 3A 58 33 B2 34 3A 8D 31 30 3A 89 32 |1.16:X3.4:.10:.2|
00000B00: 36 33 30 00 1D 13 04 0B 58 31 B2 31 36 3A 58 33 |630.....X1.16:X3|
00000B10: B2 31 37 3A 8D 31 30 3A 89 32 36 33 30 00 37 13 |.17:.10:.2630.7.|
00000B20: 0E 0B 58 31 B2 31 36 3A 58 33 B2 31 38 3A 8D 31 |..X1.16:X3.18:.1|
00000B30: 30 3A 89 32 36 33 30 00 44 13 22 0B 8F 20 46 41 |0:.2630.D.".. FA|
00000B40: 43 54 4F 52 00 5A 13 2C 0B 8B 53 30 24 B2 22 49 |CTOR.Z.,..S0$."I|
00000B50: 44 45 4E 54 22 A7 32 39 34 30 00 6E 13 36 0B 8B |DENT".2940.n.6..|
00000B60: 53 30 24 B2 22 4E 55 4D 22 A7 33 30 36 30 00 82 |S0$."NUM".3060..|
00000B70: 13 40 0B 8B 53 30 24 B2 22 53 54 52 22 A7 33 30 |.@..S0$."STR".30|
00000B80: 38 30 00 94 13 4A 0B 8B 53 30 24 B2 22 28 22 A7 |80...J..S0$."(".|
00000B90: 33 31 30 30 00 A8 13 54 0B 8B 53 30 24 B2 22 4D |3100...T..S0$."M|
00000BA0: 45 4D 22 A7 33 31 34 30 00 BC 13 5E 0B 8B 53 30 |EM".3140...^..S0|
00000BB0: 24 B2 22 4E 4F 54 22 A7 33 32 36 30 00 CA 13 68 |$."NOT".3260...h|
00000BC0: 0B 45 B2 32 33 3A 89 35 34 30 00 D6 13 72 0B 8F |.E.23:.540...r..|
00000BD0: 20 49 44 45 4E 54 00 EE 13 7C 0B 8D 32 30 36 3A | IDENT...|..206:|
00000BE0: 8B 49 B2 30 A7 45 B2 31 31 3A 89 35 34 30 00 08 |.I.0.E.11:.540..|
00000BF0: 14 90 0B 8B 54 30 24 28 49 29 B2 22 50 22 A7 45 |....T0$(I)."P".E|
00000C00: B2 32 31 3A 89 35 34 30 00 1E 14 9A 0B 8B 54 30 |.21:.540......T0|
00000C10: 24 28 49 29 B3 B1 22 59 22 A7 33 30 30 30 00 3D |$(I).."Y".3000.=|
00000C20: 14 A4 0B 58 31 B2 38 30 3A 58 33 B2 31 3A 8D 31 |...X1.80:X3.1:.1|
00000C30: 30 3A 49 B2 49 AB 31 3A 89 34 32 39 30 00 52 14 |0:I.I.1:.4290.R.|
00000C40: B8 0B 8B 54 30 24 28 49 29 B2 22 41 22 A7 33 31 |...T0$(I)."A".31|
00000C50: 39 30 00 68 14 C2 0B 8B 54 30 24 28 49 29 B3 B1 |90.h....T0$(I)..|
00000C60: 22 43 22 A7 33 30 33 30 00 83 14 CC 0B 58 31 B2 |"C".3030.....X1.|
00000C70: 30 3A 58 33 B2 54 32 28 49 29 3A 8D 31 30 3A 89 |0:X3.T2(I):.10:.|
00000C80: 31 32 34 00 AA 14 D6 0B 58 31 B2 33 32 AA 28 4C |124.....X1.32.(L|
00000C90: 31 AB 54 31 28 49 29 29 3A 58 33 B2 54 32 28 49 |1.T1(I)):X3.T2(I|
00000CA0: 29 3A 8D 31 30 3A 89 31 32 34 00 C2 14 F4 0B 58 |):.10:.124.....X|
00000CB0: 31 B2 30 3A 58 33 B2 4E 33 3A 8D 31 30 3A 89 31 |1.0:X3.N3:.10:.1|
00000CC0: 32 34 00 DD 14 08 0C 58 31 B2 30 3A 58 33 B2 C6 |24.....X1.0:X3..|
00000CD0: 28 43 24 29 3A 8D 31 30 3A 89 31 32 34 00 EC 14 |(C$):.10:.124...|
00000CE0: 1C 0C 8D 31 32 34 3A 8D 33 32 39 30 00 FD 14 26 |...124:.3290...&|
00000CF0: 0C 8B 53 30 24 B2 22 29 22 A7 31 32 34 00 0B 15 |..S0$.")".124...|
00000D00: 30 0C 45 B2 32 32 3A 89 35 34 30 00 43 15 44 0C |0.E.22:.540.C.D.|
00000D10: 45 31 24 B2 22 28 22 3A 45 B2 33 33 3A 8D 34 39 |E1$."(":E.33:.49|
00000D20: 30 3A 8D 31 32 34 3A 8D 33 32 39 30 3A 45 31 24 |0:.124:.3290:E1$|
00000D30: B2 22 29 22 3A 45 B2 33 34 3A 8D 35 30 30 3A 8D |.")":E.34:.500:.|
00000D40: 31 32 34 00 5B 15 6C 0C 58 31 B2 33 32 AA 31 35 |124.[.l.X1.32.15|
00000D50: 3A 58 33 B2 30 3A 8D 31 30 3A 8E 00 68 15 76 0C |:X3.0:.10:..h.v.|
00000D60: 58 B2 49 3A 8D 32 32 30 00 A0 15 80 0C 45 31 24 |X.I:.220.....E1$|
00000D70: B2 22 28 22 3A 45 B2 33 33 3A 8D 34 39 30 3A 8D |."(":E.33:.490:.|
00000D80: 31 32 34 3A 8D 33 32 39 30 3A 45 31 24 B2 22 29 |124:.3290:E1$.")|
00000D90: 22 3A 45 B2 33 34 3A 8D 35 30 30 3A 8D 32 33 30 |":E.34:.500:.230|
00000DA0: 00 C8 15 9E 0C 58 31 B2 31 36 30 AA 28 4C 31 AB |.....X1.160.(L1.|
00000DB0: 54 31 28 58 29 29 3A 58 33 B2 54 32 28 58 29 3A |T1(X)):X3.T2(X):|
00000DC0: 8D 31 30 3A 89 31 32 34 00 E9 15 BC 0C 8D 31 32 |.10:.124......12|
00000DD0: 34 3A 8D 32 38 35 30 3A 58 31 B2 31 36 3A 58 33 |4:.2850:X1.16:X3|
00000DE0: B2 31 36 3A 8D 31 30 3A 8E 00 FA 15 DA 0C 8D 32 |.16:.10:.......2|
00000DF0: 33 39 30 3A 8F 20 45 58 50 52 00 0C 16 EE 0C 8B |390:. EXPR......|
00000E00: 53 30 24 B2 22 3D 22 A7 33 33 38 30 00 1F 16 F8 |S0$."=".3380....|
00000E10: 0C 8B 53 30 24 B2 22 3C 3E 22 A7 33 33 38 30 00 |..S0$."<>".3380.|
00000E20: 31 16 02 0D 8B 53 30 24 B2 22 3C 22 A7 33 33 38 |1....S0$."<".338|
00000E30: 30 00 44 16 0C 0D 8B 53 30 24 B2 22 3C 3D 22 A7 |0.D....S0$."<=".|
00000E40: 33 33 38 30 00 56 16 16 0D 8B 53 30 24 B2 22 3E |3380.V....S0$.">|
00000E50: 22 A7 33 33 38 30 00 67 16 20 0D 8B 53 30 24 B3 |".3380.g. ..S0$.|
00000E60: B1 22 3E 3D 22 A7 8E 00 89 16 34 0D 59 24 B2 53 |.">=".....4.Y$.S|
00000E70: 30 24 3A 8D 36 31 38 30 3A 8D 31 32 34 3A 8D 32 |0$:.6180:.124:.2|
00000E80: 33 39 30 3A 8D 36 32 34 30 00 A4 16 52 0D 8B 59 |390:.6240...R..Y|
00000E90: 24 B2 22 3D 22 A7 58 31 B2 31 36 3A 58 33 B2 38 |$."=".X1.16:X3.8|
00000EA0: 3A 8D 31 30 00 C0 16 5C 0D 8B 59 24 B2 22 3C 3E |:.10...\..Y$."<>|
00000EB0: 22 A7 58 31 B2 31 36 3A 58 33 B2 39 3A 8D 31 30 |".X1.16:X3.9:.10|
00000EC0: 00 DC 16 66 0D 8B 59 24 B2 22 3C 22 A7 58 31 B2 |...f..Y$."<".X1.|
00000ED0: 31 36 3A 58 33 B2 31 30 3A 8D 31 30 00 F9 16 70 |16:X3.10:.10...p|
00000EE0: 0D 8B 59 24 B2 22 3E 3D 22 A7 58 31 B2 31 36 3A |..Y$.">=".X1.16:|
00000EF0: 58 33 B2 31 31 3A 8D 31 30 00 15 17 7A 0D 8B 59 |X3.11:.10...z..Y|
00000F00: 24 B2 22 3E 22 A7 58 31 B2 31 36 3A 58 33 B2 31 |$.">".X1.16:X3.1|
00000F10: 32 3A 8D 31 30 00 32 17 84 0D 8B 59 24 B2 22 3C |2:.10.2....Y$."<|
00000F20: 3D 22 A7 58 31 B2 31 36 3A 58 33 B2 31 33 3A 8D |=".X1.16:X3.13:.|
00000F30: 31 30 00 38 17 8E 0D 8E 00 55 17 A2 0D 8B 53 30 |10.8.....U....S0|
00000F40: 24 B2 22 49 44 45 4E 54 22 A7 33 36 33 30 3A 8F |$."IDENT".3630:.|
00000F50: 20 53 54 4D 54 00 68 17 B6 0D 8B 53 30 24 B2 22 | STMT.h....S0$."|
00000F60: 49 46 22 A7 34 34 34 30 00 7C 17 C0 0D 8B 53 30 |IF".4440.|....S0|
00000F70: 24 B2 22 46 4F 52 22 A7 35 31 37 30 00 92 17 CA |$."FOR".5170....|
00000F80: 0D 8B 53 30 24 B2 22 57 48 49 4C 45 22 A7 34 38 |..S0$."WHILE".48|
00000F90: 30 30 00 A7 17 D4 0D 8B 53 30 24 B2 22 43 41 53 |00......S0$."CAS|
00000FA0: 45 22 A7 34 38 39 30 00 BD 17 DE 0D 8B 53 30 24 |E".4890......S0$|
00000FB0: B2 22 52 45 50 45 41 22 A7 34 37 33 30 00 D3 17 |."REPEA".4730...|
00000FC0: E8 0D 8B 53 30 24 B2 22 42 45 47 49 4E 22 A7 34 |...S0$."BEGIN".4|
00000FD0: 35 39 30 00 E8 17 F2 0D 8B 53 30 24 B2 22 52 45 |590......S0$."RE|
00000FE0: 41 44 22 A7 34 30 34 30 00 FE 17 FC 0D 8B 53 30 |AD".4040......S0|
00000FF0: 24 B2 22 57 52 49 54 45 22 A7 33 38 37 30 00 12 |$."WRITE".3870..|
00001000: 18 06 0E 8B 53 30 24 B2 22 4D 45 4D 22 A7 34 36 |....S0$."MEM".46|
00001010: 35 30 00 27 18 10 0E 8B 53 30 24 B2 22 43 41 4C |50.'....S0$."CAL|
00001020: 4C 22 A7 34 32 34 30 00 2D 18 1A 0E 8E 00 3E 18 |L".4240.-.....>.|
00001030: 2E 0E 8D 32 30 36 3A 8F 20 41 53 53 47 4E 00 51 |...206:. ASSGN.Q|
00001040: 18 38 0E 8B 49 B2 30 A7 45 B2 31 31 3A 89 35 34 |.8..I.0.E.11:.54|
00001050: 30 00 66 18 42 0E 8B 54 30 24 28 49 29 B2 22 41 |0.f.B..T0$(I)."A|
00001060: 22 A7 33 37 30 30 00 7B 18 4C 0E 8B 54 30 24 28 |".3700.{.L..T0$(|
00001070: 49 29 B2 22 56 22 A7 33 37 36 30 00 90 18 56 0E |I)."V".3760...V.|
00001080: 8B 54 30 24 28 49 29 B2 22 59 22 A7 33 37 36 30 |.T0$(I)."Y".3760|
00001090: 00 A5 18 60 0E 8B 54 30 24 28 49 29 B2 22 50 22 |...`..T0$(I)."P"|
000010A0: A7 34 32 39 30 00 B3 18 6A 0E 45 B2 31 32 3A 89 |.4290...j.E.12:.|
000010B0: 35 34 30 00 E7 18 74 0E 58 B2 49 3A 8D 32 32 30 |540...t.X.I:.220|
000010C0: 3A 58 B2 31 36 3A 8D 32 32 30 3A 45 31 24 B2 22 |:X.16:.220:E1$."|
000010D0: 28 22 3A 45 B2 33 33 3A 8D 34 39 30 3A 8D 31 32 |(":E.33:.490:.12|
000010E0: 34 3A 8D 33 32 39 30 00 03 19 9C 0E 45 31 24 B2 |4:.3290.....E1$.|
000010F0: 22 29 22 3A 45 B2 33 34 3A 8D 35 30 30 3A 89 33 |")":E.34:.500:.3|
00001100: 37 38 30 00 19 19 B0 0E 58 B2 49 3A 8D 32 32 30 |780.....X.I:.220|
00001110: 3A 58 B2 30 3A 8D 32 32 30 00 31 19 C4 0E 8D 31 |:X.0:.220.1....1|
00001120: 32 34 3A 8B 53 30 24 B2 22 3A 3D 22 A7 33 38 31 |24:.S0$.":=".381|
00001130: 30 00 3F 19 D8 0E 45 B2 31 33 3A 89 35 34 30 00 |0.?...E.13:.540.|
00001140: 48 19 E2 0E 8D 31 32 34 00 57 19 EC 0E 8D 33 32 |H....124.W....32|
00001150: 39 30 3A 8D 32 33 30 00 8A 19 F6 0E 4B B2 58 3A |90:.230.....K.X:|
00001160: 8D 32 33 30 3A 58 31 B2 34 38 AA 28 4B AC 38 29 |.230:X1.48.(K.8)|
00001170: AA 28 4C 31 AB 54 31 28 58 29 29 3A 58 33 B2 54 |.(L1.T1(X)):X3.T|
00001180: 32 28 58 29 3A 8D 31 30 3A 8E 00 A0 19 1E 0F 45 |2(X):.10:......E|
00001190: 31 24 B2 22 28 22 3A 45 B2 33 31 3A 8D 34 39 30 |1$."(":E.31:.490|
000011A0: 00 BA 19 28 0F 8D 31 32 34 3A 8B 53 30 24 B3 B1 |...(..124:.S0$..|
000011B0: 22 53 54 52 22 A7 33 39 35 30 00 D0 19 32 0F 4C |"STR".3950...2.L|
000011C0: B2 C3 28 43 24 29 3A 8B 4C B1 31 A7 33 39 31 30 |..(C$):.L.1.3910|
000011D0: 00 FC 19 3C 0F 58 31 B2 30 3A 58 33 B2 C6 28 43 |...<.X1.0:X3..(C|
000011E0: 24 29 3A 8D 31 30 3A 58 31 B2 31 31 32 3A 58 33 |$):.10:X1.112:X3|
000011F0: B2 31 3A 8D 31 30 3A 89 33 39 34 30 00 22 1A 46 |.1:.10:.3940.".F|
00001200: 0F 81 49 B2 31 A4 4C 3A 58 31 B2 30 3A 58 33 B2 |..I.1.L:X1.0:X3.|
00001210: C6 28 CA 28 43 24 2C 49 2C 31 29 29 3A 8D 31 30 |.(.(C$,I,1)):.10|
00001220: 3A 82 00 44 1A 5A 0F 58 31 B2 30 3A 58 33 B2 4C |:..D.Z.X1.0:X3.L|
00001230: 3A 8D 31 30 3A 58 31 B2 31 31 32 3A 58 33 B2 38 |:.10:X1.112:X3.8|
00001240: 3A 8D 31 30 00 53 1A 64 0F 8D 31 32 34 3A 89 34 |:.10.S.d..124:.4|
00001250: 30 30 30 00 61 1A 6E 0F 8D 33 32 39 30 3A 4B B2 |000.a.n..3290:K.|
00001260: 31 00 72 1A 78 0F 8B 53 30 24 B2 22 23 22 A7 4B |1.r.x..S0$."#".K|
00001270: B2 33 00 83 1A 82 0F 8B 53 30 24 B2 22 25 22 A7 |.3......S0$."%".|
00001280: 4B B2 35 00 91 1A 8C 0F 8B 4B B1 31 A7 8D 31 32 |K.5......K.1..12|
00001290: 34 00 A5 1A 96 0F 58 31 B2 31 31 32 3A 58 33 B2 |4.....X1.112:X3.|
000012A0: 4B 3A 8D 31 30 00 B7 1A A0 0F 8B 53 30 24 B2 22 |K:.10......S0$."|
000012B0: 2C 22 A7 33 38 38 30 00 D2 1A AA 0F 45 31 24 B2 |,".3880.....E1$.|
000012C0: 22 29 22 3A 45 B2 32 32 3A 8D 35 30 30 3A 89 31 |")":E.22:.500:.1|
000012D0: 32 34 00 E8 1A C8 0F 45 31 24 B2 22 28 22 3A 45 |24.....E1$."(":E|
000012E0: B2 33 31 3A 8D 34 39 30 00 15 1B D2 0F 45 31 24 |.31:.490.....E1$|
000012F0: B2 22 49 44 45 4E 54 22 3A 45 B2 34 3A 8D 34 39 |."IDENT":E.4:.49|
00001300: 30 3A 8D 32 30 36 3A 8B 49 B2 30 A7 45 B2 31 31 |0:.206:.I.0.E.11|
00001310: 3A 89 35 34 30 00 33 1B E6 0F 58 B2 49 3A 8D 32 |:.540.3...X.I:.2|
00001320: 32 30 3A 8B 54 30 24 28 49 29 B2 22 41 22 A7 34 |20:.T0$(I)."A".4|
00001330: 31 39 30 00 4D 1B F0 0F 8B 54 30 24 28 49 29 B2 |190.M....T0$(I).|
00001340: 22 56 22 A7 4C B2 30 3A 89 34 31 30 30 00 5A 1B |"V".L.0:.4100.Z.|
00001350: FA 0F 45 B2 34 3A 89 35 34 30 00 67 1B 04 10 8D |..E.4:.540.g....|
00001360: 31 32 34 3A 4B B2 30 00 78 1B 0E 10 8B 53 30 24 |124:K.0.x....S0$|
00001370: B2 22 23 22 A7 4B B2 32 00 89 1B 18 10 8B 53 30 |."#".K.2......S0|
00001380: 24 B2 22 25 22 A7 4B B2 34 00 A7 1B 22 10 58 31 |$."%".K.4...".X1|
00001390: B2 31 31 32 3A 58 33 B2 4B 3A 8D 31 30 3A 8B 4B |.112:X3.K:.10:.K|
000013A0: B1 30 A7 8D 31 32 34 00 D4 1B 36 10 8D 32 33 30 |.0..124...6..230|
000013B0: 3A 58 31 B2 34 38 AA 28 4C AC 38 29 AA 28 4C 31 |:X1.48.(L.8).(L1|
000013C0: AB 54 31 28 58 29 29 3A 58 33 B2 54 32 28 58 29 |.T1(X)):X3.T2(X)|
000013D0: 3A 8D 31 30 00 E6 1B 40 10 8B 53 30 24 B2 22 2C |:.10...@..S0$.",|
000013E0: 22 A7 34 30 35 30 00 01 1C 4A 10 45 31 24 B2 22 |".4050...J.E1$."|
000013F0: 29 22 3A 45 B2 33 31 3A 8D 35 30 30 3A 89 31 32 |)":E.31:.500:.12|
00001400: 34 00 34 1C 5E 10 45 31 24 B2 22 28 22 3A 45 B2 |4.4.^.E1$."(":E.|
00001410: 33 33 3A 8D 34 39 30 3A 8D 31 32 34 3A 8D 33 32 |33:.490:.124:.32|
00001420: 39 30 3A 45 31 24 B2 22 29 22 3A 45 B2 33 34 3A |90:E1$.")":E.34:|
00001430: 8D 35 30 30 00 43 1C 68 10 4C B2 31 36 3A 89 34 |.500.C.h.L.16:.4|
00001440: 31 30 30 00 76 1C 90 10 45 31 24 B2 22 28 22 3A |100.v...E1$."(":|
00001450: 45 B2 33 31 3A 8D 34 39 30 3A 8D 31 32 34 3A 8D |E.31:.490:.124:.|
00001460: 33 32 39 30 3A 45 31 24 B2 22 29 22 3A 45 B2 32 |3290:E1$.")":E.2|
00001470: 32 3A 8D 35 30 30 00 91 1C AE 10 58 31 B2 36 34 |2:.500.....X1.64|
00001480: AA 31 35 3A 58 33 B2 30 3A 8D 31 30 3A 89 31 32 |.15:X3.0:.10:.12|
00001490: 34 00 AD 1C C2 10 4B 32 B2 30 3A 4B 33 B2 49 3A |4.....K2.0:K3.I:|
000014A0: 8B 54 33 28 49 29 B2 30 A7 34 34 30 30 00 C3 1C |.T3(I).0.4400...|
000014B0: D6 10 45 31 24 B2 22 28 22 3A 45 B2 33 31 3A 8D |..E1$."(":E.31:.|
000014C0: 34 39 30 00 F0 1C E0 10 58 B2 4B 32 3A 8D 32 32 |490.....X.K2:.22|
000014D0: 30 3A 58 B2 4B 33 3A 8D 32 32 30 3A 8D 31 32 34 |0:X.K3:.220:.124|
000014E0: 3A 8D 33 32 39 30 3A 8D 32 33 30 3A 4B 33 B2 58 |:.3290:.230:K3.X|
000014F0: 00 14 1D 08 11 8D 32 33 30 3A 4B 32 B2 58 3A 4B |......230:K2.X:K|
00001500: 32 B2 4B 32 AA 31 3A 8B 53 30 24 B2 22 2C 22 A7 |2.K2.1:.S0$.",".|
00001510: 34 33 32 30 00 2E 1D 1C 11 8B 4B 32 B3 B1 54 33 |4320......K2..T3|
00001520: 28 4B 33 29 A7 45 B2 33 35 3A 89 35 34 30 00 44 |(K3).E.35:.540.D|
00001530: 1D 26 11 45 31 24 B2 22 29 22 3A 45 B2 32 32 3A |.&.E1$.")":E.22:|
00001540: 8D 35 30 30 00 68 1D 30 11 58 31 B2 36 34 AA 28 |.500.h.0.X1.64.(|
00001550: 4C 31 AB 54 31 28 4B 33 29 29 3A 58 33 B2 54 32 |L1.T1(K3)):X3.T2|
00001560: 28 4B 33 29 3A 8D 31 30 00 85 1D 3A 11 8B 4B 32 |(K3):.10...:..K2|
00001570: B3 B1 30 A7 20 58 31 B2 38 30 3A 58 33 B2 AB 4B |..0. X1.80:X3..K|
00001580: 32 3A 8D 31 30 00 8E 1D 44 11 89 31 32 34 00 9D |2:.10...D..124..|
00001590: 1D 58 11 8D 31 32 34 3A 8D 33 32 39 30 00 C5 1D |.X..124:.3290...|
000015A0: 6C 11 45 31 24 B2 22 54 48 45 4E 22 3A 45 B2 31 |l.E1$."THEN":E.1|
000015B0: 36 3A 8D 35 30 30 3A 8D 31 32 34 3A 58 B2 43 31 |6:.500:.124:X.C1|
000015C0: 3A 8D 32 32 30 00 F2 1D 8A 11 58 31 B2 39 36 AA |:.220.....X1.96.|
000015D0: 30 3A 58 33 B2 30 3A 8D 31 30 3A 8D 33 34 39 30 |0:X3.0:.10:.3490|
000015E0: 3A 8B 53 30 24 B3 B1 22 45 4C 53 45 22 A7 36 35 |:.S0$.."ELSE".65|
000015F0: 32 30 00 1B 1E A8 11 8D 32 33 30 3A 4B B2 58 3A |20......230:K.X:|
00001600: 58 B2 43 31 3A 8D 32 32 30 3A 58 31 B2 39 36 AA |X.C1:.220:X1.96.|
00001610: 31 35 3A 58 33 B2 30 3A 8D 31 30 00 3A 1E C6 11 |15:X3.0:.10.:...|
00001620: 58 B2 4B 3A 8D 36 35 34 30 3A 8D 31 32 34 3A 8D |X.K:.6540:.124:.|
00001630: 33 34 39 30 3A 89 36 35 32 30 00 57 1E EE 11 8D |3490:.6520.W....|
00001640: 31 32 34 3A 8D 33 34 39 30 3A 8B 53 30 24 B2 22 |124:.3490:.S0$."|
00001650: 3B 22 A7 34 35 39 30 00 6A 1E 0C 12 8B 53 30 24 |;".4590.j....S0$|
00001660: B2 22 45 4E 44 22 A7 31 32 34 00 78 1E 16 12 45 |."END".124.x...E|
00001670: B2 31 37 3A 89 35 34 30 00 99 1E 2A 12 45 31 24 |.17:.540...*.E1$|
00001680: B2 22 28 22 3A 45 B2 33 33 3A 8D 34 39 30 3A 8D |."(":E.33:.490:.|
00001690: 31 32 34 3A 8D 33 32 39 30 00 B2 1E 3E 12 8B 53 |124:.3290...>..S|
000016A0: 30 24 B3 B1 22 29 22 A7 20 45 B2 33 34 3A 89 35 |0$..")". E.34:.5|
000016B0: 34 30 00 E8 1E 48 12 45 31 24 B2 22 3A 3D 22 3A |40...H.E1$.":=":|
000016C0: 45 B2 31 33 3A 8D 34 39 30 3A 8D 31 32 34 3A 8D |E.13:.490:.124:.|
000016D0: 33 32 39 30 3A 58 31 B2 34 38 AA 31 35 3A 58 33 |3290:X1.48.15:X3|
000016E0: B2 30 3A 8D 31 30 3A 8E 00 F6 1E 7A 12 58 B2 43 |.0:.10:....z.X.C|
000016F0: 31 3A 8D 32 32 30 00 13 1F 84 12 8D 31 32 34 3A |1:.220......124:|
00001700: 8D 33 34 39 30 3A 8B 53 30 24 B2 22 3B 22 A7 34 |.3490:.S0$.";".4|
00001710: 37 34 30 00 38 1F 98 12 45 31 24 B2 22 55 4E 54 |740.8...E1$."UNT|
00001720: 49 4C 22 3A 45 B2 31 30 3A 8D 35 30 30 3A 8D 31 |IL":E.10:.500:.1|
00001730: 32 34 3A 8D 33 32 39 30 00 54 1F AC 12 8D 32 33 |24:.3290.T....23|
00001740: 30 3A 58 31 B2 39 36 AA 30 3A 58 33 B2 58 3A 8D |0:X1.96.0:X3.X:.|
00001750: 31 30 3A 8E 00 86 1F C0 12 8D 31 32 34 3A 58 B2 |10:.......124:X.|
00001760: 43 31 3A 8D 32 32 30 3A 8D 33 32 39 30 3A 58 B2 |C1:.220:.3290:X.|
00001770: 43 31 3A 8D 32 32 30 3A 58 31 B2 39 36 3A 58 33 |C1:.220:X1.96:X3|
00001780: B2 30 3A 8D 31 30 00 9D 1F DE 12 45 31 24 B2 22 |.0:.10.....E1$."|
00001790: 44 4F 22 3A 45 B2 31 38 3A 8D 35 30 30 00 CC 1F |DO":E.18:.500...|
000017A0: E8 12 8D 31 32 34 3A 8D 33 34 39 30 3A 8D 32 33 |...124:.3490:.23|
000017B0: 30 3A 4B B2 58 3A 8D 32 33 30 3A 58 31 B2 39 36 |0:K.X:.230:X1.96|
000017C0: AA 31 35 3A 58 33 B2 58 3A 8D 31 30 00 DA 1F 06 |.15:X3.X:.10....|
000017D0: 13 58 B2 4B 3A 89 36 35 34 30 00 01 20 1A 13 8D |.X.K:.6540.. ...|
000017E0: 31 32 34 3A 8D 33 32 39 30 3A 45 31 24 B2 22 4F |124:.3290:E1$."O|
000017F0: 46 22 3A 45 B2 32 35 3A 8D 35 30 30 3A 49 32 B2 |F":E.25:.500:I2.|
00001800: 31 00 0A 20 38 13 49 31 B2 30 00 38 20 42 13 8D |1.. 8.I1.0.8 B..|
00001810: 31 32 34 3A 8D 32 32 35 30 3A 58 31 B2 31 36 3A |124:.2250:X1.16:|
00001820: 58 33 B2 32 31 3A 8D 31 30 3A 58 31 B2 30 3A 58 |X3.21:.10:X1.0:X|
00001830: 33 B2 4E 33 3A 8D 31 30 00 5E 20 4C 13 58 31 B2 |3.N3:.10.^ L.X1.|
00001840: 31 36 3A 58 33 B2 38 3A 8D 31 30 3A 8D 31 32 34 |16:X3.8:.10:.124|
00001850: 3A 8B 53 30 24 B2 22 3A 22 A7 34 39 39 30 00 9C |:.S0$.":".4990..|
00001860: 20 60 13 45 31 24 B2 22 2C 22 3A 45 B2 35 3A 8D | `.E1$.",":E.5:.|
00001870: 35 30 30 3A 58 B2 43 31 3A 8D 32 32 30 3A 58 31 |500:X.C1:.220:X1|
00001880: B2 39 36 AA 31 3A 58 33 B2 30 3A 8D 31 30 3A 49 |.96.1:X3.0:.10:I|
00001890: 31 B2 49 31 AA 31 3A 89 34 39 33 30 00 AE 20 74 |1.I1.1:.4930.. t|
000018A0: 13 49 31 B2 49 31 AA 31 3A 89 34 39 33 30 00 D3 |.I1.I1.1:.4930..|
000018B0: 20 7E 13 4B B2 43 31 3A 58 31 B2 39 36 AA 30 3A | ~.K.C1:X1.96.0:|
000018C0: 58 33 B2 30 3A 8D 31 30 3A 8B 49 31 B2 30 A7 35 |X3.0:.10:.I1.0.5|
000018D0: 30 31 30 00 E7 20 88 13 81 49 B2 31 A4 49 31 3A |010.. ...I.1.I1:|
000018E0: 8D 36 35 32 30 3A 82 00 13 21 92 13 58 B2 4B 3A |.6520:...!..X.K:|
000018F0: 8D 32 32 30 3A 8D 31 32 34 3A 58 B2 49 32 3A 8D |.220:.124:X.I2:.|
00001900: 32 32 30 3A 8D 33 34 39 30 3A 8D 32 33 30 3A 49 |220:.3490:.230:I|
00001910: 32 B2 58 00 28 21 B0 13 8B 53 30 24 B2 22 45 4C |2.X.(!...S0$."EL|
00001920: 53 45 22 A7 35 30 39 30 00 3B 21 BA 13 8B 53 30 |SE".5090.;!...S0|
00001930: 24 B3 B1 22 3B 22 A7 35 31 33 30 00 73 21 C4 13 |$..";".5130.s!..|
00001940: 4B B2 43 31 3A 58 31 B2 39 36 AA 31 35 3A 58 33 |K.C1:X1.96.15:X3|
00001950: B2 30 3A 8D 31 30 3A 8D 36 35 32 30 3A 58 B2 4B |.0:.10:.6520:X.K|
00001960: 3A 8D 32 32 30 3A 49 32 B2 49 32 AA 31 3A 89 34 |:.220:I2.I2.1:.4|
00001970: 39 32 30 00 AC 21 E2 13 4B B2 43 31 3A 58 31 B2 |920..!..K.C1:X1.|
00001980: 39 36 AA 31 35 3A 58 33 B2 30 3A 8D 31 30 3A 8D |96.15:X3.0:.10:.|
00001990: 36 35 32 30 3A 58 B2 4B 3A 8D 32 32 30 3A 8D 31 |6520:X.K:.220:.1|
000019A0: 32 34 3A 58 B2 49 32 3A 8D 32 32 30 00 C0 21 00 |24:X.I2:.220..!.|
000019B0: 14 8D 33 34 39 30 3A 8D 32 33 30 3A 49 32 B2 58 |..3490:.230:I2.X|
000019C0: 00 D8 21 0A 14 45 31 24 B2 22 45 4E 44 22 3A 45 |..!..E1$."END":E|
000019D0: B2 31 37 3A 8D 35 30 30 00 01 22 14 14 81 49 B2 |.17:.500.."...I.|
000019E0: 31 A4 49 32 3A 8D 36 35 32 30 3A 82 3A 58 31 B2 |1.I2:.6520:.:X1.|
000019F0: 38 30 3A 58 33 B2 AB 31 3A 8D 31 30 3A 89 31 32 |80:X3..1:.10:.12|
00001A00: 34 00 39 22 32 14 45 31 24 B2 22 49 44 45 4E 54 |4.9"2.E1$."IDENT|
00001A10: 22 3A 45 B2 34 3A 8D 34 39 30 3A 8D 33 36 33 30 |":E.4:.490:.3630|
00001A20: 3A 8D 32 32 30 3A 46 39 B2 31 3A 8B 53 30 24 B2 |:.220:F9.1:.S0$.|
00001A30: 22 54 4F 22 A7 35 32 31 30 00 58 22 50 14 45 31 |"TO".5210.X"P.E1|
00001A40: 24 B2 22 44 4F 57 4E 54 22 3A 45 B2 32 38 3A 8D |$."DOWNT":E.28:.|
00001A50: 35 30 30 3A 46 39 B2 30 00 7A 22 5A 14 8D 31 32 |500:F9.0.z"Z..12|
00001A60: 34 3A 8D 33 32 39 30 3A 8D 32 33 30 3A 4B B2 58 |4:.3290:.230:K.X|
00001A70: 3A 58 B2 43 31 3A 8D 32 32 30 00 AC 22 6E 14 58 |:X.C1:.220.."n.X|
00001A80: 31 B2 31 36 3A 58 33 B2 32 31 3A 8D 31 30 3A 58 |1.16:X3.21:.10:X|
00001A90: 31 B2 33 32 AA 28 4C 31 AB 54 31 28 4B 29 29 3A |1.32.(L1.T1(K)):|
00001AA0: 58 33 B2 54 32 28 4B 29 3A 8D 31 30 00 E1 22 78 |X3.T2(K):.10.."x|
00001AB0: 14 58 31 B2 31 36 3A 58 33 B2 31 33 AB 46 39 AB |.X1.16:X3.13.F9.|
00001AC0: 46 39 3A 8D 31 30 3A 58 B2 43 31 3A 8D 32 32 30 |F9:.10:X.C1:.220|
00001AD0: 3A 58 31 B2 39 36 AA 30 3A 58 33 B2 30 3A 8D 31 |:X1.96.0:X3.0:.1|
00001AE0: 30 00 10 23 82 14 58 B2 46 39 3A 8D 32 32 30 3A |0..#..X.F9:.220:|
00001AF0: 58 B2 4B 3A 8D 32 32 30 3A 45 31 24 B2 22 44 4F |X.K:.220:E1$."DO|
00001B00: 22 3A 45 B2 31 38 3A 8D 35 30 30 3A 8D 31 32 34 |":E.18:.500:.124|
00001B10: 00 3D 23 96 14 8D 33 34 39 30 3A 8D 32 33 30 3A |.=#...3490:.230:|
00001B20: 58 31 B2 33 32 AA 28 4C 31 AB 54 31 28 58 29 29 |X1.32.(L1.T1(X))|
00001B30: 3A 58 33 B2 54 32 28 58 29 3A 8D 31 30 00 5C 23 |:X3.T2(X):.10.\#|
00001B40: A0 14 4B B2 58 3A 8D 32 33 30 3A 58 31 B2 31 36 |..K.X:.230:X1.16|
00001B50: 3A 58 33 B2 32 30 AB 58 3A 8D 31 30 00 7E 23 AA |:X3.20.X:.10.~#.|
00001B60: 14 58 31 B2 34 38 AA 28 4C 31 AB 54 31 28 4B 29 |.X1.48.(L1.T1(K)|
00001B70: 29 3A 58 33 B2 54 32 28 4B 29 3A 8D 31 30 00 A2 |):X3.T2(K):.10..|
00001B80: 23 B4 14 8D 32 33 30 3A 4B B2 58 3A 8D 32 33 30 |#...230:K.X:.230|
00001B90: 3A 58 31 B2 39 36 AA 31 35 3A 58 33 B2 58 3A 8D |:X1.96.15:X3.X:.|
00001BA0: 31 30 00 C2 23 BE 14 58 B2 4B 3A 8D 36 35 34 30 |10..#..X.K:.6540|
00001BB0: 3A 58 31 B2 38 30 3A 58 33 B2 AB 31 3A 8D 31 30 |:X1.80:X3..1:.10|
00001BC0: 3A 8E 00 FF 23 DC 14 44 30 B2 33 3A 54 32 28 54 |:...#..D0.3:T2(T|
00001BD0: 31 AB 4B 31 29 B2 43 31 3A 58 31 B2 39 36 AA 31 |1.K1).C1:X1.96.1|
00001BE0: 35 3A 58 33 B2 30 3A 8D 31 30 3A 58 B2 54 31 AB |5:X3.0:.10:X.T1.|
00001BF0: 4B 31 3A 8D 32 32 30 3A 8F 20 42 4C 4F 43 4B 00 |K1:.220:. BLOCK.|
00001C00: 15 24 0E 15 8B 53 30 24 B2 22 43 4F 4E 53 54 22 |.$...S0$."CONST"|
00001C10: A7 35 34 35 30 00 29 24 18 15 8B 53 30 24 B2 22 |.5450.)$...S0$."|
00001C20: 56 41 52 22 A7 35 35 35 30 00 3E 24 22 15 8B 53 |VAR".5550.>$"..S|
00001C30: 30 24 B2 22 50 52 4F 43 22 A7 35 37 33 30 00 53 |0$."PROC".5730.S|
00001C40: 24 2C 15 8B 53 30 24 B2 22 46 55 4E 43 22 A7 35 |$,..S0$."FUNC".5|
00001C50: 37 37 30 00 69 24 36 15 8B 53 30 24 B2 22 42 45 |770.i$6..S0$."BE|
00001C60: 47 49 4E 22 A7 35 39 38 30 00 77 24 40 15 45 B2 |GIN".5980.w$@.E.|
00001C70: 32 35 3A 89 35 34 30 00 8C 24 4A 15 8D 31 32 34 |25:.540..$J..124|
00001C80: 3A 8F 20 43 4F 4E 53 54 20 44 43 4C 00 AC 24 5E |:. CONST DCL..$^|
00001C90: 15 8D 32 31 37 30 3A 45 31 24 B2 22 3B 22 3A 45 |..2170:E1$.";":E|
00001CA0: B2 35 3A 8D 35 30 30 3A 8D 31 32 34 00 C0 24 72 |.5:.500:.124..$r|
00001CB0: 15 8B 53 30 24 B2 22 56 41 52 22 A7 35 35 35 30 |..S0$."VAR".5550|
00001CC0: 00 D5 24 7C 15 8B 53 30 24 B2 22 50 52 4F 43 22 |..$|..S0$."PROC"|
00001CD0: A7 35 37 33 30 00 EA 24 86 15 8B 53 30 24 B2 22 |.5730..$...S0$."|
00001CE0: 46 55 4E 43 22 A7 35 37 37 30 00 00 25 90 15 8B |FUNC".5770..%...|
00001CF0: 53 30 24 B2 22 42 45 47 49 4E 22 A7 35 39 38 30 |S0$."BEGIN".5980|
00001D00: 00 0A 25 9A 15 89 35 34 37 30 00 18 25 A4 15 8F |..%...5470..%...|
00001D10: 20 56 41 52 20 44 43 4C 00 25 25 AE 15 4C B2 30 | VAR DCL.%%..L.0|
00001D20: 3A 46 39 B2 31 00 34 25 B8 15 8D 31 32 34 3A 8D |:F9.1.4%...124:.|
00001D30: 32 33 34 30 00 4C 25 C2 15 4C B2 4C AA 31 3A 8B |2340.L%..L.L.1:.|
00001D40: 53 30 24 B2 22 2C 22 A7 35 35 36 30 00 78 25 CC |S0$.",".5560.x%.|
00001D50: 15 45 31 24 B2 22 3A 22 3A 45 B2 35 3A 8D 35 30 |.E1$.":":E.5:.50|
00001D60: 30 3A 8D 31 32 34 3A 8B 53 30 24 B2 22 41 52 52 |0:.124:.S0$."ARR|
00001D70: 41 59 22 A7 35 36 31 30 00 98 25 E0 15 45 31 24 |AY".5610..%..E1$|
00001D80: B2 22 49 4E 54 45 47 22 3A 45 B2 33 36 3A 8D 35 |."INTEG":E.36:.5|
00001D90: 30 30 3A 89 35 36 37 30 00 B9 25 EA 15 45 31 24 |00:.5670..%..E1$|
00001DA0: B2 22 28 22 3A 45 B2 33 33 3A 8D 34 39 30 3A 8D |."(":E.33:.490:.|
00001DB0: 31 32 34 3A 8D 32 32 35 30 00 F8 25 F4 15 45 31 |124:.2250..%..E1|
00001DC0: 24 B2 22 29 22 3A 45 B2 33 34 3A 8D 34 39 30 3A |$.")":E.34:.490:|
00001DD0: 45 31 24 B2 22 4F 46 22 3A 45 B2 32 36 3A 8D 34 |E1$."OF":E.26:.4|
00001DE0: 39 30 3A 45 31 24 B2 22 49 4E 54 45 47 22 3A 45 |90:E1$."INTEG":E|
00001DF0: B2 33 36 3A 8D 34 39 30 00 3D 26 FE 15 44 30 B2 |.36:.490.=&..D0.|
00001E00: 44 30 AB 4C 3A 81 49 B2 54 31 AB 4C AA 31 A4 54 |D0.L:.I.T1.L.1.T|
00001E10: 31 3A 54 30 24 28 49 29 B2 22 41 22 3A 54 33 28 |1:T0$(I)."A":T3(|
00001E20: 49 29 B2 4E 33 AA 31 3A 54 32 28 49 29 B2 44 30 |I).N3.1:T2(I).D0|
00001E30: 3A 44 30 B2 44 30 AA 4E 33 AA 31 3A 82 00 68 26 |:D0.D0.N3.1:..h&|
00001E40: 26 16 45 31 24 B2 22 3B 22 3A 45 B2 35 3A 8D 34 |&.E1$.";":E.5:.4|
00001E50: 39 30 3A 8D 31 32 34 3A 8B 53 30 24 B2 22 50 52 |90:.124:.S0$."PR|
00001E60: 4F 43 22 A7 35 37 33 30 00 7D 26 3A 16 8B 53 30 |OC".5730.}&:..S0|
00001E70: 24 B2 22 46 55 4E 43 22 A7 35 37 37 30 00 93 26 |$."FUNC".5770..&|
00001E80: 44 16 8B 53 30 24 B2 22 42 45 47 49 4E 22 A7 35 |D..S0$."BEGIN".5|
00001E90: 39 38 30 00 AC 26 4E 16 4C B2 30 3A 46 39 B2 31 |980..&N.L.0:F9.1|
00001EA0: 3A 8D 32 33 34 30 3A 89 35 35 37 30 00 E4 26 62 |:.2340:.5570..&b|
00001EB0: 16 45 31 24 B2 22 49 44 45 4E 54 22 3A 45 B2 34 |.E1$."IDENT":E.4|
00001EC0: 3A 8D 34 39 30 3A 4B 31 B2 30 3A 4B 24 B2 22 50 |:.490:K1.0:K$."P|
00001ED0: 22 3A 8D 31 39 35 3A 4C 31 B2 4C 31 AA 31 3A 89 |":.195:L1.L1.1:.|
00001EE0: 35 38 31 30 00 F3 26 80 16 8F 20 46 55 4E 43 20 |5810..&... FUNC |
00001EF0: 44 43 4C 00 25 27 8A 16 45 31 24 B2 22 49 44 45 |DCL.%'..E1$."IDE|
00001F00: 4E 54 22 3A 45 B2 34 3A 8D 34 39 30 3A 4B 24 B2 |NT":E.4:.490:K$.|
00001F10: 22 46 22 3A 8D 31 39 35 3A 4C 31 B2 4C 31 AA 31 |"F":.195:L1.L1.1|
00001F20: 3A 4B 31 B2 31 00 35 27 A8 16 4B 24 B2 22 59 22 |:K1.1.5'..K$."Y"|
00001F30: 3A 8D 31 39 35 00 58 27 B2 16 4B 32 B2 4B 31 3A |:.195.X'..K2.K1:|
00001F40: 8D 31 32 34 3A 58 B2 54 31 3A 8D 32 32 30 3A 58 |.124:X.T1:.220:X|
00001F50: B2 44 30 3A 8D 32 32 30 00 6B 27 D0 16 8B 53 30 |.D0:.220.k'...S0|
00001F60: 24 B3 B1 22 28 22 A7 35 38 39 30 00 87 27 DA 16 |$.."(".5890..'..|
00001F70: 8D 31 32 34 3A 46 39 B2 30 3A 8D 32 33 34 30 3A |.124:F9.0:.2340:|
00001F80: 4B 31 B2 4B 31 AA 31 00 99 27 E4 16 8B 53 30 24 |K1.K1.1..'...S0$|
00001F90: B2 22 2C 22 A7 35 38 35 30 00 C4 27 EE 16 45 31 |.",".5850..'..E1|
00001FA0: 24 B2 22 29 22 3A 45 B2 32 32 3A 8D 35 30 30 3A |$.")":E.22:.500:|
00001FB0: 8D 31 32 34 3A 54 33 28 54 31 AB 4B 31 29 B2 4B |.124:T3(T1.K1).K|
00001FC0: 31 AB 4B 32 00 D9 27 02 17 45 31 24 B2 22 3B 22 |1.K2..'..E1$.";"|
00001FD0: 3A 45 B2 35 3A 8D 35 30 30 00 F5 27 0C 17 81 49 |:E.5:.500..'...I|
00001FE0: B2 31 A4 4B 31 3A 54 32 28 54 31 AB 49 AA 31 29 |.1.K1:T2(T1.I.1)|
00001FF0: B2 AB 49 3A 82 00 0C 28 20 17 8D 31 32 34 3A 8D |..I:...( ..124:.|
00002000: 35 33 34 30 3A 4C 31 B2 4C 31 AB 31 00 40 28 2A |5340:L1.L1.1.@(*|
00002010: 17 8D 32 33 30 3A 44 30 B2 58 3A 8D 32 33 30 3A |..230:D0.X:.230:|
00002020: 54 31 B2 58 3A 45 31 24 B2 22 3B 22 3A 45 B2 35 |T1.X:E1$.";":E.5|
00002030: 3A 8D 35 30 30 3A 8D 31 32 34 3A 89 35 34 31 30 |:.500:.124:.5410|
00002040: 00 79 28 5C 17 8D 31 32 34 3A 8D 32 33 30 3A 4B |.y(\..124:.230:K|
00002050: B2 58 3A 58 B2 54 32 28 4B 29 3A 8D 36 35 34 30 |.X:X.T2(K):.6540|
00002060: 3A 54 32 28 4B 29 B2 43 31 3A 58 31 B2 38 30 3A |:T2(K).C1:X1.80:|
00002070: 58 33 B2 44 30 3A 8D 31 30 00 92 28 84 17 8D 33 |X3.D0:.10..(...3|
00002080: 34 39 30 3A 8B 53 30 24 B3 B1 22 3B 22 A7 36 30 |490:.S0$..";".60|
00002090: 35 30 00 A1 28 98 17 8D 31 32 34 3A 89 36 30 32 |50..(...124:.602|
000020A0: 30 00 BC 28 A2 17 8B 53 30 24 B3 B1 22 45 4E 44 |0..(...S0$.."END|
000020B0: 22 A7 20 45 B2 31 37 3A 89 35 34 30 00 D6 28 AC |". E.17:.540..(.|
000020C0: 17 8D 31 32 34 3A 58 31 B2 31 36 3A 58 33 B2 30 |..124:X1.16:X3.0|
000020D0: 3A 8D 31 30 3A 8E 00 F5 28 24 18 53 24 28 50 38 |:.10:...($.S$(P8|
000020E0: 29 B2 59 24 3A 50 38 B2 50 38 AA 31 3A 8E 3A 8F |).Y$:P8.P8.1:.:.|
000020F0: 20 50 55 53 48 00 13 29 60 18 50 38 B2 50 38 AB | PUSH..)`.P8.P8.|
00002100: 31 3A 59 24 B2 53 24 28 50 38 29 3A 8E 3A 8F 20 |1:Y$.S$(P8):.:. |
00002110: 50 4F 50 00 26 29 78 19 8D 32 33 30 3A 8F 20 46 |POP.&)x..230:. F|
00002120: 57 44 20 52 45 46 00 60 29 8C 19 4E B2 50 37 AA |WD REF.`)..N.P7.|
00002130: 58 AC 33 3A 5A 31 B2 43 31 AB B5 28 43 31 AD 43 |X.3:Z1.C1..(C1.C|
00002140: 32 29 AC 43 32 3A 5A 32 B2 B5 28 43 31 AD 43 32 |2).C2:Z2..(C1.C2|
00002150: 29 3A 8B 5A 32 B3 30 A7 5A 32 B2 5A 32 AA 43 32 |):.Z2.0.Z2.Z2.C2|
00002160: 00 7B 29 96 19 97 4E AA 31 2C 5A 31 3A 97 4E AA |.{)...N.1,Z1:.N.|
00002170: 32 2C 5A 32 3A 8B A8 4C 4C A7 8E 00 A0 29 AA 19 |2,Z2:..LL....)..|
00002180: 98 50 52 2C 22 41 44 44 20 41 54 22 3B 58 3B 22 |.PR,"ADD AT";X;"|
00002190: 43 48 41 4E 47 45 44 20 54 4F 22 3B 43 31 3A 8E |CHANGED TO";C1:.|
000021A0: 00 B1 29 28 23 8F 20 49 4E 50 55 54 20 4C 49 4E |..)(#. INPUT LIN|
000021B0: 45 00 C1 29 32 23 98 50 52 2C 43 31 3B 22 20 22 |E..)2#.PR,C1;" "|
000021C0: 3B 00 D7 29 3C 23 8D 39 31 30 30 3A 8B 4C 24 B2 |;..)<#.9100:.L$.|
000021D0: 22 22 A7 39 30 31 30 00 F4 29 46 23 4C 24 B2 4C |"".9010..)F#L$.L|
000021E0: 24 AA 22 20 22 3A 43 B2 30 3A 4C 30 B2 C3 28 4C |$." ":C.0:L0..(L|
000021F0: 24 29 3A 8E 00 06 2A 8C 23 4C 43 B2 4C 43 AA 31 |$):...*.#LC.LC.1|
00002200: 3A 4C 24 B2 22 22 00 2C 2A 91 23 8B 45 46 A7 99 |:L$."".,*.#.EF..|
00002210: 22 2A 2A 20 45 4E 44 20 4F 46 20 46 49 4C 45 20 |"** END OF FILE |
00002220: 2A 2A 22 3A 45 B2 39 3A 89 35 34 30 00 38 2A 96 |**":E.9:.540.8*.|
00002230: 23 A1 23 49 50 2C 41 24 00 56 2A A0 23 8B 53 54 |#.#IP,A$.V*.#.ST|
00002240: B2 36 34 A7 39 31 39 30 3A 8F 20 45 4E 44 20 4F |.64.9190:. END O|
00002250: 46 20 46 49 4C 45 00 7B 2A AA 23 8B 53 54 B3 B1 |F FILE.{*.#.ST..|
00002260: 30 A7 99 22 49 4E 50 55 54 20 45 52 52 4F 52 3A |0.."INPUT ERROR:|
00002270: 22 3B 53 54 3A 89 36 30 32 30 30 00 A4 2A B4 23 |";ST:.60200..*.#|
00002280: 8B 41 24 B3 B1 C7 28 32 35 35 29 A7 39 31 37 30 |.A$...(255).9170|
00002290: 3A 8F 20 43 48 45 43 4B 20 45 4E 44 20 4F 46 20 |:. CHECK END OF |
000022A0: 4C 49 4E 45 00 BD 2A BE 23 99 4C 24 3A 8B 4C 4C |LINE..*.#.L$:.LL|
000022B0: AF 50 52 B3 B1 33 A7 98 50 52 2C 4C 24 00 C3 2A |.PR..3..PR,L$..*|
000022C0: C8 23 8E 00 D0 2A D2 23 4C 24 B2 4C 24 AA 41 24 |.#...*.#L$.L$.A$|
000022D0: 00 DA 2A DC 23 89 39 31 30 35 00 F3 2A E6 23 99 |..*.#.9105..*.#.|
000022E0: 4C 24 3A 8B 4C 4C AF 50 52 B3 B1 33 A7 98 50 52 |L$:.LL.PR..3..PR|
000022F0: 2C 4C 24 00 01 2B F0 23 45 46 B2 AB 31 3A A0 49 |,L$..+.#EF..1:.I|
00002300: 50 00 07 2B FA 23 8E 00 2A 2B 60 EA 99 22 93 20 |P..+.#..*+`..". |
00002310: 20 20 20 20 20 20 20 20 20 20 12 41 42 41 43 55 | .ABACU|
00002320: 53 20 53 4F 46 54 57 41 52 45 00 4B 2B 65 EA 99 |S SOFTWARE.K+e..|
00002330: 22 20 20 20 20 20 20 20 20 20 20 20 50 2D 43 4F |" P-CO|
00002340: 44 45 20 43 4F 4D 50 49 4C 45 52 00 86 2B 74 EA |DE COMPILER..+t.|
00002350: 4B B2 30 3A 49 B2 30 3A 50 B2 50 37 3A 43 32 B2 |K.0:I.0:P.P7:C2.|
00002360: 32 35 36 3A 4E 30 B2 33 32 3A 4E 31 B2 33 32 37 |256:N0.32:N1.327|
00002370: 36 37 3A 4E 32 B2 38 3A 50 38 B2 31 3A 49 50 B2 |67:N2.8:P8.1:IP.|
00002380: 38 3A 45 46 B2 30 00 BC 2B 79 EA 86 53 28 54 30 |8:EF.0..+y..S(T0|
00002390: 29 2C 54 30 24 28 54 30 29 2C 57 24 28 33 32 29 |),T0$(T0),W$(32)|
000023A0: 2C 54 24 28 54 30 29 2C 54 31 28 54 30 29 2C 54 |,T$(T0),T1(T0),T|
000023B0: 32 28 54 30 29 2C 54 33 28 54 30 29 00 D1 2B 7E |2(T0),T3(T0)..+~|
000023C0: EA 81 49 B2 31 A4 33 32 3A 87 57 24 28 49 29 3A |..I.1.32:.W$(I):|
000023D0: 82 00 18 2C 83 EA 83 41 4E 44 2C 41 52 52 41 59 |...,...AND,ARRAY|
000023E0: 2C 42 45 47 49 4E 2C 43 41 4C 4C 2C 43 41 53 45 |,BEGIN,CALL,CASE|
000023F0: 2C 43 4F 4E 53 54 2C 44 49 56 2C 44 4F 2C 44 4F |,CONST,DIV,DO,DO|
00002400: 57 4E 54 2C 45 4C 53 45 2C 45 4E 44 2C 46 4F 52 |WNT,ELSE,END,FOR|
00002410: 2C 46 55 4E 43 2C 49 46 00 49 2C 88 EA 83 49 4E |,FUNC,IF.I,...IN|
00002420: 54 45 47 2C 4D 45 4D 2C 4D 4F 44 2C 4E 4F 54 2C |TEG,MEM,MOD,NOT,|
00002430: 4F 46 2C 4F 52 2C 50 52 4F 43 2C 52 45 41 44 2C |OF,OR,PROC,READ,|
00002440: 52 45 50 45 41 2C 53 48 4C 00 76 2C 92 EA 83 53 |REPEA,SHL.v,...S|
00002450: 48 52 2C 54 48 45 4E 2C 54 4F 2C 54 59 50 45 2C |HR,THEN,TO,TYPE,|
00002460: 55 4E 54 49 4C 2C 56 41 52 2C 20 57 48 49 4C 45 |UNTIL,VAR, WHILE|
00002470: 2C 57 52 49 54 45 00 98 2C 9C EA 4D 24 B2 22 4C |,WRITE..,..M$."L|
00002480: 49 54 4F 50 52 4C 4F 44 53 54 4F 43 41 4C 49 4E |ITOPRLODSTOCALIN|
00002490: 54 4A 50 43 43 53 50 22 00 B3 2C A6 EA 99 3A 85 |TJPCCSP"..,...:.|
000024A0: 22 50 2D 43 4F 44 45 20 50 52 49 4E 54 45 44 22 |"P-CODE PRINTED"|
000024B0: 3B 59 24 00 CD 2C B0 EA 4C 4C B2 59 24 B2 22 59 |;Y$..,..LL.Y$."Y|
000024C0: 22 3A 50 52 B2 33 3A 9F 50 52 2C 50 52 00 E2 2C |":PR.3:.PR,PR..,|
000024D0: B1 EA 85 22 46 49 4C 45 20 4E 41 4D 45 22 3B 46 |..."FILE NAME";F|
000024E0: 49 24 00 04 2D B2 EA 85 22 46 49 4C 45 20 4F 4E |I$..-..."FILE ON|
000024F0: 20 54 29 41 50 45 20 4F 52 20 44 29 49 53 4B 22 | T)APE OR D)ISK"|
00002500: 3B 44 56 24 00 2E 2D B3 EA 8B 44 56 24 B2 22 54 |;DV$..-...DV$."T|
00002510: 22 A7 9F 49 50 2C 31 2C 30 2C 46 49 24 AA 22 2E |"..IP,1,0,FI$.".|
00002520: 53 4F 55 52 43 45 22 3A 89 36 30 30 39 30 00 42 |SOURCE":.60090.B|
00002530: 2D B4 EA 8B 44 56 24 B3 B1 22 44 22 A7 36 30 30 |-...DV$.."D".600|
00002540: 38 32 00 61 2D B5 EA 9F 49 50 2C 38 2C 49 50 2C |82.a-...IP,8,IP,|
00002550: 46 49 24 AA 22 2E 53 4F 55 52 43 45 2C 53 2C 52 |FI$.".SOURCE,S,R|
00002560: 22 00 92 2D BA EA 53 53 B2 54 49 3A 58 24 B2 22 |"..-..SS.TI:X$."|
00002570: 20 22 3A 8D 31 32 34 3A 8D 35 33 34 30 3A 45 31 | ":.124:.5340:E1|
00002580: 24 B2 22 2E 22 3A 45 B2 39 3A 8D 35 30 30 3A A0 |$.".":E.9:.500:.|
00002590: 49 50 00 A6 2D C4 EA 97 50 2C 32 35 35 3A 97 50 |IP..-...P,255:.P|
000025A0: AA 31 2C 32 35 35 00 EA 2D CE EA 99 22 43 4F 4D |.1,255..-..."COM|
000025B0: 50 2E 54 49 4D 45 22 3B B5 28 28 54 49 AB 53 53 |P.TIME";.((TI.SS|
000025C0: 29 AD 36 30 29 3B 22 53 45 43 2C 22 3B B5 28 4C |).60);"SEC,";.(L|
000025D0: 43 AD 28 54 49 AB 53 53 29 AC 36 30 AE 32 29 3B |C.(TI.SS).60.2);|
000025E0: 22 4C 49 4E 45 53 2F 4D 49 4E 00 00 2E D8 EA 85 |"LINES/MIN......|
000025F0: 22 53 41 56 45 20 50 2D 43 4F 44 45 22 3B 41 24 |"SAVE P-CODE";A$|
00002600: 00 12 2E E2 EA 8B 41 24 B2 22 4E 22 A7 36 30 32 |......A$."N".602|
00002610: 30 30 00 25 2E EC EA 8B 41 24 B3 B1 22 59 22 A7 |00.%....A$.."Y".|
00002620: 36 30 31 32 30 00 47 2E F6 EA 85 22 53 41 56 45 |60120.G...."SAVE|
00002630: 20 4F 4E 20 54 29 41 50 45 20 4F 52 20 44 29 49 | ON T)APE OR D)I|
00002640: 53 4B 22 3B 44 56 24 00 5B 2E 00 EB 8B 44 56 24 |SK";DV$.[....DV$|
00002650: B3 B1 22 54 22 A7 36 30 31 37 30 00 73 2E 02 EB |.."T".60170.s...|
00002660: 9F 49 50 2C 31 2C 32 2C 46 49 24 AA 22 2E 43 4F |.IP,1,2,FI$.".CO|
00002670: 44 45 22 00 98 2E 05 EB 81 49 B2 50 37 A4 50 AA |DE"......I.P7.P.|
00002680: 32 3A 98 49 50 2C C2 28 49 29 3A 82 49 3A A0 49 |2:.IP,.(I):.I:.I|
00002690: 50 3A 89 36 30 32 30 30 00 AC 2E 0A EB 8B 44 56 |P:.60200......DV|
000026A0: 24 B3 B1 22 44 22 A7 36 30 31 35 30 00 CF 2E 14 |$.."D".60150....|
000026B0: EB 9F 49 50 2C 38 2C 49 50 2C 22 40 30 3A 22 AA |..IP,8,IP,"@0:".|
000026C0: 46 49 24 AA 22 2E 43 4F 44 45 2C 53 2C 57 22 00 |FI$.".CODE,S,W".|
000026D0: F1 2E 1E EB 81 49 B2 50 37 A4 50 AA 32 3A 98 49 |.....I.P7.P.2:.I|
000026E0: 50 2C C7 28 C2 28 49 29 29 3B 3A 82 49 3A A0 49 |P,.(.(I));:.I:.I|
000026F0: 50 00 1F 2F 28 EB 99 22 45 4E 44 20 4F 46 20 43 |P../(.."END OF C|
00002700: 4F 4D 50 49 4C 45 22 3A 97 35 35 2C C2 28 38 32 |OMPILE":.55,.(82|
00002710: 36 29 3A 97 35 36 2C C2 28 38 32 37 29 3A 9C 00 |6):.56,.(827):..|
00002720: 00 00 A3 20 AA 35 31 B0 BA 52 72 |... .51..Rr |
../.... P-CODE COMPILER (C)1980 ABACUS S
OFTWARE.E....826,B(55):.827,B(56):.55,0:
.56,B(827).2048.256:......T0.75:Q9.B(826
).B(827).256:P7.Q9.2048:.60000......C..L
0..9000:.5.C...C.C.1:X$.J(L$,C,1):......
B$." ":.P,X1:Z1.X3..(X3.C2).C2.....Z2..(
X3.C2):.Z2.0.Z2.Z2.C2.!....P.1,Z1:.P.2,Z
2:..LL.15.U...XX.(X1.240).16:YY.(X1.15):
.XX..8.B$."X":XX.XX.8......40:.PR,HX$;"
";C1;" ";J(M$,XX.3.1,3);B$;" ";YY;" ";X3
.....C1.C1.1:P.P.3:.P..Q9.E.1:.540......
...(.B(1)..(P.4096):Y1.P.B(1).4096:B(2).
.(Y1.C2):Y2.Y1.B(2).C2.'.).B(3)..(Y2.16)
:B(4).Y2.B(3).16:HX$."":.RR.1.4._.*.U$.J
("0123456789ABCDEF",B(RR).1,1):HX$.HX$.U
$:.RR:..S.|..X$." "..5:.124......X$."A".
X$."Z".146.....K.0:A$.""......K..N2.133.
....K.K.1:A$.A$.X$.I....5:T.F(X$)......T
.47.T.58.T.64.T.91.131.....B$.A$:.C(A$).
5.B$.H(A$,5).2...S0$."IDENT":.I.1.32:.W$
(I).B$.S0$.B$:I.32.:....:..P...Z$."":.X$
."0".158.`....X$."9".158.N...S0$."NUM"..
...Z$.Z$.X$:.5:.F(X$).47.F(X$).58.150...
..N3.E(Z$):.N3..N1.......E9.30:.550.L...
.X$..":".164......5:.X$."=".162.....S0$.
":":......S0$.":=":.5:.......X$.."<".171
.#....5:.X$.">".169.3....X$."=".170.A...
S0$."<":..S...S0$."<>":.5:..E...S0$."<="
:.5:..V....X$..">".175......5:S0$.">"...
...X$.."=".......S0$.">=":.5:.......X$..
"'".179.K...S0$."STR":C$.""......5:. X$.
"'".5.....C$.C$.X$:.177......X$.."[".182
......5:.X$.."]".180. ....5:.124.1....X$
.."%".193.G....5:S0$."NUM":N3.0.K....I.1
.4:T.F(X$):.T..48.T..57.188......T..65.T
..70.T.T.7:.188.....I.6:.189.....T.T.48:
N3.N3.16.T:.5.B....I:.I.6.I.1:.191.H....
......I.1.E.27:.540.....S0$."%":....A.S0
$.X$:.5.%.C.T1.T1.1:T$(T1).A$:T0$(T1).K$
:.K$.."C".201.5.H.T2(T1).N3:..N.I.T1(T1)
.L1:.K$.."V"...Z.K..F9.0...R.L.T2(T1).D0
:D0.D0.1:....N..I.T1.1..1:.A$.T$(I).J.I:
I.1:.:I.J:....P..:I.0:......S(S9).X:S9.S
9.1:..S...S9.S9.1:X.S(S9):.......124....
..S0$.E1$...$.....C.4);"^":.E.6.E.7.E.8.
E.14.E.15.E.24.E.29.E.31.E.0.<.&..".ERRO
R. "E:.60200.F.Z.E1$."IDENT":E.4:.500:E1
$."=":E.3:.490......124:.2250:K$."C":.19
5:.124...J..S0$."NUM".....T..S0$."IDENT"
.2290.O...E1$."STR":E.2:.500:N3.F(C$):..
.....206:.I.0.E.2:.540......T0$(I).."C".
E.2:.540.....N3.T2(I):....... VAR DECL.7
.$.E1$."IDENT":E.4:.500.L.8.K$."V":.195:
.124.[.L.. SIMP EXP.M.V..S0$."+".2420...
`..S0$.."-".2590...J.Y$.S0$:.6180...T..1
24:.2610:.6240.A....Y$."-".X1.16:X3.1:.1
0.S....S0$."+".2500......S0$."-".2500...
...S0$.."OR".....D.Y$.S0$:.6180:.124:.26
10:.6240.)....Y$."-".2570.:....Y$."+".25
80.T...X1.16:X3.14:.10:.2460.M...X1.16:X
3.3:.10:.2460.....X1.16:X3.2:.10:.2460..
....2610:.2460...2.. TERM...<..2850...F.
.S0$."*".2700.Q.P..S0$."DIV".2700...Z..S
0$."AND".2700...D..S0$."MOD".2700...N..S
0$."SHL".2700...X..S0$.."SHR"...A...Y$.S
0$:.6180:.124:.2850:.6240.T....Y$."DIV".
2790.G....Y$."MOD".2800.X....Y$."*".2810
...H..Y$."SHL".2820...R..Y$."SHR".2830..
...X1.16:X3.15:.10:.2630.Q...X1.16:X3.5:
.10:.2630.....X1.16:X3.7:.10:.2630.....X
1.16:X3.4:.10:.2630.....X1.16:X3.17:.10:
.2630.7...X1.16:X3.18:.10:.2630.D.".. FA
CTOR.Z.,..S0$."IDENT".2940.N.6..S0$."NUM
".3060...@..S0$."STR".3080...J..S0$."(".
3100...T..S0$."MEM".3140...^..S0$."NOT".
3260.J.H.E.23:.540.V.R.. IDENT...|..206:
.I.0.E.11:.540......T0$(I)."P".E.21:.540
......T0$(I).."Y".3000.=...X1.80:X3.1:.1
0:I.I.1:.4290.R....T0$(I)."A".3190.H.B..
T0$(I).."C".3030...L.X1.0:X3.T2(I):.10:.
124...V.X1.32.(L1.T1(I)):X3.T2(I):.10:.1
24.B...X1.0:X3.N3:.10:.124.....X1.0:X3.F
(C$):.10:.124......124:.3290...&..S0$.")
".124...0.E.22:.540.C.D.E1$."(":E.33:.49
0:.124:.3290:E1$.")":E.34:.500:.124.[.L.
X1.32.15:X3.0:.10:..H.V.X.I:.220. ...E1$
."(":E.33:.490:.124:.3290:E1$.")":E.34:.
500:.230.H...X1.160.(L1.T1(X)):X3.T2(X):
.10:.124......124:.2850:X1.16:X3.16:.10:
....Z..2390:. EXPR......S0$."=".3380....
..S0$."<>".3380.1....S0$."<".3380.D....S
0$."<=".3380.V....S0$.">".3380.G. ..S0$.
.">=".....4.Y$.S0$:.6180:.124:.2390:.624
0...R..Y$."=".X1.16:X3.8:.10...\..Y$."<>
".X1.16:X3.9:.10...F..Y$."<".X1.16:X3.10
:.10...P..Y$.">=".X1.16:X3.11:.10...Z..Y
$.">".X1.16:X3.12:.10.2....Y$."<=".X1.16
:X3.13:.10.8.....U....S0$."IDENT".3630:.
STMT.H....S0$."IF".4440.|....S0$."FOR".
5170...J..S0$."WHILE".4800...T..S0$."CAS
E".4890......S0$."REPEA".4730.S....S0$."
BEGIN".4590......S0$."READ".4040......S0
$."WRITE".3870......S0$."MEM".4650.'....
S0$."CALL".4240.-.....>....206:. ASSGN.Q
.8..I.0.E.11:.540.F.B..T0$(I)."A".3700.{
.L..T0$(I)."V".3760...V..T0$(I)."Y".3760
...`..T0$(I)."P".4290...J.E.12:.540...T.
X.I:.220:X.16:.220:E1$."(":E.33:.490:.12
4:.3290.....E1$.")":E.34:.500:.3780.....
X.I:.220:X.0:.220.1.D..124:.S0$.":=".381
0.?.X.E.13:.540.H....124.W....3290:.230.
....K.X:.230:X1.48.(K.8).(L1.T1(X)):X3.T
2(X):.10:.. ...E1$."(":E.31:.490...(..12
4:.S0$.."STR".3950.P.2.L.C(C$):.L.1.3910
...<.X1.0:X3.F(C$):.10:X1.112:X3.1:.10:.
3940.".F..I.1.L:X1.0:X3.F(J(C$,I,1)):.10
:..D.Z.X1.0:X3.L:.10:X1.112:X3.8:.10.S.D
..124:.4000.A.N..3290:K.1.R.X..S0$."#".K
.3......S0$."%".K.5......K.1..124.....X1
.112:X3.K:.10... ..S0$.",".3880.R...E1$.
")":E.22:.500:.124...H.E1$."(":E.31:.490
...R.E1$."IDENT":E.4:.490:.206:.I.0.E.11
:.540.3...X.I:.220:.T0$(I)."A".4190.M...
.T0$(I)."V".L.0:.4100.Z...E.4:.540.G....
124:K.0.X....S0$."#".K.2......S0$."%".K.
4...".X1.112:X3.K:.10:.K.0..124.T.6..230
:X1.48.(L.8).(L1.T1(X)):X3.T2(X):.10...@
..S0$.",".4050...J.E1$.")":E.31:.500:.12
4.4.^.E1$."(":E.33:.490:.124:.3290:E1$."
)":E.34:.500.C.H.L.16:.4100.V...E1$."(":
E.31:.490:.124:.3290:E1$.")":E.22:.500..
...X1.64.15:X3.0:.10:.124...B.K2.0:K3.I:
.T3(I).0.4400.C.V.E1$."(":E.31:.490.....
X.K2:.220:X.K3:.220:.124:.3290:.230:K3.X
......230:K2.X:K2.K2.1:.S0$.",".4320....
..K2..T3(K3).E.35:.540.D.&.E1$.")":E.22:
.500.H.0.X1.64.(L1.T1(K3)):X3.T2(K3):.10
...:..K2..0. X1.80:X3..K2:.10...D..124..
.X..124:.3290.E.L.E1$."THEN":E.16:.500:.
124:X.C1:.220.....X1.96.0:X3.0:.10:.3490
:.S0$.."ELSE".6520......230:K.X:X.C1:.22
0:X1.96.15:X3.0:.10.:.F.X.K:.6540:.124:.
3490:.6520.W....124:.3490:.S0$.";".4590.
J....S0$."END".124.X...E.17:.540...*.E1$
."(":E.33:.490:.124:.3290...>..S0$..")".
E.34:.540...H.E1$.":=":E.13:.490:.124:.
3290:X1.48.15:X3.0:.10:....Z.X.C1:.220..
....124:.3490:.S0$.";".4740.8...E1$."UNT
IL":E.10:.500:.124:.3290.T....230:X1.96.
0:X3.X:.10:.......124:X.C1:.220:.3290:X.
C1:.220:X1.96:X3.0:.10.....E1$."DO":E.18
:.500.L....124:.3490:.230:K.X:.230:X1.96
.15:X3.X:.10.Z...X.K:.6540.. ...124:.329
0:E1$."OF":E.25:.500:I2.1.. 8.I1.0.8 B..
124:.2250:X1.16:X3.21:.10:X1.0:X3.N3:.10
.^ L.X1.16:X3.8:.10:.124:.S0$.":".4990..
`.E1$.",":E.5:.500:X.C1:.220:X1.96.1:X3
.0:.10:I1.I1.1:.4930.. T.I1.I1.1:.4930.S
~.K.C1:X1.96.0:X3.0:.10:.I1.0.5010.. ..
.I.1.I1:.6520:...!..X.K:.220:.124:X.I2:.
220:.3490:.230:I2.X.(!...S0$."ELSE".5090
.;!...S0$..";".5130.S!D.K.C1:X1.96.15:X3
.0:.10:.6520:X.K:.220:I2.I2.1:.4920..!..
K.C1:X1.96.15:X3.0:.10:.6520:X.K:.220:.1
24:X.I2:.220..!...3490:.230:I2.X.X!..E1$
."END":E.17:.500.."...I.1.I2:.6520:.:X1.
80:X3..1:.10:.124.9"2.E1$."IDENT":E.4:.4
90:.3630:.220:F9.1:.S0$."TO".5210.X"P.E1
$."DOWNT":E.28:.500:F9.0.Z"Z..124:.3290:
.230:K.X:X.C1:.220.."N.X1.16:X3.21:.10:X
1.32.(L1.T1(K)):X3.T2(K):.10.."X.X1.16:X
3.13.F9.F9:.10:X.C1:.220:X1.96.0:X3.0:.1
0..#..X.F9:.220:X.K:.220:E1$."DO":E.18:.
500:.124.=#...3490:.230:X1.32.(L1.T1(X))
:X3.T2(X):.10.\# .K.X:.230:X1.16:X3.20.X
:.10.~#..X1.48.(L1.T1(K)):X3.T2(K):.10..
#...230:K.X:.230:X1.96.15:X3.X:.10.B#..X
.K:.6540:X1.80:X3..1:.10:...#..D0.3:T2(T
1.K1).C1:X1.96.15:X3.0:.10:X.T1.K1:.220:
. BLOCK..$...S0$."CONST".5450.)$...S0$."
VAR".5550.>$"..S0$."PROC".5730.S$,..S0$.
"FUNC".5770.I$6..S0$."BEGIN".5980.W$@.E.
25:.540..$J..124:. CONST DCL..$^..2170:E
1$.";":E.5:.500:.124..$R..S0$."VAR".5550
.U$|..S0$."PROC".5730..$...S0$."FUNC".57
70..%...S0$."BEGIN".5980..%...5470..%...
VAR DCL.%%..L.0:F9.1.4%...124:.2340.L%B
.L.L.1:.S0$.",".5560.X%L.E1$.":":E.5:.50
0:.124:.S0$."ARRAY".5610..%..E1$."INTEG"
:E.36:.500:.5670..%..E1$."(":E.33:.490:.
124:.2250..%..E1$.")":E.34:.490:E1$."OF"
:E.26:.490:E1$."INTEG":E.36:.490.=&..D0.
D0.L:.I.T1.L.1.T1:T0$(I)."A":T3(I).N3.1:
T2(I).D0:D0.D0.N3.1:..H&&.E1$.";":E.5:.4
90:.124:.S0$."PROC".5730.}&:..S0$."FUNC"
.5770..&D..S0$."BEGIN".5980..&N.L.0:F9.1
:.2340:.5570..&B.E1$."IDENT":E.4:.490:K1
.0:K$."P":.195:L1.L1.1:.5810..&... FUNC
DCL.%'..E1$."IDENT":E.4:.490:K$."F":.195
:L1.L1.1:K1.1.5'..K$."Y":.195.X'..K2.K1:
.124:X.T1:.220:X.D0:.220.K'P..S0$.."(".5
890..'Z..124:F9.0:.2340:K1.K1.1..'...S0$
.",".5850.D'..E1$.")":E.22:.500:.124:T3(
T1.K1).K1.K2.Y'..E1$.";":E.5:.500..'...I
.1.K1:T2(T1.I.1)..I:...( ..124:.5340:L1.
L1.1.@(*..230:D0.X:.230:T1.X:E1$.";":E.5
:.500:.124:.5410.Y(\..124:.230:K.X:X.T2(
K):.6540:T2(K).C1:X1.80:X3.D0:.10..(...3
490:.S0$..";".6050..(...124:.6020..(...S
0$.."END". E.17:.540.V(...124:X1.16:X3.0
:.10:...($.S$(P8).Y$:P8.P8.1:.:. PUSH..)
`.P8.P8.1:Y$.S$(P8):.:. POP.&)X..230:. F
WD REF.`)..N.P7.X.3:Z1.C1..(C1.C2).C2:Z2
..(C1.C2):.Z2.0.Z2.Z2.C2.{)...N.1,Z1:.N.
2,Z2:..LL... )...PR,"ADD AT";X;"CHANGED
TO";C1:...)(#. INPUT LINE.A)2#.PR,C1;" "
;.W)<#.9100:.L$."".9010..)F#L$.L$." ":C.
0:L0.C(L$):...*.#LC.LC.1:L$."".,*.#.EF..
"** END OF FILE **":E.9:.540.8*.#.#IP,A$
.V* #.ST.64.9190:. END OF FILE.{*.#.ST..
0.."INPUT ERROR:";ST:.60200..*.#.A$..G(2
55).9170:. CHECK END OF LINE..*.#.L$:.LL
.PR..3..PR,L$.C*H#..P*R#L$.L$.A$.Z*.#.91
05..*.#.L$:.LL.PR..3..PR,L$..+.#EF..1: I
P..+.#..*+`..". .ABACUS SOFTWA
RE.K+E.." P-CODE COMPILER..+T.
K.0:I.0:P.P7:C2.256:N0.32:N1.32767:N2.8:
P8.1:IP.8:EF.0..+Y..S(T0),T0$(T0),W$(32)
,T$(T0),T1(T0),T2(T0),T3(T0).Q+~..I.1.32
:.W$(I):...,...AND,ARRAY,BEGIN,CALL,CASE
,CONST,DIV,DO,DOWNT,ELSE,END,FOR,FUNC,IF
.I,...INTEG,MEM,MOD,NOT,OF,OR,PROC,READ,
REPEA,SHL.V,...SHR,THEN,TO,TYPE,UNTIL,VA
R, WHILE,WRITE..,..M$."LITOPRLODSTOCALIN
TJPCCSP"..,...:."P-CODE PRINTED";Y$.M,..
LL.Y$."Y":PR.3:.PR,PR..,..."FILE NAME";F
I$..-..."FILE ON T)APE OR D)ISK";DV$..-.
..DV$."T"..IP,1,0,FI$.".SOURCE":.60090.B
-...DV$.."D".60082.A-...IP,8,IP,FI$.".SO
URCE,S,R"..-..SS.TI:X$." ":.124:.5340:E1
$.".":E.9:.500: IP..-D..P,255:.P.1,255..
-N.."COMP.TIME";.((TI.SS).60);"SEC,";.(L
C.(TI.SS).60.2);"LINES/MIN...X.."SAVE P-
CODE";A$......A$."N".60200.%....A$.."Y".
60120.G...."SAVE ON T)APE OR D)ISK";DV$.
[....DV$.."T".60170.S....IP,1,2,FI$.".CO
DE"......I.P7.P.2:.IP,B(I):.I: IP:.60200
......DV$.."D".60150.O....IP,8,IP,"@0:".
FI$.".CODE,S,W"......I.P7.P.2:.IP,G(B(I)
);:.I: IP../(.."END OF COMPILE":.55,B(82
6):.56,B(827):..... .51..RR
> CLICK IMAGE PREVIEW FOR FULL MODAL