COMPACTOR
FILE INFORMATION
FILENAME(S): COMPACTOR
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 19:47:10
APPEARS ON: 1 disk(s)
FILE HASH
386afd6cf2169d1bbdaea4bd48d12fafb25787bc89a499536bc54ade27bcb7b4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A2 2 | COMPACTOR | PRG | Curtcool, Frank | 19 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 C8 08 C8 00 9C 3A 86 54 4C 28 31 30 30 30 |.......:.TL(1000|
00000010: 29 3A 99 22 93 22 A6 31 34 29 22 12 20 43 4F 4D |):.".".14)". COM|
00000020: 50 41 43 54 4F 52 20 11 11 22 3A 99 22 54 48 49 |PACTOR ..":."THI|
00000030: 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 |S PROGRAM WILL C|
00000040: 4F 4D 50 41 43 54 20 41 20 50 52 4F 47 52 41 4D |OMPACT A PROGRAM|
00000050: 22 3A 99 22 4C 4F 43 41 54 45 44 20 4F 4E 20 41 |":."LOCATED ON A|
00000060: 4E 59 20 44 52 49 56 45 20 42 59 20 44 45 4C 45 |NY DRIVE BY DELE|
00000070: 54 49 4E 47 20 41 4C 4C 20 52 45 4D 22 3A 99 22 |TING ALL REM":."|
00000080: 4E 4F 54 41 54 49 4F 4E 53 2C 20 42 4C 41 4E 4B |NOTATIONS, BLANK|
00000090: 20 4C 49 4E 45 53 2C 20 41 4E 44 20 42 59 20 4C | LINES, AND BY L|
000000A0: 49 4E 4B 49 4E 47 22 3A 99 22 54 4F 47 45 54 48 |INKING":."TOGETH|
000000B0: 45 52 20 41 4C 4C 20 50 4F 53 53 49 42 4C 45 20 |ER ALL POSSIBLE |
000000C0: 4C 49 4E 45 53 2E 11 22 00 77 09 36 01 99 22 54 |LINES..".w.6.."T|
000000D0: 48 45 20 4E 45 57 20 43 4F 4D 50 41 43 54 45 44 |HE NEW COMPACTED|
000000E0: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 42 45 | PROGRAM WILL BE|
000000F0: 20 53 41 56 45 44 22 3A 99 22 54 4F 20 41 4E 59 | SAVED":."TO ANY|
00000100: 20 44 49 53 4B 20 44 52 49 56 45 20 57 49 54 48 | DISK DRIVE WITH|
00000110: 20 54 48 45 20 53 41 4D 45 20 46 49 4C 45 4E 41 | THE SAME FILENA|
00000120: 4D 45 22 3A 99 22 42 55 54 20 57 49 54 48 20 41 |ME":."BUT WITH A|
00000130: 20 27 2F 43 27 20 53 55 46 46 49 58 2E 11 22 3A | '/C' SUFFIX..":|
00000140: 85 22 12 20 49 4E 50 55 54 20 46 49 4C 45 20 44 |.". INPUT FILE D|
00000150: 52 49 56 45 20 23 22 3B 44 49 24 3A 85 22 12 4F |RIVE #";DI$:.".O|
00000160: 55 54 50 55 54 20 46 49 4C 45 20 44 52 49 56 45 |UTPUT FILE DRIVE|
00000170: 20 23 22 3B 44 4F 24 00 F9 09 68 01 85 22 12 49 | #";DO$...h..".I|
00000180: 4E 50 55 54 20 46 49 4C 45 20 4E 41 4D 45 92 22 |NPUT FILE NAME."|
00000190: 3B 46 4C 24 3A 99 22 93 53 43 41 4E 4E 49 4E 47 |;FL$:.".SCANNING|
000001A0: 20 46 49 4C 45 22 3A 99 22 20 20 20 46 4F 52 20 | FILE":." FOR |
000001B0: 54 41 52 47 45 54 20 4C 49 4E 45 53 2E 2E 2E 2E |TARGET LINES....|
000001C0: 2E 11 11 22 3A 9F 31 35 2C 38 2C 31 35 3A 8D 32 |...":.15,8,15:.2|
000001D0: 36 30 30 3A 9F 35 2C 38 2C 35 2C 44 49 24 AA 22 |600:.5,8,5,DI$."|
000001E0: 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 3A 8D 32 |:".FL$.",P,R":.2|
000001F0: 36 30 30 3A 8D 32 35 34 30 00 0F 0A D6 01 8D 32 |600:.2540......2|
00000200: 35 34 30 3A 8B 56 AA 56 31 B2 30 A7 39 35 30 00 |540:.V.V1.0.950.|
00000210: 27 0A E0 01 8D 32 35 34 30 3A 4C 4E B2 56 31 AA |'....2540:LN.V1.|
00000220: 28 32 35 36 AC 56 29 00 31 0A 26 02 8D 32 35 36 |(256.V).1.&..256|
00000230: 30 00 3E 0A 30 02 8B 56 B2 30 A7 34 37 30 00 53 |0.>.0..V.0.470.S|
00000240: 0A 3A 02 8B 56 B2 31 33 37 B0 56 B2 31 34 31 A7 |.:..V.137.V.141.|
00000250: 36 34 30 00 63 0A 44 02 8B 56 B3 B1 31 36 37 A7 |640.c.D..V..167.|
00000260: 35 35 30 00 6C 0A 80 02 4C 54 B2 30 00 80 0A 8A |550.l...LT.0....|
00000270: 02 8D 32 35 36 30 3A 8B 56 B2 33 32 A7 36 35 30 |..2560:.V.32.650|
00000280: 00 93 0A 94 02 8B 56 B3 34 38 B0 56 B1 35 37 A7 |......V.48.V.57.|
00000290: 37 34 30 00 B3 0A 9E 02 4C 54 B2 28 31 30 AC 4C |740.....LT.(10.L|
000002A0: 54 29 AA C5 28 43 24 29 3A 8D 32 35 36 30 3A 89 |T)..(C$):.2560:.|
000002B0: 36 36 30 00 CC 0A E4 02 81 58 B2 30 A4 4E 3A 8B |660......X.0.N:.|
000002C0: 54 4C 28 58 29 B2 4C 54 A7 38 37 30 00 F3 0A F8 |TL(X).LT.870....|
000002D0: 02 82 58 3A 54 4C 28 4E 29 B2 4C 54 3A 4E B2 4E |..X:TL(N).LT:N.N|
000002E0: AA 31 3A 99 4C 54 2C 3A 8B 4E B3 31 30 30 30 A7 |.1:.LT,:.N.1000.|
000002F0: 38 37 30 00 19 0B 20 03 99 22 11 11 54 4F 4F 20 |870... .."..TOO |
00000300: 4D 41 4E 59 20 54 41 52 47 45 54 20 4C 49 4E 45 |MANY TARGET LINE|
00000310: 53 21 22 3A 89 32 36 36 30 00 27 0B 66 03 8B 56 |S!":.2660.'.f..V|
00000320: B2 34 34 A7 36 34 30 00 36 0B 70 03 8B 56 B3 B1 |.44.640.6.p..V..|
00000330: 33 32 A7 35 36 30 00 45 0B 7A 03 8D 32 35 36 30 |32.560.E.z..2560|
00000340: 3A 89 38 37 30 00 53 0B B6 03 8B 4E B3 32 A7 31 |:.870.S....N.2.1|
00000350: 30 36 30 00 7B 0B C0 03 81 58 B2 30 A4 4E AB 31 |060.{....X.0.N.1|
00000360: 3A 81 59 B2 30 A4 4E AB 32 3A 8B 54 4C 28 59 29 |:.Y.0.N.2:.TL(Y)|
00000370: B3 54 4C 28 58 29 A7 31 30 30 30 00 9B 0B DE 03 |.TL(X).1000.....|
00000380: 56 B2 54 4C 28 59 29 3A 54 4C 28 59 29 B2 54 4C |V.TL(Y):TL(Y).TL|
00000390: 28 58 29 3A 54 4C 28 58 29 B2 56 00 A4 0B E8 03 |(X):TL(X).V.....|
000003A0: 82 59 2C 58 00 37 0C 24 04 99 22 93 43 4F 4D 50 |.Y,X.7.$..".COMP|
000003B0: 41 43 54 49 4E 47 20 4C 49 4E 45 53 2E 2E 2E 2E |ACTING LINES....|
000003C0: 11 11 22 3A A0 35 3A 9F 35 2C 38 2C 35 2C 44 49 |..":.5:.5,8,5,DI|
000003D0: 24 AA 22 3A 22 AA 46 4C 24 AA 22 2C 50 2C 52 22 |$.":".FL$.",P,R"|
000003E0: 3A 8D 32 36 30 30 3A 46 4F 24 B2 C8 28 46 4C 24 |:.2600:FO$..(FL$|
000003F0: 2C 31 34 29 AA 22 2F 43 22 3A 98 31 35 2C 22 53 |,14)."/C":.15,"S|
00000400: 31 3A 22 AA 46 4F 24 3A 9F 36 2C 38 2C 36 2C 44 |1:".FO$:.6,8,6,D|
00000410: 30 24 AA 22 3A 22 AA 46 4F 24 AA 22 2C 50 2C 57 |0$.":".FO$.",P,W|
00000420: 22 3A 8D 32 36 30 30 3A 8D 32 35 34 30 3A 98 36 |":.2600:.2540:.6|
00000430: 2C C7 28 56 31 29 3B 00 48 0C BA 04 98 36 2C C7 |,.(V1);.H....6,.|
00000440: 28 56 29 3B 3A 52 B2 30 00 6E 0C F6 04 8D 32 35 |(V);:R.0.n....25|
00000450: 34 30 3A 4B 31 B2 56 31 3A 4B 32 B2 56 3A 46 B2 |40:K1.V1:K2.V:F.|
00000460: 30 3A 8B 56 AA 56 31 B2 30 A7 32 33 39 30 00 97 |0:.V.V1.0.2390..|
00000470: 0C 0A 05 8D 32 35 34 30 3A 4C 31 B2 56 31 3A 4C |....2540:L1.V1:L|
00000480: 32 B2 56 3A 4C 4E B2 4C 31 AA 28 32 35 36 AC 4C |2.V:LN.L1.(256.L|
00000490: 32 29 3A 99 4C 4E 2C 00 B1 0C 1E 05 8D 32 35 36 |2):.LN,......256|
000004A0: 30 3A 8B 56 B2 33 32 B0 56 B2 35 38 A7 31 33 31 |0:.V.32.V.58.131|
000004B0: 30 00 BF 0C 32 05 8B 56 B2 30 A7 31 33 36 30 00 |0...2..V.0.1360.|
000004C0: D0 0C 3C 05 8B 56 B3 B1 31 34 33 A7 31 34 30 30 |..<..V..143.1400|
000004D0: 00 E4 0C 46 05 8D 32 35 36 30 3A 8B 56 B1 30 A7 |...F..2560:.V.0.|
000004E0: 31 33 35 30 00 00 0D 50 05 46 B2 31 3A 81 58 B2 |1350...P.F.1:.X.|
000004F0: 30 A4 4E 3A 8B 54 4C 28 58 29 B3 4C 4E A7 82 58 |0.N:.TL(X).LN..X|
00000500: 00 13 0D 64 05 8B 54 4C 28 58 29 B2 4C 4E A7 31 |...d..TL(X).LN.1|
00000510: 34 30 30 00 1D 0D 6E 05 89 31 32 37 30 00 54 0D |400...n..1270.T.|
00000520: 78 05 98 36 2C C7 28 4B 31 29 3B C7 28 4B 32 29 |x..6,.(K1);.(K2)|
00000530: 3B 3A 98 36 2C C7 28 4C 31 29 3B C7 28 4C 32 29 |;:.6,.(L1);.(L2)|
00000540: 3B 3A 52 B2 34 3A 8B 46 A7 98 36 2C 22 3A 22 3B |;:R.4:.F..6,":";|
00000550: 3A 52 B2 35 00 62 0D 96 05 46 B2 30 3A 89 31 35 |:R.5.b...F.0:.15|
00000560: 32 30 00 73 0D DC 05 98 36 2C 43 24 3B 3A 52 B2 |20.s....6,C$;:R.|
00000570: 52 AA 31 00 7D 0D E6 05 8D 32 35 36 30 00 8C 0D |R.1.}....2560...|
00000580: F0 05 8B 56 B2 31 33 37 A7 46 B2 31 00 A1 0D FA |...V.137.F.1....|
00000590: 05 8B 56 B2 31 33 39 B0 56 B2 31 36 37 A7 46 B2 |..V.139.V.167.F.|
000005A0: 31 00 AF 0D 04 06 8B 56 B2 30 A7 31 39 38 30 00 |1......V.0.1980.|
000005B0: BE 0D 0E 06 8B 56 B2 33 32 A7 31 35 31 30 00 CF |.....V.32.1510..|
000005C0: 0D 54 06 8B 56 B3 B1 31 34 33 A7 31 37 31 30 00 |.T..V..143.1710.|
000005D0: E3 0D 5E 06 8D 32 35 36 30 3A 8B 56 B1 30 A7 31 |..^..2560:.V.0.1|
000005E0: 36 33 30 00 ED 0D 68 06 89 31 39 38 30 00 FD 0D |630...h..1980...|
000005F0: AE 06 8B 56 B3 B1 33 34 A7 31 38 35 30 00 1F 0E |...V..34.1850...|
00000600: B8 06 98 36 2C 43 24 3B 3A 52 B2 52 AA 31 3A 8D |...6,C$;:R.R.1:.|
00000610: 32 35 36 30 3A 8B 56 B2 33 34 A7 31 35 30 30 00 |2560:.V.34.1500.|
00000620: 2D 0E D6 06 8B 56 B1 30 A7 31 37 32 30 00 3E 0E |-....V.0.1720.>.|
00000630: E0 06 8B 46 A7 56 B2 30 3A 89 31 32 31 30 00 58 |...F.V.0:.1210.X|
00000640: 0E EA 06 98 36 2C C7 28 33 34 29 3B 3A 52 B2 52 |....6,.(34);:R.R|
00000650: AA 31 3A 89 31 39 38 30 00 68 0E 3A 07 8B 56 B3 |.1:.1980.h.:..V.|
00000660: B1 35 38 A7 31 35 30 30 00 82 0E 44 07 8D 32 35 |.58.1500...D..25|
00000670: 36 30 3A 8B 56 B2 33 32 B0 56 B2 35 38 A7 31 38 |60:.V.32.V.58.18|
00000680: 36 30 00 92 0E 58 07 8B 56 B2 31 34 33 A7 31 36 |60...X..V.143.16|
00000690: 33 30 00 A0 0E 62 07 8B 56 B2 30 A7 31 39 38 30 |30...b..V.0.1980|
000006A0: 00 B8 0E 6C 07 98 36 2C 22 3A 22 3B 3A 52 B2 52 |...l..6,":";:R.R|
000006B0: AA 31 3A 89 31 35 32 30 00 D1 0E BC 07 8B 46 B0 |.1:.1520......F.|
000006C0: 28 52 B1 31 37 30 29 A7 56 B2 30 3A 89 31 32 31 |(R.170).V.0:.121|
000006D0: 30 00 E8 0E C6 07 8D 32 35 34 30 3A 8B 56 AA 56 |0......2540:.V.V|
000006E0: 31 B2 30 A7 32 33 39 30 00 24 0F DA 07 8D 32 35 |1.0.2390.$....25|
000006F0: 34 30 3A 4C 4E B2 56 31 AA 28 32 35 36 AC 56 29 |40:LN.V1.(256.V)|
00000700: 3A 4C 31 B2 56 31 3A 4C 32 B2 56 3A 99 4C 4E 2C |:L1.V1:L2.V:.LN,|
00000710: 3A 81 58 B2 30 A4 4E 3A 8B 54 4C 28 58 29 B3 4C |:.X.0.N:.TL(X).L|
00000720: 4E A7 82 58 00 37 0F 34 08 8B 54 4C 28 58 29 B2 |N..X.7.4..TL(X).|
00000730: 4C 4E A7 32 32 37 30 00 4D 0F 7A 08 8D 32 35 36 |LN.2270.M.z..256|
00000740: 30 3A 8B 56 B2 31 34 33 A7 31 36 33 30 00 61 0F |0:.V.143.1630.a.|
00000750: 84 08 8B 56 B2 33 32 B0 56 B2 35 38 A7 32 31 37 |...V.32.V.58.217|
00000760: 30 00 6F 0F 8E 08 8B 56 B2 30 A7 31 39 39 30 00 |0.o....V.0.1990.|
00000770: 87 0F 98 08 98 36 2C 22 3A 22 3B 3A 52 B2 52 AA |.....6,":";:R.R.|
00000780: 31 3A 89 31 35 32 30 00 B2 0F DE 08 98 36 2C C7 |1:.1520......6,.|
00000790: 28 30 29 3B C7 28 31 29 3B C7 28 31 29 3B 3A 98 |(0);.(1);.(1);:.|
000007A0: 36 2C C7 28 4C 31 29 3B C7 28 4C 32 29 3B 3A 52 |6,.(L1);.(L2);:R|
000007B0: B2 34 00 CC 0F F2 08 8D 32 35 36 30 3A 8B 56 B2 |.4......2560:.V.|
000007C0: 33 32 B0 56 B2 35 38 A7 32 32 39 30 00 E3 0F 06 |32.V.58.2290....|
000007D0: 09 8B 56 B2 30 B0 56 B2 31 34 33 A7 98 36 2C 22 |..V.0.V.143..6,"|
000007E0: 3A 22 3B 00 F1 0F 10 09 46 B2 30 3A 89 31 35 32 |:";.....F.0:.152|
000007F0: 30 00 B9 10 56 09 98 36 2C C7 28 30 29 3B C7 28 |0...V..6,.(0);.(|
00000800: 30 29 3B C7 28 30 29 3B 3A A0 35 3A A0 36 3A A0 |0);.(0);:.5:.6:.|
00000810: 31 35 3A 99 22 93 11 11 11 12 4D 4F 44 49 46 59 |15:.".....MODIFY|
00000820: 20 50 48 41 53 45 20 43 4F 4D 50 4C 45 54 45 2D | PHASE COMPLETE-|
00000830: 44 4F 20 4E 4F 54 20 54 4F 55 43 48 20 54 48 45 |DO NOT TOUCH THE|
00000840: 20 20 20 20 20 20 4B 45 59 42 4F 41 52 44 20 59 | KEYBOARD Y|
00000850: 45 54 11 11 22 3A 81 4A B2 31 A4 33 30 30 30 3A |ET..":.J.1.3000:|
00000860: 82 4A 3A 51 24 B2 C7 28 33 34 29 3A 99 22 93 11 |.J:Q$..(34):."..|
00000870: 11 4C 4F 41 44 22 51 24 44 30 24 22 3A 22 46 4F |.LOAD"Q$D0$":"FO|
00000880: 24 51 24 22 2C 38 22 3A 99 22 11 11 11 11 43 4C |$Q$",8":."....CL|
00000890: 52 3A 53 59 53 34 32 32 39 31 22 3A 99 22 11 11 |R:SYS42291":."..|
000008A0: 53 41 56 45 22 51 24 22 40 22 44 4F 24 22 3A 22 |SAVE"Q$"@"DO$":"|
000008B0: 46 4F 24 51 24 22 2C 38 22 00 E0 10 92 09 97 31 |FO$Q$",8"......1|
000008C0: 39 38 2C 33 3A 81 4A B2 36 33 31 A4 36 33 33 3A |98,3:.J.631.633:|
000008D0: 97 4A 2C 31 33 3A 82 4A 3A 99 22 13 22 3B 3A 80 |.J,13:.J:.".";:.|
000008E0: 00 EF 10 EC 09 8D 32 35 36 30 3A 56 31 B2 56 00 |......2560:V1.V.|
000008F0: 0D 11 00 0A A1 23 35 2C 43 24 3A 8D 32 36 30 30 |.....#5,C$:.2600|
00000900: 3A 8B 43 24 B2 22 22 A7 56 B2 30 3A 8E 00 1B 11 |:.C$."".V.0:....|
00000910: 14 0A 56 B2 C6 28 43 24 29 3A 8E 00 38 11 28 0A |..V..(C$):..8.(.|
00000920: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
00000930: 3A 8B 45 4E B2 30 A7 8E 00 5F 11 46 0A 99 3A 99 |:.EN.0..._.F..:.|
00000940: 22 11 11 11 12 44 49 53 4B 20 45 52 52 4F 52 11 |"....DISK ERROR.|
00000950: 22 3A 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 |":.EN;EM$;ET;ES.|
00000960: 00 00 00 |... |
..H.H..:.TL(1000):.".".14)". COMPACTOR .
.":."THIS PROGRAM WILL COMPACT A PROGRAM
":."LOCATED ON ANY DRIVE BY DELETING ALL
REM":."NOTATIONS, BLANK LINES, AND BY L
INKING":."TOGETHER ALL POSSIBLE LINES.."
.W.6.."THE NEW COMPACTED PROGRAM WILL BE
SAVED":."TO ANY DISK DRIVE WITH THE SAM
E FILENAME":."BUT WITH A '/C' SUFFIX..":
.". INPUT FILE DRIVE #";DI$:.".OUTPUT FI
LE DRIVE #";DO$...H..".INPUT FILE NAME."
;FL$:.".SCANNING FILE":." FOR TARGET L
INES.......":.15,8,15:.2600:.5,8,5,DI$."
:".FL$.",P,R":.2600:.2540...V..2540:.V.V
1.0.950.'....2540:LN.V1.(256.V).1.&..256
0.>.0..V.0.470.S.:..V.137.V.141.640.C.D.
.V..167.550.L...LT.0......2560:.V.32.650
......V.48.V.57.740.....LT.(10.LT).E(C$)
:.2560:.660.L....X.0.N:.TL(X).LT.870....
..X:TL(N).LT:N.N.1:.LT,:.N.1000.870... .
."..TOO MANY TARGET LINES!":.2660.'.F..V
.44.640.6.P..V..32.560.E.Z..2560:.870.S.
...N.2.1060.{....X.0.N.1:.Y.0.N.2:.TL(Y)
.TL(X).1000.....V.TL(Y):TL(Y).TL(X):TL(X
).V......Y,X.7.$..".COMPACTING LINES....
..": 5:.5,8,5,DI$.":".FL$.",P,R":.2600:F
O$.H(FL$,14)."/C":.15,"S1:".FO$:.6,8,6,D
0$.":".FO$.",P,W":.2600:.2540:.6,G(V1);.
H....6,G(V);:R.0.N....2540:K1.V1:K2.V:F.
0:.V.V1.0.2390......2540:L1.V1:L2.V:LN.L
1.(256.L2):.LN,......2560:.V.32.V.58.131
0...2..V.0.1360.P.<..V..143.1400...F..25
60:.V.0.1350...P.F.1:.X.0.N:.TL(X).LN..X
...D..TL(X).LN.1400...N..1270.T.X..6,G(K
1);G(K2);:.6,G(L1);G(L2);:R.4:.F..6,":";
:R.5.B...F.0:.1520.S....6,C$;:R.R.1.}...
.2560......V.137.F.1......V.139.V.167.F.
1......V.0.1980......V.32.1510.O.T..V..1
43.1710...^..2560:.V.0.1630...H..1980...
...V..34.1850......6,C$;:R.R.1:.2560:.V.
34.1500.-.V..V.0.1720.>....F.V.0:.1210.X
....6,G(34);:R.R.1:.1980.H.:..V..58.1500
...D..2560:.V.32.V.58.1860...X..V.143.16
30. .B..V.0.1980...L..6,":";:R.R.1:.1520
.Q....F.(R.170).V.0:.1210...F..2540:.V.V
1.0.2390.$.Z..2540:LN.V1.(256.V):L1.V1:L
2.V:.LN,:.X.0.N:.TL(X).LN..X.7.4..TL(X).
LN.2270.M.Z..2560:.V.143.1630.A....V.32.
V.58.2170.O....V.0.1990......6,":";:R.R.
1:.1520......6,G(0);G(1);G(1);:.6,G(L1);
G(L2);:R.4.L....2560:.V.32.V.58.2290....
..V.0.V.143..6,":";.....F.0:.1520...V..6
,G(0);G(0);G(0);: 5: 6: 15:.".....MODIFY
PHASE COMPLETE-DO NOT TOUCH THE KE
YBOARD YET..":.J.1.3000:.J:Q$.G(34):."..
.LOAD"Q$D0$":"FO$Q$",8":."....CLR:SYS422
91":."..SAVE"Q$"@"DO$":"FO$Q$",8"......1
98,3:.J.631.633:.J,13:.J:.".";:.......25
60:V1.V......#5,C$:.2600:.C$."".V.0:....
..V.F(C$):..8.(..15,EN,EM$,ET,ES:.EN.0..
._.F..:."....DISK ERROR.":.EN;EM$;ET;ES.
...
> CLICK IMAGE PREVIEW FOR FULL MODAL