PASCAL ED
FILE INFORMATION
FILENAME(S): PASCAL ED
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:13:14
APPEARS ON: 1 disk(s)
FILE HASH
40fbd19a46043cff6da5064e528b25c1231d5d0ef656dde204ec19f61ce9b8a9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZDJ SOFT | PASCAL ED | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 8F 20 28 43 29 20 4E 4F 56 45 |....d.. (C) NOVE| 00000010: 4D 42 45 52 20 31 39 38 33 20 42 59 00 22 08 6E |MBER 1983 BY.".n| 00000020: 00 8F 00 3E 08 78 00 8F 20 20 20 20 20 43 4F 55 |...>.x.. COU| 00000030: 52 42 4F 49 53 20 53 4F 46 54 57 41 52 45 00 57 |RBOIS SOFTWARE.W| 00000040: 08 82 00 8F 20 20 20 20 20 4F 4B 41 50 49 53 54 |.... OKAPIST| 00000050: 52 41 41 54 20 31 38 00 72 08 8C 00 8F 20 20 20 |RAAT 18.r.... | 00000060: 20 20 36 35 31 33 20 52 4C 20 4E 49 4A 4D 45 47 | 6513 RL NIJMEG| 00000070: 45 4E 00 8F 08 96 00 8F 20 20 20 20 20 54 45 4C |EN...... TEL| 00000080: 20 3A 20 30 38 30 20 2D 20 35 36 36 33 31 35 00 | : 080 - 566315.| 00000090: 95 08 A0 00 8F 00 B3 08 AA 00 97 35 33 32 38 30 |...........53280| 000000A0: 2C 30 3A 97 35 33 32 38 31 2C 30 3A 97 37 38 38 |,0:.53281,0:.788| 000000B0: 2C 35 32 00 C9 08 B4 00 86 4C 24 28 32 30 30 30 |,52......L$(2000| 000000C0: 29 3A 4D 4C B2 32 30 30 30 00 D8 08 BE 00 4D 41 |):ML.2000.....MA| 000000D0: 58 B2 30 3A 56 56 B2 30 00 09 09 C8 00 99 22 93 |X.0:VV.0......".| 000000E0: 11 1D 1E 2A 2A 2A 20 43 42 4D 2D 36 34 20 50 41 |...*** CBM-64 PA| 000000F0: 53 43 41 4C 20 2A 2A 2A 20 28 43 29 20 43 4F 55 |SCAL *** (C) COU| 00000100: 52 42 4F 49 53 20 2A 2A 2A 00 22 09 D2 00 99 22 |RBOIS ***."...."| 00000110: 05 11 20 50 41 53 43 41 4C 20 45 44 49 54 4F 52 |.. PASCAL EDITOR| 00000120: 20 1E 00 3C 09 DC 00 99 22 11 22 B8 28 30 29 22 | ..<....".".(0)"| 00000130: 42 59 54 45 53 20 46 52 45 45 2E 11 00 55 09 E6 |BYTES FREE...U..| 00000140: 00 8F 20 2A 2A 20 53 54 41 52 54 20 45 44 49 54 |.. ** START EDIT| 00000150: 4F 52 20 2A 2A 00 5F 09 F0 00 99 22 1E 91 22 00 |OR **._...."..".| 00000160: 76 09 FA 00 9F 31 2C 30 3A 84 31 2C 41 24 3A A0 |v....1,0:.1,A$:.| 00000170: 31 3A 99 22 90 22 00 8B 09 04 01 8B C2 28 32 30 |1:.".".......(20| 00000180: 32 29 B1 33 39 A7 99 22 91 22 3B 00 BC 09 0E 01 |2).39..".";.....| 00000190: 99 22 91 94 94 20 20 9D 9D 22 C7 28 33 34 29 C7 |."... ..".(34).| 000001A0: 28 33 34 29 22 9D 22 C7 28 32 30 29 3B 3A 97 31 |(34)".".(20);:.1| 000001B0: 39 38 2C 31 3A 97 36 33 31 2C 31 33 00 D0 09 18 |98,1:.631,13....| 000001C0: 01 9F 31 2C 30 3A 84 31 2C 41 24 3A 99 3A A0 31 |..1,0:.1,A$:.:.1| 000001D0: 00 E5 09 22 01 8B C2 28 32 30 32 29 B1 33 39 A7 |..."...(202).39.| 000001E0: 99 22 91 22 3B 00 F7 09 2C 01 99 22 91 20 22 C7 |.".";...,..". ".| 000001F0: 28 32 30 29 22 1E 22 00 0F 0A 36 01 8B C8 28 41 |(20)"."...6...(A| 00000200: 24 2C 34 29 B2 22 53 41 56 45 22 A7 39 38 30 00 |$,4)."SAVE".980.| 00000210: 27 0A 40 01 8B C8 28 41 24 2C 34 29 B2 22 4C 4F |'.@...(A$,4)."LO| 00000220: 41 44 22 A7 38 31 30 00 3F 0A 4A 01 8B C8 28 41 |AD".810.?.J...(A| 00000230: 24 2C 34 29 B2 22 4C 49 53 54 22 A7 35 31 30 00 |$,4)."LIST".510.| 00000240: 54 0A 54 01 8B C8 28 41 24 2C 33 29 B2 22 4E 45 |T.T...(A$,3)."NE| 00000250: 57 22 A7 8A 00 78 0A 5E 01 8B C8 28 41 24 2C 34 |W"...x.^...(A$,4| 00000260: 29 B2 22 53 54 4F 50 22 A7 99 22 1E 93 22 3A 97 |)."STOP".."..":.| 00000270: 37 38 38 2C 34 39 3A 80 00 B7 0A 68 01 8B C8 28 |788,49:....h...(| 00000280: 41 24 2C 33 29 B2 22 46 52 45 22 A7 99 22 05 11 |A$,3)."FRE".."..| 00000290: 20 4D 4F 4D 45 4E 54 9D 9D 9D 9D 9D 9D 9D 22 B8 | MOMENT.......".| 000002A0: 28 30 29 22 9D 20 42 59 54 45 53 20 46 52 45 45 |(0)". BYTES FREE| 000002B0: 1E 22 3A 89 32 34 30 00 DF 0A 72 01 8B C8 28 41 |.":.240...r...(A| 000002C0: 24 2C 35 29 B2 22 50 4C 49 53 54 22 A7 9F 33 2C |$,5)."PLIST"..3,| 000002D0: 34 3A 9D 33 3A 50 52 B2 39 39 3A 89 35 31 30 00 |4:.3:PR.99:.510.| 000002E0: EE 0A 7C 01 8B 41 24 B2 22 22 A7 32 34 30 00 F8 |..|..A$."".240..| 000002F0: 0A 86 01 56 56 B2 39 39 00 16 0B 90 01 4C B2 C5 |...VV.99.....L..| 00000300: 28 41 24 29 3A 8B 4C B2 30 A7 31 30 37 30 3A 8F |(A$):.L.0.1070:.| 00000310: 20 45 52 52 4F 52 00 2D 0B 9A 01 8B 4C B3 4D 4C | ERROR.-....L.ML| 00000320: A7 8B 4C B1 4D 41 58 A7 4D 41 58 B2 4C 00 54 0B |..L.MAX.MAX.L.T.| 00000330: A4 01 8B C8 28 41 24 2C 31 29 B2 22 20 22 A7 41 |....(A$,1)." ".A| 00000340: 24 B2 C9 28 41 24 2C C3 28 41 24 29 AB 31 29 3A |$..(A$,.(A$).1):| 00000350: 89 34 32 30 00 6F 0B AE 01 8B C3 28 41 24 29 B2 |.420.o.....(A$).| 00000360: 30 A7 4C 24 28 4C 29 B2 22 22 3A 89 32 34 30 00 |0.L$(L)."":.240.| 00000370: 80 0B B8 01 43 B2 C6 28 C8 28 41 24 2C 31 29 29 |....C..(.(A$,1))| 00000380: 00 AA 0B C2 01 8B 43 B1 B2 34 38 20 AF 20 43 B3 |......C..48 . C.| 00000390: B2 35 37 20 A7 41 24 B2 C9 28 41 24 2C C3 28 41 |.57 .A$..(A$,.(A| 000003A0: 24 29 AB 31 29 3A 89 34 33 30 00 CC 0B CC 01 8B |$).1):.430......| 000003B0: C8 28 41 24 2C 31 29 B2 22 20 22 A7 41 24 B2 C9 |.(A$,1)." ".A$..| 000003C0: 28 41 24 2C C3 28 41 24 29 AB 31 29 00 E5 0B D6 |(A$,.(A$).1)....| 000003D0: 01 8B 4C B1 32 30 30 30 A7 31 30 38 30 3A 8F 20 |..L.2000.1080:. | 000003E0: 45 52 52 4F 52 00 F2 0B E0 01 4C 24 28 4C 29 B2 |ERROR.....L$(L).| 000003F0: 41 24 00 FB 0B EA 01 89 32 34 30 00 0C 0C F4 01 |A$......240.....| 00000400: 8F 20 2A 2A 20 4C 49 53 54 20 2A 2A 00 21 0C FE |. ** LIST **.!..| 00000410: 01 41 24 B2 C9 28 41 24 2C C3 28 41 24 29 AB 34 |.A$..(A$,.(A$).4| 00000420: 29 00 3B 0C 08 02 8B 41 24 B2 22 22 A7 42 B2 30 |).;....A$."".B.0| 00000430: 3A 45 B2 4D 41 58 3A 89 36 33 30 00 47 0C 12 02 |:E.MAX:.630.G...| 00000440: 43 B2 C5 28 41 24 29 00 5E 0C 1C 02 8B 43 B3 30 |C..(A$).^....C.0| 00000450: A7 42 B2 30 3A 45 B2 AB 43 3A 89 36 33 30 00 66 |.B.0:E..C:.630.f| 00000460: 0C 26 02 42 B2 43 00 77 0C 30 02 8B C3 28 41 24 |.&.B.C.w.0...(A$| 00000470: 29 B2 30 A7 36 32 30 00 88 0C 3A 02 43 B2 C6 28 |).0.620...:.C..(| 00000480: C8 28 41 24 2C 31 29 29 00 BD 0C 44 02 8B 28 43 |.(A$,1))...D..(C| 00000490: B1 B2 34 38 20 AF 20 43 B3 B2 35 37 29 20 B0 20 |..48 . C..57) . | 000004A0: 28 43 B2 33 32 29 20 A7 41 24 B2 C9 28 41 24 2C |(C.32) .A$..(A$,| 000004B0: C3 28 41 24 29 AB 31 29 3A 89 35 36 30 00 C9 0C |.(A$).1):.560...| 000004C0: 4E 02 43 B2 C5 28 41 24 29 00 DC 0C 58 02 8B 43 |N.C..(A$)...X..C| 000004D0: B3 30 A7 45 B2 AB 43 3A 89 36 33 30 00 F4 0C 62 |.0.E..C:.630...b| 000004E0: 02 8B C3 28 41 24 29 B1 30 A7 45 B2 4D 41 58 3A |...(A$).0.E.MAX:| 000004F0: 89 36 33 30 00 FC 0C 6C 02 45 B2 42 00 0D 0D 76 |.630...l.E.B...v| 00000500: 02 8B 45 B1 4D 41 58 A7 45 B2 4D 41 58 00 1C 0D |..E.MAX.E.MAX...| 00000510: 80 02 8B 42 B1 4D 41 58 A7 37 30 30 00 27 0D 8A |...B.MAX.700.'..| 00000520: 02 81 49 B2 42 A4 45 00 3C 0D 94 02 8B 4C 24 28 |..I.B.E.<....L$(| 00000530: 49 29 B2 22 22 A7 82 3A 89 36 39 30 00 49 0D 9E |I).""..:.690.I..| 00000540: 02 99 49 3B 4C 24 28 49 29 00 65 0D 9F 02 8B 50 |..I;L$(I).e....P| 00000550: 52 B3 B1 39 39 A7 A1 41 24 3A 8B 41 24 B2 22 20 |R..99..A$:.A$." | 00000560: 22 A7 37 30 31 00 76 0D A3 02 8B 41 24 B2 C7 28 |".701.v....A$..(| 00000570: 33 29 A7 49 B2 45 00 7C 0D A8 02 82 00 92 0D B2 |3).I.E.|........| 00000580: 02 8B 50 52 B2 39 39 A7 98 33 3A A0 33 3A 50 52 |..PR.99..3:.3:PR| 00000590: B2 30 00 9B 0D BC 02 89 32 34 30 00 AE 0D BD 02 |.0......240.....| 000005A0: A1 41 24 3A 8B 41 24 B2 22 22 A7 37 30 31 00 B7 |.A$:.A$."".701..| 000005B0: 0D BE 02 89 36 37 35 00 D7 0D C6 02 8F 20 2A 2A |....675...... **| 000005C0: 20 4C 4F 41 44 20 45 4E 20 53 41 56 45 20 53 59 | LOAD EN SAVE SY| 000005D0: 4E 54 41 58 20 2A 2A 00 EC 0D D0 02 99 22 11 05 |NTAX **......"..| 000005E0: 46 49 4C 45 4E 41 4D 45 20 1E 22 3B 00 00 0E DA |FILENAME .";....| 000005F0: 02 9F 31 2C 30 3A 84 31 2C 46 24 3A 99 3A A0 31 |..1,0:.1,F$:.:.1| 00000600: 00 1C 0E E4 02 99 22 11 05 12 54 92 41 50 45 20 |......"...T.APE | 00000610: 4F 46 20 12 44 92 49 53 4B 20 3F 1E 00 2F 0E EE |OF .D.ISK ?../..| 00000620: 02 A1 51 24 3A 8B 51 24 B2 22 22 A7 37 35 30 00 |..Q$:.Q$."".750.| 00000630: 45 0E F8 02 8B 51 24 B2 22 54 22 A7 44 45 B2 31 |E....Q$."T".DE.1| 00000640: 3A 89 37 39 30 00 5B 0E 02 03 8B 51 24 B2 22 44 |:.790.[....Q$."D| 00000650: 22 A7 44 45 B2 38 3A 89 37 39 30 00 64 0E 0C 03 |".DE.8:.790.d...| 00000660: 89 37 35 30 00 6A 0E 16 03 8E 00 7D 0E 20 03 8F |.750.j.....}. ..| 00000670: 20 2A 2A 2A 20 4C 4F 41 44 20 2A 2A 2A 00 87 0E | *** LOAD ***...| 00000680: 2A 03 8D 20 37 32 30 00 9D 0E 34 03 8B 44 45 B2 |*.. 720...4..DE.| 00000690: 31 A7 9F 31 2C 31 2C 30 3A 89 38 37 30 00 B4 0E |1..1,1,0:.870...| 000006A0: 3E 03 9F 31 35 2C 38 2C 31 35 3A 9F 31 2C 38 2C |>..15,8,15:.1,8,| 000006B0: 38 2C 46 24 00 C1 0E 48 03 84 31 35 2C 45 2C 45 |8,F$...H..15,E,E| 000006C0: 24 00 CE 0E 52 03 8B 45 B2 30 A7 38 37 30 00 EE |$...R..E.0.870..| 000006D0: 0E 5C 03 99 22 11 05 3C 3C 20 22 45 24 22 20 3E |.\.."..<< "E$" >| 000006E0: 3E 22 3A A0 31 3A A0 31 35 3A 89 32 34 30 00 0C |>":.1:.15:.240..| 000006F0: 0F 66 03 8B 56 56 B2 39 39 A7 81 49 B2 31 A4 4D |.f..VV.99..I.1.M| 00000700: 4C 3A 4C 24 28 49 29 B2 22 22 3A 82 00 21 0F 70 |L:L$(I)."":..!.p| 00000710: 03 99 22 11 05 46 49 4C 45 20 46 4F 55 4E 44 1E |.."..FILE FOUND.| 00000720: 22 00 2A 0F 7A 03 4C B2 31 30 00 47 0F 84 03 A1 |".*.z.L.10.G....| 00000730: 23 31 2C 41 24 3A 99 41 24 3B 3A 8B 41 24 B2 C7 |#1,A$:.A$;:.A$..| 00000740: 28 33 29 A7 39 34 30 00 61 0F 8E 03 8B 41 24 B2 |(3).940.a....A$.| 00000750: C7 28 31 33 29 A7 4C B2 4C AA 31 30 3A 89 39 33 |.(13).L.L.10:.93| 00000760: 30 00 74 0F 98 03 4C 24 28 4C 29 B2 4C 24 28 4C |0.t...L$(L).L$(L| 00000770: 29 AA 41 24 00 8C 0F A2 03 89 39 30 30 3A 8F 49 |).A$......900:.I| 00000780: 46 53 54 3D 30 54 48 45 4E 38 33 30 00 9F 0F AC |FST=0THEN830....| 00000790: 03 4D 41 58 B2 4C 3A 4C 24 28 4C 29 B2 22 22 00 |.MAX.L:L$(L)."".| 000007A0: A6 0F B6 03 A0 31 00 AF 0F C0 03 89 32 34 30 00 |.....1......240.| 000007B0: C2 0F CA 03 8F 20 2A 2A 2A 20 4C 4F 41 44 20 2A |..... *** LOAD *| 000007C0: 2A 2A 00 CC 0F D4 03 8D 20 37 32 30 00 E3 0F DE |**...... 720....| 000007D0: 03 8B 44 45 B2 31 A7 9F 31 2C 31 2C 31 3A 89 31 |..DE.1..1,1,1:.1| 000007E0: 30 31 30 00 FE 0F E8 03 9F 31 2C 38 2C 38 2C 22 |010......1,8,8,"| 000007F0: 40 30 3A 22 AA 46 24 AA 22 2C 53 2C 57 22 00 1D |@0:".F$.",S,W"..| 00000800: 10 F2 03 81 49 B2 30 A4 4D 41 58 3A 8B 4C 24 28 |....I.0.MAX:.L$(| 00000810: 49 29 B2 22 22 A7 82 3A 89 31 30 35 30 00 42 10 |I).""..:.1050.B.| 00000820: FC 03 81 4A B2 31 A4 C3 28 4C 24 28 49 29 29 3A |...J.1..(L$(I)):| 00000830: 98 31 2C CA 28 4C 24 28 49 29 2C 4A 2C 31 29 3B |.1,.(L$(I),J,1);| 00000840: 3A 82 00 49 10 06 04 98 31 00 51 10 10 04 82 20 |:..I....1.Q.... | 00000850: 49 00 66 10 1A 04 98 31 2C C7 28 33 29 3B 3A A0 |I.f....1,.(3);:.| 00000860: 31 3A 89 32 34 30 00 79 10 24 04 8F 20 2A 2A 20 |1:.240.y.$.. ** | 00000870: 45 52 52 4F 52 53 20 2A 2A 00 9A 10 2E 04 99 22 |ERRORS **......"| 00000880: 11 05 3C 3C 20 53 59 4E 54 41 58 20 45 52 52 4F |..<< SYNTAX ERRO| 00000890: 52 20 3E 3E 22 3A 89 32 34 30 00 C1 10 38 04 99 |R >>":.240...8..| 000008A0: 22 11 05 3C 3C 20 49 4C 4C 45 47 41 4C 20 4C 49 |"..<< ILLEGAL LI| 000008B0: 4E 45 4E 55 4D 42 45 52 20 3E 3E 22 3A 89 32 34 |NENUMBER >>":.24| 000008C0: 30 00 00 00 FF |0.... |
....D.. (C) NOVEMBER 1983 BY.".N...>.X..
COURBOIS SOFTWARE.W.... OKAPIST
RAAT 18.R.... 6513 RL NIJMEGEN......
TEL : 080 - 566315... ........53280
,0:.53281,0:.788,52.I....L$(2000):ML.200
0.X...MAX.0:VV.0...H.."....*** CBM-64 PA
SCAL *** (C) COURBOIS ***.".R..".. PASCA
L EDITOR ..<....".".(0)"BYTES FREE...U..
.. ** START EDITOR **._...."..".V....1,0
:.1,A$: 1:."."......B(202).39..".";.....
."... .."G(34)G(34)"."G(20);:.198,1:.63
1,13.P....1,0:.1,A$:.: 1..."..B(202).39.
.".";...,..". "G(20)"."...6..H(A$,4)."SA
VE".980.'.@..H(A$,4)."LOAD".810.?.J..H(A
$,4)."LIST".510.T.T..H(A$,3)."NEW"...X.^
..H(A$,4)."STOP".."..":.788,49:....H..H(
A$,3)."FRE"..".. MOMENT.......".(0)". BY
TES FREE.":.240...R..H(A$,5)."PLIST"..3,
4:.3:PR.99:.510...|..A$."".240.....VV.99
.....L.E(A$):.L.0.1070:. ERROR.-....L.ML
..L.MAX.MAX.L.T....H(A$,1)." ".A$.I(A$,C
(A$).1):.420.O....C(A$).0.L$(L)."":.240.
....C.F(H(A$,1))...B..C..48 . C..57 .A$.
I(A$,C(A$).1):.430.L.L..H(A$,1)." ".A$.I
(A$,C(A$).1)...V..L.2000.1080:. ERROR...
..L$(L).A$......240...... ** LIST **.!..
.A$.I(A$,C(A$).4).;....A$."".B.0:E.MAX:.
630.G...C.E(A$).^....C.0.B.0:E..C:.630.F
.&.B.C.W.0..C(A$).0.620...:.C.F(H(A$,1))
...D..(C..48 . C..57) . (C.32) .A$.I(A$,
C(A$).1):.560.I.N.C.E(A$)...X..C.0.E..C:
.630...B..C(A$).0.E.MAX:.630...L.E.B...V
..E.MAX.E.MAX......B.MAX.700.'....I.B.E.
<....L$(I).""..:.690.I....I;L$(I).E....P
R..99..A$:.A$." ".701.V....A$.G(3).I.E.|
..........PR.99..3: 3:PR.0......240.....
.A$:.A$."".701......675.W.F.. ** LOAD EN
SAVE SYNTAX **...P.."..FILENAME .";...Z
..1,0:.1,F$:.: 1......"...T.APE OF .D.IS
K ?../....Q$:.Q$."".750.E....Q$."T".DE.1
:.790.[....Q$."D".DE.8:.790.D....750.J..
...}. .. *** LOAD ***...*.. 720...4..DE.
1..1,1,0:.870...>..15,8,15:.1,8,8,F$.A.H
..15,E,E$.N.R..E.0.870...\.."..<< "E$" >
>": 1: 15:.240...F..VV.99..I.1.ML:L$(I).
"":..!.P.."..FILE FOUND.".*.Z.L.10.G....
#1,A$:.A$;:.A$.G(3).940.A....A$.G(13).L.
L.10:.930.T...L$(L).L$(L).A$......900:.I
FST=0THEN830.....MAX.L:L$(L).""..... 1..
....240.B.J.. *** LOAD ***.L.T.. 720....
..DE.1..1,1,1:.1010......1,8,8,"@0:".F$.
",S,W"......I.0.MAX:.L$(I).""..:.1050.B.
...J.1.C(L$(I)):.1,J(L$(I),J,1);:..I....
1.Q.... I.F....1,G(3);: 1:.240.Y.$.. **
ERRORS **......"..<< SYNTAX ERROR >>":.2
40.A.8.."..<< ILLEGAL LINENUMBER >>":.24
0....
> CLICK IMAGE PREVIEW FOR FULL MODAL