00000000: 01 04 08 06 2C 01 50 4B B2 C2 28 35 37 33 34 35 |....,.PK..(57345|
00000010: 29 3A 53 4B B2 35 36 3A 8B 50 4B B2 37 32 B0 50 |):SK.56:.PK.72.P|
00000020: 4B B2 31 32 37 B0 50 4B B2 35 34 B0 50 4B B2 37 |K.127.PK.54.PK.7|
00000030: 35 A7 53 4B B2 35 33 00 C1 06 72 01 53 41 B2 32 |5.SK.53...r.SA.2|
00000040: 35 36 AC C2 28 53 4B 29 3A 8B C2 28 53 41 AA 38 |56..(SK):..(SA.8|
00000050: 30 30 30 29 B2 32 35 34 A7 34 31 30 00 DC 06 7C |000).254.410...||
00000060: 01 97 53 4B 2C C2 28 53 4B 29 AB 33 32 3A 97 53 |..SK,.(SK).32:.S|
00000070: 4B AB 31 2C 30 3A 97 32 35 36 AC C2 28 53 4B 29 |K.1,0:.256..(SK)|
00000080: AA 38 30 30 30 2C 32 35 34 3A 8A 00 01 01 9A 01 |.8000,254:......|
00000090: 99 22 93 49 4E 49 54 49 41 4C 49 5A 49 4E 47 2E |.".INITIALIZING.|
000000A0: 2E 2E 2E 2E 2E 22 3A 81 49 B2 53 41 A4 53 41 AA |.....":.I.SA.SA.|
000000B0: 37 39 39 39 3A 97 49 2C 30 3A 82 3A 86 54 28 37 |7999:.I,0:.:.T(7|
000000C0: 29 3A 81 49 B2 30 A4 37 3A 54 28 49 29 B2 32 AE |):.I.0.7:T(I).2.|
000000D0: 49 3A 82 3A 99 22 93 27 53 51 55 45 45 5A 45 52 |I:.:.".'SQUEEZER|
000000E0: 27 20 2D 20 4D 4F 44 49 46 49 45 44 20 46 52 4F |' - MODIFIED FRO|
000000F0: 4D 20 27 43 4F 4D 50 41 43 54 4F 52 27 22 3A 99 |M 'COMPACTOR'":.|
00000100: 22 11 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |"..THIS PROGRAM |
00000110: 27 53 51 55 45 45 5A 45 53 27 20 42 41 53 49 43 |'SQUEEZES' BASIC|
00000120: 22 3A 99 22 50 52 4F 47 52 41 4D 53 20 49 4E 54 |":."PROGRAMS INT|
00000130: 4F 20 52 45 44 55 43 45 44 20 53 50 41 43 45 20 |O REDUCED SPACE |
00000140: 42 59 22 00 55 08 08 02 99 22 44 45 4C 45 54 49 |BY".U...."DELETI|
00000150: 4E 47 20 27 52 45 4D 27 53 2C 20 4C 45 4E 47 54 |NG 'REM'S, LENGT|
00000160: 48 45 4E 49 4E 47 20 4C 49 4E 45 53 2C 20 45 54 |HENING LINES, ET|
00000170: 43 2E 22 3A 99 3A 99 3A 85 22 49 4E 50 55 54 20 |C.":.:.:."INPUT |
00000180: 46 49 4C 45 4E 41 4D 45 22 3B 46 49 24 3A 99 3A |FILENAME";FI$:.:|
00000190: 99 22 44 52 49 56 45 20 23 20 3F 20 22 3B 00 01 |."DRIVE # ? ";..|
000001A0: 01 26 02 A1 49 44 24 3A 8B 49 44 24 B3 22 30 22 |.&..ID$:.ID$."0"|
000001B0: B0 49 44 24 B1 22 31 22 A7 35 35 30 00 B8 08 30 |.ID$."1".550...0|
000001C0: 02 99 49 44 24 3A 99 3A 99 3A 85 22 4F 55 54 50 |..ID$:.:.:."OUTP|
000001D0: 55 54 20 46 49 4C 45 4E 41 4D 45 22 3B 4F 46 24 |UT FILENAME";OF$|
000001E0: 3A 99 3A 99 22 44 52 49 56 45 20 23 20 3F 20 22 |:.:."DRIVE # ? "|
000001F0: 3B 00 01 01 4E 02 A1 4F 44 24 3A 8B 4F 44 24 B3 |;...N..OD$:.OD$.|
00000200: 22 30 22 B0 4F 44 24 B1 22 31 22 A7 35 39 30 00 |"0".OD$."1".590.|
00000210: 1C 09 58 02 99 4F 44 24 3A 99 22 93 53 43 41 4E |..X..OD$:.".SCAN|
00000220: 4E 49 4E 47 20 46 49 4C 45 22 3A 99 22 20 20 20 |NING FILE":." |
00000230: 46 4F 52 20 54 41 52 47 45 54 20 4C 49 4E 45 53 |FOR TARGET LINES|
00000240: 2E 2E 2E 2E 2E 11 11 22 3A 9F 31 35 2C 38 2C 31 |.......":.15,8,1|
00000250: 35 3A 8D 32 37 32 30 3A 9F 35 2C 38 2C 35 2C 49 |5:.2720:.5,8,5,I|
00000260: 44 24 AA 22 3A 22 AA 46 49 24 AA 22 2C 50 2C 52 |D$.":".FI$.",P,R|
00000270: 22 3A 8D 32 37 32 30 3A 8D 32 36 36 30 00 01 01 |":.2720:.2660...|
00000280: F8 02 8D 32 36 36 30 3A 8B 56 AA 56 31 B2 30 A7 |...2660:.V.V1.0.|
00000290: 31 32 32 30 00 86 0A 02 03 8D 32 36 36 30 3A 4C |1220......2660:L|
000002A0: 4E B2 56 31 AA 28 32 35 36 AC 56 29 00 01 01 48 |N.V1.(256.V)...H|
000002B0: 03 8D 32 36 38 30 00 01 01 52 03 8B 56 B2 30 A7 |..2680...R..V.0.|
000002C0: 37 36 30 00 54 0B 5C 03 8B 56 B2 31 33 37 B0 56 |760.T.\..V.137.V|
000002D0: B2 31 34 31 A7 39 33 30 00 67 0B 66 03 8B 56 B3 |.141.930.g.f..V.|
000002E0: B1 31 36 37 A7 38 34 30 00 C1 0B A2 03 4C 54 B2 |.167.840.....LT.|
000002F0: 30 00 01 01 AC 03 8D 32 36 38 30 3A 8B 56 B2 33 |0......2680:.V.3|
00000300: 32 A7 39 34 30 00 F4 0B B6 03 8B 56 B3 34 38 B0 |2.940......V.48.|
00000310: 56 B1 35 37 A7 31 30 33 30 00 09 0C C0 03 4C 54 |V.57.1030.....LT|
00000320: B2 28 31 30 AC 4C 54 29 AA C5 28 43 24 29 3A 8D |.(10.LT)..(C$):.|
00000330: 32 36 38 30 3A 89 39 35 30 00 82 0C 06 04 8B 4C |2680:.950......L|
00000340: 54 B2 30 A7 31 31 34 30 00 91 0C 10 04 42 59 B2 |T.0.1140.....BY.|
00000350: B5 28 4C 54 AD 38 29 3A 5A B2 4C 54 AB 38 AC 42 |.(LT.8):Z.LT.8.B|
00000360: 59 3A 41 44 B2 42 59 AA 53 41 3A 97 41 44 2C C2 |Y:AD.BY.SA:.AD,.|
00000370: 28 41 44 29 B0 54 28 5A 29 3A 99 4C 54 2C 00 01 |(AD).T(Z):.LT,..|
00000380: 01 74 04 8B 56 B2 34 34 A7 39 33 30 00 61 0D 7E |.t..V.44.930.a.~|
00000390: 04 8B 56 B3 B1 33 32 A7 38 35 30 00 75 0D 88 04 |..V..32.850.u...|
000003A0: 8D 32 36 38 30 3A 89 31 31 34 30 00 F4 0D C4 04 |.2680:.1140.....|
000003B0: 99 22 93 43 4F 4D 50 41 43 54 49 4E 47 20 4C 49 |.".COMPACTING LI|
000003C0: 4E 45 53 2E 2E 2E 2E 11 11 22 3A A0 35 3A 9F 35 |NES......":.5:.5|
000003D0: 2C 38 2C 35 2C 49 44 24 AA 22 3A 22 AA 46 49 24 |,8,5,ID$.":".FI$|
000003E0: AA 22 2C 50 2C 52 22 3A 8D 32 37 32 30 3A 46 4F |.",P,R":.2720:FO|
000003F0: 24 B2 C8 28 46 4C 24 2C 31 34 29 AA 22 2F 43 22 |$..(FL$,14)."/C"|
00000400: 3A 98 31 35 2C 22 53 31 3A 22 AA 46 4F 24 3A 9F |:.15,"S1:".FO$:.|
00000410: 36 2C 38 2C 36 2C 4F 44 24 AA 22 3A 22 AA 4F 46 |6,8,6,OD$.":".OF|
00000420: 24 AA 22 2C 50 2C 57 22 3A 8D 32 37 32 30 3A 8D |$.",P,W":.2720:.|
00000430: 32 36 36 30 3A 98 36 2C C7 28 56 31 29 3B 00 01 |2660:.6,.(V1);..|
00000440: 01 5A 05 98 36 2C C7 28 56 29 3B 3A 52 B2 30 00 |.Z..6,.(V);:R.0.|
00000450: 01 01 96 05 8D 32 36 36 30 3A 4B 31 B2 56 31 3A |.....2660:K1.V1:|
00000460: 4B 32 B2 56 3A 46 B2 30 3A 8B 56 AA 56 31 B2 30 |K2.V:F.0:.V.V1.0|
00000470: A7 32 35 38 30 00 A5 0F AA 05 8D 32 36 36 30 3A |.2580......2660:|
00000480: 4C 31 B2 56 31 3A 4C 32 B2 56 3A 4C 4E B2 4C 31 |L1.V1:L2.V:LN.L1|
00000490: AA 28 32 35 36 AC 4C 32 29 3A 99 4C 4E 2C 00 01 |.(256.L2):.LN,..|
000004A0: 01 BE 05 8D 32 36 38 30 3A 8B 56 B2 33 32 B0 56 |....2680:.V.32.V|
000004B0: B2 35 38 A7 31 34 37 30 00 F5 0F D2 05 8B 56 B2 |.58.1470......V.|
000004C0: 30 A7 31 35 32 30 00 09 10 DC 05 8B 56 B3 B1 31 |0.1520......V..1|
000004D0: 34 33 A7 31 35 38 30 00 23 10 E6 05 8D 32 36 38 |43.1580.#....268|
000004E0: 30 3A 8B 56 B1 30 A7 31 35 31 30 00 2B 10 F0 05 |0:.V.0.1510.+...|
000004F0: 46 B2 31 3A 42 59 B2 B5 28 4C 4E AD 38 29 3A 5A |F.1:BY..(LN.8):Z|
00000500: B2 4C 4E AB 38 AC 42 59 3A 41 44 B2 42 59 AA 53 |.LN.8.BY:AD.BY.S|
00000510: 41 3A 8B 28 54 28 5A 29 AF C2 28 41 44 29 29 A7 |A:.(T(Z)..(AD)).|
00000520: 31 35 38 30 00 7C 10 22 06 89 31 34 33 30 00 90 |1580.|."..1430..|
00000530: 10 2C 06 98 36 2C C7 28 4B 31 29 3B C7 28 4B 32 |.,..6,.(K1);.(K2|
00000540: 29 3B 3A 98 36 2C C7 28 4C 31 29 3B C7 28 4C 32 |);:.6,.(L1);.(L2|
00000550: 29 3B 3A 52 B2 34 3A 8B 46 A7 98 36 2C 22 3A 22 |);:R.4:.F..6,":"|
00000560: 3B 3A 52 B2 35 00 D6 10 4A 06 46 B2 30 3A 89 31 |;:R.5...J.F.0:.1|
00000570: 37 30 30 00 7D 11 90 06 98 36 2C 43 24 3B 3A 52 |700.}....6,C$;:R|
00000580: B2 52 AA 31 00 01 01 9A 06 8D 32 36 38 30 00 01 |.R.1......2680..|
00000590: 01 A4 06 8B 56 B2 31 33 37 A7 46 B2 31 00 BA 11 |....V.137.F.1...|
000005A0: AE 06 8B 56 B2 31 33 39 B0 56 B2 31 36 37 A7 46 |...V.139.V.167.F|
000005B0: B2 31 00 CE 11 B8 06 8B 56 B2 30 A7 32 31 36 30 |.1......V.0.2160|
000005C0: 00 E3 11 C2 06 8B 56 B2 33 32 A7 31 36 39 30 00 |......V.32.1690.|
000005D0: 68 12 08 07 8B 56 B3 B1 31 34 33 A7 31 38 39 30 |h....V..143.1890|
000005E0: 00 82 12 12 07 8D 32 36 38 30 3A 8B 56 B1 30 A7 |......2680:.V.0.|
000005F0: 31 38 31 30 00 8D 12 1C 07 89 32 31 36 30 00 1D |1810......2160..|
00000600: 13 62 07 8B 56 B3 B1 33 34 A7 32 30 33 30 00 30 |.b..V..34.2030.0|
00000610: 13 6C 07 98 36 2C 43 24 3B 3A 52 B2 52 AA 31 3A |.l..6,C$;:R.R.1:|
00000620: 8D 32 36 38 30 3A 8B 56 B2 33 34 A7 31 36 38 30 |.2680:.V.34.1680|
00000630: 00 5E 13 8A 07 8B 56 B1 30 A7 31 39 30 30 00 75 |.^....V.0.1900.u|
00000640: 13 94 07 8B 46 A7 56 B2 30 3A 89 31 33 37 30 00 |....F.V.0:.1370.|
00000650: 8B 13 9E 07 98 36 2C C7 28 33 34 29 3B 3A 52 B2 |.....6,.(34);:R.|
00000660: 52 AA 31 3A 89 32 31 36 30 00 2C 14 EE 07 8B 56 |R.1:.2160.,....V|
00000670: B3 B1 35 38 A7 31 36 38 30 00 37 14 F8 07 8D 32 |..58.1680.7....2|
00000680: 36 38 30 3A 8B 56 B2 33 32 B0 56 B2 35 38 A7 32 |680:.V.32.V.58.2|
00000690: 30 34 30 00 63 14 0C 08 8B 56 B2 31 34 33 A7 31 |040.c....V.143.1|
000006A0: 38 31 30 00 74 14 16 08 8B 56 B2 30 A7 32 31 36 |810.t....V.0.216|
000006B0: 30 00 88 14 20 08 98 36 2C 22 3A 22 3B 3A 52 B2 |0... ..6,":";:R.|
000006C0: 52 AA 31 3A 89 31 37 30 30 00 3B 15 70 08 8B 46 |R.1:.1700.;.p..F|
000006D0: B0 28 52 B1 31 37 30 29 A7 56 B2 30 3A 89 31 33 |.(R.170).V.0:.13|
000006E0: 37 30 00 46 15 7A 08 8D 32 36 36 30 3A 8B 56 AA |70.F.z..2660:.V.|
000006F0: 56 31 B2 30 A7 32 35 38 30 00 75 15 8E 08 8D 32 |V1.0.2580.u....2|
00000700: 36 36 30 3A 4C 4E B2 56 31 AA 28 32 35 36 AC 56 |660:LN.V1.(256.V|
00000710: 29 3A 4C 31 B2 56 31 3A 4C 32 B2 56 3A 99 4C 4E |):L1.V1:L2.V:.LN|
00000720: 2C 3A 42 59 B2 B5 28 4C 4E AD 38 29 3A 5A B2 4C |,:BY..(LN.8):Z.L|
00000730: 4E AB 38 AC 42 59 3A 41 44 B2 42 59 AA 53 41 3A |N.8.BY:AD.BY.SA:|
00000740: 8B 28 54 28 5A 29 AF C2 28 41 44 29 29 A7 32 34 |.(T(Z)..(AD)).24|
00000750: 36 30 00 C7 16 38 09 8D 32 36 38 30 3A 8B 56 B2 |60...8..2680:.V.|
00000760: 31 34 33 A7 31 38 31 30 00 E0 16 42 09 8B 56 B2 |143.1810...B..V.|
00000770: 33 32 B0 56 B2 35 38 A7 32 33 36 30 00 F1 16 4C |32.V.58.2360...L|
00000780: 09 8B 56 B2 30 A7 32 31 37 30 00 0E 17 56 09 98 |..V.0.2170...V..|
00000790: 36 2C 22 3A 22 3B 3A 52 B2 52 AA 31 3A 89 31 37 |6,":";:R.R.1:.17|
000007A0: 30 30 00 AF 17 9C 09 98 36 2C C7 28 30 29 3B C7 |00......6,.(0);.|
000007B0: 28 31 29 3B C7 28 31 29 3B 3A 98 36 2C C7 28 4C |(1);.(1);:.6,.(L|
000007C0: 31 29 3B C7 28 4C 32 29 3B 3A 52 B2 34 00 01 01 |1);.(L2);:R.4...|
000007D0: B0 09 8D 32 36 38 30 3A 8B 56 B2 33 32 B0 56 B2 |...2680:.V.32.V.|
000007E0: 35 38 A7 32 34 38 30 00 09 18 C4 09 8B 56 B2 30 |58.2480......V.0|
000007F0: B0 56 B2 31 34 33 A7 98 36 2C 22 3A 22 3B 00 1A |.V.143..6,":";..|
00000800: 18 CE 09 46 B2 30 3A 89 31 37 30 30 00 A5 18 14 |...F.0:.1700....|
00000810: 0A 98 36 2C C7 28 30 29 3B C7 28 30 29 3B C7 28 |..6,.(0);.(0);.(|
00000820: 30 29 3B 3A 99 22 93 11 11 11 12 44 4F 4E 45 11 |0);:.".....DONE.|
00000830: 11 22 3A 89 32 37 38 30 00 3E 19 64 0A 8D 32 36 |.":.2780.>.d..26|
00000840: 38 30 3A 56 31 B2 56 00 01 01 78 0A A1 23 35 2C |80:V1.V...x..#5,|
00000850: 43 24 3A 8D 32 37 32 30 3A 8B 43 24 B2 22 22 A7 |C$:.2720:.C$."".|
00000860: 56 B2 30 3A 8E 00 7E 19 8C 0A 56 B2 C6 28 43 24 |V.0:..~...V..(C$|
00000870: 29 3A 8E 00 01 01 A0 0A 84 31 35 2C 45 4E 2C 45 |):.......15,EN,E|
00000880: 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E |M$,ET,ES:.EN.0..|
00000890: 00 C9 19 BE 0A 99 3A 99 22 11 11 11 12 44 49 53 |......:."....DIS|
000008A0: 4B 20 45 52 52 4F 52 11 22 3A 99 45 4E 3B 45 4D |K ERROR.":.EN;EM|
000008B0: 24 3B 45 54 3B 45 53 00 01 01 DC 0A A0 35 3A A0 |$;ET;ES......5:.|
000008C0: 36 3A A0 31 35 3A 97 53 4B 2C C2 28 53 4B 29 AA |6:.15:.SK,.(SK).|
000008D0: 33 32 3A 9C 3A 80 00 00 00 |32:.:.... |
....,.PK.B(57345):SK.56:.PK.72.PK.127.PK
.54.PK.75.SK.53.A.R.SA.256.B(SK):.B(SA.8
000).254.410...|..SK,B(SK).32:.SK.1,0:.2
56.B(SK).8000,254:.......".INITIALIZING.
.....":.I.SA.SA.7999:.I,0:.:.T(7):.I.0.7
:T(I).2.I:.:.".'SQUEEZER' - MODIFIED FRO
M 'COMPACTOR'":."..THIS PROGRAM 'SQUEEZE
S' BASIC":."PROGRAMS INTO REDUCED SPACE
BY".U...."DELETING 'REM'S, LENGTHENING L
INES, ETC.":.:.:."INPUT FILENAME";FI$:.:
."DRIVE # ? ";...&..ID$:.ID$."0".ID$."1"
.550...0..ID$:.:.:."OUTPUT FILENAME";OF$
:.:."DRIVE # ? ";...N..OD$:.OD$."0".OD$.
"1".590...X..OD$:.".SCANNING FILE":."
FOR TARGET LINES.......":.15,8,15:.2720:
.5,8,5,ID$.":".FI$.",P,R":.2720:.2660...
...2660:.V.V1.0.1220......2660:LN.V1.(25
6.V)...H..2680...R..V.0.760.T.\..V.137.V
.141.930.G.F..V..167.840.A...LT.0......2
680:.V.32.940......V.48.V.57.1030.....LT
.(10.LT).E(C$):.2680:.950......LT.0.1140
.....BY..(LT.8):Z.LT.8.BY:AD.BY.SA:.AD,B
(AD).T(Z):.LT,...T..V.44.930.A.~..V..32.
850.U....2680:.1140...D..".COMPACTING LI
NES......": 5:.5,8,5,ID$.":".FI$.",P,R":
.2720:FO$.H(FL$,14)."/C":.15,"S1:".FO$:.
6,8,6,OD$.":".OF$.",P,W":.2720:.2660:.6,
G(V1);...Z..6,G(V);:R.0......2660:K1.V1:
K2.V:F.0:.V.V1.0.2580......2660:L1.V1:L2
.V:LN.L1.(256.L2):.LN,......2680:.V.32.V
.58.1470...R..V.0.1520......V..143.1580.
#....2680:.V.0.1510.+...F.1:BY..(LN.8):Z
.LN.8.BY:AD.BY.SA:.(T(Z).B(AD)).1580.|."
..1430...,..6,G(K1);G(K2);:.6,G(L1);G(L2
);:R.4:.F..6,":";:R.5.V.J.F.0:.1700.}...
.6,C$;:R.R.1......2680......V.137.F.1...
...V.139.V.167.F.1.N....V.0.2160...B..V.
32.1690.H....V..143.1890......2680:.V.0.
1810......2160...B..V..34.2030.0.L..6,C$
;:R.R.1:.2680:.V.34.1680.^....V.0.1900.U
....F.V.0:.1370......6,G(34);:R.R.1:.216
0.,....V..58.1680.7....2680:.V.32.V.58.2
040.C....V.143.1810.T....V.0.2160... ..6
,":";:R.R.1:.1700.;.P..F.(R.170).V.0:.13
70.F.Z..2660:.V.V1.0.2580.U....2660:LN.V
1.(256.V):L1.V1:L2.V:.LN,:BY..(LN.8):Z.L
N.8.BY:AD.BY.SA:.(T(Z).B(AD)).2460.G.8..
2680:.V.143.1810...B..V.32.V.58.2360...L
..V.0.2170...V..6,":";:R.R.1:.1700......
6,G(0);G(1);G(1);:.6,G(L1);G(L2);:R.4...
...2680:.V.32.V.58.2480...D..V.0.V.143..
6,":";...N.F.0:.1700......6,G(0);G(0);G(
0);:.".....DONE..":.2780.>.D..2680:V1.V.
..X..#5,C$:.2720:.C$."".V.0:..~...V.F(C$
):.... ..15,EN,EM$,ET,ES:.EN.0...I....:.
"....DISK ERROR.":.EN;EM$;ET;ES..... 5:
6: 15:.SK,B(SK).32:.:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL