COMP/UN-COMP
FILE INFORMATION
FILENAME(S): COMP/UN-COMP
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:11:25
APPEARS ON: 1 disk(s)
FILE HASH
7d9f9211e9b0eafda4ac473a877fff468006b28a909f3a4a4cd8afe3350ce2f9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LEEG | COMP/UN-COMP | PRG | DuncanTwain | 30 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3E 08 64 00 97 35 33 32 38 30 2C 31 3A 97 |..>.d..53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A 99 22 93 1E 20 20 20 3C |53281,1:.".. <|
00000020: 3C 3C 20 43 4F 4D 50 41 43 54 4F 52 20 2F 20 55 |<< COMPACTOR / U|
00000030: 4E 43 4F 4D 50 41 43 54 4F 52 20 3E 3E 3E 00 63 |NCOMPACTOR >>>.c|
00000040: 08 6E 00 99 22 20 20 20 20 20 20 20 2D 2D 2D 2D |.n.." ----|
00000050: 2D 2D 2D 2D 2D 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D |----- --------|
00000060: 2D 2D 2D 00 83 08 78 00 99 22 11 11 11 11 11 11 |---...x.."......|
00000070: 11 11 41 4E 4C 45 49 54 55 4E 47 20 20 20 28 4A |..ANLEITUNG (J|
00000080: 2F 4E 29 00 9E 08 82 00 A1 41 24 3A 8B 41 24 B2 |/N)......A$:.A$.|
00000090: 22 4A 22 A7 8D 32 30 37 30 3A 89 31 36 30 00 AE |"J"..2070:.160..|
000000A0: 08 8C 00 8B 41 24 B2 22 4E 22 A7 31 36 30 00 B7 |....A$."N".160..|
000000B0: 08 96 00 89 31 33 30 00 D9 08 A0 00 99 22 93 11 |....130......"..|
000000C0: 11 11 20 20 20 20 20 28 12 1F 31 92 1E 29 20 20 |.. (..1..) |
000000D0: 43 4F 4D 50 41 43 54 4F 52 00 FA 08 AA 00 99 22 |COMPACTOR......"|
000000E0: 20 20 20 20 20 28 12 1F 32 92 1E 29 20 20 55 4E | (..2..) UN|
000000F0: 2D 43 4F 4D 50 41 43 54 4F 52 00 1F 09 B4 00 99 |-COMPACTOR......|
00000100: 22 11 11 50 52 4F 47 52 41 4D 4D 20 53 54 41 52 |"..PROGRAMM STAR|
00000110: 54 20 4E 55 4D 4D 45 52 20 28 31 2F 32 29 22 00 |T NUMMER (1/2)".|
00000120: 33 09 BE 00 A1 41 24 3A 8B 41 24 B2 22 31 22 A7 |3....A$:.A$."1".|
00000130: 32 33 30 00 44 09 C8 00 8B 41 24 B2 22 32 22 A7 |230.D....A$."2".|
00000140: 31 34 34 30 00 4D 09 D2 00 89 31 39 30 00 53 09 |1440.M....190.S.|
00000150: DC 00 90 00 6C 09 E6 00 8F 20 43 4F 4D 50 41 43 |....l.... COMPAC|
00000160: 54 4F 52 20 50 52 4F 47 52 41 4D 4D 00 88 09 F0 |TOR PROGRAMM....|
00000170: 00 8F 20 43 4F 4D 50 55 54 45 20 56 31 20 49 36 |.. COMPUTE V1 I6|
00000180: 20 50 31 30 36 20 46 46 00 98 09 FA 00 9C 3A 86 | P106 FF......:.|
00000190: 54 4C 28 31 30 30 30 29 00 B2 09 04 01 99 22 93 |TL(1000)......".|
000001A0: 22 A6 31 35 29 22 12 43 4F 4D 50 41 43 54 4F 52 |".15)".COMPACTOR|
000001B0: 11 11 00 D4 09 0E 01 99 22 12 50 52 4F 47 52 41 |........".PROGRA|
000001C0: 4D 4D 92 20 44 49 53 4B 20 45 49 4E 4C 45 47 45 |MM. DISK EINLEGE|
000001D0: 4E 2E 11 11 00 F1 09 18 01 85 22 12 42 49 54 54 |N.........".BITT|
000001E0: 45 20 46 49 4C 45 20 4E 41 4D 45 92 22 3B 46 4C |E FILE NAME.";FL|
000001F0: 24 00 06 0A 22 01 99 22 93 53 43 41 4E 4E 49 4E |$..."..".SCANNIN|
00000200: 47 20 46 49 4C 45 00 27 0A 2C 01 99 22 20 20 20 |G FILE.'.,.." |
00000210: 46 4F 52 20 54 41 52 47 45 54 20 4C 49 4E 45 53 |FOR TARGET LINES|
00000220: 2E 2E 2E 2E 2E 11 11 00 3A 0A 36 01 9F 31 35 2C |........:.6..15,|
00000230: 38 2C 31 35 3A 8D 31 33 39 30 00 55 0A 40 01 9F |8,15:.1390.U.@..|
00000240: 35 2C 38 2C 35 2C 22 30 3A 22 AA 46 4C 24 AA 22 |5,8,5,"0:".FL$."|
00000250: 2C 50 2C 52 22 00 65 0A 4A 01 8D 31 33 39 30 3A |,P,R".e.J..1390:|
00000260: 8D 31 33 35 30 00 7B 0A 54 01 8D 31 33 35 30 3A |.1350.{.T..1350:|
00000270: 8B 56 AA 56 31 B2 30 A7 35 36 30 00 93 0A 5E 01 |.V.V1.0.560...^.|
00000280: 8D 31 33 35 30 3A 4C 4E B2 56 31 AA 28 32 35 36 |.1350:LN.V1.(256|
00000290: AC 56 29 00 9D 0A 68 01 8D 31 33 36 30 00 AA 0A |.V)...h..1360...|
000002A0: 72 01 8B 56 B2 30 A7 33 34 30 00 BF 0A 7C 01 8B |r..V.0.340...|..|
000002B0: 56 B2 31 33 37 B0 56 B2 31 34 31 A7 34 30 30 00 |V.137.V.141.400.|
000002C0: CF 0A 86 01 8B 56 B3 B1 31 36 37 A7 33 36 30 00 |.....V..167.360.|
000002D0: D8 0A 90 01 4C 54 B2 30 00 EC 0A 9A 01 8D 31 33 |....LT.0......13|
000002E0: 36 30 3A 8B 56 B2 33 32 A7 34 31 30 00 FF 0A A4 |60:.V.32.410....|
000002F0: 01 8B 56 B3 34 38 B0 56 B1 35 37 A7 34 35 30 00 |..V.48.V.57.450.|
00000300: 14 0B AE 01 4C 54 B2 28 31 30 AC 4C 54 29 AA C5 |....LT.(10.LT)..|
00000310: 28 43 24 29 00 23 0B B8 01 8D 31 33 36 30 3A 89 |(C$).#....1360:.|
00000320: 34 32 30 00 2E 0B C2 01 81 58 B2 30 A4 4E 00 40 |420......X.0.N.@|
00000330: 0B CC 01 8B 54 4C 28 58 29 B2 4C 54 A7 35 33 30 |....TL(X).LT.530|
00000340: 00 47 0B D6 01 82 58 00 5A 0B E0 01 54 4C 28 4E |.G....X.Z...TL(N|
00000350: 29 B2 4C 54 3A 4E B2 4E AA 31 00 63 0B EA 01 99 |).LT:N.N.1.c....|
00000360: 4C 54 2C 00 73 0B F4 01 8B 4E B3 31 30 30 30 A7 |LT,.s....N.1000.|
00000370: 35 33 30 00 92 0B FE 01 99 22 11 11 54 4F 4F 20 |530......"..TOO |
00000380: 4D 41 4E 59 20 54 41 52 47 45 54 20 4C 49 4E 45 |MANY TARGET LINE|
00000390: 53 21 00 9C 0B 08 02 89 31 34 33 30 00 AA 0B 12 |S!......1430....|
000003A0: 02 8B 56 B2 34 34 A7 34 30 30 00 B9 0B 1C 02 8B |..V.44.400......|
000003B0: 56 B3 B1 33 32 A7 33 37 30 00 C8 0B 26 02 8D 31 |V..32.370...&..1|
000003C0: 33 36 30 3A 89 35 33 30 00 D5 0B 30 02 8B 4E B3 |360:.530...0..N.|
000003D0: 32 A7 36 32 30 00 E2 0B 3A 02 81 58 B2 30 A4 4E |2.620...:..X.0.N|
000003E0: AB 31 00 EF 0B 44 02 81 59 B2 30 A4 4E AB 32 00 |.1...D..Y.0.N.2.|
000003F0: 04 0C 4E 02 8B 54 4C 28 59 29 B3 54 4C 28 58 29 |..N..TL(Y).TL(X)|
00000400: A7 36 31 30 00 24 0C 58 02 56 B2 54 4C 28 59 29 |.610.$.X.V.TL(Y)|
00000410: 3A 54 4C 28 59 29 B2 54 4C 28 58 29 3A 54 4C 28 |:TL(Y).TL(X):TL(|
00000420: 58 29 B2 56 00 2D 0C 62 02 82 59 2C 58 00 4B 0C |X).V.-.b..Y,X.K.|
00000430: 6C 02 99 22 93 43 4F 4D 50 41 43 54 49 4E 47 20 |l..".COMPACTING |
00000440: 4C 49 4E 45 53 2E 2E 2E 2E 11 11 00 52 0C 76 02 |LINES.......R.v.|
00000450: A0 35 00 6D 0C 80 02 9F 35 2C 38 2C 35 2C 22 30 |.5.m....5,8,5,"0|
00000460: 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 00 77 0C |:".FL$.",P,R".w.|
00000470: 8A 02 8D 31 33 39 30 00 8E 0C 94 02 46 4F 24 B2 |...1390.....FO$.|
00000480: C8 28 46 4C 24 2C 31 34 29 AA 22 2F 43 22 00 A0 |.(FL$,14)."/C"..|
00000490: 0C 9E 02 98 31 35 2C 22 53 30 3A 22 AA 46 4F 24 |....15,"S0:".FO$|
000004A0: 00 BB 0C A8 02 9F 36 2C 38 2C 36 2C 22 30 3A 22 |......6,8,6,"0:"|
000004B0: AA 46 4F 24 AA 22 2C 50 2C 57 22 00 C5 0C B2 02 |.FO$.",P,W".....|
000004C0: 8D 31 33 39 30 00 CF 0C BC 02 8D 31 33 35 30 00 |.1390......1350.|
000004D0: DD 0C C6 02 98 36 2C C7 28 56 31 29 3B 00 EE 0C |.....6,.(V1);...|
000004E0: D0 02 98 36 2C C7 28 56 29 3B 3A 52 B2 30 00 03 |...6,.(V);:R.0..|
000004F0: 0D DA 02 8D 31 33 35 30 3A 4B 31 B2 56 31 3A 4B |....1350:K1.V1:K|
00000500: 32 B2 56 00 18 0D E4 02 46 B2 30 3A 8B 56 AA 56 |2.V.....F.0:.V.V|
00000510: 31 B2 30 A7 31 33 32 30 00 2D 0D EE 02 8D 31 33 |1.0.1320.-....13|
00000520: 35 30 3A 4C 31 B2 56 31 3A 4C 32 B2 56 00 45 0D |50:L1.V1:L2.V.E.|
00000530: F8 02 4C 4E B2 4C 31 AA 28 32 35 36 AC 4C 32 29 |..LN.L1.(256.L2)|
00000540: 3A 99 4C 4E 2C 00 4F 0D 02 03 8D 31 33 36 30 00 |:.LN,.O....1360.|
00000550: 62 0D 0C 03 8B 56 B2 33 32 B0 56 B2 35 38 A7 37 |b....V.32.V.58.7|
00000560: 37 30 00 6F 0D 16 03 8B 56 B2 30 A7 38 32 30 00 |70.o....V.0.820.|
00000570: 7F 0D 20 03 8B 56 B3 B1 31 34 33 A7 38 36 30 00 |.. ..V..143.860.|
00000580: 92 0D 2A 03 8D 31 33 36 30 3A 8B 56 B1 30 A7 38 |..*..1360:.V.0.8|
00000590: 31 30 00 A1 0D 34 03 46 B2 31 3A 81 58 B2 30 A4 |10...4.F.1:.X.0.|
000005A0: 4E 00 B2 0D 3E 03 8B 54 4C 28 58 29 B3 4C 4E A7 |N...>..TL(X).LN.|
000005B0: 82 58 00 C4 0D 48 03 8B 54 4C 28 58 29 B2 4C 4E |.X...H..TL(X).LN|
000005C0: A7 38 36 30 00 CD 0D 52 03 89 37 33 30 00 E1 0D |.860...R..730...|
000005D0: 5C 03 98 36 2C C7 28 4B 31 29 3B C7 28 4B 32 29 |\..6,.(K1);.(K2)|
000005E0: 3B 00 F9 0D 66 03 98 36 2C C7 28 4C 31 29 3B C7 |;...f..6,.(L1);.|
000005F0: 28 4C 32 29 3B 3A 52 B2 34 00 0C 0E 70 03 8B 46 |(L2);:R.4...p..F|
00000600: A7 98 36 2C 22 3A 22 3B 3A 52 B2 35 00 19 0E 7A |..6,":";:R.5...z|
00000610: 03 46 B2 30 3A 89 39 32 30 00 2A 0E 84 03 98 36 |.F.0:.920.*....6|
00000620: 2C 43 24 3B 3A 52 B2 52 AA 31 00 34 0E 8E 03 8D |,C$;:R.R.1.4....|
00000630: 31 33 36 30 00 43 0E 98 03 8B 56 B2 31 33 37 A7 |1360.C....V.137.|
00000640: 46 B2 31 00 58 0E A2 03 8B 56 B2 31 33 39 B0 56 |F.1.X....V.139.V|
00000650: B2 31 36 37 A7 46 B2 31 00 66 0E AC 03 8B 56 B2 |.167.F.1.f....V.|
00000660: 30 A7 31 31 34 30 00 74 0E B6 03 8B 56 B2 33 32 |0.1140.t....V.32|
00000670: A7 39 31 30 00 84 0E C0 03 8B 56 B3 B1 31 34 33 |.910......V..143|
00000680: A7 39 39 30 00 97 0E CA 03 8D 31 33 36 30 3A 8B |.990......1360:.|
00000690: 56 B1 30 A7 39 37 30 00 A1 0E D4 03 89 31 31 34 |V.0.970......114|
000006A0: 30 00 B1 0E DE 03 8B 56 B3 B1 33 34 A7 31 30 37 |0......V..34.107|
000006B0: 30 00 C2 0E E8 03 98 36 2C 43 24 3B 3A 52 B2 52 |0......6,C$;:R.R|
000006C0: AA 31 00 CC 0E F2 03 8D 31 33 36 30 00 DA 0E FC |.1......1360....|
000006D0: 03 8B 56 B2 33 34 A7 39 30 30 00 E8 0E 06 04 8B |..V.34.900......|
000006E0: 56 B1 30 A7 31 30 30 30 00 F8 0E 10 04 8B 46 A7 |V.0.1000......F.|
000006F0: 56 B2 30 3A 89 37 32 30 00 0C 0F 1A 04 98 36 2C |V.0:.720......6,|
00000700: C7 28 33 34 29 3B 3A 52 B2 52 AA 31 00 16 0F 24 |.(34);:R.R.1...$|
00000710: 04 89 31 31 34 30 00 25 0F 2E 04 8B 56 B3 B1 35 |..1140.%....V..5|
00000720: 38 A7 39 30 30 00 2F 0F 38 04 8D 31 33 36 30 00 |8.900./.8..1360.|
00000730: 43 0F 42 04 8B 56 B2 33 32 B0 56 B2 35 38 A7 31 |C.B..V.32.V.58.1|
00000740: 30 38 30 00 52 0F 4C 04 8B 56 B2 31 34 33 A7 39 |080.R.L..V.143.9|
00000750: 37 30 00 60 0F 56 04 8B 56 B2 30 A7 31 31 34 30 |70.`.V..V.0.1140|
00000760: 00 72 0F 60 04 98 36 2C 22 3A 22 3B 3A 52 B2 52 |.r.`..6,":";:R.R|
00000770: AA 31 00 7B 0F 6A 04 89 39 32 30 00 95 0F 74 04 |.1.{.j..920...t.|
00000780: 8B 28 46 29 B0 28 52 B1 31 37 30 29 A7 56 B2 30 |.(F).(R.170).V.0|
00000790: 3A 89 37 32 30 00 9F 0F 7E 04 8D 31 33 35 30 00 |:.720...~..1350.|
000007A0: B0 0F 88 04 8B 56 AA 56 31 B2 30 A7 31 33 32 30 |.....V.V1.0.1320|
000007B0: 00 C8 0F 92 04 8D 31 33 35 30 3A 4C 4E B2 56 31 |......1350:LN.V1|
000007C0: AA 28 32 35 36 AC 56 29 00 DC 0F 9C 04 4C 31 B2 |.(256.V).....L1.|
000007D0: 56 31 3A 4C 32 B2 56 3A 99 4C 4E 2C 00 E7 0F A6 |V1:L2.V:.LN,....|
000007E0: 04 81 58 B2 30 A4 4E 00 F8 0F B0 04 8B 54 4C 28 |..X.0.N......TL(|
000007F0: 58 29 B3 4C 4E A7 82 58 00 0B 10 BA 04 8B 54 4C |X).LN..X......TL|
00000800: 28 58 29 B2 4C 4E A7 31 32 36 30 00 20 10 C4 04 |(X).LN.1260. ...|
00000810: 8D 31 33 36 30 3A 8B 56 B2 31 34 33 A7 39 37 30 |.1360:.V.143.970|
00000820: 00 34 10 CE 04 8B 56 B2 33 32 B0 56 B2 35 38 A7 |.4....V.32.V.58.|
00000830: 31 32 32 30 00 42 10 D8 04 8B 56 B2 30 A7 31 31 |1220.B....V.0.11|
00000840: 35 30 00 59 10 E2 04 98 36 2C 22 3A 22 3B 3A 52 |50.Y....6,":";:R|
00000850: B2 52 AA 31 3A 89 39 32 30 00 70 10 EC 04 98 36 |.R.1:.920.p....6|
00000860: 2C C7 28 30 29 3B C7 28 31 29 3B C7 28 31 29 3B |,.(0);.(1);.(1);|
00000870: 00 88 10 F6 04 98 36 2C C7 28 4C 31 29 3B C7 28 |......6,.(L1);.(|
00000880: 4C 32 29 3B 3A 52 B2 34 00 92 10 00 05 8D 31 33 |L2);:R.4......13|
00000890: 36 30 00 A6 10 0A 05 8B 56 B2 33 32 B0 56 B2 35 |60......V.32.V.5|
000008A0: 38 A7 31 32 38 30 00 BD 10 14 05 8B 56 B2 30 B0 |8.1280......V.0.|
000008B0: 56 B2 31 34 33 A7 98 36 2C 22 3A 22 3B 00 CA 10 |V.143..6,":";...|
000008C0: 1E 05 46 B2 30 3A 89 39 32 30 00 E1 10 28 05 98 |..F.0:.920...(..|
000008D0: 36 2C C7 28 30 29 3B C7 28 30 29 3B C7 28 30 29 |6,.(0);.(0);.(0)|
000008E0: 3B 00 F1 10 32 05 99 22 93 12 44 4F 4E 45 11 11 |;...2.."..DONE..|
000008F0: 22 00 FB 10 3C 05 89 31 34 33 30 00 0A 11 46 05 |"...<..1430...F.|
00000900: 8D 31 33 36 30 3A 56 31 B2 56 00 1B 11 50 05 A1 |.1360:V1.V...P..|
00000910: 23 35 2C 43 24 3A 8D 31 33 39 30 00 2C 11 5A 05 |#5,C$:.1390.,.Z.|
00000920: 8B 43 24 B2 22 22 A7 56 B2 30 3A 8E 00 3A 11 64 |.C$."".V.0:..:.d|
00000930: 05 56 B2 C6 28 43 24 29 3A 8E 00 4F 11 6E 05 84 |.V..(C$):..O.n..|
00000940: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 |15,EN,EM$,ET,ES.|
00000950: 5B 11 78 05 8B 45 4E B2 30 A7 8E 00 73 11 82 05 |[.x..EN.0...s...|
00000960: 99 3A 99 22 11 11 11 12 44 49 53 4B 20 45 52 52 |.:."....DISK ERR|
00000970: 4F 52 11 00 85 11 8C 05 99 45 4E 3B 45 4D 24 3B |OR.......EN;EM$;|
00000980: 45 54 3B 45 53 00 99 11 96 05 A0 35 3A A0 36 3A |ET;ES......5:.6:|
00000990: A0 31 35 3A 89 32 31 37 30 00 A3 11 A0 05 89 31 |.15:.2170......1|
000009A0: 35 32 30 00 BD 11 AA 05 8F 20 3E 3E 3E 3E 20 53 |520...... >>>> S|
000009B0: 55 42 52 E0 49 4E 45 53 20 3C 3C 3C 3C 00 CC 11 |UBR.INES <<<<...|
000009C0: B4 05 8D 31 34 37 30 3A 56 31 B2 56 00 DD 11 BE |...1470:V1.V....|
000009D0: 05 A1 23 35 2C 43 24 3A 8D 31 35 30 30 00 F5 11 |..#5,C$:.1500...|
000009E0: C8 05 56 B2 30 3A 8B 43 24 B3 B1 22 22 A7 56 B2 |..V.0:.C$.."".V.|
000009F0: C6 28 43 24 29 00 FB 11 D2 05 8E 00 01 12 DC 05 |.(C$)...........|
00000A00: 8E 00 21 12 E6 05 8F 20 3E 3E 3E 3E 20 49 4E 49 |..!.... >>>> INI|
00000A10: 54 49 41 4C 49 53 49 45 52 55 4E 47 20 3C 3C 3C |TIALISIERUNG <<<|
00000A20: 3C 00 3B 12 F0 05 99 22 93 22 2C 22 12 55 4E 2D |<.;....".",".UN-|
00000A30: 43 4F 4D 50 41 43 54 4F 52 11 11 00 5E 12 FA 05 |COMPACTOR...^...|
00000A40: 99 22 20 12 50 52 4F 47 52 41 4D 4D 92 20 44 49 |." .PROGRAMM. DI|
00000A50: 53 4B 20 45 49 4E 4C 45 47 45 4E 2E 11 11 00 7A |SK EINLEGEN....z|
00000A60: 12 04 06 85 22 12 49 4E 50 55 54 20 46 49 4C 45 |....".INPUT FILE|
00000A70: 4E 41 4D 45 92 22 3B 46 4C 24 00 9B 12 0E 06 86 |NAME.";FL$......|
00000A80: 20 43 20 28 32 35 36 29 3A 9F 35 2C 38 2C 30 2C | C (256):.5,8,0,|
00000A90: 28 46 4C 24 29 3A 8D 31 35 30 30 00 C0 12 18 06 |(FL$):.1500.....|
00000AA0: 99 3A 99 22 4F 4B 2C 20 57 4F 52 4B 49 4E 47 20 |.:."OK, WORKING |
00000AB0: 4F 4E 20 4C 49 4E 45 20 23 20 2E 2E 2E 2E 2E 11 |ON LINE # ......|
00000AC0: 00 D7 12 22 06 46 4F 24 B2 C8 28 46 4C 24 2C 31 |...".FO$..(FL$,1|
00000AD0: 34 29 AA 22 2F 55 22 00 F3 12 2C 06 9F 36 2C 38 |4)."/U"...,..6,8|
00000AE0: 2C 36 2C 22 40 30 3A 22 AA 46 4F 24 AA 22 2C 50 |,6,"@0:".FO$.",P|
00000AF0: 2C 57 22 00 FD 12 36 06 8D 31 35 30 30 00 14 13 |,W"...6..1500...|
00000B00: 40 06 8D 31 34 36 30 3A 98 36 2C C7 28 56 31 29 |@..1460:.6,.(V1)|
00000B10: 3B 43 24 3B 00 22 13 4A 06 46 B2 31 3A 89 31 37 |;C$;.".J.F.1:.17|
00000B20: 31 30 00 3E 13 54 06 8F 20 2A 2A 2A 2A 2A 20 E0 |10.>.T.. ***** .|
00000B30: 50 55 54 20 54 48 49 53 20 4C 49 4E 45 23 00 53 |PUT THIS LINE#.S|
00000B40: 13 5E 06 4C 4E B2 4E 4C 3A 8B 4C 4B B2 30 A7 32 |.^.LN.NL:.LK.0.2|
00000B50: 30 34 30 00 5C 13 68 06 99 4C 4E 2C 00 80 13 72 |040.\.h..LN,...r|
00000B60: 06 98 36 2C C7 28 31 29 3B C7 28 31 29 3B C7 28 |..6,.(1);.(1);.(|
00000B70: 4C 4C 29 3B C7 28 4C 48 29 3B 3A 89 31 36 37 30 |LL);.(LH);:.1670|
00000B80: 00 A5 13 7C 06 8F 20 2A 2A 2A 2A 2A 20 52 45 41 |...|.. ***** REA|
00000B90: 44 20 54 48 49 53 20 42 41 53 49 43 20 50 47 4D |D THIS BASIC PGM|
00000BA0: 20 4C 49 4E 45 00 AD 13 86 06 58 B2 31 00 BE 13 | LINE.....X.1...|
00000BB0: 90 06 8D 31 34 37 30 3A 43 28 58 29 B2 56 00 D3 |...1470:C(X).V..|
00000BC0: 13 9A 06 8B 56 B1 30 A7 58 B2 58 AA 31 3A 89 31 |....V.0.X.X.1:.1|
00000BD0: 36 38 30 00 F5 13 A4 06 8F 20 2A 2A 2A 2A 2A 20 |680...... ***** |
00000BE0: 47 45 54 20 4E 45 58 54 20 4C 49 4E 4B 20 26 20 |GET NEXT LINK & |
00000BF0: 4C 49 4E 45 23 00 12 14 AE 06 8D 31 34 36 30 3A |LINE#......1460:|
00000C00: 4C 4B B2 56 AA 56 31 3A 8B 4C 4B B2 30 A7 31 37 |LK.V.V1:.LK.0.17|
00000C10: 33 30 00 37 14 B8 06 8D 31 34 36 30 3A 4E 4C B2 |30.7....1460:NL.|
00000C20: 56 31 AA 28 32 35 36 AC 56 AA 32 29 3A 4C 4C B2 |V1.(256.V.2):LL.|
00000C30: 56 31 3A 4C 48 B2 56 00 4C 14 C2 06 8B 20 46 20 |V1:LH.V.L.... F |
00000C40: A7 20 46 B2 30 3A 20 89 31 36 33 30 00 72 14 CC |. F.0: .1630.r..|
00000C50: 06 8F 20 2A 2A 2A 2A 2A 20 42 52 45 41 4B 20 55 |.. ***** BREAK U|
00000C60: 50 20 4C 49 4E 45 20 49 46 20 50 4F 53 53 49 42 |P LINE IF POSSIB|
00000C70: 4C 45 00 7A 14 D6 06 58 B2 31 00 98 14 E0 06 8F |LE.z...X.1......|
00000C80: 20 2A 2A 2A 2A 2A 20 53 4B 49 50 20 49 46 20 4E | ***** SKIP IF N|
00000C90: 4F 54 20 43 4F 4C 4F 4E 00 AC 14 EA 06 8B 20 43 |OT COLON...... C|
00000CA0: 28 58 29 B3 B1 35 38 A7 31 38 38 30 00 BA 14 F4 |(X)..58.1880....|
00000CB0: 06 8B 58 B2 31 A7 32 30 30 30 00 D3 14 FE 06 4C |..X.1.2000.....L|
00000CC0: 4E B2 4C 4E AA 31 3A 8B 4C 4E B1 B2 4E 4C A7 32 |N.LN.1:.LN..NL.2|
00000CD0: 30 30 30 00 EA 14 08 07 98 36 2C C7 28 30 29 3B |000......6,.(0);|
00000CE0: C7 28 31 29 3B C7 28 31 29 3B 00 07 15 12 07 48 |.(1);.(1);.....H|
00000CF0: B2 B5 28 4C 4E AD 32 35 36 29 3A 4C B2 4C 4E AB |..(LN.256):L.LN.|
00000D00: 28 32 35 36 AC 48 29 00 19 15 1C 07 98 36 2C C7 |(256.H)......6,.|
00000D10: 28 4C 29 3B C7 28 48 29 3B 00 41 15 26 07 58 B2 |(L);.(H);.A.&.X.|
00000D20: 58 AA 31 3A 8B 20 43 28 58 29 20 B2 20 33 32 20 |X.1:. C(X) . 32 |
00000D30: B0 20 43 28 58 29 20 B2 20 35 38 20 A7 31 38 33 |. C(X) . 58 .183|
00000D40: 30 00 4B 15 30 07 89 31 37 37 30 00 6A 15 3A 07 |0.K.0..1770.j.:.|
00000D50: 8F 20 43 4F 50 59 20 52 45 53 54 20 4F 46 20 4C |. COPY REST OF L|
00000D60: 49 4E 45 20 49 46 20 2D 2D 2D 00 8B 15 44 07 8F |INE IF ---...D..|
00000D70: 20 47 4F 54 4F 2C 20 45 4E 44 2C 20 52 55 4E 2C | GOTO, END, RUN,|
00000D80: 20 49 46 2C 20 52 45 54 55 52 4E 00 A7 15 4E 07 | IF, RETURN...N.|
00000D90: 8F 20 52 45 4D 2C 20 53 54 4F 50 2C 20 4C 49 53 |. REM, STOP, LIS|
00000DA0: 54 2C 20 43 4F 4E 54 00 C8 15 58 07 8B 20 43 28 |T, CONT...X.. C(|
00000DB0: 58 29 B3 31 32 38 20 B0 20 43 28 58 29 B1 31 35 |X).128 . C(X).15|
00000DC0: 35 20 A7 20 31 39 36 30 00 E9 15 62 07 8B 20 43 |5 . 1960...b.. C|
00000DD0: 28 58 29 B2 31 32 38 20 B0 20 43 28 58 29 B1 31 |(X).128 . C(X).1|
00000DE0: 35 33 20 A7 20 31 39 32 30 00 0A 16 6C 07 8B 20 |53 . 1920...l.. |
00000DF0: 43 28 58 29 B3 31 33 37 20 B0 20 43 28 58 29 B1 |C(X).137 . C(X).|
00000E00: 31 34 34 20 A7 20 31 39 36 30 00 2B 16 76 07 8B |144 . 1960.+.v..|
00000E10: 20 43 28 58 29 B2 31 34 30 20 B0 20 43 28 58 29 | C(X).140 . C(X)|
00000E20: B2 31 34 31 20 A7 20 31 39 36 30 00 3B 16 80 07 |.141 . 1960.;...|
00000E30: 98 36 2C C7 28 43 28 58 29 29 3B 00 56 16 8A 07 |.6,.(C(X));.V...|
00000E40: 8B 20 43 28 58 29 B1 30 20 A7 20 58 B2 58 AA 31 |. C(X).0 . X.X.1|
00000E50: 3A 89 31 39 32 30 00 60 16 94 07 89 31 36 33 30 |:.1920.`....1630|
00000E60: 00 78 16 9E 07 8F 20 53 4B 49 50 20 49 46 20 4E |.x.... SKIP IF N|
00000E70: 4F 54 20 51 55 4F 54 45 00 90 16 A8 07 8B 20 43 |OT QUOTE...... C|
00000E80: 28 58 29 20 B3 B1 20 33 34 20 A7 20 32 30 30 30 |(X) .. 34 . 2000|
00000E90: 00 A6 16 B2 07 98 36 2C C7 28 43 28 58 29 29 3B |......6,.(C(X));|
00000EA0: 3A 58 B2 58 AA 31 00 C6 16 BC 07 8B 20 43 28 58 |:X.X.1...... C(X|
00000EB0: 29 20 B2 33 34 20 B0 20 43 28 58 29 20 B2 20 30 |) .34 . C(X) . 0|
00000EC0: 20 A7 32 30 30 30 00 D0 16 C6 07 89 31 39 37 30 | .2000......1970|
00000ED0: 00 E0 16 D0 07 98 36 2C C7 28 43 28 58 29 29 3B |......6,.(C(X));|
00000EE0: 00 FC 16 DA 07 8B 20 43 28 58 29 B1 30 20 A7 20 |...... C(X).0 . |
00000EF0: 58 B2 58 AA 31 20 3A 89 31 37 37 30 00 06 17 E4 |X.X.1 :.1770....|
00000F00: 07 89 31 36 33 30 00 25 17 EE 07 8F 20 2A 2A 2A |..1630.%.... ***|
00000F10: 20 45 4E 44 20 4F 46 20 42 41 53 49 43 20 50 52 | END OF BASIC PR|
00000F20: 4F 47 52 41 4D 00 37 17 F8 07 98 36 2C C7 28 30 |OGRAM.7....6,.(0|
00000F30: 29 3B C7 28 30 29 3B 00 48 17 02 08 99 22 11 11 |);.(0);.H...."..|
00000F40: 12 44 4F 4E 45 22 3A 99 00 58 17 0C 08 A0 35 3A |.DONE":..X....5:|
00000F50: A0 36 3A 89 32 31 37 30 00 83 17 16 08 99 22 93 |.6:.2170......".|
00000F60: 1E 20 20 20 3C 3C 3C 20 43 4F 4D 50 41 43 54 4F |. <<< COMPACTO|
00000F70: 52 20 2F 20 55 4E 43 4F 4D 50 41 43 54 4F 52 20 |R / UNCOMPACTOR |
00000F80: 3E 3E 3E 00 A8 17 20 08 99 22 20 20 20 20 20 20 |>>>... .." |
00000F90: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 2D 2D 2D | --------- ---|
00000FA0: 2D 2D 2D 2D 2D 2D 2D 2D 00 F5 17 2A 08 99 22 11 |--------...*..".|
00000FB0: 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 43 4F 4D |DAS PROGRAMM COM|
00000FC0: 50 41 43 54 4F 52 20 50 41 43 4B 54 20 45 49 4E |PACTOR PACKT EIN|
00000FD0: 20 42 45 4C 49 45 42 49 45 47 45 53 20 42 41 53 | BELIEBIEGES BAS|
00000FE0: 49 43 20 50 52 4F 47 52 41 4D 4D 20 5A 55 53 41 |IC PROGRAMM ZUSA|
00000FF0: 4D 4D 45 4E 2E 00 25 18 34 08 99 22 11 53 4F 20 |MMEN..%.4..".SO |
00001000: 44 41 53 20 4D 41 58 2E 49 4D 20 50 55 46 46 45 |DAS MAX.IM PUFFE|
00001010: 52 20 32 35 35 20 5A 45 49 43 48 45 4E 20 53 54 |R 255 ZEICHEN ST|
00001020: 45 48 45 4E 2E 00 75 18 3E 08 99 22 11 11 11 44 |EHEN..u.>.."...D|
00001030: 41 53 20 50 52 4F 47 52 41 4D 4D 20 55 4E 43 4F |AS PROGRAMM UNCO|
00001040: 4D 50 41 43 54 4F 52 20 42 52 49 4E 47 54 20 44 |MPACTOR BRINGT D|
00001050: 41 53 20 43 4F 4D 50 41 43 54 49 45 52 54 45 20 |AS COMPACTIERTE |
00001060: 50 52 4F 47 52 41 4D 4D 20 57 49 45 44 45 52 20 |PROGRAMM WIEDER |
00001070: 49 4E 20 22 3B 00 84 18 48 08 99 22 4F 52 44 4E |IN ";...H.."ORDN|
00001080: 55 4E 47 2E 00 D1 18 52 08 99 22 11 11 44 45 52 |UNG....R.."..DER|
00001090: 20 56 4F 52 54 45 49 4C 20 44 49 45 53 45 53 20 | VORTEIL DIESES |
000010A0: 50 52 4F 47 52 41 4D 4D 53 20 49 53 54 20 45 53 |PROGRAMMS IST ES|
000010B0: 20 44 41 53 20 44 41 53 20 50 52 4F 47 52 41 4D | DAS DAS PROGRAM|
000010C0: 4D 20 4B 55 45 52 54 5A 45 52 20 55 4E 44 20 22 |M KUERTZER UND "|
000010D0: 3B 00 E6 18 5C 08 99 22 53 43 48 4E 45 4C 4C 45 |;...\.."SCHNELLE|
000010E0: 52 20 57 49 52 44 00 0C 19 66 08 99 22 11 11 11 |R WIRD...f.."...|
000010F0: 11 5A 55 4D 20 53 54 41 52 54 20 45 49 4E 45 20 |.ZUM START EINE |
00001100: 54 41 53 54 45 20 2E 2E 2E 2E 2E 22 00 20 19 70 |TASTE .....". .p|
00001110: 08 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 8E |..198,0:.198,1:.|
00001120: 00 40 19 7A 08 99 22 93 11 11 11 11 11 11 11 11 |.@.z..".........|
00001130: 11 11 11 4E 4F 43 48 4D 41 4C 20 28 4A 2F 4E 29 |...NOCHMAL (J/N)|
00001140: 00 57 19 84 08 A1 41 24 3A 8B 41 24 B2 22 4E 22 |.W....A$:.A$."N"|
00001150: A7 99 22 93 22 3A 80 00 65 19 8E 08 8B 41 24 B2 |..".":..e....A$.|
00001160: 22 4A 22 A7 8A 00 6F 19 98 08 89 32 31 38 30 00 |"J"...o....2180.|
00001170: 00 00 |.. |
..>.D..53280,1:.53281,1:.".. <<< COMPA
CTOR / UNCOMPACTOR >>>.C.N.." ----
----- -----------...X.."........ANLEIT
UNG (J/N)......A$:.A$."J"..2070:.160..
....A$."N".160......130.Y. ..".... (
..1..) COMPACTOR......" (..2..) UN
-COMPACTOR......"..PROGRAMM START NUMMER
(1/2)".3....A$:.A$."1".230.D.H..A$."2".
1440.M.R..190.S.....L.... COMPACTOR PROG
RAMM...... COMPUTE V1 I6 P106 FF......:.
TL(1000)......".".15)".COMPACTOR...T....
".PROGRAMM. DISK EINLEGEN.........".BITT
E FILE NAME.";FL$..."..".SCANNING FILE.'
.,.." FOR TARGET LINES........:.6..15,
8,15:.1390.U.@..5,8,5,"0:".FL$.",P,R".E.
J..1390:.1350.{.T..1350:.V.V1.0.560...^.
.1350:LN.V1.(256.V)...H..1360...R..V.0.3
40...|..V.137.V.141.400.O....V..167.360.
X...LT.0......1360:.V.32.410......V.48.V
.57.450.....LT.(10.LT).E(C$).#....1360:.
420...B..X.0.N.@.L..TL(X).LT.530.G.V..X.
Z...TL(N).LT:N.N.1.C....LT,.S....N.1000.
530......"..TOO MANY TARGET LINES!......
1430......V.44.400......V..32.370.H.&..1
360:.530.U.0..N.2.620...:..X.0.N.1...D..
Y.0.N.2...N..TL(Y).TL(X).610.$.X.V.TL(Y)
:TL(Y).TL(X):TL(X).V.-.B..Y,X.K.L..".COM
PACTING LINES.......R.V. 5.M....5,8,5,"0
:".FL$.",P,R".W....1390.....FO$.H(FL$,14
)."/C". ....15,"S0:".FO$......6,8,6,"0:"
.FO$.",P,W".E....1390.O....1350...F..6,G
(V1);...P..6,G(V);:R.0...Z..1350:K1.V1:K
2.V.....F.0:.V.V1.0.1320.-....1350:L1.V1
:L2.V.E...LN.L1.(256.L2):.LN,.O....1360.
B....V.32.V.58.770.O....V.0.820.. ..V..
143.860...*..1360:.V.0.810...4.F.1:.X.0.
N...>..TL(X).LN..X.D.H..TL(X).LN.860.M.R
..730...\..6,G(K1);G(K2);...F..6,G(L1);G
(L2);:R.4...P..F..6,":";:R.5...Z.F.0:.92
0.*....6,C$;:R.R.1.4....1360.C....V.137.
F.1.X....V.139.V.167.F.1.F....V.0.1140.T
....V.32.910......V..143.990...J..1360:.
V.0.970...T..1140......V..34.1070.B....6
,C$;:R.R.1.L....1360.Z....V.34.900......
V.0.1000......F.V.0:.720......6,G(34);:R
.R.1...$..1140.%....V..58.900./.8..1360.
C.B..V.32.V.58.1080.R.L..V.143.970.`.V..
V.0.1140.R.`..6,":";:R.R.1.{.J..920...T.
.(F).(R.170).V.0:.720...~..1350......V.V
1.0.1320.H....1350:LN.V1.(256.V).....L1.
V1:L2.V:.LN,......X.0.N......TL(X).LN..X
......TL(X).LN.1260. .D..1360:.V.143.970
.4.N..V.32.V.58.1220.B.X..V.0.1150.Y....
6,":";:R.R.1:.920.P....6,G(0);G(1);G(1);
......6,G(L1);G(L2);:R.4......1360......
V.32.V.58.1280......V.0.V.143..6,":";.J.
..F.0:.920...(..6,G(0);G(0);G(0);...2.."
..DONE.."...<..1430...F..1360:V1.V...P..
#5,C$:.1390.,.Z..C$."".V.0:..:.D.V.F(C$)
:..O.N..15,EN,EM$,ET,ES.[.X..EN.0...S...
.:."....DISK ERROR.......EN;EM$;ET;ES...
.. 5: 6: 15:.2170... ..1520...... >>>> S
UBR.INES <<<<.L....1470:V1.V......#5,C$:
.1500...H.V.0:.C$.."".V.F(C$)...R.......
..!.... >>>> INITIALISIERUNG <<<<.;...."
.",".UN-COMPACTOR...^...." .PROGRAMM. DI
SK EINLEGEN....Z....".INPUT FILENAME.";F
L$...... C (256):.5,8,0,(FL$):.1500.....
.:."OK, WORKING ON LINE # .......W.".FO$
.H(FL$,14)."/U"...,..6,8,6,"@0:".FO$.",P
,W"...6..1500...@..1460:.6,G(V1);C$;.".J
.F.1:.1710.>.T.. ***** .PUT THIS LINE#.S
.^.LN.NL:.LK.0.2040.\.H..LN,...R..6,G(1)
;G(1);G(LL);G(LH);:.1670...|.. ***** REA
D THIS BASIC PGM LINE.....X.1......1470:
C(X).V.S....V.0.X.X.1:.1680...... *****
GET NEXT LINK & LINE#......1460:LK.V.V1:
.LK.0.1730.7....1460:NL.V1.(256.V.2):LL.
V1:LH.V.L.B.. F . F.0: .1630.R.L.. *****
BREAK UP LINE IF POSSIBLE.Z.V.X.1......
***** SKIP IF NOT COLON...... C(X)..58.
1880......X.1.2000.S...LN.LN.1:.LN..NL.2
000......6,G(0);G(1);G(1);.....H..(LN.25
6):L.LN.(256.H)......6,G(L);G(H);.A.&.X.
X.1:. C(X) . 32 . C(X) . 58 .1830.K.0..1
770.J.:.. COPY REST OF LINE IF ---...D..
GOTO, END, RUN, IF, RETURN...N.. REM, S
TOP, LIST, CONT.H.X.. C(X).128 . C(X).15
5 . 1960...B.. C(X).128 . C(X).153 . 192
0...L.. C(X).137 . C(X).144 . 1960.+.V..
C(X).140 . C(X).141 . 1960.;....6,G(C(X
));.V.... C(X).0 . X.X.1:.1920.`....1630
.X.... SKIP IF NOT QUOTE...... C(X) .. 3
4 . 2000......6,G(C(X));:X.X.1.F.... C(X
) .34 . C(X) . 0 .2000.P.F..1970...P..6,
G(C(X));...Z.. C(X).0 . X.X.1 :.1770....
..1630.%.... *** END OF BASIC PROGRAM.7.
...6,G(0);G(0);.H...."...DONE":..X... 5:
6:.2170......".. <<< COMPACTOR / UNCO
MPACTOR >>>... .." --------- ---
--------...*..".DAS PROGRAMM COMPACTOR P
ACKT EIN BELIEBIEGES BASIC PROGRAMM ZUSA
MMEN..%.4..".SO DAS MAX.IM PUFFER 255 ZE
ICHEN STEHEN..U.>.."...DAS PROGRAMM UNCO
MPACTOR BRINGT DAS COMPACTIERTE PROGRAMM
WIEDER IN ";...H.."ORDNUNG..Q.R.."..DER
VORTEIL DIESES PROGRAMMS IST ES DAS DAS
PROGRAMM KUERTZER UND ";...\.."SCHNELLE
R WIRD...F.."....ZUM START EINE TASTE ..
...". .P..198,0:.198,1:..@.Z..".........
...NOCHMAL (J/N).W....A$:.A$."N"..".":..
E....A$."J"...O....2180...
> CLICK IMAGE PREVIEW FOR FULL MODAL