COMPACTOR

00000000: 01 08 11 08 0A 00 9C 3A  86 54 4C 28 31 30 30 30  |.......:.TL(1000|
00000010: 29 00 27 08 14 00 97 35  33 32 38 31 2C 30 3A 97  |).'....53281,0:.|
00000020: 35 33 32 38 30 2C 30 00  4D 08 1E 00 99 22 93 11  |53280,0.M...."..|
00000030: 22 A3 31 32 29 22 9C 2A  2A 2A 9E 4D 50 53 20 53  |".12)".***.MPS S|
00000040: 4F 46 54 57 41 52 45 9C  2A 2A 2A 9F 22 00 65 08  |OFTWARE.***.".e.|
00000050: 28 00 99 A3 31 36 29 22  11 11 43 4F 4D 50 41 43  |(...16)"..COMPAC|
00000060: 54 4F 52 11 11 00 91 08  32 00 99 22 9F 54 48 49  |TOR.....2..".THI|
00000070: 53 20 50 52 4F 47 52 41  4D 20 57 49 4C 4C 20 43  |S PROGRAM WILL C|
00000080: 4F 4D 50 41 43 54 20 41  20 50 52 4F 47 52 41 4D  |OMPACT A PROGRAM|
00000090: 22 00 BE 08 3C 00 99 22  4C 4F 43 41 54 45 44 20  |"...<.."LOCATED |
000000A0: 4F 4E 20 41 4E 59 20 44  52 49 56 45 20 42 59 20  |ON ANY DRIVE BY |
000000B0: 44 45 4C 45 54 49 4E 47  20 41 4C 4C 20 22 00 E9  |DELETING ALL "..|
000000C0: 08 46 00 99 22 52 45 4D  20 4E 4F 54 41 54 49 4F  |.F.."REM NOTATIO|
000000D0: 4E 53 2C 20 42 4C 41 4E  4B 20 4C 49 4E 45 53 2C  |NS, BLANK LINES,|
000000E0: 20 41 4E 44 20 42 59 20  22 00 16 09 50 00 99 22  | AND BY "...P.."|
000000F0: 4C 49 4E 4B 49 4E 47 20  54 4F 47 45 54 48 45 52  |LINKING TOGETHER|
00000100: 20 41 4C 4C 20 50 4F 53  53 49 42 4C 45 20 4C 49  | ALL POSSIBLE LI|
00000110: 4E 45 53 2E 11 22 00 45  09 5A 00 99 22 54 48 45  |NES..".E.Z.."THE|
00000120: 20 4E 45 57 20 43 4F 4D  50 41 43 54 45 44 20 50  | NEW COMPACTED P|
00000130: 52 4F 47 52 41 4D 20 57  49 4C 4C 20 42 45 20 53  |ROGRAM WILL BE S|
00000140: 41 56 45 44 22 00 6C 09  64 00 99 22 54 4F 20 41  |AVED".l.d.."TO A|
00000150: 4E 59 20 44 49 53 4B 20  44 52 49 56 45 20 57 49  |NY DISK DRIVE WI|
00000160: 54 48 20 54 48 45 20 53  41 4D 45 22 00 95 09 6E  |TH THE SAME"...n|
00000170: 00 99 22 46 49 4C 45 4E  41 4D 45 20 42 55 54 20  |.."FILENAME BUT |
00000180: 57 49 54 48 20 41 20 27  2F 43 27 20 53 55 46 46  |WITH A '/C' SUFF|
00000190: 49 58 2E 11 22 00 C7 09  78 00 99 22 05 1D 1D 49  |IX.."...x.."...I|
000001A0: 4E 50 55 54 20 46 49 4C  45 20 44 52 49 56 45 23  |NPUT FILE DRIVE#|
000001B0: 20 3F 9F 20 30 9D 22 3B  3A 9F 31 2C 30 3A 84 31  | ?. 0.";:.1,0:.1|
000001C0: 2C 44 49 24 3A A0 31 00  FD 09 82 00 99 3A 99 22  |,DI$:.1......:."|
000001D0: 11 05 1D 1D 4F 55 54 50  55 54 20 46 49 4C 45 20  |....OUTPUT FILE |
000001E0: 44 52 49 56 45 23 20 3F  9F 20 30 9D 22 3B 3A 9F  |DRIVE# ?. 0.";:.|
000001F0: 31 2C 30 3A 84 31 2C 44  4F 24 3A A0 31 00 2E 0A  |1,0:.1,DO$:.1...|
00000200: 8C 00 99 3A 99 22 11 05  1D 1D 45 4E 54 45 52 20  |...:."....ENTER |
00000210: 46 49 4C 45 20 4E 41 4D  45 3F 20 9F 20 22 3B 3A  |FILE NAME? . ";:|
00000220: 9F 31 2C 30 3A 84 31 2C  46 4C 24 3A A0 31 00 48  |.1,0:.1,FL$:.1.H|
00000230: 0A 96 00 99 22 93 11 11  1D 1D 9E 53 43 41 4E 4E  |...."......SCANN|
00000240: 49 4E 47 20 46 49 4C 45  00 6B 0A A0 00 99 22 1D  |ING FILE.k....".|
00000250: 1D 1D 1D 1D 46 4F 52 20  54 41 52 47 45 54 20 4C  |....FOR TARGET L|
00000260: 49 4E 45 53 2E 2E 2E 11  11 9F 22 00 7E 0A AA 00  |INES......".~...|
00000270: 9F 31 35 2C 38 2C 31 35  3A 8D 31 33 32 30 00 9C  |.15,8,15:.1320..|
00000280: 0A B4 00 9F 35 2C 38 2C  35 2C 44 49 24 AA 22 3A  |....5,8,5,DI$.":|
00000290: 22 AA 46 4C 24 AA 22 2C  50 2C 52 22 00 AC 0A BE  |".FL$.",P,R"....|
000002A0: 00 8D 31 33 32 30 3A 8D  31 32 38 30 00 C3 0A C8  |..1320:.1280....|
000002B0: 00 8D 31 32 38 30 3A 8B  20 56 AA 56 31 B2 30 A7  |..1280:. V.V1.0.|
000002C0: 34 32 30 00 DB 0A D2 00  8D 31 32 38 30 3A 4C 4E  |420......1280:LN|
000002D0: B2 56 31 AA 28 32 35 36  AC 56 29 00 E5 0A DC 00  |.V1.(256.V).....|
000002E0: 8D 31 32 39 30 00 F2 0A  E6 00 8B 56 B2 30 A7 32  |.1290......V.0.2|
000002F0: 30 30 00 07 0B F0 00 8B  56 B2 31 33 37 B0 56 B2  |00......V.137.V.|
00000300: 31 34 31 A7 32 36 30 00  17 0B FA 00 8B 56 B3 B1  |141.260......V..|
00000310: 31 36 37 A7 32 32 30 00  20 0B 04 01 4C 54 B2 30  |167.220. ...LT.0|
00000320: 00 34 0B 0E 01 8D 31 32  39 30 3A 8B 56 B2 33 32  |.4....1290:.V.32|
00000330: A7 32 37 30 00 47 0B 18  01 8B 56 B3 34 38 B0 56  |.270.G....V.48.V|
00000340: B1 35 37 A7 33 31 30 00  5C 0B 22 01 4C 54 B2 28  |.57.310.\.".LT.(|
00000350: 31 30 AC 4C 54 29 AA C5  28 43 24 29 00 6B 0B 2C  |10.LT)..(C$).k.,|
00000360: 01 8D 31 32 39 30 3A 89  32 38 30 00 76 0B 36 01  |..1290:.280.v.6.|
00000370: 81 58 B2 30 A4 4E 00 88  0B 40 01 8B 54 4C 28 58  |.X.0.N...@..TL(X|
00000380: 29 B2 4C 54 A7 33 39 30  00 8F 0B 4A 01 82 58 00  |).LT.390...J..X.|
00000390: A2 0B 54 01 54 4C 28 4E  29 B2 4C 54 3A 4E B2 4E  |..T.TL(N).LT:N.N|
000003A0: AA 31 00 AB 0B 5E 01 99  4C 54 2C 00 BB 0B 68 01  |.1...^..LT,...h.|
000003B0: 8B 4E B3 31 30 30 30 A7  33 39 30 00 ED 0B 72 01  |.N.1000.390...r.|
000003C0: 99 22 11 11 05 49 27 4D  20 53 4F 52 52 59 20 42  |."...I'M SORRY B|
000003D0: 55 54 20 54 48 45 20 46  49 4C 45 20 49 53 20 4A  |UT THE FILE IS J|
000003E0: 55 53 54 20 54 4F 4F 20  42 49 47 2E 22 00 F7 0B  |UST TOO BIG."...|
000003F0: 7C 01 89 31 32 30 30 00  05 0C 86 01 8B 56 B2 34  ||..1200......V.4|
00000400: 34 A7 32 36 30 00 14 0C  90 01 8B 56 B3 B1 33 32  |4.260......V..32|
00000410: A7 32 33 30 00 23 0C 9A  01 8D 31 32 39 30 3A 89  |.230.#....1290:.|
00000420: 33 39 30 00 30 0C A4 01  8B 4E B3 32 A7 34 38 30  |390.0....N.2.480|
00000430: 00 3D 0C AE 01 81 58 B2  30 A4 4E AB 31 00 4A 0C  |.=....X.0.N.1.J.|
00000440: B8 01 81 59 B2 30 A4 4E  AB 32 00 5F 0C C2 01 8B  |...Y.0.N.2._....|
00000450: 54 4C 28 59 29 B3 54 4C  28 58 29 A7 34 37 30 00  |TL(Y).TL(X).470.|
00000460: 7F 0C CC 01 56 B2 54 4C  28 59 29 3A 54 4C 28 59  |....V.TL(Y):TL(Y|
00000470: 29 B2 54 4C 28 58 29 3A  54 4C 28 58 29 B2 56 00  |).TL(X):TL(X).V.|
00000480: 88 0C D6 01 82 59 2C 58  00 AC 0C E0 01 99 22 93  |.....Y,X......".|
00000490: 11 11 1D 1D 9E 43 4F 4D  50 41 43 54 49 4E 47 20  |.....COMPACTING |
000004A0: 4C 49 4E 45 53 2E 2E 2E  11 11 9F 22 00 B3 0C EA  |LINES......"....|
000004B0: 01 A0 35 00 D1 0C F4 01  9F 35 2C 38 2C 35 2C 44  |..5......5,8,5,D|
000004C0: 49 24 AA 22 3A 22 AA 46  4C 24 AA 22 2C 50 2C 52  |I$.":".FL$.",P,R|
000004D0: 22 00 DB 0C FE 01 8D 31  33 32 30 00 F2 0C 08 02  |"......1320.....|
000004E0: 46 4F 24 B2 C8 28 46 4C  24 2C 31 34 29 AA 22 2F  |FO$..(FL$,14)."/|
000004F0: 43 22 00 04 0D 12 02 98  31 35 2C 22 53 31 3A 22  |C"......15,"S1:"|
00000500: AA 46 4F 24 00 22 0D 1C  02 9F 36 2C 38 2C 36 2C  |.FO$."....6,8,6,|
00000510: 44 30 24 AA 22 3A 22 AA  46 4F 24 AA 22 2C 50 2C  |D0$.":".FO$.",P,|
00000520: 57 22 00 2C 0D 26 02 8D  31 33 32 30 00 36 0D 30  |W".,.&..1320.6.0|
00000530: 02 8D 31 32 38 30 00 44  0D 3A 02 98 36 2C C7 28  |..1280.D.:..6,.(|
00000540: 56 31 29 3B 00 55 0D 44  02 98 36 2C C7 28 56 29  |V1);.U.D..6,.(V)|
00000550: 3B 3A 52 B2 30 00 6A 0D  4E 02 8D 31 32 38 30 3A  |;:R.0.j.N..1280:|
00000560: 4B 31 B2 56 31 3A 4B 32  B2 56 00 7F 0D 58 02 46  |K1.V1:K2.V...X.F|
00000570: B2 30 3A 8B 56 AA 56 31  B2 30 A7 31 31 38 30 00  |.0:.V.V1.0.1180.|
00000580: 94 0D 62 02 8D 31 32 38  30 3A 4C 31 B2 56 31 3A  |..b..1280:L1.V1:|
00000590: 4C 32 B2 56 00 AC 0D 6C  02 4C 4E B2 4C 31 AA 28  |L2.V...l.LN.L1.(|
000005A0: 32 35 36 AC 4C 32 29 3A  99 4C 4E 2C 00 B6 0D 76  |256.L2):.LN,...v|
000005B0: 02 8D 31 32 39 30 00 C9  0D 80 02 8B 56 B2 33 32  |..1290......V.32|
000005C0: B0 56 B2 35 38 A7 36 33  30 00 D6 0D 8A 02 8B 56  |.V.58.630......V|
000005D0: B2 30 A7 36 38 30 00 E6  0D 94 02 8B 56 B3 B1 31  |.0.680......V..1|
000005E0: 34 33 A7 37 32 30 00 F9  0D 9E 02 8D 31 32 39 30  |43.720......1290|
000005F0: 3A 8B 56 B1 30 A7 36 37  30 00 08 0E A8 02 46 B2  |:.V.0.670.....F.|
00000600: 31 3A 81 58 B2 30 A4 4E  00 19 0E B2 02 8B 54 4C  |1:.X.0.N......TL|
00000610: 28 58 29 B3 4C 4E A7 82  58 00 2B 0E BC 02 8B 54  |(X).LN..X.+....T|
00000620: 4C 28 58 29 B2 4C 4E A7  37 32 30 00 34 0E C6 02  |L(X).LN.720.4...|
00000630: 89 35 39 30 00 48 0E D0  02 98 36 2C C7 28 4B 31  |.590.H....6,.(K1|
00000640: 29 3B C7 28 4B 32 29 3B  00 60 0E DA 02 98 36 2C  |);.(K2);.`....6,|
00000650: C7 28 4C 31 29 3B C7 28  4C 32 29 3B 3A 52 B2 34  |.(L1);.(L2);:R.4|
00000660: 00 73 0E E4 02 8B 46 A7  98 36 2C 22 3A 22 3B 3A  |.s....F..6,":";:|
00000670: 52 B2 35 00 80 0E EE 02  46 B2 30 3A 89 37 38 30  |R.5.....F.0:.780|
00000680: 00 91 0E F8 02 98 36 2C  43 24 3B 3A 52 B2 52 AA  |......6,C$;:R.R.|
00000690: 31 00 9B 0E 02 03 8D 31  32 39 30 00 AA 0E 0C 03  |1......1290.....|
000006A0: 8B 56 B2 31 33 37 A7 46  B2 31 00 BF 0E 16 03 8B  |.V.137.F.1......|
000006B0: 56 B2 31 33 39 B0 56 B2  31 36 37 A7 46 B2 31 00  |V.139.V.167.F.1.|
000006C0: CD 0E 20 03 8B 56 B2 30  A7 31 30 30 30 00 DB 0E  |.. ..V.0.1000...|
000006D0: 2A 03 8B 56 B2 33 32 A7  37 37 30 00 EB 0E 34 03  |*..V.32.770...4.|
000006E0: 8B 56 B3 B1 31 34 33 A7  38 35 30 00 FE 0E 3E 03  |.V..143.850...>.|
000006F0: 8D 31 32 39 30 3A 8B 56  B1 30 A7 38 33 30 00 08  |.1290:.V.0.830..|
00000700: 0F 48 03 89 31 30 30 30  00 17 0F 52 03 8B 56 B3  |.H..1000...R..V.|
00000710: B1 33 34 A7 39 33 30 00  28 0F 5C 03 98 36 2C 43  |.34.930.(.\..6,C|
00000720: 24 3B 3A 52 B2 52 AA 31  00 32 0F 66 03 8D 31 32  |$;:R.R.1.2.f..12|
00000730: 39 30 00 40 0F 70 03 8B  56 B2 33 34 A7 37 36 30  |90.@.p..V.34.760|
00000740: 00 4D 0F 7A 03 8B 56 B1  30 A7 38 36 30 00 5D 0F  |.M.z..V.0.860.].|
00000750: 84 03 8B 46 A7 56 B2 30  3A 89 35 38 30 00 71 0F  |...F.V.0:.580.q.|
00000760: 8E 03 98 36 2C C7 28 33  34 29 3B 3A 52 B2 52 AA  |...6,.(34);:R.R.|
00000770: 31 00 7B 0F 98 03 89 31  30 30 30 00 8A 0F A2 03  |1.{....1000.....|
00000780: 8B 56 B3 B1 35 38 A7 37  36 30 00 94 0F AC 03 8D  |.V..58.760......|
00000790: 31 32 39 30 00 A7 0F B6  03 8B 56 B2 33 32 B0 56  |1290......V.32.V|
000007A0: B2 35 38 A7 39 34 30 00  B6 0F C0 03 8B 56 B2 31  |.58.940......V.1|
000007B0: 34 33 A7 38 33 30 00 C4  0F CA 03 8B 56 B2 30 A7  |43.830......V.0.|
000007C0: 31 30 30 30 00 D6 0F D4  03 98 36 2C 22 3A 22 3B  |1000......6,":";|
000007D0: 3A 52 B2 52 AA 31 00 DF  0F DE 03 89 37 38 30 00  |:R.R.1......780.|
000007E0: F9 0F E8 03 8B 20 46 20  B0 28 52 B1 31 37 30 29  |..... F .(R.170)|
000007F0: A7 56 B2 30 3A 89 35 38  30 00 03 10 F2 03 8D 31  |.V.0:.580......1|
00000800: 32 38 30 00 14 10 FC 03  8B 56 AA 56 31 B2 30 A7  |280......V.V1.0.|
00000810: 31 31 38 30 00 2C 10 06  04 8D 31 32 38 30 3A 4C  |1180.,....1280:L|
00000820: 4E B2 56 31 AA 28 32 35  36 AC 56 29 00 40 10 10  |N.V1.(256.V).@..|
00000830: 04 4C 31 B2 56 31 3A 4C  32 B2 56 3A 99 4C 4E 2C  |.L1.V1:L2.V:.LN,|
00000840: 00 4B 10 1A 04 81 58 B2  30 A4 4E 00 5C 10 24 04  |.K....X.0.N.\.$.|
00000850: 8B 54 4C 28 58 29 B3 4C  4E A7 82 58 00 6F 10 2E  |.TL(X).LN..X.o..|
00000860: 04 8B 54 4C 28 58 29 B2  4C 4E A7 31 31 32 30 00  |..TL(X).LN.1120.|
00000870: 84 10 38 04 8D 31 32 39  30 3A 8B 56 B2 31 34 33  |..8..1290:.V.143|
00000880: A7 38 33 30 00 98 10 42  04 8B 56 B2 33 32 B0 56  |.830...B..V.32.V|
00000890: B2 35 38 A7 31 30 38 30  00 A6 10 4C 04 8B 56 B2  |.58.1080...L..V.|
000008A0: 30 A7 31 30 31 30 00 BD  10 56 04 98 36 2C 22 3A  |0.1010...V..6,":|
000008B0: 22 3B 3A 52 B2 52 AA 31  3A 89 37 38 30 00 D4 10  |";:R.R.1:.780...|
000008C0: 60 04 98 36 2C C7 28 30  29 3B C7 28 31 29 3B C7  |`..6,.(0);.(1);.|
000008D0: 28 31 29 3B 00 EC 10 6A  04 98 36 2C C7 28 4C 31  |(1);...j..6,.(L1|
000008E0: 29 3B C7 28 4C 32 29 3B  3A 52 B2 34 00 F6 10 74  |);.(L2);:R.4...t|
000008F0: 04 8D 31 32 39 30 00 0A  11 7E 04 8B 56 B2 33 32  |..1290...~..V.32|
00000900: B0 56 B2 35 38 A7 31 31  34 30 00 21 11 88 04 8B  |.V.58.1140.!....|
00000910: 56 B2 30 B0 56 B2 31 34  33 A7 98 36 2C 22 3A 22  |V.0.V.143..6,":"|
00000920: 3B 00 2E 11 92 04 46 B2  30 3A 89 37 38 30 00 4F  |;.....F.0:.780.O|
00000930: 11 9C 04 98 36 2C C7 28  30 29 3B C7 28 30 29 3B  |....6,.(0);.(0);|
00000940: C7 28 30 29 3B 3A A0 35  3A A0 36 3A A0 31 35 00  |.(0);:.5:.6:.15.|
00000950: 71 11 A6 04 99 22 93 11  11 1D 1D 9E 4D 4F 44 49  |q...."......MODI|
00000960: 46 59 49 4E 47 20 43 4F  4D 50 4C 45 54 45 11 11  |FYING COMPLETE..|
00000970: 22 00 98 11 B0 04 99 22  11 11 1D 1D 9F 48 49 54  |"......".....HIT|
00000980: 20 9E 12 52 45 54 55 52  4E 92 9F 20 54 4F 20 52  | ..RETURN.. TO R|
00000990: 45 53 54 41 52 54 2E 22  00 C3 11 BA 04 99 22 11  |ESTART."......".|
000009A0: 11 11 1D 1D 54 48 49 53  20 50 52 4F 47 52 41 4D  |....THIS PROGRAM|
000009B0: 20 57 41 53 20 47 49 56  45 4E 20 59 4F 55 20 42  | WAS GIVEN YOU B|
000009C0: 59 20 22 00 DD 11 C4 04  99 22 11 1D 1D 9E 12 44  |Y "......".....D|
000009D0: 49 53 4B 42 55 53 54 45  52 21 21 21 22 00 F1 11  |ISKBUSTER!!!"...|
000009E0: CE 04 A1 41 24 3A 8B 41  24 B2 22 22 A7 31 32 33  |...A$:.A$."".123|
000009F0: 30 00 01 12 D8 04 8B 41  24 B2 C7 28 31 33 29 A7  |0......A$..(13).|
00000A00: 8A 00 13 12 E2 04 8B 41  24 B3 B1 22 20 22 A7 31  |.......A$.." ".1|
00000A10: 32 33 30 00 48 12 EC 04  4D 24 B2 22 4D 45 4E 55  |230.H...M$."MENU|
00000A20: 22 AA C7 28 33 34 29 3A  99 22 05 93 11 11 11 90  |"..(34):."......|
00000A30: 4C 4F 41 44 20 4D 24 2C  38 2C 31 11 11 11 11 22  |LOAD M$,8,1...."|
00000A40: 3A 99 22 52 55 4E 13 22  00 65 12 F6 04 97 36 33  |:."RUN.".e....63|
00000A50: 31 2C 31 33 3A 97 36 33  32 2C 31 33 3A 97 31 39  |1,13:.632,13:.19|
00000A60: 38 2C 32 3A 80 00 74 12  00 05 8D 31 32 39 30 3A  |8,2:..t....1290:|
00000A70: 56 31 B2 56 00 85 12 0A  05 A1 23 35 2C 43 24 3A  |V1.V......#5,C$:|
00000A80: 8D 31 33 32 30 00 96 12  14 05 8B 43 24 B2 22 22  |.1320......C$.""|
00000A90: A7 56 B2 30 3A 8E 00 A4  12 1E 05 56 B2 C6 28 43  |.V.0:......V..(C|
00000AA0: 24 29 3A 8E 00 BC 12 28  05 84 31 35 2C 45 4E 24  |$):....(..15,EN$|
00000AB0: 2C 45 4D 24 2C 45 54 24  2C 45 53 24 00 CC 12 32  |,EM$,ET$,ES$...2|
00000AC0: 05 8B 45 4E 24 B2 22 30  30 22 A7 8E 00 E2 12 3C  |..EN$."00".....<|
00000AD0: 05 99 3A 99 22 11 11 9E  45 52 52 4F 52 3A 20 9F  |..:."...ERROR: .|
00000AE0: 22 3B 00 FD 12 46 05 99  45 4E 24 22 2C 22 45 4D  |";...F..EN$","EM|
00000AF0: 24 22 2C 22 45 54 24 22  2C 22 45 53 24 00 07 13  |$","ET$","ES$...|
00000B00: 50 05 89 31 32 30 30 00  00 00                    |P..1200...      |

.......:.TL(1000).'....53281,0:.53280,0.
M...."..".12)".***.MPS SOFTWARE.***.".E.
(...16)"..COMPACTOR.....2..".THIS PROGRA
M WILL COMPACT A PROGRAM"...<.."LOCATED 
ON ANY DRIVE BY DELETING ALL "...F.."REM
 NOTATIONS, BLANK LINES, AND BY "...P.."
LINKING TOGETHER ALL POSSIBLE LINES..".E
.Z.."THE NEW COMPACTED PROGRAM WILL BE S
AVED".L.D.."TO ANY DISK DRIVE WITH THE S
AME"...N.."FILENAME BUT WITH A '/C' SUFF
IX..".G.X.."...INPUT FILE DRIVE# ?. 0.";
:.1,0:.1,DI$: 1......:."....OUTPUT FILE 
DRIVE# ?. 0.";:.1,0:.1,DO$: 1......:."..
..ENTER FILE NAME? . ";:.1,0:.1,FL$: 1.H
...."......SCANNING FILE.K. ..".....FOR 
TARGET LINES......".~....15,8,15:.1320..
....5,8,5,DI$.":".FL$.",P,R"......1320:.
1280.C.H..1280:. V.V1.0.420...R..1280:LN
.V1.(256.V)......1290......V.0.200......
V.137.V.141.260......V..167.220. ...LT.0
.4....1290:.V.32.270.G....V.48.V.57.310.
\.".LT.(10.LT).E(C$).K.,..1290:.280.V.6.
.X.0.N...@..TL(X).LT.390...J..X...T.TL(N
).LT:N.N.1...^..LT,...H..N.1000.390...R.
."...I'M SORRY BUT THE FILE IS JUST TOO 
BIG."...|..1200......V.44.260......V..32
.230.#....1290:.390.0....N.2.480.=....X.
0.N.1.J....Y.0.N.2._.B..TL(Y).TL(X).470.
.L.V.TL(Y):TL(Y).TL(X):TL(X).V...V..Y,X
......"......COMPACTING LINES......"....
. 5.Q....5,8,5,DI$.":".FL$.",P,R"......1
320.....FO$.H(FL$,14)."/C"......15,"S1:"
.FO$."....6,8,6,D0$.":".FO$.",P,W".,.&..
1320.6.0..1280.D.:..6,G(V1);.U.D..6,G(V)
;:R.0.J.N..1280:K1.V1:K2.V..X.F.0:.V.V1
.0.1180...B..1280:L1.V1:L2.V...L.LN.L1.(
256.L2):.LN,...V..1290.I....V.32.V.58.63
0.V....V.0.680......V..143.720......1290
:.V.0.670.....F.1:.X.0.N......TL(X).LN..
X.+....TL(X).LN.720.4.F..590.H.P..6,G(K1
);G(K2);.`.Z..6,G(L1);G(L2);:R.4.S....F.
.6,":";:R.5.....F.0:.780......6,C$;:R.R.
1......1290......V.137.F.1......V.139.V.
167.F.1.M. ..V.0.1000...*..V.32.770...4.
.V..143.850...>..1290:.V.0.830...H..1000
...R..V..34.930.(.\..6,C$;:R.R.1.2.F..12
90.@.P..V.34.760.M.Z..V.0.860.]....F.V.0
:.580.Q....6,G(34);:R.R.1.{....1000.....
.V..58.760......1290......V.32.V.58.940.
.....V.143.830.D.J..V.0.1000.V.T..6,":";
:R.R.1......780...... F .(R.170).V.0:.58
0......1280......V.V1.0.1180.,....1280:L
N.V1.(256.V).@...L1.V1:L2.V:.LN,.K....X.
0.N.\.$..TL(X).LN..X.O....TL(X).LN.1120.
..8..1290:.V.143.830...B..V.32.V.58.1080
...L..V.0.1010...V..6,":";:R.R.1:.780.T.
`..6,G(0);G(1);G(1);...J..6,G(L1);G(L2);
:R.4...T..1290...~..V.32.V.58.1140.!....
V.0.V.143..6,":";.....F.0:.780.O....6,G(
0);G(0);G(0);: 5: 6: 15.Q...."......MODI
FYING COMPLETE.."......".....HIT ..RETUR
N.. TO RESTART.".C....".....THIS PROGRAM
 WAS GIVEN YOU BY "...D..".....DISKBUSTE
R!!!"...N..A$:.A$."".1230...X..A$.G(13).
.......A$.." ".1230.H...M$."MENU".G(34):
."......LOAD M$,8,1....":."RUN.".E....63
1,13:.632,13:.198,2:..T....1290:V1.V....
..#5,C$:.1320......C$."".V.0:......V.F(C
$):....(..15,EN$,EM$,ET$,ES$.L.2..EN$."0
0".....<..:."...ERROR: .";...F..EN$","EM
$","ET$","ES$...P..1200...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL