PASCAL 2
FILE INFORMATION
FILENAME(S): PASCAL 2
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:10:03
APPEARS ON: 1 disk(s)
FILE HASH
44848d47b14f5dd33680abe498482669a2365fe8cf3ecd7bd72a2bce11315a02
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GEBRUIKS I | PASCAL 2 | PRG | DuncanTwain | 19 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 9E 20 32 30 36 34 00 00 00 00 |....... 2064....| 00000010: 00 A9 A0 A0 00 85 FC 84 FB 84 FD A9 E0 85 FE A2 |................| 00000020: 20 B1 FB 91 FB B1 FD 91 FD C8 D0 F5 E6 FC E6 FE | ...............| 00000030: CA D0 EE A9 E5 85 01 8D D6 FD A9 05 8D 00 DD 8D |................| 00000040: CC FD A9 80 8D 88 02 A9 04 8D 18 D0 8D D1 EC A9 |................| 00000050: 05 8D 21 D0 8D 86 02 A9 93 20 D2 FF A9 00 8D 21 |..!...... .....!| 00000060: D0 8D 20 D0 8D D9 EC 8D DA EC A9 04 8D 82 02 A9 |.. .............| 00000070: 80 8D 84 02 EA EA EA A9 86 8D DB E4 A9 02 8D DC |................| 00000080: E4 A2 36 BD 90 08 9D 74 E4 CA 10 F7 6C 00 A0 20 |..6....t....l.. | 00000090: 20 0D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 | . *********** C| 000000A0: 42 4D 2D 36 34 20 50 41 53 43 41 4C 20 2A 2A 2A |BM-64 PASCAL ***| 000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 20 0D 0D 20 00 20 20 20 |******** .. . | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 15 | .| 00000100: 08 01 00 8F 20 50 41 53 43 41 4C 20 45 44 49 54 |.... PASCAL EDIT| 00000110: 4F 52 00 33 08 02 00 97 35 33 32 38 30 2C 30 3A |OR.3....53280,0:| 00000120: 97 35 33 32 38 31 2C 30 3A 97 37 38 38 2C 35 32 |.53281,0:.788,52| 00000130: 00 49 08 03 00 86 4C 24 28 33 30 30 30 29 3A 4D |.I....L$(3000):M| 00000140: 4C B2 33 30 30 30 00 58 08 04 00 4D 41 58 B2 30 |L.3000.X...MAX.0| 00000150: 3A 56 56 B2 30 00 81 08 05 00 99 22 93 11 20 1E |:VV.0......".. .| 00000160: 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 43 42 4D | *** CBM| 00000170: 2D 36 34 20 50 41 53 43 41 4C 20 2A 2A 2A 00 A6 |-64 PASCAL ***..| 00000180: 08 06 00 99 22 05 11 20 50 41 53 43 41 4C 20 45 |....".. PASCAL E| 00000190: 44 49 54 4F 52 20 4E 4F 57 20 57 4F 52 4B 49 4E |DITOR NOW WORKIN| 000001A0: 47 20 1E 00 C0 08 07 00 99 22 11 22 B8 28 30 29 |G .......".".(0)| 000001B0: 22 42 59 54 45 53 20 46 52 45 45 2E 11 00 CA 08 |"BYTES FREE.....| 000001C0: 08 00 99 22 1E 91 22 00 E1 08 09 00 9F 31 2C 30 |...".."......1,0| 000001D0: 3A 84 31 2C 41 24 3A A0 31 3A 99 22 90 22 00 F6 |:.1,A$:.1:."."..| 000001E0: 08 0A 00 8B C2 28 32 30 32 29 B1 33 39 A7 99 22 |.....(202).39.."| 000001F0: 91 22 3B 00 27 09 0B 00 99 22 91 94 94 20 20 9D |.";.'...."... .| 00000200: 9D 22 C7 28 33 34 29 C7 28 33 34 29 22 9D 22 C7 |.".(34).(34)".".| 00000210: 28 32 30 29 3B 3A 97 31 39 38 2C 31 3A 97 36 33 |(20);:.198,1:.63| 00000220: 31 2C 31 33 00 3B 09 0C 00 9F 31 2C 30 3A 84 31 |1,13.;....1,0:.1| 00000230: 2C 41 24 3A 99 3A A0 31 00 50 09 0D 00 8B C2 28 |,A$:.:.1.P.....(| 00000240: 32 30 32 29 B1 33 39 A7 99 22 91 22 3B 00 62 09 |202).39..".";.b.| 00000250: 0E 00 99 22 91 20 22 C7 28 32 30 29 22 1E 22 00 |...". ".(20)".".| 00000260: 79 09 0F 00 8B C8 28 41 24 2C 34 29 B2 22 53 41 |y.....(A$,4)."SA| 00000270: 56 45 22 A7 38 32 00 90 09 10 00 8B C8 28 41 24 |VE".82.......(A$| 00000280: 2C 34 29 B2 22 4C 4F 41 44 22 A7 36 36 00 A7 09 |,4)."LOAD".66...| 00000290: 11 00 8B C8 28 41 24 2C 34 29 B2 22 4C 49 53 54 |....(A$,4)."LIST| 000002A0: 22 A7 33 34 00 BC 09 12 00 8B C8 28 41 24 2C 33 |".34.......(A$,3| 000002B0: 29 B2 22 4E 45 57 22 A7 8A 00 E0 09 13 00 8B C8 |)."NEW".........| 000002C0: 28 41 24 2C 34 29 B2 22 53 54 4F 50 22 A7 99 22 |(A$,4)."STOP".."| 000002D0: 1E 93 22 3A 97 37 38 38 2C 34 39 3A 80 00 1D 0A |..":.788,49:....| 000002E0: 14 00 8B C8 28 41 24 2C 33 29 B2 22 46 52 45 22 |....(A$,3)."FRE"| 000002F0: A7 99 22 05 11 20 4D 4F 4D 45 4E 54 9D 9D 9D 9D |..".. MOMENT....| 00000300: 9D 9D 9D 22 B8 28 30 29 22 9D 20 42 59 54 45 53 |...".(0)". BYTES| 00000310: 20 46 52 45 45 1E 22 3A 89 38 00 43 0A 15 00 8B | FREE.":.8.C....| 00000320: C8 28 41 24 2C 35 29 B2 22 50 4C 49 53 54 22 A7 |.(A$,5)."PLIST".| 00000330: 9F 33 2C 34 3A 9D 33 3A 50 52 B2 31 3A 89 33 34 |.3,4:.3:PR.1:.34| 00000340: 00 50 0A 16 00 8B 41 24 B2 22 22 A7 38 00 59 0A |.P....A$."".8.Y.| 00000350: 17 00 56 56 B2 31 00 6D 0A 18 00 4C B2 C5 28 41 |..VV.1.m...L..(A| 00000360: 24 29 3A 8B 4C B2 30 A7 39 30 00 84 0A 19 00 8B |$):.L.0.90......| 00000370: 4C B3 4D 4C A7 8B 4C B1 4D 41 58 A7 4D 41 58 B2 |L.ML..L.MAX.MAX.| 00000380: 4C 00 AA 0A 1A 00 8B C8 28 41 24 2C 31 29 B2 22 |L.......(A$,1)."| 00000390: 20 22 A7 41 24 B2 C9 28 41 24 2C C3 28 41 24 29 | ".A$..(A$,.(A$)| 000003A0: AB 31 29 3A 89 32 36 00 C3 0A 1B 00 8B C3 28 41 |.1):.26.......(A| 000003B0: 24 29 B2 30 A7 4C 24 28 4C 29 B2 22 22 3A 89 38 |$).0.L$(L)."":.8| 000003C0: 00 D4 0A 1C 00 43 B2 C6 28 C8 28 41 24 2C 31 29 |.....C..(.(A$,1)| 000003D0: 29 00 FA 0A 1D 00 8B 43 B1 B2 34 38 AF 43 B3 B2 |)......C..48.C..| 000003E0: 35 37 A7 41 24 B2 C9 28 41 24 2C C3 28 41 24 29 |57.A$..(A$,.(A$)| 000003F0: AB 31 29 3A 89 32 37 00 1C 0B 1E 00 8B C8 28 41 |.1):.27.......(A| 00000400: 24 2C 31 29 B2 22 20 22 A7 41 24 B2 C9 28 41 24 |$,1)." ".A$..(A$| 00000410: 2C C3 28 41 24 29 AB 31 29 00 2B 0B 1F 00 8B 4C |,.(A$).1).+....L| 00000420: B1 32 30 30 30 A7 39 31 00 38 0B 20 00 4C 24 28 |.2000.91.8. .L$(| 00000430: 4C 29 B2 41 24 00 3F 0B 21 00 89 38 00 54 0B 22 |L).A$.?.!..8.T."| 00000440: 00 41 24 B2 C9 28 41 24 2C C3 28 41 24 29 AB 34 |.A$..(A$,.(A$).4| 00000450: 29 00 6D 0B 23 00 8B 41 24 B2 22 22 A7 42 B2 30 |).m.#..A$."".B.0| 00000460: 3A 45 B2 4D 41 58 3A 89 34 36 00 79 0B 24 00 43 |:E.MAX:.46.y.$.C| 00000470: B2 C5 28 41 24 29 00 8F 0B 25 00 8B 43 B3 30 A7 |..(A$)...%..C.0.| 00000480: 42 B2 30 3A 45 B2 AB 43 3A 89 34 36 00 97 0B 26 |B.0:E..C:.46...&| 00000490: 00 42 B2 43 00 A7 0B 27 00 8B C3 28 41 24 29 B2 |.B.C...'...(A$).| 000004A0: 30 A7 34 35 00 B8 0B 28 00 43 B2 C6 28 C8 28 41 |0.45...(.C..(.(A| 000004B0: 24 2C 31 29 29 00 E7 0B 29 00 8B 28 43 B1 B2 34 |$,1))...)..(C..4| 000004C0: 38 AF 43 B3 B2 35 37 29 B0 28 43 B2 33 32 29 A7 |8.C..57).(C.32).| 000004D0: 41 24 B2 C9 28 41 24 2C C3 28 41 24 29 AB 31 29 |A$..(A$,.(A$).1)| 000004E0: 3A 89 33 39 00 F3 0B 2A 00 43 B2 C5 28 41 24 29 |:.39...*.C..(A$)| 000004F0: 00 05 0C 2B 00 8B 43 B3 30 A7 45 B2 AB 43 3A 89 |...+..C.0.E..C:.| 00000500: 34 36 00 1C 0C 2C 00 8B C3 28 41 24 29 B1 30 A7 |46...,...(A$).0.| 00000510: 45 B2 4D 41 58 3A 89 34 36 00 24 0C 2D 00 45 B2 |E.MAX:.46.$.-.E.| 00000520: 42 00 35 0C 2E 00 8B 45 B1 4D 41 58 A7 45 B2 4D |B.5....E.MAX.E.M| 00000530: 41 58 00 43 0C 2F 00 8B 42 B1 4D 41 58 A7 35 35 |AX.C./..B.MAX.55| 00000540: 00 4E 0C 30 00 81 49 B2 42 A4 45 00 62 0C 31 00 |.N.0..I.B.E.b.1.| 00000550: 8B 4C 24 28 49 29 B2 22 22 A7 82 3A 89 35 34 00 |.L$(I).""..:.54.| 00000560: 6F 0C 32 00 99 49 3B 4C 24 28 49 29 00 89 0C 33 |o.2..I;L$(I)...3| 00000570: 00 8B 50 52 B3 B1 31 A7 A1 41 24 3A 8B 41 24 B2 |..PR..1..A$:.A$.| 00000580: 22 20 22 A7 35 36 00 9A 0C 34 00 8B 41 24 B2 C7 |" ".56...4..A$..| 00000590: 28 33 29 A7 49 B2 45 00 A0 0C 35 00 82 00 B5 0C |(3).I.E...5.....| 000005A0: 36 00 8B 50 52 B2 31 A7 98 33 3A A0 33 3A 50 52 |6..PR.1..3:.3:PR| 000005B0: B2 30 00 BC 0C 37 00 89 38 00 CE 0C 38 00 A1 41 |.0...7..8...8..A| 000005C0: 24 3A 8B 41 24 B2 22 22 A7 35 36 00 D6 0C 39 00 |$:.A$."".56...9.| 000005D0: 89 35 32 00 EB 0C 3A 00 99 22 11 05 46 49 4C 45 |.52...:.."..FILE| 000005E0: 4E 41 4D 45 20 1E 22 3B 00 FF 0C 3B 00 9F 31 2C |NAME .";...;..1,| 000005F0: 30 3A 84 31 2C 46 24 3A 99 3A A0 31 00 1B 0D 3C |0:.1,F$:.:.1...<| 00000600: 00 99 22 11 05 12 54 92 41 50 45 20 4F 46 20 12 |.."...T.APE OF .| 00000610: 44 92 49 53 4B 20 3F 1E 00 2D 0D 3D 00 A1 51 24 |D.ISK ?..-.=..Q$| 00000620: 3A 8B 51 24 B2 22 22 A7 36 31 00 42 0D 3E 00 8B |:.Q$."".61.B.>..| 00000630: 51 24 B2 22 54 22 A7 44 45 B2 31 3A 89 36 35 00 |Q$."T".DE.1:.65.| 00000640: 57 0D 3F 00 8B 51 24 B2 22 44 22 A7 44 45 B2 38 |W.?..Q$."D".DE.8| 00000650: 3A 89 36 35 00 5F 0D 40 00 89 36 31 00 65 0D 41 |:.65._.@..61.e.A| 00000660: 00 8E 00 6D 0D 42 00 8D 35 38 00 82 0D 43 00 8B |...m.B..58...C..| 00000670: 44 45 B2 31 A7 9F 31 2C 31 2C 30 3A 89 37 32 00 |DE.1..1,1,0:.72.| 00000680: 99 0D 44 00 9F 31 35 2C 38 2C 31 35 3A 9F 31 2C |..D..15,8,15:.1,| 00000690: 38 2C 38 2C 46 24 00 A6 0D 45 00 84 31 35 2C 45 |8,8,F$...E..15,E| 000006A0: 2C 45 24 00 B2 0D 46 00 8B 45 B2 30 A7 37 32 00 |,E$...F..E.0.72.| 000006B0: D0 0D 47 00 99 22 11 05 3C 3C 20 22 45 24 22 20 |..G.."..<< "E$" | 000006C0: 3E 3E 22 3A A0 31 3A A0 31 35 3A 89 38 00 ED 0D |>>":.1:.15:.8...| 000006D0: 48 00 8B 56 56 B2 31 A7 81 49 B2 31 A4 4D 4C 3A |H..VV.1..I.1.ML:| 000006E0: 4C 24 28 49 29 B2 22 22 3A 82 00 02 0E 49 00 99 |L$(I)."":....I..| 000006F0: 22 11 05 46 49 4C 45 20 46 4F 55 4E 44 1E 22 00 |"..FILE FOUND.".| 00000700: 0B 0E 4A 00 4C B2 31 30 00 27 0E 4B 00 A1 23 31 |..J.L.10.'.K..#1| 00000710: 2C 41 24 3A 99 41 24 3B 3A 8B 41 24 B2 C7 28 33 |,A$:.A$;:.A$..(3| 00000720: 29 A7 37 39 00 40 0E 4C 00 8B 41 24 B2 C7 28 31 |).79.@.L..A$..(1| 00000730: 33 29 A7 4C B2 4C AA 31 30 3A 89 37 38 00 53 0E |3).L.L.10:.78.S.| 00000740: 4D 00 4C 24 28 4C 29 B2 4C 24 28 4C 29 AA 41 24 |M.L$(L).L$(L).A$| 00000750: 00 5B 0E 4E 00 89 37 35 00 6E 0E 4F 00 4D 41 58 |.[.N..75.n.O.MAX| 00000760: B2 4C 3A 4C 24 28 4C 29 B2 22 22 00 75 0E 50 00 |.L:L$(L)."".u.P.| 00000770: A0 31 00 7C 0E 51 00 89 38 00 84 0E 52 00 8D 35 |.1.|.Q..8...R..5| 00000780: 38 00 99 0E 53 00 8B 44 45 B2 31 A7 9F 31 2C 31 |8...S..DE.1..1,1| 00000790: 2C 31 3A 89 38 35 00 B4 0E 54 00 9F 31 2C 38 2C |,1:.85...T..1,8,| 000007A0: 38 2C 22 40 30 3A 22 AA 46 24 AA 22 2C 53 2C 57 |8,"@0:".F$.",S,W| 000007B0: 22 00 D1 0E 55 00 81 49 B2 30 A4 4D 41 58 3A 8B |"...U..I.0.MAX:.| 000007C0: 4C 24 28 49 29 B2 22 22 A7 82 3A 89 38 39 00 F6 |L$(I).""..:.89..| 000007D0: 0E 56 00 81 4A B2 31 A4 C3 28 4C 24 28 49 29 29 |.V..J.1..(L$(I))| 000007E0: 3A 98 31 2C CA 28 4C 24 28 49 29 2C 4A 2C 31 29 |:.1,.(L$(I),J,1)| 000007F0: 3B 3A 82 00 FD 0E 57 00 98 31 00 04 0F 58 00 82 |;:....W..1...X..| 00000800: 49 00 17 0F 59 00 98 31 2C C7 28 33 29 3B 3A A0 |I...Y..1,.(3);:.| 00000810: 31 3A 89 38 00 36 0F 5A 00 99 22 11 05 3C 3C 20 |1:.8.6.Z.."..<< | 00000820: 53 59 4E 54 41 58 20 45 52 52 4F 52 20 3E 3E 22 |SYNTAX ERROR >>"| 00000830: 3A 89 38 00 5C 0F 5B 00 99 22 11 05 3C 3C 20 49 |:.8.\.[.."..<< I| 00000840: 4C 4C 45 47 41 4C 20 4C 49 4E 45 2D 4E 55 4D 42 |LLEGAL LINE-NUMB| 00000850: 45 52 20 3E 3E 22 3A 89 38 00 00 00 00 00 |ER >>":.8..... |
....... 2064...... ............ .......
.HP.....JP......V.......L..........P.Q..
..!P..... R....!P. P.Y..Z...............
..........6....T.J..L. . *********** C
BM-64 PASCAL *********** .. .
..... PASCAL EDITOR.3....
53280,0:.53281,0:.788,52.I....L$(3000):M
L.3000.X...MAX.0:VV.0......".. .
*** CBM-64 PASCAL ***......".. PASCAL E
DITOR NOW WORKING .......".".(0)"BYTES F
REE...J....".."......1,0:.1,A$: 1:."."..
....B(202).39..".";.'...."... .."G(34)G
(34)"."G(20);:.198,1:.631,13.;....1,0:.1
,A$:.: 1.P....B(202).39..".";.B....". "G
(20)".".Y....H(A$,4)."SAVE".82......H(A$
,4)."LOAD".66......H(A$,4)."LIST".34....
..H(A$,3)."NEW"........H(A$,4)."STOP".."
..":.788,49:.......H(A$,3)."FRE"..".. MO
MENT.......".(0)". BYTES FREE.":.8.C....
H(A$,5)."PLIST"..3,4:.3:PR.1:.34.P....A$
."".8.Y...VV.1.M...L.E(A$):.L.0.90......
L.ML..L.MAX.MAX.L......H(A$,1)." ".A$.I(
A$,C(A$).1):.26.C....C(A$).0.L$(L)."":.8
.T...C.F(H(A$,1))......C..48.C..57.A$.I(
A$,C(A$).1):.27......H(A$,1)." ".A$.I(A$
,C(A$).1).+....L.2000.91.8. .L$(L).A$.?.
!..8.T.".A$.I(A$,C(A$).4).M.#..A$."".B.0
:E.MAX:.46.Y.$.C.E(A$)...%..C.0.B.0:E..C
:.46...&.B.C...'..C(A$).0.45...(.C.F(H(A
$,1))...)..(C..48.C..57).(C.32).A$.I(A$,
C(A$).1):.39...*.C.E(A$)...+..C.0.E..C:.
46...,..C(A$).0.E.MAX:.46.$.-.E.B.5....E
.MAX.E.MAX.C./..B.MAX.55.N.0..I.B.E.B.1.
.L$(I).""..:.54.O.2..I;L$(I)...3..PR..1.
.A$:.A$." ".56...4..A$.G(3).I.E. .5.....
6..PR.1..3: 3:PR.0...7..8.N.8..A$:.A$.""
.56.V.9..52...:.."..FILENAME .";...;..1,
0:.1,F$:.: 1...<.."...T.APE OF .D.ISK ?.
.-.=..Q$:.Q$."".61.B.>..Q$."T".DE.1:.65.
W.?..Q$."D".DE.8:.65._.@..61.E.A...M.B..
58...C..DE.1..1,1,0:.72...D..15,8,15:.1,
8,8,F$...E..15,E,E$...F..E.0.72.P.G.."..
<< "E$" >>": 1: 15:.8...H..VV.1..I.1.ML:
L$(I)."":....I.."..FILE FOUND."...J.L.10
.'.K..#1,A$:.A$;:.A$.G(3).79.@.L..A$.G(1
3).L.L.10:.78.S.M.L$(L).L$(L).A$.[.N..75
.N.O.MAX.L:L$(L)."".U.P. 1.|.Q..8...R..5
8...S..DE.1..1,1,1:.85...T..1,8,8,"@0:".
F$.",S,W".Q.U..I.0.MAX:.L$(I).""..:.89..
.V..J.1.C(L$(I)):.1,J(L$(I),J,1);:....W.
.1...X..I...Y..1,G(3);: 1:.8.6.Z.."..<<
SYNTAX ERROR >>":.8.\.[.."..<< ILLEGAL L
INE-NUMBER >>":.8.....
> CLICK IMAGE PREVIEW FOR FULL MODAL