COMPACTOR (B)
FILE INFORMATION
FILENAME(S): COMPACTOR (B)
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-01 02:21:05
APPEARS ON: 1 disk(s)
FILE HASH
8933829db36dbe58fb211ee3cb30ca0bdc77deec26bf08c21fcd957cd3b1b273
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| EKONOMI | COMPACTOR (B) | PRG | hedning, scooby | 19 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 00 00 8F 20 43 4F 4D 50 41 43 54 4F |....... COMPACTO| 00000010: 52 20 28 42 29 00 06 09 01 00 9C 3A 86 54 4C 28 |R (B)......:.TL(| 00000020: 34 30 30 30 29 3A 99 22 93 22 A6 31 34 29 22 12 |4000):.".".14)".| 00000030: 20 43 4F 4D 50 41 43 54 4F 52 20 11 11 22 3A 99 | COMPACTOR ..":.| 00000040: 22 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |"THIS PROGRAM WI| 00000050: 4C 4C 20 43 4F 4D 50 41 43 54 20 41 20 50 52 4F |LL COMPACT A PRO| 00000060: 47 52 41 4D 22 3A 99 22 4C 4F 43 41 54 45 44 20 |GRAM":."LOCATED | 00000070: 4F 4E 20 41 4E 59 20 44 52 49 56 45 20 42 59 20 |ON ANY DRIVE BY | 00000080: 44 45 4C 45 54 49 4E 47 20 41 4C 4C 20 52 45 4D |DELETING ALL REM| 00000090: 22 3A 99 22 4E 4F 54 41 54 49 4F 4E 53 2C 20 42 |":."NOTATIONS, B| 000000A0: 4C 41 4E 4B 20 4C 49 4E 45 53 2C 20 41 4E 44 20 |LANK LINES, AND | 000000B0: 42 59 20 4C 49 4E 4B 49 4E 47 22 3A 99 22 54 4F |BY LINKING":."TO| 000000C0: 47 45 54 48 45 52 20 41 4C 4C 20 50 4F 53 53 49 |GETHER ALL POSSI| 000000D0: 42 4C 45 20 4C 49 4E 45 53 2E 11 22 3A 99 22 54 |BLE LINES..":."T| 000000E0: 48 45 20 4E 45 57 20 43 4F 4D 50 41 43 54 45 44 |HE NEW COMPACTED| 000000F0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 42 45 | PROGRAM WILL BE| 00000100: 20 53 41 56 45 44 00 02 0A 02 00 99 22 54 4F 20 | SAVED......"TO | 00000110: 41 4E 59 20 44 49 53 4B 20 44 52 49 56 45 20 57 |ANY DISK DRIVE W| 00000120: 49 54 48 20 54 48 45 20 53 41 4D 45 20 46 49 4C |ITH THE SAME FIL| 00000130: 45 4E 41 4D 45 22 3A 99 22 42 55 54 20 57 49 54 |ENAME":."BUT WIT| 00000140: 48 20 41 20 27 2F 43 27 20 53 55 46 46 49 58 2E |H A '/C' SUFFIX.| 00000150: 11 22 3A 85 22 12 20 49 4E 50 55 54 20 46 49 4C |.":.". INPUT FIL| 00000160: 45 20 44 52 49 56 45 20 23 22 3B 44 49 24 3A 85 |E DRIVE #";DI$:.| 00000170: 22 12 4F 55 54 50 55 54 20 46 49 4C 45 20 44 52 |".OUTPUT FILE DR| 00000180: 49 56 45 20 23 22 3B 44 4F 24 3A 85 22 12 49 4E |IVE #";DO$:.".IN| 00000190: 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 92 22 3B |PUT FILE NAME.";| 000001A0: 46 4C 24 3A 99 22 93 53 43 41 4E 4E 49 4E 47 20 |FL$:.".SCANNING | 000001B0: 46 49 4C 45 22 3A 99 22 20 20 20 46 4F 52 20 54 |FILE":." FOR T| 000001C0: 41 52 47 45 54 20 4C 49 4E 45 53 2E 2E 2E 2E 2E |ARGET LINES.....| 000001D0: 11 11 22 3A 9F 31 35 2C 38 2C 31 35 3A 8D 37 31 |..":.15,8,15:.71| 000001E0: 3A 9F 35 2C 38 2C 35 2C 44 49 24 AA 22 3A 22 AA |:.5,8,5,DI$.":".| 000001F0: 46 4C 24 AA 22 2C 50 2C 52 22 3A 8D 37 31 3A 8D |FL$.",P,R":.71:.| 00000200: 36 38 00 15 0A 03 00 8D 36 38 3A 8B 56 AA 56 31 |68......68:.V.V1| 00000210: B2 30 A7 31 39 00 2B 0A 04 00 8D 36 38 3A 4C 4E |.0.19.+....68:LN| 00000220: B2 56 31 AA 28 32 35 36 AC 56 29 00 33 0A 05 00 |.V1.(256.V).3...| 00000230: 8D 36 39 00 3E 0A 06 00 8B 56 B2 30 A7 33 00 51 |.69.>....V.0.3.Q| 00000240: 0A 07 00 8B 56 B2 31 33 37 B0 56 B2 31 34 31 A7 |....V.137.V.141.| 00000250: 39 00 5F 0A 08 00 8B 56 B3 B1 31 36 37 A7 35 00 |9._....V..167.5.| 00000260: 68 0A 09 00 4C 54 B2 30 00 79 0A 0A 00 8D 36 39 |h...LT.0.y....69| 00000270: 3A 8B 56 B2 33 32 A7 31 30 00 8B 0A 0B 00 8B 56 |:.V.32.10......V| 00000280: B3 34 38 B0 56 B1 35 37 A7 31 33 00 A8 0A 0C 00 |.48.V.57.13.....| 00000290: 4C 54 B2 28 31 30 AC 4C 54 29 AA C5 28 43 24 29 |LT.(10.LT)..(C$)| 000002A0: 3A 8D 36 39 3A 89 31 31 00 C0 0A 0D 00 81 58 B2 |:.69:.11......X.| 000002B0: 30 A4 4E 3A 8B 54 4C 28 58 29 B2 4C 54 A7 31 36 |0.N:.TL(X).LT.16| 000002C0: 00 E5 0A 0E 00 82 3A 54 4C 28 4E 29 B2 4C 54 3A |......:TL(N).LT:| 000002D0: 4E B2 4E AA 31 3A 99 4C 54 2C 3A 8B 4E B3 34 30 |N.N.1:.LT,:.N.40| 000002E0: 30 30 A7 31 36 00 09 0B 0F 00 99 22 11 11 54 4F |00.16......"..TO| 000002F0: 4F 20 4D 41 4E 59 20 54 41 52 47 45 54 20 4C 49 |O MANY TARGET LI| 00000300: 4E 45 53 21 22 3A 89 37 33 00 15 0B 10 00 8B 56 |NES!":.73......V| 00000310: B2 34 34 A7 39 00 22 0B 11 00 8B 56 B3 B1 33 32 |.44.9."....V..32| 00000320: A7 36 00 2E 0B 12 00 8D 36 39 3A 89 31 36 00 3A |.6......69:.16.:| 00000330: 0B 13 00 8B 4E B3 32 A7 32 33 00 60 0B 14 00 81 |....N.2.23.`....| 00000340: 58 B2 30 A4 4E AB 31 3A 81 59 B2 30 A4 4E AB 32 |X.0.N.1:.Y.0.N.2| 00000350: 3A 8B 54 4C 28 59 29 B3 54 4C 28 58 29 A7 32 32 |:.TL(Y).TL(X).22| 00000360: 00 80 0B 15 00 56 B2 54 4C 28 59 29 3A 54 4C 28 |.....V.TL(Y):TL(| 00000370: 59 29 B2 54 4C 28 58 29 3A 54 4C 28 58 29 B2 56 |Y).TL(X):TL(X).V| 00000380: 00 88 0B 16 00 82 3A 82 00 15 0C 17 00 99 22 93 |......:.......".| 00000390: 43 4F 4D 50 41 43 54 49 4E 47 20 4C 49 4E 45 53 |COMPACTING LINES| 000003A0: 2E 2E 2E 2E 11 11 22 3A A0 35 3A 9F 35 2C 38 2C |......":.5:.5,8,| 000003B0: 35 2C 44 49 24 AA 22 3A 22 AA 46 4C 24 AA 22 2C |5,DI$.":".FL$.",| 000003C0: 50 2C 52 22 3A 8D 37 31 3A 46 4F 24 B2 C8 28 46 |P,R":.71:FO$..(F| 000003D0: 4C 24 2C 31 34 29 AA 22 2F 43 22 3A 98 31 35 2C |L$,14)."/C":.15,| 000003E0: 22 53 31 3A 22 AA 46 4F 24 3A 9F 36 2C 38 2C 36 |"S1:".FO$:.6,8,6| 000003F0: 2C 44 30 24 AA 22 3A 22 AA 46 4F 24 AA 22 2C 50 |,D0$.":".FO$.",P| 00000400: 2C 57 22 3A 8D 37 31 3A 8D 36 38 3A 98 36 2C C7 |,W":.71:.68:.6,.| 00000410: 28 56 31 29 3B 00 26 0C 18 00 98 36 2C C7 28 56 |(V1);.&....6,.(V| 00000420: 29 3B 3A 52 B2 30 00 48 0C 19 00 8D 36 38 3A 4B |);:R.0.H....68:K| 00000430: 31 B2 56 31 3A 4B 32 B2 56 3A 46 B2 30 3A 8B 56 |1.V1:K2.V:F.0:.V| 00000440: AA 56 31 B2 30 A7 36 37 00 6F 0C 1A 00 8D 36 38 |.V1.0.67.o....68| 00000450: 3A 4C 31 B2 56 31 3A 4C 32 B2 56 3A 4C 4E B2 4C |:L1.V1:L2.V:LN.L| 00000460: 31 AA 28 32 35 36 AC 4C 32 29 3A 99 4C 4E 2C 00 |1.(256.L2):.LN,.| 00000470: 85 0C 1B 00 8D 36 39 3A 8B 56 B2 33 32 B0 56 B2 |.....69:.V.32.V.| 00000480: 35 38 A7 32 37 00 91 0C 1C 00 8B 56 B2 30 A7 33 |58.27......V.0.3| 00000490: 31 00 A0 0C 1D 00 8B 56 B3 B1 31 34 33 A7 33 34 |1......V..143.34| 000004A0: 00 B0 0C 1E 00 8D 36 39 3A 8B 56 B1 30 A7 33 30 |......69:.V.0.30| 000004B0: 00 CB 0C 1F 00 46 B2 31 3A 81 58 B2 30 A4 4E 3A |.....F.1:.X.0.N:| 000004C0: 8B 54 4C 28 58 29 B3 4C 4E A7 82 00 DC 0C 20 00 |.TL(X).LN..... .| 000004D0: 8B 54 4C 28 58 29 B2 4C 4E A7 33 34 00 E4 0C 21 |.TL(X).LN.34...!| 000004E0: 00 89 32 35 00 1B 0D 22 00 98 36 2C C7 28 4B 31 |..25..."..6,.(K1| 000004F0: 29 3B C7 28 4B 32 29 3B 3A 98 36 2C C7 28 4C 31 |);.(K2);:.6,.(L1| 00000500: 29 3B C7 28 4C 32 29 3B 3A 52 B2 34 3A 8B 46 A7 |);.(L2);:R.4:.F.| 00000510: 98 36 2C 22 3A 22 3B 3A 52 B2 35 00 27 0D 23 00 |.6,":";:R.5.'.#.| 00000520: 46 B2 30 3A 89 33 38 00 38 0D 24 00 98 36 2C 43 |F.0:.38.8.$..6,C| 00000530: 24 3B 3A 52 B2 52 AA 31 00 40 0D 25 00 8D 36 39 |$;:R.R.1.@.%..69| 00000540: 00 4F 0D 26 00 8B 56 B2 31 33 37 A7 46 B2 31 00 |.O.&..V.137.F.1.| 00000550: 64 0D 27 00 8B 56 B2 31 33 39 B0 56 B2 31 36 37 |d.'..V.139.V.167| 00000560: A7 46 B2 31 00 70 0D 28 00 8B 56 B2 30 A7 35 35 |.F.1.p.(..V.0.55| 00000570: 00 7D 0D 29 00 8B 56 B2 33 32 A7 33 37 00 8C 0D |.}.)..V.32.37...| 00000580: 2A 00 8B 56 B3 B1 31 34 33 A7 34 35 00 9C 0D 2B |*..V..143.45...+| 00000590: 00 8D 36 39 3A 8B 56 B1 30 A7 34 33 00 A4 0D 2C |..69:.V.0.43...,| 000005A0: 00 89 35 35 00 B2 0D 2D 00 8B 56 B3 B1 33 34 A7 |..55...-..V..34.| 000005B0: 35 30 00 D0 0D 2E 00 98 36 2C 43 24 3B 3A 52 B2 |50......6,C$;:R.| 000005C0: 52 AA 31 3A 8D 36 39 3A 8B 56 B2 33 34 A7 33 36 |R.1:.69:.V.34.36| 000005D0: 00 DC 0D 2F 00 8B 56 B1 30 A7 34 36 00 EB 0D 30 |.../..V.0.46...0| 000005E0: 00 8B 46 A7 56 B2 30 3A 89 32 34 00 03 0E 31 00 |..F.V.0:.24...1.| 000005F0: 98 36 2C C7 28 33 34 29 3B 3A 52 B2 52 AA 31 3A |.6,.(34);:R.R.1:| 00000600: 89 35 35 00 11 0E 32 00 8B 56 B3 B1 35 38 A7 33 |.55...2..V..58.3| 00000610: 36 00 27 0E 33 00 8D 36 39 3A 8B 56 B2 33 32 B0 |6.'.3..69:.V.32.| 00000620: 56 B2 35 38 A7 35 31 00 35 0E 34 00 8B 56 B2 31 |V.58.51.5.4..V.1| 00000630: 34 33 A7 34 33 00 41 0E 35 00 8B 56 B2 30 A7 35 |43.43.A.5..V.0.5| 00000640: 35 00 57 0E 36 00 98 36 2C 22 3A 22 3B 3A 52 B2 |5.W.6..6,":";:R.| 00000650: 52 AA 31 3A 89 33 38 00 6E 0E 37 00 8B 46 B0 28 |R.1:.38.n.7..F.(| 00000660: 52 B1 31 37 30 29 A7 56 B2 30 3A 89 32 34 00 81 |R.170).V.0:.24..| 00000670: 0E 38 00 8D 36 38 3A 8B 56 AA 56 31 B2 30 A7 36 |.8..68:.V.V1.0.6| 00000680: 37 00 BA 0E 39 00 8D 36 38 3A 4C 4E B2 56 31 AA |7...9..68:LN.V1.| 00000690: 28 32 35 36 AC 56 29 3A 4C 31 B2 56 31 3A 4C 32 |(256.V):L1.V1:L2| 000006A0: B2 56 3A 99 4C 4E 2C 3A 81 58 B2 30 A4 4E 3A 8B |.V:.LN,:.X.0.N:.| 000006B0: 54 4C 28 58 29 B3 4C 4E A7 82 00 CB 0E 3A 00 8B |TL(X).LN.....:..| 000006C0: 54 4C 28 58 29 B2 4C 4E A7 36 33 00 DD 0E 3B 00 |TL(X).LN.63...;.| 000006D0: 8D 36 39 3A 8B 56 B2 31 34 33 A7 34 33 00 EF 0E |.69:.V.143.43...| 000006E0: 3C 00 8B 56 B2 33 32 B0 56 B2 35 38 A7 35 39 00 |<..V.32.V.58.59.| 000006F0: FB 0E 3D 00 8B 56 B2 30 A7 35 36 00 11 0F 3E 00 |..=..V.0.56...>.| 00000700: 98 36 2C 22 3A 22 3B 3A 52 B2 52 AA 31 3A 89 33 |.6,":";:R.R.1:.3| 00000710: 38 00 3C 0F 3F 00 98 36 2C C7 28 30 29 3B C7 28 |8.<.?..6,.(0);.(| 00000720: 31 29 3B C7 28 31 29 3B 3A 98 36 2C C7 28 4C 31 |1);.(1);:.6,.(L1| 00000730: 29 3B C7 28 4C 32 29 3B 3A 52 B2 34 00 52 0F 40 |);.(L2);:R.4.R.@| 00000740: 00 8D 36 39 3A 8B 56 B2 33 32 B0 56 B2 35 38 A7 |..69:.V.32.V.58.| 00000750: 36 34 00 69 0F 41 00 8B 56 B2 30 B0 56 B2 31 34 |64.i.A..V.0.V.14| 00000760: 33 A7 98 36 2C 22 3A 22 3B 00 75 0F 42 00 46 B2 |3..6,":";.u.B.F.| 00000770: 30 3A 89 33 38 00 60 10 43 00 98 36 2C C7 28 30 |0:.38.`.C..6,.(0| 00000780: 29 3B C7 28 30 29 3B C7 28 30 29 3B 3A A0 35 3A |);.(0);.(0);:.5:| 00000790: A0 36 3A A0 31 35 3A 99 22 93 11 11 11 12 4D 4F |.6:.15:.".....MO| 000007A0: 44 49 46 59 20 50 48 41 53 45 20 43 4F 4D 50 4C |DIFY PHASE COMPL| 000007B0: 45 54 45 2D 44 4F 20 4E 4F 54 20 54 4F 55 43 48 |ETE-DO NOT TOUCH| 000007C0: 20 54 48 45 20 20 20 20 20 20 4B 45 59 42 4F 41 | THE KEYBOA| 000007D0: 52 44 20 59 45 54 11 11 22 3A 81 4A B2 31 A4 33 |RD YET..":.J.1.3| 000007E0: 30 30 30 3A 82 3A 51 24 B2 C7 28 33 34 29 3A 99 |000:.:Q$..(34):.| 000007F0: 22 93 11 11 4C 4F 41 44 22 51 24 44 30 24 22 3A |"...LOAD"Q$D0$":| 00000800: 22 46 4F 24 51 24 22 2C 38 22 3A 99 22 11 11 11 |"FO$Q$",8":."...| 00000810: 11 43 4C 52 3A 53 59 53 34 32 32 39 31 22 3A 99 |.CLR:SYS42291":.| 00000820: 22 11 11 53 41 56 45 22 51 24 22 40 22 44 4F 24 |"..SAVE"Q$"@"DO$| 00000830: 22 3A 22 46 4F 24 51 24 22 2C 38 22 3A 97 31 39 |":"FO$Q$",8":.19| 00000840: 38 2C 33 3A 81 4A B2 36 33 31 A4 36 33 33 3A 97 |8,3:.J.631.633:.| 00000850: 4A 2C 31 33 3A 82 3A 99 22 13 22 3B 3A 89 37 33 |J,13:.:.".";:.73| 00000860: 00 6D 10 44 00 8D 36 39 3A 56 31 B2 56 00 89 10 |.m.D..69:V1.V...| 00000870: 45 00 A1 23 35 2C 43 24 3A 8D 37 31 3A 8B 43 24 |E..#5,C$:.71:.C$| 00000880: B2 22 22 A7 56 B2 30 3A 8E 00 97 10 46 00 56 B2 |."".V.0:....F.V.| 00000890: C6 28 43 24 29 3A 8E 00 B4 10 47 00 84 31 35 2C |.(C$):....G..15,| 000008A0: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E |EN,EM$,ET,ES:.EN| 000008B0: B2 30 A7 8E 00 DB 10 48 00 99 3A 99 22 11 11 11 |.0.....H..:."...| 000008C0: 12 44 49 53 4B 20 45 52 52 4F 52 11 22 3A 99 45 |.DISK ERROR.":.E| 000008D0: 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 E1 10 49 00 |N;EM$;ET;ES...I.| 000008E0: 80 00 00 00 |.... |
....... COMPACTOR (B)......:.TL(4000):." .".14)". COMPACTOR ..":."THIS PROGRAM WI LL COMPACT A PROGRAM":."LOCATED ON ANY D RIVE BY DELETING ALL REM":."NOTATIONS, B LANK LINES, AND BY LINKING":."TOGETHER A LL POSSIBLE LINES..":."THE NEW COMPACTED PROGRAM WILL BE SAVED......"TO ANY DISK DRIVE WITH THE SAME FILENAME":."BUT WIT H A '/C' SUFFIX..":.". INPUT FILE DRIVE #";DI$:.".OUTPUT FILE DRIVE #";DO$:.".IN PUT FILE NAME.";FL$:.".SCANNING FILE":." FOR TARGET LINES.......":.15,8,15:.71 :.5,8,5,DI$.":".FL$.",P,R":.71:.68...... 68:.V.V1.0.19.+....68:LN.V1.(256.V).3... .69.>....V.0.3.Q....V.137.V.141.9._....V ..167.5.H...LT.0.Y....69:.V.32.10......V .48.V.57.13.....LT.(10.LT).E(C$):.69:.11 ......X.0.N:.TL(X).LT.16......:TL(N).LT: N.N.1:.LT,:.N.4000.16......"..TOO MANY T ARGET LINES!":.73......V.44.9."....V..32 .6......69:.16.:....N.2.23.`....X.0.N.1: .Y.0.N.2:.TL(Y).TL(X).22.....V.TL(Y):TL( Y).TL(X):TL(X).V......:.......".COMPACTI NG LINES......": 5:.5,8,5,DI$.":".FL$.", P,R":.71:FO$.H(FL$,14)."/C":.15,"S1:".FO $:.6,8,6,D0$.":".FO$.",P,W":.71:.68:.6,G (V1);.&....6,G(V);:R.0.H....68:K1.V1:K2. V:F.0:.V.V1.0.67.O....68:L1.V1:L2.V:LN.L 1.(256.L2):.LN,......69:.V.32.V.58.27... ...V.0.31. ....V..143.34......69:.V.0.30 .K...F.1:.X.0.N:.TL(X).LN..... ..TL(X).L N.34...!..25..."..6,G(K1);G(K2);:.6,G(L1 );G(L2);:R.4:.F..6,":";:R.5.'.#.F.0:.38. 8.$..6,C$;:R.R.1.@.%..69.O.&..V.137.F.1. D.'..V.139.V.167.F.1.P.(..V.0.55.}.)..V. 32.37...*..V..143.45...+..69:.V.0.43..., ..55...-..V..34.50.P....6,C$;:R.R.1:.69: .V.34.36.../..V.0.46...0..F.V.0:.24...1. .6,G(34);:R.R.1:.55...2..V..58.36.'.3..6 9:.V.32.V.58.51.5.4..V.143.43.A.5..V.0.5 5.W.6..6,":";:R.R.1:.38.N.7..F.(R.170).V .0:.24...8..68:.V.V1.0.67...9..68:LN.V1. (256.V):L1.V1:L2.V:.LN,:.X.0.N:.TL(X).LN ...K.:..TL(X).LN.63...;..69:.V.143.43... <..V.32.V.58.59...=..V.0.56...>..6,":";: R.R.1:.38.<.?..6,G(0);G(1);G(1);:.6,G(L1 );G(L2);:R.4.R.@..69:.V.32.V.58.64.I.A.. V.0.V.143..6,":";.U.B.F.0:.38.`.C..6,G(0 );G(0);G(0);: 5: 6: 15:.".....MODIFY PHA SE COMPLETE-DO NOT TOUCH THE KEYBOA RD YET..":.J.1.3000:.:Q$.G(34):."...LOAD "Q$D0$":"FO$Q$",8":."....CLR:SYS42291":. "..SAVE"Q$"@"DO$":"FO$Q$",8":.198,3:.J.6 31.633:.J,13:.:.".";:.73.M.D..69:V1.V... E..#5,C$:.71:.C$."".V.0:....F.V.F(C$):.. ..G..15,EN,EM$,ET,ES:.EN.0.....H..:."... .DISK ERROR.":.EN;EM$;ET;ES...I.....
> CLICK IMAGE PREVIEW FOR FULL MODAL