Multiple names: PACK, PACK1

00000000: 01 08 0A 08 0A 00 89 31  30 30 00 2C 08 0C 00 3A  |.......100.,...:|
00000010: AC AC AC AC AC AC AC AC  AC AC AC AC AC AC AC AC  |................|
00000020: AC AC AC AC AC AC AC AC  AC AC AC AC 00 46 08 0E  |.............F..|
00000030: 00 3A 20 20 20 20 20 20  20 4C 49 4E 45 20 53 51  |.:       LINE SQ|
00000040: 55 45 5A 5A 45 52 00 5B  08 10 00 3A 20 20 20 20  |UEZZER.[...:    |
00000050: 20 20 20 20 20 8A 20 4D  41 47 2E 00 72 08 12 00  |     . MAG..r...|
00000060: 3A 20 20 20 20 20 20 20  20 4E 4F 56 2E 20 31 39  |:        NOV. 19|
00000070: 38 34 00 88 08 14 00 3A  20 20 20 20 20 20 20 20  |84.....:        |
00000080: 20 50 41 47 45 20 35 34  00 A7 08 64 00 8F 2A 2A  | PAGE 54...d..**|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 00  C1 08 BE 00 86 54 4C 28  |*******......TL(|
000000B0: 31 30 30 30 29 2C 43 28  32 35 36 29 3A 89 34 30  |1000),C(256):.40|
000000C0: 30 00 D5 08 D2 00 8F 20  20 20 53 55 42 52 4F 55  |0......   SUBROU|
000000D0: 54 49 4E 45 53 00 E3 08  E6 00 8D 32 34 30 3A 56  |TINES......240:V|
000000E0: 31 B2 56 00 F3 08 F0 00  A1 23 35 2C 43 24 3A 8D  |1.V......#5,C$:.|
000000F0: 32 37 30 00 0B 09 FA 00  56 B2 30 3A 8B 43 24 B3  |270.....V.0:.C$.|
00000100: B1 22 22 A7 56 B2 C6 28  43 24 29 00 11 09 04 01  |."".V..(C$).....|
00000110: 8E 00 2E 09 0E 01 84 31  35 2C 45 4E 2C 45 4D 24  |.......15,EN,EM$|
00000120: 2C 45 54 2C 45 53 3A 8B  45 4E B2 30 A7 8E 00 45  |,ET,ES:.EN.0...E|
00000130: 09 18 01 99 3A 99 22 44  49 53 4B 20 45 52 52 4F  |....:."DISK ERRO|
00000140: 52 21 22 3A 99 00 5D 09  22 01 99 45 4E 3B 45 4D  |R!":..]."..EN;EM|
00000150: 24 3B 45 54 3B 45 53 3A  89 31 34 32 30 00 6A 09  |$;ET;ES:.1420.j.|
00000160: 2C 01 8B 4C 24 B2 22 22  A7 8E 00 98 09 36 01 4C  |,..L$."".....6.L|
00000170: 41 B2 4C 41 AA C3 28 4C  24 29 AA 33 3A 41 31 B2  |A.LA..(L$).3:A1.|
00000180: B5 28 4C 41 AD 32 35 36  29 3A 41 32 B2 4C 41 AB  |.(LA.256):A2.LA.|
00000190: 28 41 31 AC 32 35 36 29  00 BC 09 40 01 98 36 2C  |(A1.256)...@..6,|
000001A0: C7 28 41 32 29 3B C7 28  41 31 29 3B 4C 24 3B C7  |.(A2);.(A1);L$;.|
000001B0: 28 30 29 3B 3A 4C 24 B2  22 22 3A 8E 00 E2 09 4A  |(0);:L$."":....J|
000001C0: 01 50 B2 31 3A 8D 32 33  30 3A 4C 4E B2 56 31 AA  |.P.1:.230:LN.V1.|
000001D0: 28 32 35 36 AC 56 29 3A  4C 31 B2 56 31 3A 4C 32  |(256.V):L1.V1:L2|
000001E0: B2 56 00 F9 09 54 01 99  4C 4E 3B 22 20 20 20 20  |.V...T..LN;"    |
000001F0: 20 20 22 3A 99 22 91 22  3B 00 19 0A 5E 01 8D 32  |  ":.".";...^..2|
00000200: 34 30 3A 43 28 50 29 B2  56 3A 8B 56 B1 30 A7 50  |40:C(P).V:.V.0.P|
00000210: B2 50 AA 31 3A 89 33 35  30 00 2C 0A 68 01 46 B2  |.P.1:.350.,.h.F.|
00000220: 30 3A 50 4C B2 50 3A 50  B2 31 3A 8E 00 45 0A 7C  |0:PL.P:P.1:..E.||
00000230: 01 8F 20 20 20 52 45 41  44 59 20 44 49 53 4B 20  |..   READY DISK |
00000240: 46 49 4C 45 53 00 64 0A  90 01 99 22 93 20 20 20  |FILES.d....".   |
00000250: 20 20 43 4F 4D 50 41 43  54 4F 52 20 20 20 20 49  |  COMPACTOR    I|
00000260: 49 22 3A 99 00 88 0A 9A  01 99 3A 99 22 4D 41 58  |I":.......:."MAX|
00000270: 20 20 4C 49 4E 45 20 4C  45 4E 47 54 48 20 54 4F  |  LINE LENGTH TO|
00000280: 20 43 52 45 41 54 45 22  00 AF 0A A4 01 85 22 20  | CREATE"......" |
00000290: 20 20 32 35 35 9D 9D 9D  9D 9D 22 3B 4D 4C 3A 8B  |  255.....";ML:.|
000002A0: 4D 4C B3 31 B0 4D 4C B1  32 35 35 A7 34 31 30 00  |ML.1.ML.255.410.|
000002B0: C0 0A AE 01 A0 31 35 3A  9F 31 35 2C 38 2C 31 35  |.....15:.15,8,15|
000002C0: 00 DD 0A B8 01 99 3A 99  22 49 4E 50 55 54 20 46  |......:."INPUT F|
000002D0: 49 4C 45 4E 41 4D 45 22  3A 85 46 31 24 00 FD 0A  |ILENAME":.F1$...|
000002E0: C2 01 9F 35 2C 38 2C 35  2C 22 30 3A 22 AA 46 31  |...5,8,5,"0:".F1|
000002F0: 24 AA 22 2C 50 2C 52 22  3A 8D 32 37 30 00 1B 0B  |$.",P,R":.270...|
00000300: CC 01 99 3A 99 22 4F 55  54 50 55 54 20 46 49 4C  |...:."OUTPUT FIL|
00000310: 45 4E 41 4D 45 22 3A 85  46 32 24 00 3B 0B D6 01  |ENAME":.F2$.;...|
00000320: 9F 36 2C 38 2C 36 2C 22  30 3A 22 AA 46 32 24 AA  |.6,8,6,"0:".F2$.|
00000330: 22 2C 50 2C 57 22 3A 8D  32 37 30 00 59 0B E0 01  |",P,W":.270.Y...|
00000340: 99 3A 99 22 4F 4B 2C 20  53 43 41 4E 4E 49 4E 47  |.:."OK, SCANNING|
00000350: 20 50 52 4F 47 52 41 4D  22 00 7B 0B EA 01 99 22  | PROGRAM".{...."|
00000360: 20 20 20 46 4F 52 20 54  41 52 47 45 54 20 4C 49  |   FOR TARGET LI|
00000370: 4E 45 53 2E 2E 2E 2E 2E  22 3A 99 00 A1 0B FE 01  |NES.....":......|
00000380: 8F 20 2A 2A 2A 20 52 45  41 44 20 4C 4F 41 44 20  |. *** READ LOAD |
00000390: 41 44 52 2C 20 4C 49 4E  4B 20 26 20 4C 49 4E 45  |ADR, LINK & LINE|
000003A0: 23 00 AA 0B 12 02 8D 32  33 30 00 BF 0B 1C 02 8D  |#......230......|
000003B0: 32 33 30 3A 8B 56 AA 56  31 B2 30 A7 38 36 30 00  |230:.V.V1.0.860.|
000003C0: D6 0B 26 02 8D 32 33 30  3A 4C 4E B2 56 31 AA 28  |..&..230:LN.V1.(|
000003D0: 32 35 36 AC 56 29 00 0B  0C 3A 02 8F 20 2A 2A 20  |256.V)...:.. ** |
000003E0: 53 43 41 4E 20 42 41 53  49 43 20 46 4F 52 20 47  |SCAN BASIC FOR G|
000003F0: 4F 54 4F 2C 47 4F 53 55  42 2C 52 55 4E 20 26 20  |OTO,GOSUB,RUN & |
00000400: 54 48 45 4E 20 54 4F 4B  45 4E 53 00 14 0C 4E 02  |THEN TOKENS...N.|
00000410: 8D 32 34 30 00 21 0C 58  02 8B 56 B2 30 A7 32 34  |.240.!.X..V.0.24|
00000420: 30 00 3C 0C 62 02 8B 56  B2 31 33 37 B0 56 B2 31  |0.<.b..V.137.V.1|
00000430: 34 31 B0 56 B2 31 33 38  A7 36 36 30 00 4C 0C 6C  |41.V.138.660.L.l|
00000440: 02 8B 56 B3 B1 31 36 37  A7 35 39 30 00 66 0C 80  |..V..167.590.f..|
00000450: 02 8F 20 2A 20 47 45 54  20 54 41 52 47 45 54 20  |.. * GET TARGET |
00000460: 4C 49 4E 45 20 23 00 6F  0C 94 02 4C 54 B2 30 00  |LINE #.o...LT.0.|
00000470: 82 0C 9E 02 8D 32 34 30  3A 8B 56 B2 33 32 A7 36  |.....240:.V.32.6|
00000480: 37 30 00 95 0C A8 02 8B  56 B3 34 38 B0 56 B1 35  |70......V.48.V.5|
00000490: 37 A7 37 33 30 00 B4 0C  B2 02 4C 54 B2 28 31 30  |7.730.....LT.(10|
000004A0: AC 4C 54 29 AA C5 28 43  24 29 3A 8D 32 34 30 3A  |.LT)..(C$):.240:|
000004B0: 89 36 38 30 00 D5 0C C6  02 8F 20 2A 20 43 48 45  |.680...... * CHE|
000004C0: 43 4B 20 49 46 20 41 4C  4C 20 52 45 41 44 59 20  |CK IF ALL READY |
000004D0: 46 4F 55 4E 44 00 F1 0C  DA 02 81 20 58 B2 30 20  |FOUND...... X.0 |
000004E0: A4 20 4E 3A 8B 54 4C 28  58 29 B2 4C 54 A7 38 30  |. N:.TL(X).LT.80|
000004F0: 30 00 F8 0C E4 02 82 58  00 2A 0D EE 02 54 4C 28  |0......X.*...TL(|
00000500: 4E 29 B2 4C 54 3A 4E B2  4E AA 31 3A 99 4C 54 3B  |N).LT:N.N.1:.LT;|
00000510: 22 20 20 20 20 20 20 22  3A 99 22 91 22 3B 3A 8B  |"      ":.".";:.|
00000520: 4E B3 31 30 30 30 A7 38  30 30 00 51 0D F8 02 99  |N.1000.800.Q....|
00000530: 3A 99 3A 99 22 54 4F 4F  20 4D 41 4E 59 20 54 41  |:.:."TOO MANY TA|
00000540: 52 47 45 54 20 4C 49 4E  45 53 3A 22 89 31 34 32  |RGET LINES:".142|
00000550: 30 00 73 0D 0C 03 8F 20  2A 20 43 48 45 43 4B 20  |0.s.... * CHECK |
00000560: 46 4F 52 20 4F 4E 2E 2E  47 4F 54 4F 2E 2E 47 4F  |FOR ON..GOTO..GO|
00000570: 53 55 42 00 81 0D 20 03  8B 56 B2 34 34 A7 36 36  |SUB... ..V.44.66|
00000580: 30 00 90 0D 2A 03 8B 56  B3 B1 33 32 A7 36 30 30  |0...*..V..32.600|
00000590: 00 9E 0D 34 03 8D 32 34  30 3A 89 38 30 30 00 BA  |...4..240:.800..|
000005A0: 0D 48 03 8F 20 2A 20 53  4F 52 54 20 54 41 52 47  |.H.. * SORT TARG|
000005B0: 45 54 20 4C 49 4E 45 53  20 2A 00 C7 0D 5C 03 8B  |ET LINES *...\..|
000005C0: 4E B3 32 A7 39 33 30 00  DD 0D 66 03 81 58 B2 30  |N.2.930...f..X.0|
000005D0: A4 4E AB 31 3A 81 59 B2  30 A4 4E AB 32 00 0A 0E  |.N.1:.Y.0.N.2...|
000005E0: 70 03 8B 54 4C 28 58 29  B3 54 4C 28 59 29 A7 56  |p..TL(X).TL(Y).V|
000005F0: B2 54 4C 28 59 29 3A 54  4C 28 59 29 B2 54 4C 28  |.TL(Y):TL(Y).TL(|
00000600: 58 29 3A 54 4C 28 58 29  B2 56 00 13 0E 7A 03 82  |X):TL(X).V...z..|
00000610: 59 2C 58 00 35 0E 84 03  8F 20 2A 2A 2A 2A 2A 2A  |Y,X.5.... ******|
00000620: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000630: 2A 2A 2A 2A 2A 00 57 0E  8E 03 8F 20 2A 2A 2A 47  |*****.W.... ***G|
00000640: 45 54 20 52 45 41 44 59  20 46 4F 52 20 43 4F 4D  |ET READY FOR COM|
00000650: 50 41 43 54 2A 2A 2A 00  79 0E 98 03 8F 20 2A 2A  |PACT***.y.... **|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 9C 0E A2 03 99 3A  |*********......:|
00000680: 99 3A 99 22 43 4F 4D 50  41 43 54 49 4E 47 20 4C  |.:."COMPACTING L|
00000690: 49 4E 45 53 2E 2E 2E 2E  2E 22 3A 99 00 BE 0E AC  |INES.....":.....|
000006A0: 03 A0 35 3A 9F 35 2C 38  2C 35 2C 22 30 3A 22 AA  |..5:.5,8,5,"0:".|
000006B0: 46 31 24 AA 22 50 2C 52  22 3A 8D 32 37 30 00 EA  |F1$."P,R":.270..|
000006C0: 0E B6 03 8D 32 33 30 3A  98 36 2C C7 28 56 31 29  |....230:.6,.(V1)|
000006D0: 3B C7 28 56 29 3B 3A 4C  41 B2 56 31 AA 28 32 35  |;.(V);:LA.V1.(25|
000006E0: 36 AC 56 29 3A 4C 24 B2  22 22 00 06 0F CA 03 8F  |6.V):L$.""......|
000006F0: 20 2A 20 52 45 41 44 20  50 52 4F 47 52 41 4D 20  | * READ PROGRAM |
00000700: 4C 49 4E 45 20 2A 00 1C  0F DE 03 8D 32 33 30 3A  |LINE *......230:|
00000710: 8B 56 AA 56 31 B2 30 A7  31 34 30 30 00 25 0F E8  |.V.V1.0.1400.%..|
00000720: 03 8D 33 33 30 00 46 0F  F2 03 56 B2 43 28 50 29  |..330.F...V.C(P)|
00000730: 3A 50 B2 50 AA 31 3A 8B  56 B2 33 32 B0 56 B2 35  |:P.P.1:.V.32.V.5|
00000740: 38 A7 31 30 31 30 00 6B  0F FC 03 4C 24 B2 C7 28  |8.1010.k...L$..(|
00000750: 4C 31 29 AA C7 28 4C 32  29 3A 8B 56 B3 B1 30 AF  |L1)..(L2):.V..0.|
00000760: 56 B3 B1 31 34 33 A7 31  31 31 30 00 83 0F 06 04  |V..143.1110.....|
00000770: 81 58 B2 30 A4 4E 3A 8B  54 4C 28 58 29 B3 4C 4E  |.X.0.N:.TL(X).LN|
00000780: A7 82 58 00 96 0F 10 04  8B 54 4C 28 58 29 B3 B1  |..X......TL(X)..|
00000790: 4C 4E A7 39 39 30 00 AA  0F 1A 04 4C 24 B2 4C 24  |LN.990.....L$.L$|
000007A0: AA 22 3A 22 3A 89 31 33  31 30 00 D0 0F 2E 04 8F  |.":":.1310......|
000007B0: 20 2A 20 53 43 41 4E 20  42 41 53 49 43 20 50 52  | * SCAN BASIC PR|
000007C0: 4F 47 20 26 20 43 4F 4D  50 41 43 54 20 50 52 4F  |OG & COMPACT PRO|
000007D0: 00 DF 0F 42 04 4C 24 B2  4C 24 AA C7 28 56 29 00  |...B.L$.L$..(V).|
000007E0: F0 0F 4C 04 56 B2 43 28  50 29 3A 50 B2 50 AA 31  |..L.V.C(P):P.P.1|
000007F0: 00 FF 0F 56 04 8B 56 B2  33 32 A7 31 31 30 30 00  |...V..V.32.1100.|
00000800: 0E 10 60 04 8B 56 B2 35  38 A7 31 32 36 30 00 35  |..`..V.58.1260.5|
00000810: 10 6A 04 8B 56 B2 31 33  37 B0 56 B2 31 33 38 B0  |.j..V.137.V.138.|
00000820: 56 B2 31 33 39 B0 56 B2  31 36 37 A7 46 B2 31 3A  |V.139.V.167.F.1:|
00000830: 89 31 30 39 30 00 49 10  74 04 8B 56 B2 30 B0 56  |.1090.I.t..V.0.V|
00000840: B2 31 34 33 A7 31 33 31  30 00 72 10 88 04 8F 20  |.143.1310.r.... |
00000850: 2A 20 51 55 4F 54 45 2D  43 4F 50 59 20 54 49 4C  |* QUOTE-COPY TIL|
00000860: 4C 20 4E 45 58 54 20 4F  52 20 4C 49 4E 45 20 45  |L NEXT OR LINE E|
00000870: 4E 44 00 82 10 9C 04 8B  56 B3 B1 33 34 A7 31 30  |ND......V..34.10|
00000880: 39 30 00 A9 10 A6 04 4C  24 B2 4C 24 AA C7 28 56  |90.....L$.L$..(V|
00000890: 29 3A 56 B2 43 28 50 29  3A 50 B2 50 AA 31 3A 8B  |):V.C(P):P.P.1:.|
000008A0: 56 B2 33 34 A7 31 30 39  30 00 B7 10 B0 04 8B 56  |V.34.1090......V|
000008B0: B1 30 A7 31 31 39 30 00  CC 10 BA 04 8B 46 B2 30  |.0.1190......F.0|
000008C0: A7 4C 24 B2 4C 24 AA C7  28 33 34 29 00 D6 10 C4  |.L$.L$..(34)....|
000008D0: 04 89 31 33 31 30 00 05  11 D8 04 8F 20 2A 20 49  |..1310...... * I|
000008E0: 46 20 43 4F 4C 4F 4E 2E  2E 43 48 4B 20 4E 45 58  |F COLON..CHK NEX|
000008F0: 54 20 43 48 41 52 2C 45  4C 53 45 20 43 4F 50 59  |T CHAR,ELSE COPY|
00000900: 20 43 48 41 52 00 26 11  EC 04 56 B2 43 28 50 29  | CHAR.&...V.C(P)|
00000910: 3A 50 B2 50 AA 31 3A 8B  56 B2 33 32 B0 56 B2 35  |:P.P.1:.V.32.V.5|
00000920: 38 A7 31 32 36 30 00 47  11 F6 04 8B 56 B3 B1 30  |8.1260.G....V..0|
00000930: AF 56 B3 B1 31 34 33 A7  4C 24 B2 4C 24 AA 22 3A  |.V..143.L$.L$.":|
00000940: 22 3A 89 31 31 31 30 00  76 11 0A 05 8F 20 2A 20  |":.1110.v.... * |
00000950: 45 4E 44 20 4F 46 20 4C  49 4E 45 2D 43 41 4E 20  |END OF LINE-CAN |
00000960: 57 45 20 43 4F 4D 50 41  43 54 20 54 48 45 53 45  |WE COMPACT THESE|
00000970: 20 4C 49 4E 45 53 00 89  11 1E 05 8B 46 B2 31 A7  | LINES......F.1.|
00000980: 8D 33 30 30 3A 89 39 39  30 00 9F 11 28 05 8D 32  |.300:.990...(..2|
00000990: 33 30 3A 8B 56 AA 56 31  B2 30 A7 31 34 30 30 00  |30:.V.V1.0.1400.|
000009A0: C4 11 32 05 8D 33 33 30  3A 8B 28 C3 28 4C 24 29  |..2..330:.(.(L$)|
000009B0: AA 50 4C AA 34 29 B1 4D  4C A7 8D 33 30 30 3A 89  |.PL.4).ML..300:.|
000009C0: 31 30 31 30 00 DC 11 3C  05 81 58 B2 30 A4 4E 3A  |1010...<..X.0.N:|
000009D0: 8B 54 4C 28 58 29 B3 4C  4E A7 82 58 00 F0 11 46  |.TL(X).LN..X...F|
000009E0: 05 8B 54 4C 28 58 29 B3  B1 4C 4E A7 31 32 36 30  |..TL(X)..LN.1260|
000009F0: 00 FF 11 50 05 8D 33 30  30 3A 89 31 30 31 30 00  |...P..300:.1010.|
00000A00: 2B 12 64 05 8F 20 2A 20  45 4E 44 20 4F 46 20 43  |+.d.. * END OF C|
00000A10: 4F 4D 50 41 43 54 2D 57  52 49 54 45 20 45 4E 44  |OMPACT-WRITE END|
00000A20: 20 4F 46 20 50 52 4F 47  52 41 4D 00 42 12 78 05  | OF PROGRAM.B.x.|
00000A30: 8D 33 30 30 3A 98 36 2C  C7 28 30 29 3B C7 28 30  |.300:.6,.(0);.(0|
00000A40: 29 3B 00 55 12 82 05 99  3A 99 3A 99 22 44 4F 4E  |);.U....:.:."DON|
00000A50: 45 21 22 3A 99 00 63 12  8C 05 A0 35 3A A0 36 3A  |E!":..c....5:.6:|
00000A60: A0 31 35 00 00 00                                 |.15...          |

.......100.,...:........................
.....F...:       LINE SQUEZZER.[...:    
     . MAG..R...:        NOV. 1984.....:
         PAGE 54...D..******************
*******.A....TL(1000),C(256):.400.U.R.. 
  SUBROUTINES......240:V1.V......#5,C$:.
270.....V.0:.C$.."".V.F(C$)............1
5,EN,EM$,ET,ES:.EN.0...E....:."DISK ERRO
R!":..]."..EN;EM$;ET;ES:.1420.J.,..L$.""
.....6.LA.LA.C(L$).3:A1..(LA.256):A2.LA.
(A1.256)...@..6,G(A2);G(A1);L$;G(0);:L$.
"":....J.P.1:.230:LN.V1.(256.V):L1.V1:L2
.V...T..LN;"      ":.".";...^..240:C(P).
V:.V.0.P.P.1:.350.,.H.F.0:PL.P:P.1:..E.|
..   READY DISK FILES.D....".     COMPAC
TOR    II":.......:."MAX  LINE LENGTH TO
 CREATE"......"   255.....";ML:.ML.1.ML.
255.410..... 15:.15,8,15......:."INPUT F
ILENAME":.F1$...B..5,8,5,"0:".F1$.",P,R"
:.270...L..:."OUTPUT FILENAME":.F2$.;.V.
.6,8,6,"0:".F2$.",P,W":.270.Y....:."OK, 
SCANNING PROGRAM".{...."   FOR TARGET LI
NES.....":....... *** READ LOAD ADR, LIN
K & LINE#......230......230:.V.V1.0.860.
V.&..230:LN.V1.(256.V)...:.. ** SCAN BAS
IC FOR GOTO,GOSUB,RUN & THEN TOKENS...N.
.240.!.X..V.0.240.<.B..V.137.V.141.V.138
.660.L.L..V..167.590.F.... * GET TARGET 
LINE #.O...LT.0......240:.V.32.670......
V.48.V.57.730.....LT.(10.LT).E(C$):.240:
.680.U.F.. * CHECK IF ALL READY FOUND...
Z.. X.0 . N:.TL(X).LT.800......X.*...TL(
N).LT:N.N.1:.LT;"      ":.".";:.N.1000.8
00.Q....:.:."TOO MANY TARGET LINES:".142
0.S.... * CHECK FOR ON..GOTO..GOSUB... .
.V.44.660...*..V..32.600...4..240:.800..
.H.. * SORT TARGET LINES *.G.\..N.2.930.
..F..X.0.N.1:.Y.0.N.2...P..TL(X).TL(Y).V
.TL(Y):TL(Y).TL(X):TL(X).V...Z..Y,X.5...
. ***************************.W.... ***G
ET READY FOR COMPACT***.Y.... **********
*****************......:.:."COMPACTING L
INES.....":...... 5:.5,8,5,"0:".F1$."P,R
":.270......230:.6,G(V1);G(V);:LA.V1.(25
6.V):L$.""...J.. * READ PROGRAM LINE *..
....230:.V.V1.0.1400.%....330.F...V.C(P)
:P.P.1:.V.32.V.58.1010.K...L$.G(L1).G(L2
):.V..0.V..143.1110......X.0.N:.TL(X).LN
..X......TL(X)..LN.990.....L$.L$.":":.13
10.P.... * SCAN BASIC PROG & COMPACT PRO
...B.L$.L$.G(V)...L.V.C(P):P.P.1...V..V.
32.1100...`..V.58.1260.5.J..V.137.V.138.
V.139.V.167.F.1:.1090.I.T..V.0.V.143.131
0.R.... * QUOTE-COPY TILL NEXT OR LINE E
ND......V..34.1090.....L$.L$.G(V):V.C(P)
:P.P.1:.V.34.1090......V.0.1190.L....F.0
.L$.L$.G(34).V.D..1310...X.. * IF COLON.
.CHK NEXT CHAR,ELSE COPY CHAR.&...V.C(P)
:P.P.1:.V.32.V.58.1260.G....V..0.V..143.
L$.L$.":":.1110.V.... * END OF LINE-CAN 
WE COMPACT THESE LINES......F.1..300:.99
0...(..230:.V.V1.0.1400.D.2..330:.(C(L$)
.PL.4).ML..300:.1010...<..X.0.N:.TL(X).L
N..X...F..TL(X)..LN.1260...P..300:.1010.
+.D.. * END OF COMPACT-WRITE END OF PROG
RAM.B.X..300:.6,G(0);G(0);.U....:.:."DON
E!":..C... 5: 6: 15...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL