COMPACTOR

00000000: 01 1C BC 1C 0A 00 97 35  33 32 38 30 2C 31 34 3A  |.......53280,14:|
00000010: 97 35 33 32 38 31 2C 36  3A 99 22 05 22 3A 9C 3A  |.53281,6:.".":.:|
00000020: 86 54 4C 28 31 30 30 30  29 3A 99 22 93 22 A6 31  |.TL(1000):.".".1|
00000030: 34 29 22 12 20 43 4F 4D  50 41 43 54 4F 52 20 11  |4)". COMPACTOR .|
00000040: 22 3A 99 22 1D 1D 1D 1D  1D 4D 4F 44 49 46 49 45  |":.".....MODIFIE|
00000050: 44 20 42 59 20 4D 52 2E  20 52 41 53 54 45 52 20  |D BY MR. RASTER |
00000060: 36 2F 31 34 2F 38 36 11  22 3A 99 22 54 48 49 53  |6/14/86.":."THIS|
00000070: 20 50 52 4F 47 52 41 4D  20 57 49 4C 4C 20 43 4F  | PROGRAM WILL CO|
00000080: 4D 50 41 43 54 20 41 20  50 52 4F 47 52 41 4D 22  |MPACT A PROGRAM"|
00000090: 3A 99 22 4C 4F 43 41 54  45 44 20 4F 4E 20 41 4E  |:."LOCATED ON AN|
000000A0: 59 20 44 52 49 56 45 20  42 59 20 44 45 4C 45 54  |Y DRIVE BY DELET|
000000B0: 49 4E 47 20 41 4C 4C 20  52 45 4D 22 00 7E 1D 50  |ING ALL REM".~.P|
000000C0: 00 99 22 4E 4F 54 41 54  49 4F 4E 53 2C 20 42 4C  |.."NOTATIONS, BL|
000000D0: 41 4E 4B 20 4C 49 4E 45  53 2C 20 41 4E 44 20 42  |ANK LINES, AND B|
000000E0: 59 20 4C 49 4E 4B 49 4E  47 22 3A 99 22 54 4F 47  |Y LINKING":."TOG|
000000F0: 45 54 48 45 52 20 41 4C  4C 20 50 4F 53 53 49 42  |ETHER ALL POSSIB|
00000100: 4C 45 20 4C 49 4E 45 53  2E 11 22 3A 99 22 54 48  |LE LINES..":."TH|
00000110: 45 20 4E 45 57 20 43 4F  4D 50 41 43 54 45 44 20  |E NEW COMPACTED |
00000120: 50 52 4F 47 52 41 4D 20  57 49 4C 4C 20 42 45 20  |PROGRAM WILL BE |
00000130: 53 41 56 45 44 22 3A 99  22 54 4F 20 41 4E 59 20  |SAVED":."TO ANY |
00000140: 44 49 53 4B 20 44 52 49  56 45 20 57 49 54 48 20  |DISK DRIVE WITH |
00000150: 54 48 45 20 53 41 4D 45  20 46 49 4C 45 4E 41 4D  |THE SAME FILENAM|
00000160: 45 22 3A 99 22 42 55 54  20 57 49 54 48 20 41 20  |E":."BUT WITH A |
00000170: 27 2F 43 27 20 53 55 46  46 49 58 2E 11 22 00 CA  |'/C' SUFFIX.."..|
00000180: 1D 82 00 85 22 12 49 4E  50 55 54 20 46 49 4C 45  |....".INPUT FILE|
00000190: 20 44 52 49 56 45 20 23  20 92 1D 1D 1D 38 9D 9D  | DRIVE # ....8..|
000001A0: 9D 22 3B 44 49 24 3A 85  22 12 4F 55 54 50 55 54  |.";DI$:.".OUTPUT|
000001B0: 20 46 49 4C 45 20 44 52  49 56 45 20 23 92 1D 1D  | FILE DRIVE #...|
000001C0: 1D 38 9D 9D 9D 22 3B 44  4F 24 00 09 1E 96 00 99  |.8...";DO$......|
000001D0: 22 12 49 4E 50 55 54 20  46 49 4C 45 20 4E 41 4D  |".INPUT FILE NAM|
000001E0: 45 20 28 24 20 46 4F 52  20 44 49 52 45 43 54 4F  |E ($ FOR DIRECTO|
000001F0: 52 59 29 92 22 3A 85 46  4C 24 3A 8B 46 4C 24 B2  |RY).":.FL$:.FL$.|
00000200: 22 24 22 A7 89 31 38 33  30 00 72 1E AA 00 99 22  |"$"..1830.r...."|
00000210: 93 53 43 41 4E 4E 49 4E  47 20 46 49 4C 45 22 3A  |.SCANNING FILE":|
00000220: 99 22 20 20 20 46 4F 52  20 54 41 52 47 45 54 20  |."   FOR TARGET |
00000230: 4C 49 4E 45 53 2E 2E 2E  2E 2E 11 11 22 3A 9F 31  |LINES.......":.1|
00000240: 35 2C 38 2C 31 35 3A 8D  31 37 38 30 3A 9F 35 2C  |5,8,15:.1780:.5,|
00000250: 38 2C 35 2C 44 49 24 AA  22 3A 22 AA 46 4C 24 AA  |8,5,DI$.":".FL$.|
00000260: 22 2C 50 2C 52 22 3A 8D  31 37 38 30 3A 8D 31 37  |",P,R":.1780:.17|
00000270: 31 30 00 88 1E F0 00 8D  31 37 31 30 3A 8B 56 AA  |10......1710:.V.|
00000280: 56 31 B2 30 A7 35 32 30  00 A0 1E 04 01 8D 31 37  |V1.0.520......17|
00000290: 31 30 3A 4C 4E B2 56 31  AA 28 32 35 36 AC 56 29  |10:LN.V1.(256.V)|
000002A0: 00 AA 1E 18 01 8D 31 37  33 30 00 B7 1E 22 01 8B  |......1730..."..|
000002B0: 56 B2 30 A7 32 34 30 00  CC 1E 2C 01 8B 56 B2 31  |V.0.240...,..V.1|
000002C0: 33 37 B0 56 B2 31 34 31  A7 33 32 30 00 DC 1E 36  |37.V.141.320...6|
000002D0: 01 8B 56 B3 B1 31 36 37  A7 32 38 30 00 E5 1E 40  |..V..167.280...@|
000002E0: 01 4C 54 B2 30 00 F9 1E  4A 01 8D 31 37 33 30 3A  |.LT.0...J..1730:|
000002F0: 8B 56 B2 33 32 A7 33 33  30 00 0C 1F 5E 01 8B 56  |.V.32.330...^..V|
00000300: B3 34 38 B0 56 B1 35 37  A7 33 39 30 00 2C 1F 68  |.48.V.57.390.,.h|
00000310: 01 4C 54 B2 28 31 30 AC  4C 54 29 AA C5 28 43 24  |.LT.(10.LT)..(C$|
00000320: 29 3A 8D 31 37 33 30 3A  89 33 35 30 00 45 1F 86  |):.1730:.350.E..|
00000330: 01 81 58 B2 30 A4 4E 3A  8B 54 4C 28 58 29 B2 4C  |..X.0.N:.TL(X).L|
00000340: 54 A7 34 38 30 00 6C 1F  9A 01 82 58 3A 54 4C 28  |T.480.l....X:TL(|
00000350: 4E 29 B2 4C 54 3A 4E B2  4E AA 31 3A 99 4C 54 2C  |N).LT:N.N.1:.LT,|
00000360: 3A 8B 4E B3 31 30 30 30  A7 34 38 30 00 91 1F CC  |:.N.1000.480....|
00000370: 01 99 22 11 11 54 4F 4F  20 4D 41 4E 59 20 54 41  |.."..TOO MANY TA|
00000380: 52 47 45 54 20 4C 49 4E  45 53 21 22 3A 89 31 35  |RGET LINES!":.15|
00000390: 30 00 9F 1F E0 01 8B 56  B2 34 34 A7 33 32 30 00  |0......V.44.320.|
000003A0: AE 1F EA 01 8B 56 B3 B1  33 32 A7 32 39 30 00 BD  |.....V..32.290..|
000003B0: 1F F4 01 8D 31 37 33 30  3A 89 34 38 30 00 CA 1F  |....1730:.480...|
000003C0: 08 02 8B 4E B3 32 A7 36  30 30 00 F1 1F 12 02 81  |...N.2.600......|
000003D0: 58 B2 30 A4 4E AB 31 3A  81 59 B2 30 A4 4E AB 32  |X.0.N.1:.Y.0.N.2|
000003E0: 3A 8B 54 4C 28 59 29 B3  54 4C 28 58 29 A7 35 39  |:.TL(Y).TL(X).59|
000003F0: 30 00 11 20 30 02 56 B2  54 4C 28 59 29 3A 54 4C  |0.. 0.V.TL(Y):TL|
00000400: 28 59 29 B2 54 4C 28 58  29 3A 54 4C 28 58 29 B2  |(Y).TL(X):TL(X).|
00000410: 56 00 1A 20 4E 02 82 59  2C 58 00 AD 20 58 02 99  |V.. N..Y,X.. X..|
00000420: 22 93 43 4F 4D 50 41 43  54 49 4E 47 20 4C 49 4E  |".COMPACTING LIN|
00000430: 45 53 2E 2E 2E 2E 11 11  22 3A A0 35 3A 9F 35 2C  |ES......":.5:.5,|
00000440: 38 2C 35 2C 44 49 24 AA  22 3A 22 AA 46 4C 24 AA  |8,5,DI$.":".FL$.|
00000450: 22 2C 50 2C 52 22 3A 8D  31 37 38 30 3A 46 4F 24  |",P,R":.1780:FO$|
00000460: B2 C8 28 46 4C 24 2C 31  34 29 AA 22 2F 43 22 3A  |..(FL$,14)."/C":|
00000470: 98 31 35 2C 22 53 31 3A  22 AA 46 4F 24 3A 9F 36  |.15,"S1:".FO$:.6|
00000480: 2C 38 2C 36 2C 44 30 24  AA 22 3A 22 AA 46 4F 24  |,8,6,D0$.":".FO$|
00000490: AA 22 2C 50 2C 57 22 3A  8D 31 37 38 30 3A 8D 31  |.",P,W":.1780:.1|
000004A0: 37 31 30 3A 98 36 2C C7  28 56 31 29 3B 00 BE 20  |710:.6,.(V1);.. |
000004B0: BC 02 98 36 2C C7 28 56  29 3B 3A 52 B2 30 00 E4  |...6,.(V);:R.0..|
000004C0: 20 D0 02 8D 31 37 31 30  3A 4B 31 B2 56 31 3A 4B  | ...1710:K1.V1:K|
000004D0: 32 B2 56 3A 46 B2 30 3A  8B 56 AA 56 31 B2 30 A7  |2.V:F.0:.V.V1.0.|
000004E0: 31 35 34 30 00 0D 21 02  03 8D 31 37 31 30 3A 4C  |1540..!...1710:L|
000004F0: 31 B2 56 31 3A 4C 32 B2  56 3A 4C 4E B2 4C 31 AA  |1.V1:L2.V:LN.L1.|
00000500: 28 32 35 36 AC 4C 32 29  3A 99 4C 4E 2C 00 26 21  |(256.L2):.LN,.&!|
00000510: 34 03 8D 31 37 33 30 3A  8B 56 B2 33 32 B0 56 B2  |4..1730:.V.32.V.|
00000520: 35 38 A7 38 32 30 00 33  21 48 03 8B 56 B2 30 A7  |58.820.3!H..V.0.|
00000530: 38 38 30 00 43 21 52 03  8B 56 B3 B1 31 34 33 A7  |880.C!R..V..143.|
00000540: 39 33 30 00 56 21 5C 03  8D 31 37 33 30 3A 8B 56  |930.V!\..1730:.V|
00000550: B1 30 A7 38 36 30 00 72  21 70 03 46 B2 31 3A 81  |.0.860.r!p.F.1:.|
00000560: 58 B2 30 A4 4E 3A 8B 54  4C 28 58 29 B3 4C 4E A7  |X.0.N:.TL(X).LN.|
00000570: 82 58 00 84 21 8E 03 8B  54 4C 28 58 29 B2 4C 4E  |.X..!...TL(X).LN|
00000580: A7 39 33 30 00 8D 21 98  03 89 37 32 30 00 C4 21  |.930..!...720..!|
00000590: A2 03 98 36 2C C7 28 4B  31 29 3B C7 28 4B 32 29  |...6,.(K1);.(K2)|
000005A0: 3B 3A 98 36 2C C7 28 4C  31 29 3B C7 28 4C 32 29  |;:.6,.(L1);.(L2)|
000005B0: 3B 3A 52 B2 34 3A 8B 46  A7 98 36 2C 22 3A 22 3B  |;:R.4:.F..6,":";|
000005C0: 3A 52 B2 35 00 D2 21 CA  03 46 B2 30 3A 89 31 30  |:R.5..!..F.0:.10|
000005D0: 32 30 00 E3 21 DE 03 98  36 2C 43 24 3B 3A 52 B2  |20..!...6,C$;:R.|
000005E0: 52 AA 31 00 ED 21 F2 03  8D 31 37 33 30 00 FC 21  |R.1..!...1730..!|
000005F0: FC 03 8B 56 B2 31 33 37  A7 46 B2 31 00 11 22 06  |...V.137.F.1..".|
00000600: 04 8B 56 B2 31 33 39 B0  56 B2 31 36 37 A7 46 B2  |..V.139.V.167.F.|
00000610: 31 00 1F 22 10 04 8B 56  B2 30 A7 31 32 38 30 00  |1.."...V.0.1280.|
00000620: 2E 22 1A 04 8B 56 B2 33  32 A7 31 30 31 30 00 3F  |."...V.32.1010.?|
00000630: 22 24 04 8B 56 B3 B1 31  34 33 A7 31 31 30 30 00  |"$..V..143.1100.|
00000640: 53 22 2E 04 8D 31 37 33  30 3A 8B 56 B1 30 A7 31  |S"...1730:.V.0.1|
00000650: 30 37 30 00 5D 22 42 04  89 31 32 38 30 00 6D 22  |070.]"B..1280.m"|
00000660: 4C 04 8B 56 B3 B1 33 34  A7 31 32 30 30 00 8E 22  |L..V..34.1200.."|
00000670: 56 04 98 36 2C 43 24 3B  3A 52 B2 52 AA 31 3A 8D  |V..6,C$;:R.R.1:.|
00000680: 31 37 33 30 3A 8B 56 B2  33 34 A7 39 39 30 00 9C  |1730:.V.34.990..|
00000690: 22 7E 04 8B 56 B1 30 A7  31 31 31 30 00 AC 22 88  |"~..V.0.1110..".|
000006A0: 04 8B 46 A7 56 B2 30 3A  89 37 30 30 00 C6 22 92  |..F.V.0:.700..".|
000006B0: 04 98 36 2C C7 28 33 34  29 3B 3A 52 B2 52 AA 31  |..6,.(34);:R.R.1|
000006C0: 3A 89 31 32 38 30 00 D5  22 B0 04 8B 56 B3 B1 35  |:.1280.."...V..5|
000006D0: 38 A7 39 39 30 00 EF 22  BA 04 8D 31 37 33 30 3A  |8.990.."...1730:|
000006E0: 8B 56 B2 33 32 B0 56 B2  35 38 A7 31 32 31 30 00  |.V.32.V.58.1210.|
000006F0: FF 22 CE 04 8B 56 B2 31  34 33 A7 31 30 37 30 00  |."...V.143.1070.|
00000700: 0D 23 D8 04 8B 56 B2 30  A7 31 32 38 30 00 25 23  |.#...V.0.1280.%#|
00000710: E2 04 98 36 2C 22 3A 22  3B 3A 52 B2 52 AA 31 3A  |...6,":";:R.R.1:|
00000720: 89 31 30 32 30 00 3D 23  00 05 8B 46 B0 28 52 B1  |.1020.=#...F.(R.|
00000730: 31 37 30 29 A7 56 B2 30  3A 89 37 30 30 00 54 23  |170).V.0:.700.T#|
00000740: 0A 05 8D 31 37 31 30 3A  8B 56 AA 56 31 B2 30 A7  |...1710:.V.V1.0.|
00000750: 31 35 34 30 00 90 23 1E  05 8D 31 37 31 30 3A 4C  |1540..#...1710:L|
00000760: 4E B2 56 31 AA 28 32 35  36 AC 56 29 3A 4C 31 B2  |N.V1.(256.V):L1.|
00000770: 56 31 3A 4C 32 B2 56 3A  99 4C 4E 2C 3A 81 58 B2  |V1:L2.V:.LN,:.X.|
00000780: 30 A4 4E 3A 8B 54 4C 28  58 29 B3 4C 4E A7 82 58  |0.N:.TL(X).LN..X|
00000790: 00 A3 23 64 05 8B 54 4C  28 58 29 B2 4C 4E A7 31  |..#d..TL(X).LN.1|
000007A0: 34 36 30 00 B9 23 6E 05  8D 31 37 33 30 3A 8B 56  |460..#n..1730:.V|
000007B0: B2 31 34 33 A7 31 30 37  30 00 CD 23 82 05 8B 56  |.143.1070..#...V|
000007C0: B2 33 32 B0 56 B2 35 38  A7 31 33 39 30 00 DB 23  |.32.V.58.1390..#|
000007D0: 8C 05 8B 56 B2 30 A7 31  32 39 30 00 F3 23 96 05  |...V.0.1290..#..|
000007E0: 98 36 2C 22 3A 22 3B 3A  52 B2 52 AA 31 3A 89 31  |.6,":";:R.R.1:.1|
000007F0: 30 32 30 00 1E 24 B4 05  98 36 2C C7 28 30 29 3B  |020..$...6,.(0);|
00000800: C7 28 31 29 3B C7 28 31  29 3B 3A 98 36 2C C7 28  |.(1);.(1);:.6,.(|
00000810: 4C 31 29 3B C7 28 4C 32  29 3B 3A 52 B2 34 00 38  |L1);.(L2);:R.4.8|
00000820: 24 D2 05 8D 31 37 33 30  3A 8B 56 B2 33 32 B0 56  |$...1730:.V.32.V|
00000830: B2 35 38 A7 31 34 39 30  00 4F 24 E6 05 8B 56 B2  |.58.1490.O$...V.|
00000840: 30 B0 56 B2 31 34 33 A7  98 36 2C 22 3A 22 3B 00  |0.V.143..6,":";.|
00000850: 5D 24 F0 05 46 B2 30 3A  89 31 30 32 30 00 25 25  |]$..F.0:.1020.%%|
00000860: 04 06 98 36 2C C7 28 30  29 3B C7 28 30 29 3B C7  |...6,.(0);.(0);.|
00000870: 28 30 29 3B 3A A0 35 3A  A0 36 3A A0 31 35 3A 99  |(0);:.5:.6:.15:.|
00000880: 22 93 11 11 11 12 4D 4F  44 49 46 59 20 50 48 41  |".....MODIFY PHA|
00000890: 53 45 20 43 4F 4D 50 4C  45 54 45 2D 44 4F 20 4E  |SE COMPLETE-DO N|
000008A0: 4F 54 20 54 4F 55 43 48  20 54 48 45 20 20 20 20  |OT TOUCH THE    |
000008B0: 20 20 4B 45 59 42 4F 41  52 44 20 59 45 54 11 11  |  KEYBOARD YET..|
000008C0: 22 3A 81 4A B2 31 A4 33  30 30 30 3A 82 4A 3A 51  |":.J.1.3000:.J:Q|
000008D0: 24 B2 C7 28 33 34 29 3A  99 22 93 11 11 4C 4F 41  |$..(34):."...LOA|
000008E0: 44 22 51 24 44 30 24 22  3A 22 46 4F 24 51 24 22  |D"Q$D0$":"FO$Q$"|
000008F0: 2C 38 22 3A 99 22 11 11  11 11 43 4C 52 3A 53 59  |,8":."....CLR:SY|
00000900: 53 34 36 32 36 32 22 3A  99 22 11 11 53 41 56 45  |S46262":."..SAVE|
00000910: 22 51 24 22 40 22 44 4F  24 22 3A 22 46 4F 24 51  |"Q$"@"DO$":"FO$Q|
00000920: 24 22 2C 38 22 00 4C 25  72 06 97 31 35 38 2C 33  |$",8".L%r..158,3|
00000930: 3A 81 4A B2 36 32 33 A4  36 32 35 3A 97 4A 2C 31  |:.J.623.625:.J,1|
00000940: 33 3A 82 4A 3A 99 22 13  22 3B 3A 80 00 5B 25 AE  |3:.J:.".";:..[%.|
00000950: 06 8D 31 37 33 30 3A 56  31 B2 56 00 79 25 C2 06  |..1730:V1.V.y%..|
00000960: A1 23 35 2C 43 24 3A 8D  31 37 38 30 3A 8B 43 24  |.#5,C$:.1780:.C$|
00000970: B2 22 22 A7 56 B2 30 3A  8E 00 87 25 E0 06 56 B2  |."".V.0:...%..V.|
00000980: C6 28 43 24 29 3A 8E 00  A4 25 F4 06 84 31 35 2C  |.(C$):...%...15,|
00000990: 45 4E 2C 45 4D 24 2C 45  54 2C 45 53 3A 8B 45 4E  |EN,EM$,ET,ES:.EN|
000009A0: B2 30 A7 8E 00 D4 25 08  07 99 3A 99 22 11 11 11  |.0....%...:."...|
000009B0: 12 44 49 53 4B 20 45 52  52 4F 52 11 22 3A 99 45  |.DISK ERROR.":.E|
000009C0: 4E 3B 45 4D 24 3B 45 54  3B 45 53 3A A0 35 3A A0  |N;EM$;ET;ES:.5:.|
000009D0: 31 35 3A 80 00 0A 26 26  07 3A 3A 9F 38 2C 38 2C  |15:...&&.::.8,8,|
000009E0: 30 2C 22 24 30 22 3A 4E  24 B2 C7 28 30 29 3A 58  |0,"$0":N$..(0):X|
000009F0: 24 B2 4E 24 3A A1 23 38  2C 41 24 2C 41 24 2C 41  |$.N$:.#8,A$,A$,A|
00000A00: 24 2C 41 24 2C 41 24 2C  41 24 00 21 26 44 07 A1  |$,A$,A$,A$.!&D..|
00000A10: 23 38 2C 41 24 3A 8B 41  24 B2 22 22 A7 31 38 38  |#8,A$:.A$."".188|
00000A20: 30 00 34 26 4E 07 58 24  B2 58 24 AA 41 24 3A 89  |0.4&N.X$.X$.A$:.|
00000A30: 31 38 36 30 00 43 26 58  07 99 22 11 20 20 20 20  |1860.C&X..".    |
00000A40: 22 58 24 00 61 26 62 07  A1 23 38 2C 41 24 2C 41  |"X$.a&b..#8,A$,A|
00000A50: 24 3A 8B 41 24 B2 22 22  A7 A0 38 3A 89 31 39 33  |$:.A$.""..8:.193|
00000A60: 30 00 8B 26 6C 07 A1 23  38 2C 41 24 2C 42 24 3A  |0..&l..#8,A$,B$:|
00000A70: 42 24 B2 C4 28 C6 28 41  24 AA 4E 24 29 AA C6 28  |B$..(.(A$.N$)..(|
00000A80: 42 24 AA 4E 24 29 AC 32  35 36 29 00 B2 26 76 07  |B$.N$).256)..&v.|
00000A90: A1 23 38 2C 41 24 3A 8B  41 24 B2 22 22 A7 99 22  |.#8,A$:.A$."".."|
00000AA0: 20 20 20 22 42 24 3A 42  24 B2 22 22 3A 89 31 38  |   "B$:B$."":.18|
00000AB0: 39 30 00 C5 26 80 07 42  24 B2 42 24 AA 41 24 3A  |90..&..B$.B$.A$:|
00000AC0: 89 31 39 31 30 00 D1 26  8A 07 A0 38 3A 89 31 35  |.1910..&...8:.15|
00000AD0: 30 00 00 00 00                                    |0....           |

.......53280,14:.53281,6:.".":.:.TL(1000
):.".".14)". COMPACTOR .":.".....MODIFIE
D BY MR. RASTER 6/14/86.":."THIS PROGRAM
 WILL COMPACT A PROGRAM":."LOCATED ON AN
Y DRIVE BY DELETING ALL REM".~.P.."NOTAT
IONS, BLANK LINES, AND BY LINKING":."TOG
ETHER ALL POSSIBLE LINES..":."THE NEW CO
MPACTED PROGRAM WILL BE SAVED":."TO ANY 
DISK DRIVE WITH THE SAME FILENAME":."BUT
 WITH A '/C' SUFFIX..".J....".INPUT FILE
 DRIVE # ....8...";DI$:.".OUTPUT FILE DR
IVE #....8...";DO$......".INPUT FILE NAM
E ($ FOR DIRECTORY).":.FL$:.FL$."$"..183
0.R....".SCANNING FILE":."   FOR TARGET 
LINES.......":.15,8,15:.1780:.5,8,5,DI$.
":".FL$.",P,R":.1780:.1710......1710:.V.
V1.0.520. ....1710:LN.V1.(256.V)......17
30..."..V.0.240.L.,..V.137.V.141.320...6
..V..167.280...@.LT.0...J..1730:.V.32.33
0...^..V.48.V.57.390.,.H.LT.(10.LT).E(C$
):.1730:.350.E....X.0.N:.TL(X).LT.480.L.
...X:TL(N).LT:N.N.1:.LT,:.N.1000.480...L
.."..TOO MANY TARGET LINES!":.150......V
.44.320......V..32.290......1730:.480.J.
...N.2.600......X.0.N.1:.Y.0.N.2:.TL(Y).
TL(X).590.. 0.V.TL(Y):TL(Y).TL(X):TL(X).
V.. N..Y,X.. X..".COMPACTING LINES......
": 5:.5,8,5,DI$.":".FL$.",P,R":.1780:FO$
.H(FL$,14)."/C":.15,"S1:".FO$:.6,8,6,D0$
.":".FO$.",P,W":.1780:.1710:.6,G(V1);.. 
...6,G(V);:R.0.. P..1710:K1.V1:K2.V:F.0:
.V.V1.0.1540..!...1710:L1.V1:L2.V:LN.L1.
(256.L2):.LN,.&!4..1730:.V.32.V.58.820.3
!H..V.0.880.C!R..V..143.930.V!\..1730:.V
.0.860.R!P.F.1:.X.0.N:.TL(X).LN..X..!...
TL(X).LN.930..!...720.D!...6,G(K1);G(K2)
;:.6,G(L1);G(L2);:R.4:.F..6,":";:R.5.R!J
.F.0:.1020..!...6,C$;:R.R.1..!...1730..!
...V.137.F.1.."...V.139.V.167.F.1.."...V
.0.1280.."...V.32.1010.?"$..V..143.1100.
S"...1730:.V.0.1070.]"B..1280.M"L..V..34
.1200.."V..6,C$;:R.R.1:.1730:.V.34.990..
"~..V.0.1110.."...F.V.0:.700.F"...6,G(34
);:R.R.1:.1280.U"...V..58.990.."...1730:
.V.32.V.58.1210.."N..V.143.1070..#X..V.0
.1280.%#...6,":";:R.R.1:.1020.=#...F.(R.
170).V.0:.700.T#...1710:.V.V1.0.1540..#.
..1710:LN.V1.(256.V):L1.V1:L2.V:.LN,:.X.
0.N:.TL(X).LN..X..#D..TL(X).LN.1460..#N.
.1730:.V.143.1070.M#...V.32.V.58.1390..#
...V.0.1290..#...6,":";:R.R.1:.1020..$..
.6,G(0);G(1);G(1);:.6,G(L1);G(L2);:R.4.8
$R..1730:.V.32.V.58.1490.O$...V.0.V.143.
.6,":";.]$..F.0:.1020.%%...6,G(0);G(0);G
(0);: 5: 6: 15:.".....MODIFY PHASE COMPL
ETE-DO NOT TOUCH THE      KEYBOARD YET..
":.J.1.3000:.J:Q$.G(34):."...LOAD"Q$D0$"
:"FO$Q$",8":."....CLR:SYS46262":."..SAVE
"Q$"@"DO$":"FO$Q$",8".L%R..158,3:.J.623.
625:.J,13:.J:.".";:..[%...1730:V1.V.Y%B.
.#5,C$:.1780:.C$."".V.0:...%..V.F(C$):..
.%...15,EN,EM$,ET,ES:.EN.0...T%...:."...
.DISK ERROR.":.EN;EM$;ET;ES: 5: 15:...&&
.::.8,8,0,"$0":N$.G(0):X$.N$:.#8,A$,A$,A
$,A$,A$,A$.!&D..#8,A$:.A$."".1880.4&N.X$
.X$.A$:.1860.C&X..".    "X$.A&B..#8,A$,A
$:.A$."". 8:.1930..&L..#8,A$,B$:B$.D(F(A
$.N$).F(B$.N$).256)..&V..#8,A$:.A$."".."
   "B$:B$."":.1890.E&..B$.B$.A$:.1910.Q&
.. 8:.150....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL