RECOVER
FILE INFORMATION
FILENAME(S): RECOVER
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:26:21
APPEARS ON: 1 disk(s)
FILE HASH
c18efc775a10bc05d79d42821ff889e384eb0dfc9c9941bd6eaa4d2abdb66c2d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZCP SOFTWARE B | RECOVER | PRG | DuncanTwain | 7 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 E8 03 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 2A 00 4B 08 F2 03 8F 20 2A 20 54 |******.K.... * T| 00000030: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |HIS PROGRAM WILL| 00000040: 20 52 45 43 4F 56 45 52 20 20 2A 00 70 08 FC 03 | RECOVER *.p...| 00000050: 8F 20 2A 20 4D 4F 53 54 20 4F 46 20 54 48 45 20 |. * MOST OF THE | 00000060: 44 41 54 41 20 4F 4E 20 41 20 20 20 20 20 20 2A |DATA ON A *| 00000070: 00 95 08 06 04 8F 20 2A 20 44 49 53 4B 45 54 54 |...... * DISKETT| 00000080: 45 20 57 48 45 4E 20 44 4F 53 20 20 20 20 20 20 |E WHEN DOS | 00000090: 20 20 20 20 2A 00 BA 08 10 04 8F 20 2A 20 45 4E | *...... * EN| 000000A0: 43 4F 55 4E 54 45 52 53 20 32 33 20 4F 52 20 32 |COUNTERS 23 OR 2| 000000B0: 34 20 52 45 41 44 20 20 20 2A 00 DF 08 1A 04 8F |4 READ *......| 000000C0: 20 2A 20 45 52 52 4F 52 2E 20 41 4E 59 20 45 52 | * ERROR. ANY ER| 000000D0: 52 4F 52 20 4F 54 48 45 52 20 20 20 20 20 2A 00 |ROR OTHER *.| 000000E0: 04 09 1F 04 8F 20 2A 20 54 48 41 4E 20 32 33 20 |..... * THAN 23 | 000000F0: 4F 52 20 32 34 20 57 49 4C 4C 20 43 41 55 53 45 |OR 24 WILL CAUSE| 00000100: 20 20 20 2A 00 29 09 24 04 8F 20 2A 20 54 48 45 | *.).$.. * THE| 00000110: 20 50 52 45 56 49 4F 55 53 20 53 45 43 54 4F 52 | PREVIOUS SECTOR| 00000120: 20 54 4F 20 42 45 20 20 2A 00 4E 09 2E 04 8F 20 | TO BE *.N.... | 00000130: 2A 20 57 52 49 54 54 45 4E 2E 20 20 20 20 20 20 |* WRITTEN. | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 | *.s| 00000150: 09 38 04 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.8.. * | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 2A 00 98 09 6A 04 8F 20 2A 2A 2A 2A 2A 2A | *...j.. ******| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 09 74 04 99 22 93 |********...t..".| 000001A0: 22 00 AE 09 7E 04 86 20 43 48 24 28 38 29 00 CB |"...~.. CH$(8)..| 000001B0: 09 88 04 48 58 24 20 B2 20 22 30 31 32 33 34 35 |...HX$ . "012345| 000001C0: 36 37 38 39 41 42 43 44 45 46 22 00 F1 09 92 04 |6789ABCDEF".....| 000001D0: 43 20 B2 20 33 3A 99 3A 85 20 22 11 54 4F 20 50 |C . 3:.:. ".TO P| 000001E0: 52 49 4E 54 45 52 A0 A0 A0 4E 9D 9D 9D 22 3B 41 |RINTER...N...";A| 000001F0: 24 00 08 0A 9C 04 8B 20 41 24 20 B2 20 22 59 22 |$...... A$ . "Y"| 00000200: 20 A7 20 43 20 B2 20 34 00 12 0A A6 04 9F 20 34 | . C . 4...... 4| 00000210: 2C 43 00 20 0A B0 04 9F 20 31 35 2C 38 2C 31 35 |,C. .... 15,8,15| 00000220: 00 53 0A CE 04 99 22 1D 1D 1D 1D 1D 11 11 11 11 |.S....".........| 00000230: 11 12 20 31 35 34 31 20 46 44 44 20 53 59 53 54 |.. 1541 FDD SYST| 00000240: 45 4D 20 55 53 45 20 4F 4E 4C 59 20 20 20 20 20 |EM USE ONLY | 00000250: 20 20 22 00 83 0A 1E 05 85 20 22 11 11 44 4F 20 | "...... "..DO | 00000260: 59 4F 55 20 57 49 53 48 20 54 4F 20 54 52 41 43 |YOU WISH TO TRAC| 00000270: 45 20 41 20 46 49 4C 45 A0 A0 A0 59 9D 9D 9D 22 |E A FILE...Y..."| 00000280: 3B 46 24 00 9A 0A 28 05 8B 20 46 24 20 B3 B1 20 |;F$...(.. F$ .. | 00000290: 22 59 22 20 A7 20 31 33 37 30 00 B1 0A 32 05 85 |"Y" . 1370...2..| 000002A0: 20 22 11 46 49 4C 45 20 4E 41 4D 45 22 3B 4E 4D | ".FILE NAME";NM| 000002B0: 24 00 D0 0A 3C 05 8D 20 32 33 31 30 20 20 3A 8F |$...<.. 2310 :.| 000002C0: 20 43 48 45 43 4B 20 46 49 4C 45 20 4E 41 4D 45 | CHECK FILE NAME| 000002D0: 00 FA 0A 46 05 8B 20 54 52 4B 20 B2 20 30 20 A7 |...F.. TRK . 0 .| 000002E0: 20 31 36 39 30 20 20 3A 8F 20 27 46 49 4C 45 20 | 1690 :. 'FILE | 000002F0: 4E 4F 54 20 46 4F 55 4E 44 27 00 15 0B 50 05 8D |NOT FOUND'...P..| 00000300: 20 32 36 34 30 3A 54 24 20 B2 20 22 59 22 3A 89 | 2640:T$ . "Y":.| 00000310: 20 31 34 37 30 00 48 0B 5A 05 99 20 22 11 11 11 | 1470.H.Z.. "...| 00000320: 49 4E 50 55 54 20 54 48 45 20 54 52 41 43 4B 20 |INPUT THE TRACK | 00000330: 41 4E 44 20 53 45 43 54 4F 52 20 54 4F 20 42 45 |AND SECTOR TO BE| 00000340: 20 54 52 41 4E 53 2D 22 00 74 0B 64 05 85 20 22 | TRANS-".t.d.. "| 00000350: 46 45 52 45 44 2E 20 20 41 20 30 20 46 4F 52 20 |FERED. A 0 FOR | 00000360: 54 52 41 43 4B 20 57 49 4C 4C 20 45 4E 44 2E 22 |TRACK WILL END."| 00000370: 3B 54 2C 53 00 91 0B 78 05 8B 20 54 B2 30 20 A7 |;T,S...x.. T.0 .| 00000380: 31 34 35 30 20 20 3A 8F 20 47 4F 54 4F 20 45 4E |1450 :. GOTO EN| 00000390: 44 00 A5 0B 82 05 54 52 4B 20 B2 20 54 3A 53 45 |D.....TRK . T:SE| 000003A0: 43 20 B2 20 53 00 CD 0B 8C 05 85 20 22 11 44 4F |C . S...... ".DO| 000003B0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 54 52 41 | YOU WISH TO TRA| 000003C0: 43 45 20 20 20 4E 9D 9D 9D 22 3B 54 24 00 E7 0B |CE N...";T$...| 000003D0: 96 05 8B 54 24 B3 B1 22 59 22 A7 5A 24 B2 22 59 |...T$.."Y".Z$."Y| 000003E0: 22 3A 89 31 34 38 30 00 F7 0B A0 05 8D 32 36 34 |":.1480......264| 000003F0: 30 3A 89 31 34 38 30 00 1C 0C A5 05 8F 20 2D 2D |0:.1480...... --| 00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 29 0C AA |------------.)..| 00000420: 05 A0 34 3A A0 31 35 3A 80 00 4E 0C AF 05 8F 20 |..4:.15:..N.... | 00000430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 5C |--------------.\| 00000450: 0C B4 05 87 20 54 52 4B 2C 53 45 43 00 83 0C BE |.... TRK,SEC....| 00000460: 05 8B 54 52 4B B2 30 A7 31 37 30 30 20 3A 8F 20 |..TRK.0.1700 :. | 00000470: 54 41 42 4C 45 20 53 54 4F 50 50 45 52 20 43 48 |TABLE STOPPER CH| 00000480: 45 43 4B 00 89 0C C8 05 8F 00 9D 0C D2 05 3A 20 |ECK...........: | 00000490: 81 20 53 20 B2 20 53 20 A4 20 53 45 43 00 B9 0C |. S . S . SEC...| 000004A0: DC 05 3A 20 20 20 8D 20 31 37 34 30 20 20 20 20 |..: . 1740 | 000004B0: 20 20 3A 8F 20 52 45 41 44 00 E9 0C E6 05 3A 20 | :. READ.....: | 000004C0: 20 20 43 4D 20 B2 20 31 31 AC 31 36 20 20 20 20 | CM . 11.16 | 000004D0: 20 20 3A 8F 20 53 45 45 4B 20 46 4F 52 20 49 44 | :. SEEK FOR ID| 000004E0: 20 4F 4E 20 44 52 49 56 45 00 0C 0D F0 05 3A 20 | ON DRIVE.....: | 000004F0: 20 20 8D 20 32 36 36 30 20 20 20 20 20 20 3A 8F | . 2660 :.| 00000500: 20 45 58 45 43 55 54 45 20 43 4D 44 00 32 0D FA | EXECUTE CMD.2..| 00000510: 05 3A 20 20 20 8D 20 32 39 32 30 20 20 20 20 20 |.: . 2920 | 00000520: 20 3A 8F 20 57 41 49 54 20 54 49 4C 4C 20 44 4F | :. WAIT TILL DO| 00000530: 4E 45 00 72 0D 04 06 3A 20 20 20 8D 20 32 35 37 |NE.r...: . 257| 00000540: 30 20 20 20 20 20 20 3A 8F 20 43 48 45 43 4B 20 |0 :. CHECK | 00000550: 46 4F 52 20 44 49 52 45 43 54 4F 52 59 20 48 45 |FOR DIRECTORY HE| 00000560: 41 44 45 52 20 46 4F 52 20 49 44 20 43 48 41 4E |ADER FOR ID CHAN| 00000570: 47 45 00 9E 0D 0E 06 3A 20 20 20 8D 20 31 38 33 |GE.....: . 183| 00000580: 30 20 20 20 20 20 20 3A 8F 20 43 48 45 43 4B 20 |0 :. CHECK | 00000590: 46 4F 52 20 42 4C 4F 43 4B 20 56 49 45 57 00 B9 |FOR BLOCK VIEW..| 000005A0: 0D 18 06 3A 20 20 20 8B 20 5A 24 20 B3 B1 20 22 |...: . Z$ .. "| 000005B0: 59 22 20 A7 20 31 35 38 30 00 E5 0D 22 06 3A 20 |Y" . 1580...".: | 000005C0: 20 20 8D 20 32 30 36 30 20 20 20 20 20 20 3A 8F | . 2060 :.| 000005D0: 20 41 53 4B 20 46 4F 52 20 42 59 54 45 20 43 48 | ASK FOR BYTE CH| 000005E0: 41 4E 47 45 53 00 19 0E 2C 06 3A 20 20 20 8D 20 |ANGES...,.: . | 000005F0: 32 38 39 30 20 20 20 20 20 20 3A 8F 20 57 52 49 |2890 :. WRI| 00000600: 54 45 20 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 |TE TRACK, SECTOR| 00000610: 20 54 4F 20 57 52 49 54 45 00 4B 0E 36 06 3A 20 | TO WRITE.K.6.: | 00000620: 20 20 43 4D 20 B2 20 39 AC 31 36 20 20 20 20 20 | CM . 9.16 | 00000630: 20 20 3A 8F 20 57 52 49 54 45 20 43 4F 4D 4D 41 | :. WRITE COMMA| 00000640: 4E 44 20 4F 4E 20 44 52 49 56 45 00 6E 0E 40 06 |ND ON DRIVE.n.@.| 00000650: 3A 20 20 20 8D 20 32 36 36 30 20 20 20 20 20 20 |: . 2660 | 00000660: 3A 8F 20 45 58 45 43 55 54 45 20 43 4D 44 00 94 |:. EXECUTE CMD..| 00000670: 0E 4A 06 3A 20 20 20 8D 20 32 39 32 30 20 20 20 |.J.: . 2920 | 00000680: 20 20 20 3A 8F 20 57 41 49 54 20 54 49 4C 4C 20 | :. WAIT TILL | 00000690: 44 4F 4E 45 00 B5 0E 54 06 3A 20 20 20 8D 20 32 |DONE...T.: . 2| 000006A0: 32 33 30 20 20 20 20 20 20 3A 8F 20 4E 45 58 54 |230 :. NEXT| 000006B0: 20 4C 49 4E 4B 00 CD 0E 5E 06 3A 20 20 20 8B 20 | LINK...^.: . | 000006C0: 54 24 B2 22 59 22 20 A7 20 31 34 37 30 00 D7 0E |T$."Y" . 1470...| 000006D0: 68 06 3A 20 82 20 53 00 F2 0E 90 06 89 20 31 37 |h.: . S...... 17| 000006E0: 30 30 20 20 20 3A 8F 20 47 4F 54 4F 20 42 45 47 |00 :. GOTO BEG| 000006F0: 49 4E 00 14 0F 9A 06 99 20 22 11 46 49 4C 45 20 |IN...... ".FILE | 00000700: 27 22 3B 4E 4D 24 3B 22 27 20 4E 4F 54 20 46 4F |'";NM$;"' NOT FO| 00000710: 55 4E 44 22 00 31 0F A4 06 9C 3A 8C 3A 89 20 31 |UND".1....:.:. 1| 00000720: 31 36 30 20 3A 8F 20 47 4F 54 4F 20 42 45 47 49 |160 :. GOTO BEGI| 00000730: 4E 00 56 0F A9 06 8F 20 2D 2D 2D 2D 2D 2D 20 48 |N.V.... ------ H| 00000740: 45 58 20 53 55 42 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |EX SUB ---------| 00000750: 2D 2D 2D 2D 2D 2D 00 78 0F AE 06 54 31 20 B2 20 |------.x...T1 . | 00000760: B5 28 4E AD 31 36 29 3A 48 24 B2 CA 28 48 58 24 |.(N.16):H$..(HX$| 00000770: 2C 54 31 AA 31 2C 31 29 00 A0 0F B8 06 54 32 20 |,T1.1,1).....T2 | 00000780: B2 20 B5 28 4E AB 31 36 AC 54 31 29 3A 48 24 B2 |. .(N.16.T1):H$.| 00000790: 48 24 AA CA 28 48 58 24 2C 54 32 AA 31 2C 31 29 |H$..(HX$,T2.1,1)| 000007A0: 00 B0 0F C2 06 48 24 B2 48 24 AA 22 20 22 3A 8E |.....H$.H$." ":.| 000007B0: 00 D4 0F C7 06 8F 20 2D 2D 2D 2D 2D 2D 20 52 45 |...... ------ RE| 000007C0: 41 44 20 42 4C 4F 43 4B 20 2D 2D 2D 2D 2D 2D 2D |AD BLOCK -------| 000007D0: 2D 2D 2D 2D 00 FB 0F CC 06 8D 20 32 38 39 30 20 |----...... 2890 | 000007E0: 20 20 20 20 20 3A 8F 20 57 52 49 54 45 20 54 52 | :. WRITE TR| 000007F0: 41 43 4B 20 54 4F 20 53 45 45 4B 00 27 10 D6 06 |ACK TO SEEK.'...| 00000800: 43 4D 20 B2 20 31 31 AC 31 36 20 20 20 20 20 20 |CM . 11.16 | 00000810: 3A 8F 20 53 45 45 4B 20 46 4F 52 20 49 44 20 4F |:. SEEK FOR ID O| 00000820: 4E 20 44 52 49 56 45 00 46 10 E0 06 8D 20 32 36 |N DRIVE.F.... 26| 00000830: 36 30 20 20 20 20 20 20 3A 8F 20 45 58 45 43 55 |60 :. EXECU| 00000840: 54 45 20 43 4D 44 00 68 10 EA 06 8D 20 32 39 32 |TE CMD.h.... 292| 00000850: 30 20 20 20 20 20 20 3A 8F 20 57 41 49 54 20 54 |0 :. WAIT T| 00000860: 49 4C 4C 20 44 4F 4E 45 00 97 10 F4 06 8D 20 32 |ILL DONE...... 2| 00000870: 38 39 30 20 20 20 20 20 20 3A 8F 20 57 52 49 54 |890 :. WRIT| 00000880: 45 20 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 20 |E TRACK, SECTOR | 00000890: 54 4F 20 52 45 41 44 00 C4 10 FE 06 43 4D 20 B2 |TO READ.....CM .| 000008A0: 20 38 AC 31 36 20 20 20 20 20 20 20 3A 8F 20 52 | 8.16 :. R| 000008B0: 45 41 44 20 43 4F 4D 4D 41 4E 44 20 4F 4E 20 44 |EAD COMMAND ON D| 000008C0: 52 49 56 45 00 E3 10 08 07 8D 20 32 36 36 30 20 |RIVE...... 2660 | 000008D0: 20 20 20 20 20 3A 8F 20 45 58 45 43 55 54 45 20 | :. EXECUTE | 000008E0: 43 4D 44 00 05 11 12 07 8D 20 32 39 32 30 20 20 |CMD...... 2920 | 000008F0: 20 20 20 20 3A 8F 20 57 41 49 54 20 54 49 4C 4C | :. WAIT TILL| 00000900: 20 44 4F 4E 45 00 0B 11 1C 07 8E 00 30 11 26 07 | DONE.......0.&.| 00000910: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------| 00000920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000930: 00 36 11 30 07 8F 00 58 11 3A 07 8B 5A 24 B2 22 |.6.0...X.:..Z$."| 00000940: 4E 22 A7 98 34 2C 22 46 49 4C 45 20 54 52 41 43 |N"..4,"FILE TRAC| 00000950: 45 22 3B 54 3B 53 3A 8E 00 83 11 44 07 98 34 3A |E";T;S:....D..4:| 00000960: 98 34 2C 22 56 49 45 57 49 4E 47 20 54 52 41 43 |.4,"VIEWING TRAC| 00000970: 4B 22 3B 54 3B 22 20 53 45 43 54 4F 52 22 3B 53 |K";T;" SECTOR";S| 00000980: 3A 98 34 00 BC 11 4E 07 85 20 22 11 11 44 4F 20 |:.4...N.. "..DO | 00000990: 59 4F 55 20 57 49 53 48 20 54 4F 20 56 49 45 57 |YOU WISH TO VIEW| 000009A0: 20 54 48 45 20 42 4C 4F 43 4B 28 59 2C 4E 2C 51 | THE BLOCK(Y,N,Q| 000009B0: 29 A0 A0 A0 59 9D 9D 9D 22 3B 57 24 00 CB 11 58 |)...Y...";W$...X| 000009C0: 07 8B 57 24 B2 22 51 22 A7 20 8E 00 DA 11 62 07 |..W$."Q". ....b.| 000009D0: 8B 57 24 B3 B1 22 59 22 A7 8E 00 0D 12 6C 07 99 |.W$.."Y".....l..| 000009E0: 20 22 11 48 49 54 20 12 53 50 41 43 45 92 20 54 | ".HIT .SPACE. T| 000009F0: 4F 20 48 41 4C 54 2F 52 45 53 54 41 52 54 2C 20 |O HALT/RESTART, | 00000A00: 12 53 92 20 54 4F 20 51 55 49 54 2C 22 00 2C 12 |.S. TO QUIT,".,.| 00000A10: 76 07 99 20 22 4F 52 20 12 43 92 20 54 4F 20 43 |v.. "OR .C. TO C| 00000A20: 48 41 4E 47 45 20 42 59 54 45 53 22 00 36 12 80 |HANGE BYTES".6..| 00000A30: 07 4B 20 B2 20 30 00 4C 12 8A 07 81 20 49 20 B2 |.K . 0.L.... I .| 00000A40: 20 30 20 A4 20 32 35 35 20 A9 20 38 00 57 12 94 | 0 . 255 . 8.W..| 00000A50: 07 8D 20 32 38 35 30 00 62 12 9E 07 8D 20 32 36 |.. 2850.b.... 26| 00000A60: 38 30 00 6E 12 A8 07 98 34 2C 22 20 22 3B 00 79 |80.n....4," ";.y| 00000A70: 12 B2 07 8D 20 32 38 31 30 00 8D 12 BC 07 A1 41 |.... 2810......A| 00000A80: 24 3A 8B 41 24 B2 22 22 A7 32 30 34 30 00 9E 12 |$:.A$."".2040...| 00000A90: C6 07 8B 41 24 B2 22 20 22 A7 32 30 33 30 00 AA |...A$." ".2030..| 00000AA0: 12 D0 07 8B 43 B2 34 A7 98 34 00 C9 12 DA 07 8B |....C.4..4......| 00000AB0: 41 24 B2 22 53 22 B0 41 24 B2 22 44 22 A7 49 B2 |A$."S".A$."D".I.| 00000AC0: 32 35 35 3A 89 32 30 34 30 00 F7 12 E4 07 8B 41 |255:.2040......A| 00000AD0: 24 B2 22 43 22 A7 47 31 B2 49 3A 47 32 B2 4B 3A |$."C".G1.I:G2.K:| 00000AE0: 8D 20 32 30 39 30 3A 49 B2 47 31 3A 4B B2 47 32 |. 2090:I.G1:K.G2| 00000AF0: 3A 89 20 32 30 34 30 00 0D 13 EE 07 A1 41 24 3A |:. 2040......A$:| 00000B00: 8B 41 24 B3 B1 22 20 22 A7 32 30 31 30 00 18 13 |.A$.." ".2010...| 00000B10: F8 07 98 34 3A 82 20 49 00 1E 13 02 08 8E 00 43 |...4:. I.......C| 00000B20: 13 07 08 8F 20 2D 2D 2D 2D 2D 2D 20 4D 45 4D 4F |.... ------ MEMO| 00000B30: 52 59 20 43 48 41 4E 47 45 20 2D 2D 2D 2D 2D 2D |RY CHANGE ------| 00000B40: 2D 2D 2D 00 54 13 0C 08 8B 20 41 24 B2 22 53 22 |---.T.... A$."S"| 00000B50: 20 A7 20 8E 00 7A 13 16 08 99 3A 85 20 22 11 41 | . ..z....:. ".A| 00000B60: 4E 59 20 42 59 54 45 20 43 48 41 4E 47 45 53 A0 |NY BYTE CHANGES.| 00000B70: A0 A0 4E 9D 9D 9D 22 3B 43 24 00 8E 13 20 08 8B |..N...";C$... ..| 00000B80: 20 43 24 20 B3 B1 20 22 59 22 20 A7 20 8E 00 AF | C$ .. "Y" . ...| 00000B90: 13 2A 08 99 3A 99 20 22 11 48 49 54 20 27 51 27 |.*..:. ".HIT 'Q'| 00000BA0: 20 57 48 45 4E 20 46 49 4E 49 53 48 45 44 22 00 | WHEN FINISHED".| 00000BB0: CB 13 34 08 85 20 22 11 50 4F 53 49 54 49 4F 4E |..4.. ".POSITION| 00000BC0: A0 A0 A0 51 9D 9D 9D 22 3B 50 24 00 E3 13 3E 08 |...Q...";P$...>.| 00000BD0: 8B 20 50 24 20 B2 20 22 51 22 20 A7 20 49 B2 54 |. P$ . "Q" . I.T| 00000BE0: 4D 3A 8E 00 F3 13 48 08 4B B2 C5 28 50 24 29 3A |M:....H.K..(P$):| 00000BF0: 49 B2 4B 00 FF 13 52 08 A0 34 3A 9F 34 2C 33 00 |I.K...R..4:.4,3.| 00000C00: 22 14 5C 08 98 34 3A 8D 20 32 38 35 30 3A 8D 32 |".\..4:. 2850:.2| 00000C10: 36 38 30 3A 98 34 2C 22 20 22 3B 3A 8D 20 32 38 |680:.4," ";:. 28| 00000C20: 31 30 00 2E 14 66 08 A0 34 3A 9F 34 2C 43 00 45 |10...f..4:.4,C.E| 00000C30: 14 70 08 99 3A 85 20 22 11 20 20 20 42 59 54 45 |.p..:. ". BYTE| 00000C40: 3D 22 3B 42 24 00 5B 14 7A 08 8B 20 42 24 20 B2 |=";B$.[.z.. B$ .| 00000C50: 20 22 45 22 20 A7 20 32 31 30 30 00 6A 14 84 08 | "E" . 2100.j...| 00000C60: 4E 42 20 B2 20 C5 28 50 24 29 00 8B 14 8E 08 8B |NB . .(P$)......| 00000C70: 20 C8 28 42 24 2C 31 29 B2 22 24 22 A7 20 8D 20 | .(B$,1)."$". . | 00000C80: 32 39 36 30 3A 89 20 32 32 31 30 00 98 14 98 08 |2960:. 2210.....| 00000C90: 54 50 B2 C5 28 42 24 29 00 B8 14 A2 08 98 31 35 |TP..(B$)......15| 00000CA0: 2C 22 4D 2D 57 22 C7 28 4E 42 29 C7 28 33 29 C7 |,"M-W".(NB).(3).| 00000CB0: 28 31 29 C7 28 54 50 29 00 C3 14 AC 08 89 20 32 |(1).(TP)...... 2| 00000CC0: 31 30 30 00 D5 14 B6 08 8B 20 54 24 B3 B1 22 59 |100...... T$.."Y| 00000CD0: 22 20 A7 20 8E 00 EB 14 C0 08 98 31 35 2C 22 4D |" . .......15,"M| 00000CE0: 2D 52 22 C7 28 30 29 C7 28 33 29 00 02 15 CA 08 |-R".(0).(3).....| 00000CF0: A1 23 31 35 2C 41 24 3A 41 24 B2 41 24 AA C7 28 |.#15,A$:A$.A$..(| 00000D00: 30 29 00 18 15 D4 08 54 20 B2 20 C6 28 41 24 29 |0).....T . .(A$)| 00000D10: 3A 54 52 4B 20 B2 20 54 00 2E 15 DE 08 98 31 35 |:TRK . T......15| 00000D20: 2C 22 4D 2D 52 22 C7 28 31 29 C7 28 33 29 00 45 |,"M-R".(1).(3).E| 00000D30: 15 E8 08 A1 23 31 35 2C 41 24 3A 41 24 B2 41 24 |....#15,A$:A$.A$| 00000D40: AA C7 28 30 29 00 5B 15 F2 08 53 20 B2 20 C6 28 |..(0).[...S . .(| 00000D50: 41 24 29 3A 53 45 43 20 B2 20 53 00 61 15 FC 08 |A$):SEC . S.a...| 00000D60: 8E 00 86 15 06 09 8F 20 2D 2D 2D 2D 2D 20 46 49 |....... ----- FI| 00000D70: 4C 45 20 4E 41 4D 45 20 43 48 45 43 4B 20 53 55 |LE NAME CHECK SU| 00000D80: 42 20 2D 2D 2D 2D 00 97 15 10 09 54 20 B2 20 31 |B ----.....T . 1| 00000D90: 38 3A 53 20 B2 20 31 00 B8 15 1A 09 8D 20 31 37 |8:S . 1...... 17| 00000DA0: 34 30 20 20 20 20 3A 8F 20 52 45 41 44 20 54 52 |40 :. READ TR| 00000DB0: 4B 31 38 2C 53 45 43 31 00 CF 15 24 09 81 20 4E |K18,SEC1...$.. N| 00000DC0: 20 B2 20 35 20 A4 20 32 32 39 20 A9 20 33 32 00 | . 5 . 229 . 32.| 00000DD0: DD 15 2E 09 3A 20 52 24 20 B2 20 22 22 00 F0 15 |....: R$ . ""...| 00000DE0: 38 09 3A 20 81 20 4D 20 B2 20 30 20 A4 20 31 35 |8.: . M . 0 . 15| 00000DF0: 00 0C 16 42 09 3A 20 20 20 98 31 35 2C 22 4D 2D |...B.: .15,"M-| 00000E00: 52 22 C7 28 4E AA 4D 29 C7 28 33 29 00 2B 16 4C |R".(N.M).(3).+.L| 00000E10: 09 3A 20 20 20 A1 23 31 35 2C 41 24 3A 41 24 20 |.: .#15,A$:A$ | 00000E20: B2 20 41 24 20 AA 20 C7 28 30 29 00 48 16 56 09 |. A$ . .(0).H.V.| 00000E30: 3A 20 20 20 8B 20 C6 28 41 24 29 20 B2 20 31 36 |: . .(A$) . 16| 00000E40: 30 20 A7 20 32 34 32 30 00 63 16 60 09 3A 20 20 |0 . 2420.c.`.: | 00000E50: 20 8B 20 C6 28 41 24 29 20 B2 20 30 20 A7 20 32 | . .(A$) . 0 . 2| 00000E60: 34 34 30 00 7D 16 6A 09 3A 20 20 20 52 24 20 B2 |440.}.j.: R$ .| 00000E70: 20 52 24 20 AA 20 C8 28 41 24 2C 31 29 00 87 16 | R$ . .(A$,1)...| 00000E80: 74 09 3A 20 82 20 4D 00 9F 16 7E 09 3A 20 8B 20 |t.: . M...~.: . | 00000E90: 52 24 20 B2 20 4E 4D 24 20 A7 20 32 34 38 30 00 |R$ . NM$ . 2480.| 00000EA0: A7 16 88 09 82 20 4E 00 C4 16 92 09 8D 20 32 32 |..... N...... 22| 00000EB0: 34 30 20 20 3A 8F 20 47 45 54 20 4E 45 58 54 20 |40 :. GET NEXT | 00000EC0: 4C 49 4E 4B 00 DA 16 9C 09 8B 20 54 52 4B 20 B3 |LINK...... TRK .| 00000ED0: B1 20 30 20 A7 20 32 33 33 30 00 E0 16 A6 09 8E |. 0 . 2330......| 00000EE0: 00 EC 16 B0 09 4E 20 B2 20 4E AB 32 00 02 17 BA |.....N . N.2....| 00000EF0: 09 98 31 35 2C 22 4D 2D 52 22 C7 28 4E 29 C7 28 |..15,"M-R".(N).(| 00000F00: 33 29 00 19 17 C4 09 A1 23 31 35 2C 41 24 3A 41 |3)......#15,A$:A| 00000F10: 24 B2 41 24 AA C7 28 30 29 00 2B 17 CE 09 54 B2 |$.A$..(0).+...T.| 00000F20: C6 28 41 24 29 3A 54 52 4B B2 54 00 37 17 D8 09 |.(A$):TRK.T.7...| 00000F30: 4E 20 B2 20 4E AA 31 00 4D 17 E2 09 98 31 35 2C |N . N.1.M....15,| 00000F40: 22 4D 2D 52 22 C7 28 4E 29 C7 28 33 29 00 64 17 |"M-R".(N).(3).d.| 00000F50: EC 09 A1 23 31 35 2C 41 24 3A 41 24 B2 41 24 AA |...#15,A$:A$.A$.| 00000F60: C7 28 30 29 00 76 17 F6 09 53 B2 C6 28 41 24 29 |.(0).v...S..(A$)| 00000F70: 3A 53 45 43 B2 53 00 7C 17 00 0A 8E 00 97 17 0A |:SEC.S.|........| 00000F80: 0A 8B 20 54 20 B3 B1 20 31 38 20 B0 20 53 20 B3 |.. T .. 18 . S .| 00000F90: B1 20 30 20 A7 20 8E 00 A7 17 14 0A 81 20 49 20 |. 0 . ....... I | 00000FA0: B2 20 30 20 A4 20 31 00 C1 17 1E 0A 98 31 35 2C |. 0 . 1......15,| 00000FB0: 22 4D 2D 52 22 C7 28 31 36 32 AA 49 29 C7 28 33 |"M-R".(162.I).(3| 00000FC0: 29 00 DC 17 28 0A A1 23 31 35 2C 41 24 3A 41 24 |)...(..#15,A$:A$| 00000FD0: 20 B2 20 41 24 20 AA 20 C7 28 30 29 00 02 18 32 | . A$ . .(0)...2| 00000FE0: 0A 98 31 35 2C 22 4D 2D 57 22 C7 28 31 36 32 AA |..15,"M-W".(162.| 00000FF0: 49 29 C7 28 33 29 C7 28 31 29 C7 28 C6 28 41 24 |I).(3).(1).(.(A$| 00001000: 29 29 00 0A 18 3C 0A 82 20 49 00 10 18 46 0A 8E |))...<.. I...F..| 00001010: 00 46 18 50 0A 99 3A 85 20 22 11 57 49 4C 4C 20 |.F.P..:. ".WILL | 00001020: 59 4F 55 20 57 41 4E 54 20 54 4F 20 56 45 49 57 |YOU WANT TO VEIW| 00001030: 20 41 4E 59 20 42 4C 4F 43 4B 53 A0 A0 A0 59 9D | ANY BLOCKS...Y.| 00001040: 9D 9D 22 3B 5A 24 00 4C 18 5A 0A 8E 00 6B 18 64 |..";Z$.L.Z...k.d| 00001050: 0A 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 |..15,"M-W".(0).(| 00001060: 30 29 C7 28 31 29 C7 28 43 4D 29 00 71 18 6E 0A |0).(1).(CM).q.n.| 00001070: 8E 00 81 18 78 0A 81 20 4A 20 B2 20 30 20 A4 20 |....x.. J . 0 . | 00001080: 37 00 97 18 82 0A 98 31 35 2C 22 4D 2D 52 22 C7 |7......15,"M-R".| 00001090: 28 4B 29 C7 28 33 29 00 B2 18 8C 0A A1 23 31 35 |(K).(3)......#15| 000010A0: 2C 41 24 3A 41 24 20 B2 20 41 24 20 AA 20 C7 28 |,A$:A$ . A$ . .(| 000010B0: 30 29 00 C7 18 96 0A 4E 20 B2 20 C6 28 41 24 29 |0).....N . .(A$)| 000010C0: 3A 8D 20 31 37 31 30 00 FC 18 A0 0A 8B 28 4E B1 |:. 1710......(N.| 000010D0: 33 31 AF 4E B3 39 36 AF 4E B3 B1 33 34 29 B0 28 |31.N.96.N..34).(| 000010E0: 4E B1 31 39 31 AF 4E B3 32 31 39 29 A7 43 48 24 |N.191.N.219).CH$| 000010F0: 28 4A 29 B2 41 24 3A 89 32 37 34 30 00 0D 19 AA |(J).A$:.2740....| 00001100: 0A 43 48 24 28 4A 29 20 B2 20 22 2E 22 00 18 19 |.CH$(J) . "."...| 00001110: B4 0A 98 34 2C 48 24 3B 00 26 19 BE 0A 4B 20 B2 |...4,H$;.&...K .| 00001120: 20 4B 20 AA 20 31 00 3B 19 C8 0A 8B 20 4B 20 B1 | K . 1.;.... K .| 00001130: 20 32 35 35 20 A7 20 32 37 39 30 00 43 19 D2 0A | 255 . 2790.C...| 00001140: 82 20 4A 00 4D 19 DC 0A 4A B2 4A AB 31 00 57 19 |. J.M...J.J.1.W.| 00001150: E6 0A 55 20 B2 20 4A 00 5D 19 F0 0A 8E 00 6D 19 |..U . J.].....m.| 00001160: FA 0A 81 20 4A 20 B2 20 30 20 A4 20 55 00 7C 19 |... J . 0 . U.|.| 00001170: 04 0B 98 34 2C 43 48 24 28 4A 29 3B 00 84 19 0E |...4,CH$(J);....| 00001180: 0B 82 20 4A 00 8A 19 18 0B 8E 00 B2 19 22 0B 8B |.. J........."..| 00001190: 20 49 20 B3 20 31 30 20 A7 20 98 34 2C 22 20 20 | I . 10 . .4," | 000011A0: 9D 22 3B 49 3B 22 9D 3A 20 22 3B 3A 89 20 32 38 |.";I;".: ";:. 28| 000011B0: 38 30 00 DA 19 2C 0B 8B 20 49 20 B3 20 31 30 30 |80...,.. I . 100| 000011C0: 20 A7 20 98 34 2C 22 20 9D 22 3B 49 3B 22 9D 3A | . .4," .";I;".:| 000011D0: 20 22 3B 3A 89 20 32 38 38 30 00 EE 19 36 0B 98 | ";:. 2880...6..| 000011E0: 34 2C 22 9D 22 3B 49 3B 22 9D 3A 20 22 3B 00 F4 |4,".";I;".: ";..| 000011F0: 19 40 0B 8E 00 16 1A 4A 0B 98 31 35 2C 22 4D 2D |.@.....J..15,"M-| 00001200: 57 22 C7 28 36 29 C7 28 30 29 C7 28 32 29 C7 28 |W".(6).(0).(2).(| 00001210: 54 29 C7 28 53 29 00 4A 1A 54 0B 8F 20 2A 2A 20 |T).(S).J.T.. ** | 00001220: 50 52 49 4E 54 23 31 35 2C 22 4D 2D 57 22 43 48 |PRINT#15,"M-W"CH| 00001230: 52 24 28 30 29 43 48 52 24 28 30 29 43 48 52 24 |R$(0)CHR$(0)CHR$| 00001240: 28 31 29 43 48 52 24 28 54 29 00 50 1A 5E 0B 8E |(1)CHR$(T).P.^..| 00001250: 00 66 1A 68 0B 98 31 35 2C 22 4D 2D 52 22 C7 28 |.f.h..15,"M-R".(| 00001260: 30 29 C7 28 30 29 00 7D 1A 72 0B A1 23 31 35 2C |0).(0).}.r..#15,| 00001270: 41 24 3A 41 24 B2 41 24 AA C7 28 30 29 00 96 1A |A$:A$.A$..(0)...| 00001280: 7C 0B 8B 20 C6 28 41 24 29 20 B1 20 31 32 37 20 ||.. .(A$) . 127 | 00001290: A7 20 32 39 32 30 00 9C 1A 86 0B 8E 00 AD 1A 90 |. 2920..........| 000012A0: 0B 53 24 B2 CA 28 42 24 2C 32 2C 31 29 00 D5 1A |.S$..(B$,2,1)...| 000012B0: 9A 0B 8B 20 C6 28 53 24 29 B1 36 34 A7 20 54 50 |... .(S$).64. TP| 000012C0: B2 28 C6 28 53 24 29 AB 35 35 29 AC 31 36 3A 89 |.(.(S$).55).16:.| 000012D0: 20 32 39 39 30 00 E5 1A A4 0B 54 50 B2 C5 28 53 | 2990.....TP..(S| 000012E0: 24 29 AC 31 36 00 F6 1A AE 0B 53 24 B2 CA 28 42 |$).16.....S$..(B| 000012F0: 24 2C 33 2C 31 29 00 17 1B B8 0B 8B 20 C6 28 53 |$,3,1)...... .(S| 00001300: 24 29 B1 36 34 A7 20 54 50 B2 54 50 AA C6 28 53 |$).64. TP.TP..(S| 00001310: 24 29 AB 35 35 3A 8E 00 29 1B C2 0B 54 50 B2 54 |$).55:..)...TP.T| 00001320: 50 AA C5 28 53 24 29 3A 8E 00 52 1B D6 0B 83 20 |P..(S$):..R.... | 00001330: 31 37 2C 32 30 2C 32 34 2C 31 38 2C 33 30 2C 31 |17,20,24,18,30,1| 00001340: 37 2C 33 35 2C 31 36 2C 30 2C 30 3A 8F 20 31 35 |7,35,16,0,0:. 15| 00001350: 34 31 00 00 00 |41... |
..&.... ******************************.K
.... * THIS PROGRAM WILL RECOVER *.P...
. * MOST OF THE DATA ON A *...... *
DISKETTE WHEN DOS *...... * EN
COUNTERS 23 OR 24 READ *...... * ERROR
. ANY ERROR OTHER *...... * THAN 23
OR 24 WILL CAUSE *.).$.. * THE PREVIOU
S SECTOR TO BE *.N.... * WRITTEN.
*.S.8.. *
*...J.. **********************
********...T.."."...~.. CH$(8).K...HX$ .
"0123456789ABCDEF".....C . 3:.:. ".TO P
RINTER N...";A$...... A$ . "Y" . C . 4
...... 4,C. .... 15,8,15.S.N..".........
.. 1541 FDD SYSTEM USE ONLY ".....
. "..DO YOU WISH TO TRACE A FILE Y..."
;F$...(.. F$ .. "Y" . 1370...2.. ".FILE
NAME";NM$.P.<.. 2310 :. CHECK FILE NAME
...F.. TRK . 0 . 1690 :. 'FILE NOT FOUN
D'...P.. 2640:T$ . "Y":. 1470.H.Z.. "...
INPUT THE TRACK AND SECTOR TO BE TRANS-"
.T.D.. "FERED. A 0 FOR TRACK WILL END."
;T,S...X.. T.0 .1450 :. GOTO END.....TR
K . T:SEC . S.M.... ".DO YOU WISH TO TRA
CE N...";T$......T$.."Y".Z$."Y":.1480.
.. ..2640:.1480...... ------------------
------------.)... 4: 15:..N.... --------
----------------------.\.... TRK,SEC....
..TRK.0.1700 :. TABLE STOPPER CHECK...H.
....R.: . S . S . SEC.....: . 1740
:. READ.....: CM . 11.16 :. SEE
K FOR ID ON DRIVE.....: . 2660 :.
EXECUTE CMD.2...: . 2920 :. WAIT
TILL DONE.R...: . 2570 :. CHECK
FOR DIRECTORY HEADER FOR ID CHANGE.....:
. 1830 :. CHECK FOR BLOCK VIEW..
...: . Z$ .. "Y" . 1580...".: . 2060
:. ASK FOR BYTE CHANGES...,.: .
2890 :. WRITE TRACK, SECTOR TO WRIT
E.K.6.: CM . 9.16 :. WRITE COMMA
ND ON DRIVE.N.@.: . 2660 :. EXECU
TE CMD...J.: . 2920 :. WAIT TILL
DONE...T.: . 2230 :. NEXT LINK.M.
^.: . T$."Y" . 1470.W.H.: . S...... 17
00 :. GOTO BEGIN...... ".FILE '";NM$;"
' NOT FOUND".1....:.:. 1160 :. GOTO BEGI
N.V.... ------ HEX SUB ---------------.X
...T1 . .(N.16):H$.J(HX$,T1.1,1). ...T2
. .(N.16.T1):H$.H$.J(HX$,T2.1,1)...B.H$.
H$." ":..T.G.. ------ READ BLOCK -------
----...L.. 2890 :. WRITE TRACK TO S
EEK.'.V.CM . 11.16 :. SEEK FOR ID O
N DRIVE.F.... 2660 :. EXECUTE CMD.H
.... 2920 :. WAIT TILL DONE...... 2
890 :. WRITE TRACK, SECTOR TO READ.
D...CM . 8.16 :. READ COMMAND ON D
RIVE...... 2660 :. EXECUTE CMD.....
. 2920 :. WAIT TILL DONE.......0.&.
. ------------------------------.6.0...X
.:..Z$."N"..4,"FILE TRACE";T;S:....D..4:
.4,"VIEWING TRACK";T;" SECTOR";S:.4...N.
. "..DO YOU WISH TO VIEW THE BLOCK(Y,N,Q
) Y...";W$.K.X..W$."Q". ..Z.B..W$.."Y"
.....L.. ".HIT .SPACE. TO HALT/RESTART,
.S. TO QUIT,".,.V.. "OR .C. TO CHANGE BY
TES".6...K . 0.L.... I . 0 . 255 . 8.W..
.. 2850.B.... 2680.N....4," ";.Y.... 281
0......A$:.A$."".2040...F..A$." ".2030..
.P..C.4..4.I.Z..A$."S".A$."D".I.255:.204
0......A$."C".G1.I:G2.K:. 2090:I.G1:K.G2
:. 2040......A$:.A$.." ".2010......4:. I
.......C.... ------ MEMORY CHANGE ------
---.T.... A$."S" . ..Z....:. ".ANY BYTE
CHANGES N...";C$... .. C$ .. "Y" . ...
.*..:. ".HIT 'Q' WHEN FINISHED".K.4.. ".
POSITION Q...";P$...>.. P$ . "Q" . I.T
M:....H.K.E(P$):I.K...R. 4:.4,3.".\..4:.
2850:.2680:.4," ";:. 2810...F. 4:.4,C.E
.P..:. ". BYTE=";B$.[.Z.. B$ . "E" . 2
100.J...NB . E(P$)...... H(B$,1)."$". .
2960:. 2210.....TP.E(B$)......15,"M-W"G(
NB)G(3)G(1)G(TP).C.... 2100.U.... T$.."Y
" . .......15,"M-R"G(0)G(3)...J..#15,A$:
A$.A$.G(0)...T.T . F(A$):TRK . T......15
,"M-R"G(1)G(3).E....#15,A$:A$.A$.G(0).[.
..S . F(A$):SEC . S.A.......... ----- FI
LE NAME CHECK SUB ----.....T . 18:S . 1.
..... 1740 :. READ TRK18,SEC1.O.$.. N
. 5 . 229 . 32.....: R$ . ""...8.: . M
. 0 . 15...B.: .15,"M-R"G(N.M)G(3).+.L
.: .#15,A$:A$ . A$ . G(0).H.V.: . F(
A$) . 160 . 2420.C.`.: . F(A$) . 0 . 2
440.}.J.: R$ . R$ . H(A$,1)...T.: . M.
..~.: . R$ . NM$ . 2480...... N.D.... 22
40 :. GET NEXT LINK.Z.... TRK .. 0 . 23
30...........N . N.2......15,"M-R"G(N)G(
3)...D..#15,A$:A$.A$.G(0).+.N.T.F(A$):TR
K.T.7.X.N . N.1.M....15,"M-R"G(N)G(3).D.
...#15,A$:A$.A$.G(0).V...S.F(A$):SEC.S.|
.......... T .. 18 . S .. 0 . ....... I
. 0 . 1.A....15,"M-R"G(162.I)G(3)...(..#
15,A$:A$ . A$ . G(0)...2..15,"M-W"G(162.
I)G(3)G(1)G(F(A$))...<.. I...F...F.P..:.
".WILL YOU WANT TO VEIW ANY BLOCKS Y.
..";Z$.L.Z...K.D..15,"M-W"G(0)G(0)G(1)G(
CM).Q.N.....X.. J . 0 . 7......15,"M-R"G
(K)G(3)......#15,A$:A$ . A$ . G(0).G...N
. F(A$):. 1710... ..(N.31.N.96.N..34).(
N.191.N.219).CH$(J).A$:.2740.....CH$(J)
. "."......4,H$;.&...K . K . 1.;.H.. K .
255 . 2790.C.R.. J.M...J.J.1.W...U . J.
].....M.... J . 0 . U.|....4,CH$(J);....
.. J.........".. I . 10 . .4," .";I;".:
";:. 2880.Z.,.. I . 100 . .4," .";I;".:
";:. 2880...6..4,".";I;".: ";...@.....J
..15,"M-W"G(6)G(0)G(2)G(T)G(S).J.T.. **
PRINT#15,"M-W"CHR$(0)CHR$(0)CHR$(1)CHR$(
T).P.^...F.H..15,"M-R"G(0)G(0).}.R..#15,
A$:A$.A$.G(0)...|.. F(A$) . 127 . 2920..
.........S$.J(B$,2,1).U.... F(S$).64. TP
.(F(S$).55).16:. 2990.....TP.E(S$).16...
..S$.J(B$,3,1)...... F(S$).64. TP.TP.F(S
$).55:..).B.TP.TP.E(S$):..R.V.. 17,20,24
,18,30,17,35,16,0,0:. 1541...
> CLICK IMAGE PREVIEW FOR FULL MODAL