PASCAL EDITOR
FILE INFORMATION
FILENAME(S): PASCAL EDITOR
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:05:43
APPEARS ON: 1 disk(s)
FILE HASH
18ce08a46119f1112a46ee4914868072a170159373620c66f4061cbd543d7596
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CORNE7 | PASCAL EDITOR | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 6E 00 8F 20 20 20 20 20 4F 4B 54 4F |....n.. OKTO| 00000010: 42 45 52 20 20 31 39 38 33 00 2E 08 78 00 8F 20 |BER 1983...x.. | 00000020: 20 20 20 20 41 41 53 48 49 4D 41 20 42 56 00 47 | AASHIMA BV.G| 00000030: 08 82 00 8F 20 20 20 20 20 47 52 4F 45 4E 45 4E |.... GROENEN| 00000040: 44 41 41 4C 20 35 33 00 63 08 8C 00 8F 20 20 20 |DAAL 53.c.... | 00000050: 20 20 33 30 31 31 20 53 4E 20 52 4F 54 54 45 52 | 3011 SN ROTTER| 00000060: 44 41 4D 00 78 08 96 00 8F 20 20 20 20 20 30 31 |DAM.x.... 01| 00000070: 30 2D 31 34 39 33 31 35 00 96 08 AA 00 97 35 33 |0-149315......53| 00000080: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 97 |280,0:.53281,0:.| 00000090: 37 38 38 2C 35 32 00 AC 08 B4 00 86 4C 24 28 32 |788,52......L$(2| 000000A0: 30 30 30 29 3A 4D 4C B2 32 30 30 30 00 BB 08 BE |000):ML.2000....| 000000B0: 00 4D 41 58 B2 30 3A 56 56 B2 30 00 ED 08 C8 00 |.MAX.0:VV.0.....| 000000C0: 99 22 93 11 1D 1E 2A 2A 2A 20 50 41 53 43 41 4C |."....*** PASCAL| 000000D0: 20 46 4F 52 20 43 42 4D 2D 36 34 20 42 59 20 41 | FOR CBM-64 BY A| 000000E0: 41 53 48 49 4D 41 20 42 56 20 2A 2A 2A 00 12 09 |ASHIMA BV ***...| 000000F0: D2 00 99 22 05 11 20 20 20 20 20 20 20 20 20 20 |...".. | 00000100: 20 20 20 20 20 20 45 44 49 54 4F 52 20 20 20 20 | EDITOR | 00000110: 20 1E 00 32 09 DC 00 99 20 A3 31 30 29 22 11 11 | ..2.... .10)"..| 00000120: 22 B8 28 30 29 22 42 59 54 45 53 20 46 52 45 45 |".(0)"BYTES FREE| 00000130: 2E 11 00 4B 09 E6 00 8F 20 2A 2A 20 53 54 41 52 |...K.... ** STAR| 00000140: 54 20 45 44 49 54 4F 52 20 2A 2A 00 55 09 F0 00 |T EDITOR **.U...| 00000150: 99 22 1E 91 22 00 6C 09 FA 00 9F 31 2C 30 3A 84 |."..".l....1,0:.| 00000160: 31 2C 41 24 3A A0 31 3A 99 22 90 22 00 81 09 04 |1,A$:.1:."."....| 00000170: 01 8B C2 28 32 30 32 29 B1 33 39 A7 99 22 91 22 |...(202).39.."."| 00000180: 3B 00 B2 09 0E 01 99 22 91 94 94 20 20 9D 9D 22 |;......"... .."| 00000190: C7 28 33 34 29 C7 28 33 34 29 22 9D 22 C7 28 32 |.(34).(34)".".(2| 000001A0: 30 29 3B 3A 97 31 39 38 2C 31 3A 97 36 33 31 2C |0);:.198,1:.631,| 000001B0: 31 33 00 C6 09 18 01 9F 31 2C 30 3A 84 31 2C 41 |13......1,0:.1,A| 000001C0: 24 3A 99 3A A0 31 00 DB 09 22 01 8B C2 28 32 30 |$:.:.1..."...(20| 000001D0: 32 29 B1 33 39 A7 99 22 91 22 3B 00 ED 09 2C 01 |2).39..".";...,.| 000001E0: 99 22 91 20 22 C7 28 32 30 29 22 1E 22 00 05 0A |.". ".(20)"."...| 000001F0: 36 01 8B C8 28 41 24 2C 34 29 B2 22 53 41 56 45 |6...(A$,4)."SAVE| 00000200: 22 A7 39 38 30 00 1D 0A 40 01 8B C8 28 41 24 2C |".980...@...(A$,| 00000210: 34 29 B2 22 4C 4F 41 44 22 A7 38 31 30 00 35 0A |4)."LOAD".810.5.| 00000220: 4A 01 8B C8 28 41 24 2C 34 29 B2 22 4C 49 53 54 |J...(A$,4)."LIST| 00000230: 22 A7 35 31 30 00 4A 0A 54 01 8B C8 28 41 24 2C |".510.J.T...(A$,| 00000240: 33 29 B2 22 4E 45 57 22 A7 8A 00 6E 0A 5E 01 8B |3)."NEW"...n.^..| 00000250: C8 28 41 24 2C 34 29 B2 22 53 54 4F 50 22 A7 99 |.(A$,4)."STOP"..| 00000260: 22 1E 93 22 3A 97 37 38 38 2C 34 39 3A 80 00 AD |"..":.788,49:...| 00000270: 0A 68 01 8B C8 28 41 24 2C 33 29 B2 22 46 52 45 |.h...(A$,3)."FRE| 00000280: 22 A7 99 22 05 11 20 4D 4F 4D 45 4E 54 9D 9D 9D |"..".. MOMENT...| 00000290: 9D 9D 9D 9D 22 B8 28 30 29 22 9D 20 42 59 54 45 |....".(0)". BYTE| 000002A0: 53 20 46 52 45 45 1E 22 3A 89 32 34 30 00 D5 0A |S FREE.":.240...| 000002B0: 72 01 8B C8 28 41 24 2C 35 29 B2 22 50 4C 49 53 |r...(A$,5)."PLIS| 000002C0: 54 22 A7 9F 33 2C 34 3A 9D 33 3A 50 52 B2 39 39 |T"..3,4:.3:PR.99| 000002D0: 3A 89 35 31 30 00 E4 0A 7C 01 8B 41 24 B2 22 22 |:.510...|..A$.""| 000002E0: A7 32 34 30 00 EE 0A 86 01 56 56 B2 39 39 00 0C |.240.....VV.99..| 000002F0: 0B 90 01 4C B2 C5 28 41 24 29 3A 8B 4C B2 30 A7 |...L..(A$):.L.0.| 00000300: 31 30 37 30 3A 8F 20 45 52 52 4F 52 00 23 0B 9A |1070:. ERROR.#..| 00000310: 01 8B 4C B3 4D 4C A7 8B 4C B1 4D 41 58 A7 4D 41 |..L.ML..L.MAX.MA| 00000320: 58 B2 4C 00 4A 0B A4 01 8B C8 28 41 24 2C 31 29 |X.L.J.....(A$,1)| 00000330: B2 22 20 22 A7 41 24 B2 C9 28 41 24 2C C3 28 41 |." ".A$..(A$,.(A| 00000340: 24 29 AB 31 29 3A 89 34 32 30 00 65 0B AE 01 8B |$).1):.420.e....| 00000350: C3 28 41 24 29 B2 30 A7 4C 24 28 4C 29 B2 22 22 |.(A$).0.L$(L).""| 00000360: 3A 89 32 34 30 00 76 0B B8 01 43 B2 C6 28 C8 28 |:.240.v...C..(.(| 00000370: 41 24 2C 31 29 29 00 A0 0B C2 01 8B 43 B1 B2 34 |A$,1))......C..4| 00000380: 38 20 AF 20 43 B3 B2 35 37 20 A7 41 24 B2 C9 28 |8 . C..57 .A$..(| 00000390: 41 24 2C C3 28 41 24 29 AB 31 29 3A 89 34 33 30 |A$,.(A$).1):.430| 000003A0: 00 C2 0B CC 01 8B C8 28 41 24 2C 31 29 B2 22 20 |.......(A$,1)." | 000003B0: 22 A7 41 24 B2 C9 28 41 24 2C C3 28 41 24 29 AB |".A$..(A$,.(A$).| 000003C0: 31 29 00 DB 0B D6 01 8B 4C B1 32 30 30 30 A7 31 |1)......L.2000.1| 000003D0: 30 38 30 3A 8F 20 45 52 52 4F 52 00 E8 0B E0 01 |080:. ERROR.....| 000003E0: 4C 24 28 4C 29 B2 41 24 00 F1 0B EA 01 89 32 34 |L$(L).A$......24| 000003F0: 30 00 02 0C F4 01 8F 20 2A 2A 20 4C 49 53 54 20 |0...... ** LIST | 00000400: 2A 2A 00 17 0C FE 01 41 24 B2 C9 28 41 24 2C C3 |**.....A$..(A$,.| 00000410: 28 41 24 29 AB 34 29 00 31 0C 08 02 8B 41 24 B2 |(A$).4).1....A$.| 00000420: 22 22 A7 42 B2 30 3A 45 B2 4D 41 58 3A 89 36 33 |"".B.0:E.MAX:.63| 00000430: 30 00 3D 0C 12 02 43 B2 C5 28 41 24 29 00 54 0C |0.=...C..(A$).T.| 00000440: 1C 02 8B 43 B3 30 A7 42 B2 30 3A 45 B2 AB 43 3A |...C.0.B.0:E..C:| 00000450: 89 36 33 30 00 5C 0C 26 02 42 B2 43 00 6D 0C 30 |.630.\.&.B.C.m.0| 00000460: 02 8B C3 28 41 24 29 B2 30 A7 36 32 30 00 7E 0C |...(A$).0.620.~.| 00000470: 3A 02 43 B2 C6 28 C8 28 41 24 2C 31 29 29 00 B3 |:.C..(.(A$,1))..| 00000480: 0C 44 02 8B 28 43 B1 B2 34 38 20 AF 20 43 B3 B2 |.D..(C..48 . C..| 00000490: 35 37 29 20 B0 20 28 43 B2 33 32 29 20 A7 41 24 |57) . (C.32) .A$| 000004A0: B2 C9 28 41 24 2C C3 28 41 24 29 AB 31 29 3A 89 |..(A$,.(A$).1):.| 000004B0: 35 36 30 00 BF 0C 4E 02 43 B2 C5 28 41 24 29 00 |560...N.C..(A$).| 000004C0: D2 0C 58 02 8B 43 B3 30 A7 45 B2 AB 43 3A 89 36 |..X..C.0.E..C:.6| 000004D0: 33 30 00 EA 0C 62 02 8B C3 28 41 24 29 B1 30 A7 |30...b...(A$).0.| 000004E0: 45 B2 4D 41 58 3A 89 36 33 30 00 F2 0C 6C 02 45 |E.MAX:.630...l.E| 000004F0: B2 42 00 03 0D 76 02 8B 45 B1 4D 41 58 A7 45 B2 |.B...v..E.MAX.E.| 00000500: 4D 41 58 00 12 0D 80 02 8B 42 B1 4D 41 58 A7 37 |MAX......B.MAX.7| 00000510: 30 30 00 1D 0D 8A 02 81 49 B2 42 A4 45 00 32 0D |00......I.B.E.2.| 00000520: 94 02 8B 4C 24 28 49 29 B2 22 22 A7 82 3A 89 36 |...L$(I).""..:.6| 00000530: 39 30 00 3F 0D 9E 02 99 49 3B 4C 24 28 49 29 00 |90.?....I;L$(I).| 00000540: 5B 0D 9F 02 8B 50 52 B3 B1 39 39 A7 A1 41 24 3A |[....PR..99..A$:| 00000550: 8B 41 24 B2 22 20 22 A7 37 30 31 00 6C 0D A3 02 |.A$." ".701.l...| 00000560: 8B 41 24 B2 C7 28 33 29 A7 49 B2 45 00 72 0D A8 |.A$..(3).I.E.r..| 00000570: 02 82 00 88 0D B2 02 8B 50 52 B2 39 39 A7 98 33 |........PR.99..3| 00000580: 3A A0 33 3A 50 52 B2 30 00 91 0D BC 02 89 32 34 |:.3:PR.0......24| 00000590: 30 00 A4 0D BD 02 A1 41 24 3A 8B 41 24 B2 22 22 |0......A$:.A$.""| 000005A0: A7 37 30 31 00 AD 0D BE 02 89 36 37 35 00 CD 0D |.701......675...| 000005B0: C6 02 8F 20 2A 2A 20 4C 4F 41 44 20 45 4E 20 53 |... ** LOAD EN S| 000005C0: 41 56 45 20 53 59 4E 54 41 58 20 2A 2A 00 E2 0D |AVE SYNTAX **...| 000005D0: D0 02 99 22 11 05 46 49 4C 45 4E 41 4D 45 20 1E |..."..FILENAME .| 000005E0: 22 3B 00 F6 0D DA 02 9F 31 2C 30 3A 84 31 2C 46 |";......1,0:.1,F| 000005F0: 24 3A 99 3A A0 31 00 12 0E E4 02 99 22 11 05 12 |$:.:.1......"...| 00000600: 54 92 41 50 45 20 4F 46 20 12 44 92 49 53 4B 20 |T.APE OF .D.ISK | 00000610: 3F 1E 00 25 0E EE 02 A1 51 24 3A 8B 51 24 B2 22 |?..%....Q$:.Q$."| 00000620: 22 A7 37 35 30 00 3B 0E F8 02 8B 51 24 B2 22 54 |".750.;....Q$."T| 00000630: 22 A7 44 45 B2 31 3A 89 37 39 30 00 51 0E 02 03 |".DE.1:.790.Q...| 00000640: 8B 51 24 B2 22 44 22 A7 44 45 B2 38 3A 89 37 39 |.Q$."D".DE.8:.79| 00000650: 30 00 5A 0E 0C 03 89 37 35 30 00 60 0E 16 03 8E |0.Z....750.`....| 00000660: 00 73 0E 20 03 8F 20 2A 2A 2A 20 4C 4F 41 44 20 |.s. .. *** LOAD | 00000670: 2A 2A 2A 00 7D 0E 2A 03 8D 20 37 32 30 00 93 0E |***.}.*.. 720...| 00000680: 34 03 8B 44 45 B2 31 A7 9F 31 2C 31 2C 30 3A 89 |4..DE.1..1,1,0:.| 00000690: 38 37 30 00 AA 0E 3E 03 9F 31 35 2C 38 2C 31 35 |870...>..15,8,15| 000006A0: 3A 9F 31 2C 38 2C 38 2C 46 24 00 B7 0E 48 03 84 |:.1,8,8,F$...H..| 000006B0: 31 35 2C 45 2C 45 24 00 C4 0E 52 03 8B 45 B2 30 |15,E,E$...R..E.0| 000006C0: A7 38 37 30 00 E4 0E 5C 03 99 22 11 05 3C 3C 20 |.870...\.."..<< | 000006D0: 22 45 24 22 20 3E 3E 22 3A A0 31 3A A0 31 35 3A |"E$" >>":.1:.15:| 000006E0: 89 32 34 30 00 02 0F 66 03 8B 56 56 B2 39 39 A7 |.240...f..VV.99.| 000006F0: 81 49 B2 31 A4 4D 4C 3A 4C 24 28 49 29 B2 22 22 |.I.1.ML:L$(I).""| 00000700: 3A 82 00 17 0F 70 03 99 22 11 05 46 49 4C 45 20 |:....p.."..FILE | 00000710: 46 4F 55 4E 44 1E 22 00 20 0F 7A 03 4C B2 31 30 |FOUND.". .z.L.10| 00000720: 00 3D 0F 84 03 A1 23 31 2C 41 24 3A 99 41 24 3B |.=....#1,A$:.A$;| 00000730: 3A 8B 41 24 B2 C7 28 33 29 A7 39 34 30 00 57 0F |:.A$..(3).940.W.| 00000740: 8E 03 8B 41 24 B2 C7 28 31 33 29 A7 4C B2 4C AA |...A$..(13).L.L.| 00000750: 31 30 3A 89 39 33 30 00 6A 0F 98 03 4C 24 28 4C |10:.930.j...L$(L| 00000760: 29 B2 4C 24 28 4C 29 AA 41 24 00 82 0F A2 03 89 |).L$(L).A$......| 00000770: 39 30 30 3A 8F 49 46 53 54 3D 30 54 48 45 4E 38 |900:.IFST=0THEN8| 00000780: 33 30 00 95 0F AC 03 4D 41 58 B2 4C 3A 4C 24 28 |30.....MAX.L:L$(| 00000790: 4C 29 B2 22 22 00 9C 0F B6 03 A0 31 00 A5 0F C0 |L).""......1....| 000007A0: 03 89 32 34 30 00 B8 0F CA 03 8F 20 2A 2A 2A 20 |..240...... *** | 000007B0: 4C 4F 41 44 20 2A 2A 2A 00 C2 0F D4 03 8D 20 37 |LOAD ***...... 7| 000007C0: 32 30 00 D9 0F DE 03 8B 44 45 B2 31 A7 9F 31 2C |20......DE.1..1,| 000007D0: 31 2C 31 3A 89 31 30 31 30 00 F4 0F E8 03 9F 31 |1,1:.1010......1| 000007E0: 2C 38 2C 38 2C 22 40 30 3A 22 AA 46 24 AA 22 2C |,8,8,"@0:".F$.",| 000007F0: 53 2C 57 22 00 13 10 F2 03 81 49 B2 30 A4 4D 41 |S,W"......I.0.MA| 00000800: 58 3A 8B 4C 24 28 49 29 B2 22 22 A7 82 3A 89 31 |X:.L$(I).""..:.1| 00000810: 30 35 30 00 38 10 FC 03 81 4A B2 31 A4 C3 28 4C |050.8....J.1..(L| 00000820: 24 28 49 29 29 3A 98 31 2C CA 28 4C 24 28 49 29 |$(I)):.1,.(L$(I)| 00000830: 2C 4A 2C 31 29 3B 3A 82 00 3F 10 06 04 98 31 00 |,J,1);:..?....1.| 00000840: 47 10 10 04 82 20 49 00 5C 10 1A 04 98 31 2C C7 |G.... I.\....1,.| 00000850: 28 33 29 3B 3A A0 31 3A 89 32 34 30 00 6F 10 24 |(3);:.1:.240.o.$| 00000860: 04 8F 20 2A 2A 20 45 52 52 4F 52 53 20 2A 2A 00 |.. ** ERRORS **.| 00000870: 90 10 2E 04 99 22 11 05 3C 3C 20 53 59 4E 54 41 |....."..<< SYNTA| 00000880: 58 20 45 52 52 4F 52 20 3E 3E 22 3A 89 32 34 30 |X ERROR >>":.240| 00000890: 00 B7 10 38 04 99 22 11 05 3C 3C 20 49 4C 4C 45 |...8.."..<< ILLE| 000008A0: 47 41 4C 20 4C 49 4E 45 4E 55 4D 42 45 52 20 3E |GAL LINENUMBER >| 000008B0: 3E 22 3A 89 32 34 30 00 00 00 |>":.240... |
....N.. OKTOBER 1983...X.. AASH IMA BV.G.... GROENENDAAL 53.C.... 3011 SN ROTTERDAM.X.... 010-149315 ......53280,0:.53281,0:.788,52......L$(2 000):ML.2000.....MAX.0:VV.0...H.."....** * PASCAL FOR CBM-64 BY AASHIMA BV ***... R..".. EDITOR ..2.... .10)"..".(0)"BYTES FREE...K.... ** STAR T EDITOR **.U...."..".L....1,0:.1,A$: 1: ."."......B(202).39..".";......"... .." G(34)G(34)"."G(20);:.198,1:.631,13.F.... 1,0:.1,A$:.: 1..."..B(202).39..".";...,. .". "G(20)"."...6..H(A$,4)."SAVE".980... @..H(A$,4)."LOAD".810.5.J..H(A$,4)."LIST ".510.J.T..H(A$,3)."NEW"...N.^..H(A$,4). "STOP".."..":.788,49:....H..H(A$,3)."FRE "..".. MOMENT.......".(0)". BYTES FREE." :.240.U.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.MA X.L.J....H(A$,1)." ".A$.I(A$,C(A$).1):.4 20.E....C(A$).0.L$(L)."":.240.V...C.F(H( A$,1)). .B..C..48 . C..57 .A$.I(A$,C(A$) .1):.430.B.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).1....A$."".B.0:E.MAX:.630.=...C. E(A$).T....C.0.B.0:E..C:.630.\.&.B.C.M.0 ..C(A$).0.620.~.:.C.F(H(A$,1))...D..(C.. 48 . C..57) . (C.32) .A$.I(A$,C(A$).1):. 560...N.C.E(A$).R.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.2....L$(I) .""..:.690.?....I;L$(I).[....PR..99..A$: .A$." ".701.L....A$.G(3).I.E.R.......... PR.99..3: 3:PR.0......240......A$:.A$."" .701......675.M.F.. ** LOAD EN SAVE SYNT AX **...P.."..FILENAME .";...Z..1,0:.1,F $:.: 1......"...T.APE OF .D.ISK ?..%.... Q$:.Q$."".750.;....Q$."T".DE.1:.790.Q... .Q$."D".DE.8:.790.Z....750.`.....S. .. * ** LOAD ***.}.*.. 720...4..DE.1..1,1,0:. 870...>..15,8,15:.1,8,8,F$...H..15,E,E$. D.R..E.0.870...\.."..<< "E$" >>": 1: 15: .240...F..VV.99..I.1.ML:L$(I)."":....P.. "..FILE FOUND.". .Z.L.10.=....#1,A$:.A$; :.A$.G(3).940.W....A$.G(13).L.L.10:.930. J...L$(L).L$(L).A$......900:.IFST=0THEN8 30.....MAX.L:L$(L).""..... 1......240... J.. *** LOAD ***.B.T.. 720.Y....DE.1..1, 1,1:.1010......1,8,8,"@0:".F$.",S,W".... ..I.0.MAX:.L$(I).""..:.1050.8....J.1.C(L $(I)):.1,J(L$(I),J,1);:..?....1.G.... I. \....1,G(3);: 1:.240.O.$.. ** ERRORS **. ....."..<< SYNTAX ERROR >>":.240...8..". .<< ILLEGAL LINENUMBER >>":.240...
> CLICK IMAGE PREVIEW FOR FULL MODAL