COMPACTOR
FILE INFORMATION
FILENAME(S): COMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
e97aaa3ba3ed8e2e9d168fc8afaabdac96b3177902a57d46d45a4b2f2b68780e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY 64 | COMPACTOR | PRG | Radd Maxx | 34 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..%.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08 14 00 8F 20 2A 20 20 20 |*****.I.... * |
00000030: 20 20 20 43 4F 4D 50 41 43 54 4F 52 20 20 20 20 | COMPACTOR |
00000040: 20 20 20 20 20 20 20 20 2A 00 6D 08 1E 00 8F 20 | *.m.... |
00000050: 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |* --------------|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 2A 00 91 08 |---------- *...|
00000070: 28 00 8F 20 2A 20 20 20 42 59 3A 20 20 52 4F 42 |(.. * BY: ROB|
00000080: 45 52 54 20 42 41 4B 45 52 20 20 20 20 20 20 20 |ERT BAKER |
00000090: 2A 00 B5 08 32 00 8F 20 2A 20 20 20 20 20 20 20 |*...2.. * |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 2A 00 D9 08 3C 00 8F 20 2A 20 20 20 | *...<.. * |
000000C0: 42 41 4B 45 52 20 49 4E 54 45 52 50 52 49 53 45 |BAKER INTERPRISE|
000000D0: 52 45 53 20 20 20 20 20 2A 00 FD 08 46 00 8F 20 |RES *...F.. |
000000E0: 2A 20 20 20 20 20 31 35 20 57 49 4E 44 53 4F 52 |* 15 WINDSOR|
000000F0: 20 44 52 2E 20 20 20 20 20 20 20 20 2A 00 21 09 | DR. *.!.|
00000100: 50 00 8F 20 2A 20 20 20 20 41 54 43 4F 2C 20 4E |P.. * ATCO, N|
00000110: 2E 4A 2E 20 20 30 38 30 30 34 20 20 20 20 20 20 |.J. 08004 |
00000120: 2A 00 45 09 5A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.E.Z.. ********|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 00 61 09 5C 00 8F 20 43 4F 50 49 |*****.a.\.. COPI|
00000150: 45 44 20 42 59 20 52 2E 20 44 2E 20 57 41 4C 45 |ED BY R. D. WALE|
00000160: 53 00 75 09 5E 00 8F 20 20 20 20 20 20 20 20 20 |S.u.^.. |
00000170: 20 46 52 4F 4D 00 93 09 60 00 8F 20 43 4F 4D 50 | FROM...`.. COMP|
00000180: 55 54 45 20 20 53 45 50 54 2F 4F 43 54 2C 20 31 |UTE SEPT/OCT, 1|
00000190: 39 38 30 00 99 09 64 00 3A 00 AC 09 6E 00 9C 20 |980...d.:...n.. |
000001A0: 3A 20 86 20 54 4C 28 31 30 30 30 29 00 B2 09 78 |: . TL(1000)...x|
000001B0: 00 3A 00 CC 09 82 00 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...... *******|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E5 09 8C |************....|
000001D0: 00 8F 20 20 20 52 45 41 44 59 20 44 49 53 4B 20 |.. READY DISK |
000001E0: 46 49 4C 45 53 00 FF 09 96 00 8F 20 2A 2A 2A 2A |FILES...... ****|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000200: 05 0A A0 00 3A 00 21 0A AA 00 99 22 93 22 A6 31 |....:.!....".".1|
00000210: 35 29 22 12 43 4F 4D 50 41 43 54 4F 52 11 11 92 |5)".COMPACTOR...|
00000220: 22 00 45 0A B4 00 99 22 20 12 49 4E 50 55 54 92 |".E...." .INPUT.|
00000230: 20 46 49 4C 45 20 49 4E 20 12 44 52 49 56 45 20 | FILE IN .DRIVE |
00000240: 23 30 11 92 22 00 6A 0A BE 00 99 22 12 4F 55 54 |#0..".j....".OUT|
00000250: 50 55 54 92 20 46 49 4C 45 20 49 4E 20 12 44 52 |PUT. FILE IN .DR|
00000260: 49 56 45 20 23 31 11 11 92 22 00 87 0A C8 00 85 |IVE #1..."......|
00000270: 22 12 49 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D |".INPUT FILE NAM|
00000280: 45 92 22 3B 46 4C 24 00 9D 0A D2 00 99 22 93 53 |E.";FL$......".S|
00000290: 43 41 4E 4E 49 4E 47 20 46 49 4C 45 22 00 BF 0A |CANNING FILE"...|
000002A0: DC 00 99 22 20 20 20 46 4F 52 20 54 41 52 47 45 |..." FOR TARGE|
000002B0: 54 20 4C 49 4E 45 53 2E 2E 2E 2E 2E 11 11 22 00 |T LINES.......".|
000002C0: D5 0A E6 00 9F 31 35 2C 38 2C 31 35 20 3A 20 8D |.....15,8,15 : .|
000002D0: 20 32 33 37 30 00 F1 0A F0 00 9F 20 35 2C 38 2C | 2370...... 5,8,|
000002E0: 35 2C 22 30 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 |5,"0:".FL$.",P,R|
000002F0: 22 00 F7 0A FA 00 3A 00 1A 0B 04 01 8F 20 2A 2A |".....:...... **|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3D 0B 0E 01 8F |**********.=....|
00000320: 20 52 45 41 44 20 4C 4F 41 44 20 41 44 52 2C 20 | READ LOAD ADR, |
00000330: 4C 49 4E 4B 20 26 20 4C 49 4E 45 20 23 00 60 0B |LINK & LINE #.`.|
00000340: 18 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000360: 00 66 0B 22 01 3A 00 7A 0B 2C 01 8D 20 32 33 37 |.f.".:.z.,.. 237|
00000370: 30 20 3A 20 8D 20 32 33 31 30 00 96 0B 36 01 8D |0 : . 2310...6..|
00000380: 20 32 33 31 30 20 3A 46 49 20 56 AA 56 31 B2 30 | 2310 :FI V.V1.0|
00000390: 20 A7 20 37 39 30 00 B1 0B 40 01 8D 20 32 33 31 | . 790...@.. 231|
000003A0: 30 20 3A 20 4C 4E B2 56 31 AA 28 32 35 36 AC 56 |0 : LN.V1.(256.V|
000003B0: 29 00 B7 0B 4A 01 3A 00 DB 0B 54 01 8F 20 2A 2A |)...J.:...T.. **|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FA 0B 5E 01 |***********...^.|
000003E0: 8F 20 20 20 20 20 20 20 20 20 53 43 41 4E 20 42 |. SCAN B|
000003F0: 41 53 49 43 20 4C 49 4E 45 53 00 1E 0C 68 01 8F |ASIC LINES...h..|
00000400: 20 46 4F 52 20 47 4F 54 4F 2C 20 47 4F 53 55 42 | FOR GOTO, GOSUB|
00000410: 20 26 20 54 48 45 4E 20 54 4F 4B 45 4E 53 00 42 | & THEN TOKENS.B|
00000420: 0C 72 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.r.. ***********|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000440: 2A 2A 00 48 0C 7C 01 3A 00 53 0C 86 01 8D 20 32 |**.H.|.:.S.... 2|
00000450: 33 33 30 00 63 0C 90 01 8B 20 56 B2 30 20 A7 20 |330.c.... V.0 . |
00000460: 33 31 30 00 7D 0C 9A 01 8B 20 56 B2 31 33 37 20 |310.}.... V.137 |
00000470: B0 20 56 B2 31 34 31 20 A7 20 34 38 30 00 90 0C |. V.141 . 480...|
00000480: A4 01 8B 20 56 B3 B1 31 36 37 20 A7 20 33 39 30 |... V..167 . 390|
00000490: 00 96 0C AE 01 3A 00 B2 0C B8 01 8F 20 2A 2A 2A |.....:...... ***|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004B0: 2A 2A 00 CA 0C C2 01 8F 20 47 45 54 20 54 41 52 |**...... GET TAR|
000004C0: 47 45 54 20 4C 49 4E 45 20 23 00 E6 0C CC 01 8F |GET LINE #......|
000004D0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000004E0: 2A 2A 2A 2A 2A 2A 00 EC 0C D6 01 3A 00 F5 0C E0 |******.....:....|
000004F0: 01 4C 54 B2 30 00 0F 0D EA 01 8D 20 32 33 33 30 |.LT.0...... 2330|
00000500: 20 3A 20 8B 20 56 B2 33 32 20 A7 20 34 39 30 00 | : . V.32 . 490.|
00000510: 27 0D F4 01 8B 20 56 B3 34 38 20 B0 20 56 B1 35 |'.... V.48 . V.5|
00000520: 37 20 A7 20 35 38 30 00 3C 0D FE 01 4C 54 B2 28 |7 . 580.<...LT.(|
00000530: 31 30 AC 4C 54 29 AA C5 28 43 24 29 00 4F 0D 08 |10.LT)..(C$).O..|
00000540: 02 8D 20 32 33 33 30 20 3A 20 89 20 35 30 30 00 |.. 2330 : . 500.|
00000550: 55 0D 12 02 3A 00 77 0D 1C 02 8F 20 2A 2A 2A 2A |U...:.w.... ****|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000570: 2A 2A 2A 2A 2A 2A 2A 00 96 0D 26 02 8F 20 43 48 |*******...&.. CH|
00000580: 45 43 4B 20 49 46 20 41 4C 4C 20 52 45 41 44 59 |ECK IF ALL READY|
00000590: 20 46 4F 55 4E 44 00 B8 0D 30 02 8F 20 2A 2A 2A | FOUND...0.. ***|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 BE 0D 3A 02 3A 00 CC |********...:.:..|
000005C0: 0D 44 02 81 20 58 B2 30 20 A4 20 4E 00 E1 0D 4E |.D.. X.0 . N...N|
000005D0: 02 8B 20 54 4C 28 58 29 B2 4C 54 20 A7 20 37 31 |.. TL(X).LT . 71|
000005E0: 30 00 E9 0D 58 02 82 20 58 00 FE 0D 62 02 54 4C |0...X.. X...b.TL|
000005F0: 28 4E 29 B2 4C 54 20 3A 20 4E B2 4E AA 31 00 08 |(N).LT : N.N.1..|
00000600: 0E 6C 02 99 20 4C 54 2C 00 1B 0E 76 02 8B 20 4E |.l.. LT,...v.. N|
00000610: B3 31 30 30 30 20 A7 20 37 31 30 00 3B 0E 80 02 |.1000 . 710.;...|
00000620: 99 22 11 11 54 4F 4F 20 4D 41 4E 54 20 54 41 52 |."..TOO MANT TAR|
00000630: 47 45 54 20 4C 49 4E 45 53 21 22 00 45 0E 8A 02 |GET LINES!".E...|
00000640: 89 32 34 33 30 00 4B 0E 94 02 3A 00 6E 0E 9E 02 |.2430.K...:.n...|
00000650: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 90 |**************..|
00000670: 0E A8 02 8F 20 43 48 45 43 4B 20 46 4F 52 20 27 |.... CHECK FOR '|
00000680: 4F 4E 2E 2E 2E 47 4F 54 4F 2F 47 4F 53 55 42 27 |ON...GOTO/GOSUB'|
00000690: 00 B3 0E B2 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006B0: 2A 2A 2A 00 B9 0E BC 02 3A 00 CA 0E C6 02 8B 20 |***.....:...... |
000006C0: 56 B2 34 34 20 A7 20 34 38 30 00 DC 0E D0 02 8B |V.44 . 480......|
000006D0: 20 56 B3 B1 33 32 20 A7 20 34 30 30 00 EF 0E DA | V..32 . 400....|
000006E0: 02 8D 20 32 33 33 30 20 3A 20 89 20 37 31 30 00 |.. 2330 : . 710.|
000006F0: F5 0E E4 02 3A 00 13 0F EE 02 8F 20 2A 2A 2A 2A |....:...... ****|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000710: 2A 2A 2A 00 2B 0F F8 02 8F 20 53 4F 52 54 20 54 |***.+.... SORT T|
00000720: 41 52 47 45 54 20 4C 49 4E 45 53 00 49 0F 02 03 |ARGET LINES.I...|
00000730: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 0F 0C 03 3A 00 |*********.O...:.|
00000750: 5F 0F 16 03 8B 20 4E B3 32 20 A7 20 39 30 30 00 |_.... N.2 . 900.|
00000760: 6F 0F 20 03 81 20 58 B2 30 20 A4 20 4E AB 31 00 |o. .. X.0 . N.1.|
00000770: 7F 0F 2A 03 81 20 59 B2 30 20 A4 20 4E AB 32 00 |..*.. Y.0 . N.2.|
00000780: 99 0F 34 03 8B 20 54 4C 28 59 29 20 B3 20 54 4C |..4.. TL(Y) . TL|
00000790: 28 58 29 20 A7 20 38 34 30 00 BD 0F 3E 03 56 B2 |(X) . 840...>.V.|
000007A0: 54 4C 28 59 29 20 3A 20 54 4C 28 59 29 B2 54 4C |TL(Y) : TL(Y).TL|
000007B0: 28 58 29 20 3A 20 54 4C 28 58 29 B2 56 00 C7 0F |(X) : TL(X).V...|
000007C0: 48 03 82 20 59 2C 58 00 CD 0F 52 03 3A 00 EE 0F |H.. Y,X...R.:...|
000007D0: 5C 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |\.. ************|
000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0A |**************..|
000007F0: 10 66 03 8F 20 47 45 54 20 52 45 41 44 59 20 46 |.f.. GET READY F|
00000800: 4F 52 20 43 4F 4D 50 41 43 54 00 2B 10 70 03 8F |OR COMPACT.+.p..|
00000810: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 10 7A 03 |***********.1.z.|
00000830: 3A 00 50 10 84 03 99 22 93 43 4F 4D 50 41 43 54 |:.P....".COMPACT|
00000840: 49 4E 47 20 4C 49 4E 45 53 2E 2E 2E 2E 11 11 22 |ING LINES......"|
00000850: 00 58 10 8E 03 A0 20 35 00 74 10 98 03 9F 20 35 |.X.... 5.t.... 5|
00000860: 2C 38 2C 35 2C 22 30 3A 22 AA 46 4C 24 AA 22 2C |,8,5,"0:".FL$.",|
00000870: 50 2C 52 22 00 7F 10 A2 03 8D 20 32 33 37 30 00 |P,R"...... 2370.|
00000880: 96 10 AC 03 46 4F 24 B2 C8 28 46 4C 24 2C 31 34 |....FO$..(FL$,14|
00000890: 29 AA 22 2F 43 22 00 A8 10 B6 03 98 31 35 2C 22 |)."/C"......15,"|
000008A0: 53 31 3A 22 AA 46 4F 24 00 C4 10 C0 03 9F 20 36 |S1:".FO$...... 6|
000008B0: 2C 38 2C 36 2C 22 31 3A 22 AA 46 4F 24 AA 22 2C |,8,6,"1:".FO$.",|
000008C0: 50 2C 57 22 00 CF 10 CA 03 8D 20 32 33 37 30 00 |P,W"...... 2370.|
000008D0: D5 10 D4 03 3A 00 EA 10 DE 03 8F 20 20 2A 2A 2A |....:...... ***|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FE 10 E8 03 8F |**********......|
000008F0: 20 43 4F 50 59 20 4C 4F 41 44 20 41 44 52 00 12 | COPY LOAD ADR..|
00000900: 11 F2 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000910: 2A 2A 00 18 11 FC 03 3A 00 23 11 06 04 8D 20 32 |**.....:.#.... 2|
00000920: 33 31 30 00 31 11 10 04 98 36 2C C7 28 56 31 29 |310.1....6,.(V1)|
00000930: 3B 00 44 11 1A 04 98 36 2C C7 28 56 29 3B 20 3A |;.D....6,.(V); :|
00000940: 20 52 B2 30 00 4A 11 24 04 3A 00 6A 11 2E 04 8F | R.0.J.$.:.j....|
00000950: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8A 11 38 04 8F |**********...8..|
00000970: 20 43 4F 50 59 20 4C 49 4E 4B 20 41 4E 44 20 4C | COPY LINK AND L|
00000980: 49 4E 45 20 4E 55 4D 42 45 52 00 AA 11 42 04 8F |INE NUMBER...B..|
00000990: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 11 4C 04 3A |**********...L.:|
000009B0: 00 CA 11 56 04 8D 20 32 33 31 30 20 3A 20 4B 31 |...V.. 2310 : K1|
000009C0: B2 56 31 20 3A 20 4B 32 B2 56 00 E4 11 60 04 46 |.V1 : K2.V...`.F|
000009D0: B2 30 20 3A 20 8B 20 56 AA 56 31 B2 30 20 A7 20 |.0 : . V.V1.0 . |
000009E0: 32 32 33 30 00 FE 11 6A 04 8D 20 32 33 31 30 20 |2230...j.. 2310 |
000009F0: 3A 20 4C 31 B2 56 31 20 3A 20 4C 32 B2 56 00 18 |: L1.V1 : L2.V..|
00000A00: 12 74 04 4C 4E B2 4C 31 AA 28 32 35 36 AC 4C 32 |.t.LN.L1.(256.L2|
00000A10: 29 20 3A 20 99 4C 4E 2C 00 23 12 7E 04 8D 20 32 |) : .LN,.#.~.. 2|
00000A20: 33 33 30 00 3C 12 88 04 8B 20 56 B2 33 32 20 B0 |330.<.... V.32 .|
00000A30: 20 56 B2 35 38 20 A7 20 31 31 35 30 00 4D 12 92 | V.58 . 1150.M..|
00000A40: 04 8B 20 56 B2 30 20 A7 20 31 32 30 30 00 61 12 |.. V.0 . 1200.a.|
00000A50: 9C 04 8B 20 56 B3 B1 31 34 33 20 A7 20 31 32 34 |... V..143 . 124|
00000A60: 30 00 7B 12 A6 04 8D 20 32 33 33 30 20 3A 20 8B |0.{.... 2330 : .|
00000A70: 20 56 B1 30 20 A7 20 31 31 39 30 00 8F 12 B0 04 | V.0 . 1190.....|
00000A80: 46 B2 31 20 3A 20 81 20 58 B2 30 20 A4 20 4E 00 |F.1 : . X.0 . N.|
00000A90: A4 12 BA 04 8B 20 54 4C 28 58 29 B3 4C 4E 20 A7 |..... TL(X).LN .|
00000AA0: 20 82 20 58 00 BA 12 C4 04 8B 20 54 4C 28 58 29 | . X...... TL(X)|
00000AB0: B2 4C 4E 20 A7 20 31 32 34 30 00 C5 12 CE 04 89 |.LN . 1240......|
00000AC0: 20 31 31 31 30 00 D9 12 D8 04 98 36 2C C7 28 4B | 1110......6,.(K|
00000AD0: 31 29 3B C7 28 4B 32 29 3B 00 F3 12 E2 04 98 36 |1);.(K2);......6|
00000AE0: 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B 20 3A 20 |,.(L1);.(L2); : |
00000AF0: 52 B2 34 00 0C 13 EC 04 8B 20 46 20 A7 20 98 36 |R.4...... F . .6|
00000B00: 2C 22 3A 22 3B 20 3A 20 20 52 B2 35 00 1D 13 F6 |,":"; : R.5....|
00000B10: 04 46 B2 30 20 3A 20 89 20 31 33 36 30 00 23 13 |.F.0 : . 1360.#.|
00000B20: 00 05 3A 00 44 13 0A 05 8F 20 2A 2A 2A 2A 2A 2A |..:.D.... ******|
00000B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B40: 2A 2A 2A 2A 00 65 13 14 05 8F 20 2A 2A 2A 2A 20 |****.e.... **** |
00000B50: 20 53 43 41 4E 20 42 41 53 49 43 20 4C 49 4E 45 | SCAN BASIC LINE|
00000B60: 20 20 2A 2A 2A 00 86 13 1E 05 8F 20 2A 2A 2A 2A | ***...... ****|
00000B70: 20 26 20 43 4F 4D 50 41 43 54 20 50 52 4F 47 52 | & COMPACT PROGR|
00000B80: 41 4D 20 2A 2A 2A 00 A7 13 28 05 8F 20 2A 2A 2A |AM ***...(.. ***|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 00 AD 13 32 05 3A 00 C0 13 |*******...2.:...|
00000BB0: 3C 05 98 36 2C 43 24 3B 20 3A 20 52 B2 52 AA 31 |<..6,C$; : R.R.1|
00000BC0: 00 CB 13 46 05 8D 20 32 33 33 30 00 DD 13 50 05 |...F.. 2330...P.|
00000BD0: 8B 20 56 B2 31 33 37 20 A7 20 46 B2 31 00 F7 13 |. V.137 . F.1...|
00000BE0: 5A 05 8B 20 56 B2 31 33 39 20 B0 20 56 B2 31 36 |Z.. V.139 . V.16|
00000BF0: 37 20 A7 20 46 B2 31 00 08 14 64 05 8B 20 56 B2 |7 . F.1...d.. V.|
00000C00: 30 20 A7 20 31 38 32 30 00 1A 14 6E 05 8B 20 56 |0 . 1820...n.. V|
00000C10: B2 33 32 20 A7 20 31 33 35 30 00 20 14 78 05 3A |.32 . 1350. .x.:|
00000C20: 00 40 14 82 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.@.... *********|
00000C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C40: 00 58 14 8C 05 8F 20 20 20 20 20 27 52 45 4D 27 |.X.... 'REM'|
00000C50: 20 54 4F 4B 45 4E 20 2D 00 73 14 96 05 8F 20 44 | TOKEN -.s.... D|
00000C60: 49 53 43 41 52 44 20 52 45 53 54 20 4F 46 20 4C |ISCARD REST OF L|
00000C70: 49 4E 45 00 93 14 A0 05 8F 20 2A 2A 2A 2A 2A 2A |INE...... ******|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C90: 2A 2A 2A 00 99 14 AA 05 3A 00 AD 14 B4 05 8B 20 |***.....:...... |
00000CA0: 56 B3 B1 31 34 33 20 A7 20 31 35 35 30 00 C7 14 |V..143 . 1550...|
00000CB0: BE 05 8D 20 32 33 33 30 20 3A 20 8B 20 56 B1 30 |... 2330 : . V.0|
00000CC0: 20 A7 20 31 34 37 30 00 D2 14 C8 05 89 20 31 38 | . 1470...... 18|
00000CD0: 32 30 00 D8 14 D2 05 3A 00 F9 14 DC 05 8F 20 2A |20.....:...... *|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 07 15 E6 05 8F 20 |*********...... |
00000D00: 51 55 4F 54 45 20 2D 00 28 15 F0 05 8F 20 43 4F |QUOTE -.(.... CO|
00000D10: 50 59 20 54 49 4C 4C 20 4E 45 58 54 20 4F 52 20 |PY TILL NEXT OR |
00000D20: 4C 49 4E 45 20 45 4E 44 00 49 15 FA 05 8F 20 2A |LINE END.I.... *|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 15 04 06 3A 00 |*********.O...:.|
00000D50: 62 15 0E 06 8B 20 56 B3 B1 33 34 20 A7 20 31 36 |b.... V..34 . 16|
00000D60: 39 30 00 75 15 18 06 98 36 2C 43 24 3B 20 3A 20 |90.u....6,C$; : |
00000D70: 52 B2 52 AA 31 00 80 15 22 06 8D 20 32 33 33 30 |R.R.1...".. 2330|
00000D80: 00 92 15 2C 06 8B 20 56 B2 33 34 20 A7 20 31 33 |...,.. V.34 . 13|
00000D90: 34 30 00 A3 15 36 06 8B 20 56 B1 30 20 A7 20 31 |40...6.. V.0 . 1|
00000DA0: 35 36 30 00 BA 15 40 06 8B 20 46 20 A7 20 56 B2 |560...@.. F . V.|
00000DB0: 30 20 3A 20 89 20 31 30 35 30 00 D0 15 4A 06 98 |0 : . 1050...J..|
00000DC0: 36 2C C7 28 33 34 29 3B 20 3A 20 52 B2 52 AA 31 |6,.(34); : R.R.1|
00000DD0: 00 DB 15 54 06 89 20 31 38 32 30 00 E1 15 5E 06 |...T.. 1820...^.|
00000DE0: 3A 00 03 16 68 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...h.. ********|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E00: 2A 2A 2A 00 22 16 72 06 8F 20 49 46 20 43 4F 4C |***.".r.. IF COL|
00000E10: 4F 4E 20 2D 20 43 48 4B 20 4E 45 58 54 20 43 48 |ON - CHK NEXT CH|
00000E20: 41 52 00 3E 16 7C 06 8F 20 20 20 20 20 20 20 20 |AR.>.|.. |
00000E30: 45 4C 53 45 20 43 4F 50 59 20 43 48 41 52 00 60 |ELSE COPY CHAR.`|
00000E40: 16 86 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E60: 00 66 16 90 06 3A 00 79 16 9A 06 8B 20 56 B3 B1 |.f...:.y.... V..|
00000E70: 35 38 20 A7 20 31 33 34 30 00 84 16 A4 06 8D 20 |58 . 1340...... |
00000E80: 32 33 33 30 00 9D 16 AE 06 8B 20 56 B2 33 32 20 |2330...... V.32 |
00000E90: B0 20 56 B2 35 38 20 A7 20 31 37 30 30 00 B0 16 |. V.58 . 1700...|
00000EA0: B8 06 8B 20 56 B2 31 34 33 20 A7 20 31 34 37 30 |... V.143 . 1470|
00000EB0: 00 C1 16 C2 06 8B 20 56 B2 30 20 A7 20 31 38 32 |...... V.0 . 182|
00000EC0: 30 00 D5 16 CC 06 98 36 2C 22 3A 22 3B 20 3A 20 |0......6,":"; : |
00000ED0: 52 B2 52 AA 31 00 E0 16 D6 06 89 20 31 33 36 30 |R.R.1...... 1360|
00000EE0: 00 E6 16 E0 06 3A 00 09 17 EA 06 8F 20 2A 2A 2A |.....:...... ***|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1D 17 F4 06 8F 20 |*********...... |
00000F10: 45 4E 44 20 4F 46 20 4C 49 4E 45 20 2D 00 40 17 |END OF LINE -.@.|
00000F20: FE 06 8F 20 43 41 4E 20 57 45 20 43 4F 4D 50 41 |... CAN WE COMPA|
00000F30: 43 54 20 54 48 45 53 45 20 4C 49 4E 45 53 20 3F |CT THESE LINES ?|
00000F40: 00 63 17 08 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.c.... *********|
00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F60: 2A 2A 2A 00 69 17 12 07 3A 00 88 17 1C 07 8B 20 |***.i...:...... |
00000F70: 46 20 B0 20 28 52 B1 31 37 30 29 20 A7 20 56 B2 |F . (R.170) . V.|
00000F80: 30 3A 89 20 31 30 35 30 00 93 17 26 07 8D 20 32 |0:. 1050...&.. 2|
00000F90: 33 31 30 00 A7 17 30 07 8B 20 56 AA 56 31 B2 30 |310...0.. V.V1.0|
00000FA0: 20 A7 20 32 32 33 30 00 C2 17 3A 07 8D 20 32 33 | . 2230...:.. 23|
00000FB0: 31 30 20 3A 20 4C 4E B2 56 31 AA 28 32 35 36 AC |10 : LN.V1.(256.|
00000FC0: 56 29 00 D9 17 44 07 4C 31 B2 56 31 20 3A 20 4C |V)...D.L1.V1 : L|
00000FD0: 32 B2 56 20 3A 99 4C 4E 2C 00 DF 17 4E 07 3A 00 |2.V :.LN,...N.:.|
00000FE0: 03 18 58 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..X.. **********|
00000FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001000: 2A 2A 2A 00 23 18 62 07 8F 20 43 48 4B 20 49 46 |***.#.b.. CHK IF|
00001010: 20 4C 49 4E 45 20 23 20 49 53 20 41 20 54 41 52 | LINE # IS A TAR|
00001020: 47 45 54 00 47 18 6C 07 8F 20 2A 2A 2A 2A 2A 2A |GET.G.l.. ******|
00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001040: 2A 2A 2A 2A 2A 2A 2A 00 4D 18 76 07 3A 00 5B 18 |*******.M.v.:.[.|
00001050: 80 07 81 20 58 B2 30 20 A4 20 4E 00 70 18 8A 07 |... X.0 . N.p...|
00001060: 8B 20 54 4C 28 58 29 B3 4C 4E 20 A7 20 82 20 58 |. TL(X).LN . . X|
00001070: 00 86 18 94 07 8B 20 54 4C 28 58 29 B2 4C 4E 20 |...... TL(X).LN |
00001080: A7 20 32 31 31 30 00 8C 18 9E 07 3A 00 B0 18 A8 |. 2110.....:....|
00001090: 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010B0: 00 C1 18 B2 07 8F 20 4E 4F 54 20 55 53 45 44 20 |...... NOT USED |
000010C0: 2D 00 DF 18 BC 07 8F 20 44 49 53 43 41 52 44 20 |-...... DISCARD |
000010D0: 4C 49 4E 4B 20 41 4E 44 20 4C 49 4E 45 20 23 00 |LINK AND LINE #.|
000010E0: 03 19 C6 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001100: 2A 2A 2A 00 09 19 D0 07 3A 00 25 19 DA 07 8D 20 |***.....:.%.... |
00001110: 32 33 33 30 20 3A 20 8B 20 56 B2 31 34 33 20 A7 |2330 : . V.143 .|
00001120: 20 31 34 37 30 00 3E 19 E4 07 8B 20 56 B2 33 32 | 1470.>.... V.32|
00001130: 20 B0 20 56 B2 35 38 20 A7 20 32 30 31 30 00 4F | . V.58 . 2010.O|
00001140: 19 EE 07 8B 20 56 B2 30 20 A7 20 31 38 33 30 00 |.... V.0 . 1830.|
00001150: 6C 19 F8 07 98 36 2C 22 3A 22 3B 20 3A 20 52 B2 |l....6,":"; : R.|
00001160: 52 AA 31 20 3A 20 89 20 31 33 36 30 00 72 19 02 |R.1 : . 1360.r..|
00001170: 08 3A 00 96 19 0C 08 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...... *******|
00001180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001190: 2A 2A 2A 2A 2A 2A 00 AC 19 16 08 8F 20 4C 49 4E |******...... LIN|
000011A0: 45 20 23 20 4E 45 45 44 45 44 20 2D 00 D0 19 20 |E # NEEDED -... |
000011B0: 08 8F 20 57 52 49 54 45 20 4C 49 4E 45 20 45 4E |.. WRITE LINE EN|
000011C0: 44 2C 20 4C 49 4E 4B 20 26 20 4C 49 4E 45 20 23 |D, LINK & LINE #|
000011D0: 00 F4 19 2A 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*.. *********|
000011E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011F0: 2A 2A 2A 2A 00 FA 19 34 08 3A 00 11 1A 3E 08 98 |****...4.:...>..|
00001200: 36 2C C7 28 30 29 3B C7 28 31 29 3B C7 28 31 29 |6,.(0);.(1);.(1)|
00001210: 3B 00 2B 1A 48 08 98 36 2C C7 28 4C 31 29 3B C7 |;.+.H..6,.(L1);.|
00001220: 28 4C 32 29 3B 20 3A 20 52 B2 34 00 36 1A 52 08 |(L2); : R.4.6.R.|
00001230: 8D 20 32 33 33 30 00 4F 1A 5C 08 8B 20 56 B2 33 |. 2330.O.\.. V.3|
00001240: 32 20 B0 20 56 B2 35 38 20 A7 20 32 31 33 30 00 |2 . V.58 . 2130.|
00001250: 6B 1A 66 08 8B 20 56 B2 30 20 B0 20 56 B2 31 34 |k.f.. V.0 . V.14|
00001260: 33 20 A7 20 98 36 2C 22 3A 22 3B 00 7C 1A 70 08 |3 . .6,":";.|.p.|
00001270: 46 B2 30 20 3A 20 89 20 31 33 36 30 00 82 1A 7A |F.0 : . 1360...z|
00001280: 08 3A 00 A6 1A 84 08 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...... *******|
00001290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012A0: 2A 2A 2A 2A 2A 2A 00 BD 1A 8E 08 8F 20 45 4E 44 |******...... END|
000012B0: 20 4F 46 20 43 4F 4D 50 41 43 54 20 2D 00 D8 1A | OF COMPACT -...|
000012C0: 98 08 8F 20 57 52 49 54 45 20 45 4E 44 20 4F 46 |... WRITE END OF|
000012D0: 20 50 52 4F 47 52 41 4D 00 FC 1A A2 08 8F 20 2A | PROGRAM...... *|
000012E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 1B AC |************....|
00001300: 08 3A 00 19 1B B6 08 98 36 2C C7 28 30 29 3B C7 |.:......6,.(0);.|
00001310: 28 30 29 3B C7 28 30 29 3B 00 2A 1B C0 08 99 22 |(0);.(0);.*...."|
00001320: 93 12 44 4F 4E 45 92 11 11 22 00 34 1B CA 08 89 |..DONE...".4....|
00001330: 32 34 33 30 00 3A 1B D4 08 3A 00 5E 1B DE 08 8F |2430.:...:.^....|
00001340: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 82 |**************..|
00001360: 1B E8 08 8F 20 2A 2A 2A 2A 2A 20 20 53 55 42 52 |.... ***** SUBR|
00001370: 4F 55 54 49 4E 45 53 20 20 2A 2A 2A 2A 2A 2A 2A |OUTINES *******|
00001380: 2A 2A 00 A6 1B F2 08 8F 20 2A 2A 2A 2A 2A 2A 2A |**...... *******|
00001390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013A0: 2A 2A 2A 2A 2A 2A 00 AC 1B FC 08 3A 00 BE 1B 06 |******.....:....|
000013B0: 09 8D 20 32 33 33 30 20 3A 20 56 31 B2 56 00 C4 |.. 2330 : V1.V..|
000013C0: 1B 10 09 3A 00 D8 1B 1A 09 A1 23 35 2C 43 24 20 |...:......#5,C$ |
000013D0: 3A 20 8D 20 32 33 37 30 00 EE 1B 24 09 8B 20 43 |: . 2370...$.. C|
000013E0: 24 B2 22 22 20 A7 20 56 B2 30 20 3A 20 8E 00 FE |$."" . V.0 : ...|
000013F0: 1B 2E 09 56 B2 C6 28 43 24 29 20 3A 20 8E 00 04 |...V..(C$) : ...|
00001400: 1C 38 09 3A 00 19 1C 42 09 84 31 35 2C 45 4E 2C |.8.:...B..15,EN,|
00001410: 45 4D 24 2C 45 54 2C 45 53 00 28 1C 4C 09 8B 20 |EM$,ET,ES.(.L.. |
00001420: 45 4E B2 30 20 A7 20 8E 00 2E 1C 56 09 3A 00 49 |EN.0 . ....V.:.I|
00001430: 1C 60 09 99 20 3A 20 99 22 11 11 11 12 44 49 53 |.`.. : ."....DIS|
00001440: 4B 20 45 52 52 4F 52 92 11 00 5C 1C 6A 09 99 20 |K ERROR...\.j.. |
00001450: 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 62 1C 74 |EN;EM$;ET;ES.b.t|
00001460: 09 3A 00 76 1C 7E 09 A0 20 35 20 3A A0 20 36 20 |.:.v.~.. 5 :. 6 |
00001470: 3A A0 20 20 31 35 00 00 00 |:. 15... |
..%.... *****************************.I.
... * COMPACTOR *.M....
* ------------------------ *...(.. *
BY: ROBERT BAKER *...2.. *
*.Y.<.. * BAKER IN
TERPRISERES *...F.. * 15 WINDSOR
DR. *.!.P.. * ATCO, N.J. 080
04 *.E.Z.. ************************
*****.A.\.. COPIED BY R. D. WALES.U.^..
FROM...`.. COMPUTE SEPT/OCT, 1
980...D.:...N.. : . TL(1000)...X.:.L....
*******************...... READY DISK
FILES...... *******************... .:.!.
...".".15)".COMPACTOR...".E...." .INPUT.
FILE IN .DRIVE #0..".J....".OUTPUT. FIL
E IN .DRIVE #1..."...H..".INPUT FILE NAM
E.";FL$...R..".SCANNING FILE"......" F
OR TARGET LINES.......".U....15,8,15 : .
2370...... 5,8,5,"0:".FL$.",P,R".....:.
..... ****************************.=....
READ LOAD ADR, LINK & LINE #.`.... ****
************************.F.".:.Z.,.. 237
0 : . 2310...6.. 2310 :FI V.V1.0 . 790..
.@.. 2310 : LN.V1.(256.V)...J.:...T.. **
***************************...^..
SCAN BASIC LINES...H.. FOR GOTO, GOSUB
& THEN TOKENS.B.R.. *******************
**********.H.|.:.S.... 2330.C.... V.0 .
310.}.... V.137 . V.141 . 480...... V..1
67 . 390.....:...... *******************
**.J.B.. GET TARGET LINE #...L.. *******
**************...V.:.....LT.0...... 2330
: . V.32 . 490.'.... V.48 . V.57 . 580.
<...LT.(10.LT).E(C$).O.... 2330 : . 500.
U...:.W.... ***************************.
..&.. CHECK IF ALL READY FOUND...0.. ***
************************...:.:.L.D.. X.0
. N...N.. TL(X).LT . 710...X.. X...B.TL
(N).LT : N.N.1...L.. LT,...V.. N.1000 .
710.;...."..TOO MANT TARGET LINES!".E...
.2430.K...:.N.... **********************
******...... CHECK FOR 'ON...GOTO/GOSUB'
...... ****************************.....
:.J.F.. V.44 . 480...P.. V..32 . 400...Z
.. 2330 : . 710.....:...... ************
***********.+.... SORT TARGET LINES.I...
. ***********************.O...:._.... N.
2 . 900.O. .. X.0 . N.1..*.. Y.0 . N.2.
..4.. TL(Y) . TL(X) . 840...>.V.TL(Y) :
TL(Y).TL(X) : TL(X).V.G.H.. Y,X.M.R.:...
\.. **************************...F.. GET
READY FOR COMPACT.+.P.. ***************
***********.1.Z.:.P....".COMPACTING LINE
S......".X... 5.T.... 5,8,5,"0:".FL$.",
P,R"..... 2370.....FO$.H(FL$,14)."/C"..
....15,"S1:".FO$.D.... 6,8,6,"1:".FO$.",
P,W".O.J.. 2370.U.T.:...... ***********
**...... COPY LOAD ADR...... ***********
**.....:.#.... 2310.1....6,G(V1);.D....6
,G(V); : R.0.J.$.:.J.... ***************
**********...8.. COPY LINK AND LINE NUMB
ER...B.. *************************...L.:
.J.V.. 2310 : K1.V1 : K2.V...`.F.0 : . V
.V1.0 . 2230...J.. 2310 : L1.V1 : L2.V..
.T.LN.L1.(256.L2) : .LN,.#.~.. 2330.<...
. V.32 . V.58 . 1150.M.... V.0 . 1200.A.
... V..143 . 1240.{.... 2330 : . V.0 . 1
190.....F.1 : . X.0 . N...... TL(X).LN .
. X...D.. TL(X).LN . 1240.E.N.. 1110.Y.
X..6,G(K1);G(K2);......6,G(L1);G(L2); :
R.4...... F . .6,":"; : R.5.....F.0 : .
1360.#...:.D.... **********************
****.E.... **** SCAN BASIC LINE ***...
... **** & COMPACT PROGRAM ***...(.. ***
***********************...2.:...<..6,C$;
: R.R.1.K.F.. 2330...P.. V.137 . F.1...
Z.. V.139 . V.167 . F.1...D.. V.0 . 1820
...N.. V.32 . 1350. .X.:.@.... *********
****************.X.... 'REM' TOKEN -
.S.... DISCARD REST OF LINE... .. ******
*******************.....:...... V..143 .
1550.G.... 2330 : . V.0 . 1470.R.H.. 18
20.X.R.:...... *************************
*...... QUOTE -.(.... COPY TILL NEXT OR
LINE END.I.... *************************
*.O...:.B.... V..34 . 1690.U....6,C$; :
R.R.1...".. 2330...,.. V.34 . 1340...6..
V.0 . 1560...@.. F . V.0 : . 1050.P.J..
6,G(34); : R.R.1...T.. 1820...^.:...H..
***************************.".R.. IF COL
ON - CHK NEXT CHAR.>.|.. ELSE COP
Y CHAR.`.... ***************************
.F...:.Y.... V..58 . 1340...... 2330....
.. V.32 . V.58 . 1700...... V.143 . 1470
.A.B.. V.0 . 1820.U.L..6,":"; : R.R.1...
V.. 1360.....:...... *******************
*********...... END OF LINE -.@.... CAN
WE COMPACT THESE LINES ?.C.... *********
*******************.I...:...... F . (R.1
70) . V.0:. 1050...&.. 2310...0.. V.V1.0
. 2230.B.:.. 2310 : LN.V1.(256.V).Y.D.L
1.V1 : L2.V :.LN,...N.:...X.. **********
*******************.#.B.. CHK IF LINE #
IS A TARGET.G.L.. **********************
*******.M.V.:.[.... X.0 . N.P.... TL(X).
LN . . X...... TL(X).LN . 2110.....:....
.. *****************************.A.... N
OT USED -...... DISCARD LINK AND LINE #.
..F.. *****************************...P.
:.%.Z.. 2330 : . V.143 . 1470.>.... V.32
. V.58 . 2010.O.... V.0 . 1830.L....6,"
:"; : R.R.1 : . 1360.R...:...... *******
**********************...... LINE # NEED
ED -.P. .. WRITE LINE END, LINK & LINE #
...*.. *****************************...4
.:...>..6,G(0);G(1);G(1);.+.H..6,G(L1);G
(L2); : R.4.6.R.. 2330.O.\.. V.32 . V.58
. 2130.K.F.. V.0 . V.143 . .6,":";.|.P.
F.0 : . 1360...Z.:...... ***************
**************...... END OF COMPACT -.X.
... WRITE END OF PROGRAM...... *********
********************.....:......6,G(0);G
(0);G(0);.*...."..DONE...".4.J..2430.:.T
.:.^.... *****************************..
.... ***** SUBROUTINES *********......
*****************************.....:....
.. 2330 : V1.V.D...:.X....#5,C$ : . 2370
...$.. C$."" . V.0 : ......V.F(C$) : ...
.8.:...B..15,EN,EM$,ET,ES.(.L.. EN.0 . .
...V.:.I.`.. : ."....DISK ERROR...\.J..
EN;EM$;ET;ES.B.T.:.V.~. 5 : 6 : 15..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL