VALIDATE A DISK

00000000: 01 08 28 08 0A 00 8F 20  2A 49 4E 53 49 44 45 20  |..(.... *INSIDE |
00000010: 43 4F 4D 4D 4F 44 4F 52  45 20 44 4F 53 2A 20 2A  |COMMODORE DOS* *|
00000020: 50 47 2E 20 34 36 31 2A  00 3F 08 14 00 8F 20 2A  |PG. 461*.?.... *|
00000030: 4A 4A 4D 2A 20 20 20 2A  30 34 31 39 38 37 2A 00  |JJM*   *041987*.|
00000040: 60 08 64 00 8F 20 56 41  4C 49 44 41 54 45 20 41  |`.d.. VALIDATE A|
00000050: 20 44 49 53 4B 45 54 54  45 20 2D 20 31 35 34 31  | DISKETTE - 1541|
00000060: 00 66 08 6E 00 9C 00 86  08 78 00 43 44 24 B2 22  |.f.n.....x.CD$."|
00000070: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000080: 11 11 11 11 11 22 00 A3  08 82 00 86 46 24 28 31  |....."......F$(1|
00000090: 34 33 29 2C 54 25 28 31  34 33 29 2C 53 25 28 31  |43),T%(143),S%(1|
000000A0: 34 33 29 00 C6 08 8C 00  99 22 93 56 41 4C 49 44  |43)......".VALID|
000000B0: 41 54 45 20 41 20 44 49  53 4B 45 54 54 45 20 2D  |ATE A DISKETTE -|
000000C0: 20 31 35 34 31 22 00 E7  08 96 00 99 22 11 49 4E  | 1541"......".IN|
000000D0: 53 45 52 54 20 44 49 53  4B 45 54 54 45 20 49 4E  |SERT DISKETTE IN|
000000E0: 20 44 52 49 56 45 22 00  0A 09 A0 00 99 22 11 50  | DRIVE"......".P|
000000F0: 52 45 53 53 20 12 52 45  54 55 52 4E 92 20 54 4F  |RESS .RETURN. TO|
00000100: 20 43 4F 4E 54 49 4E 55  45 22 00 1D 09 AA 00 A1  | CONTINUE"......|
00000110: 43 24 3A 8B 43 24 B2 22  22 A7 31 37 30 00 30 09  |C$:.C$."".170.0.|
00000120: B4 00 8B 43 24 B3 B1 C7  28 31 33 29 89 31 37 30  |...C$...(13).170|
00000130: 00 3A 09 BE 00 99 22 4F  4B 22 00 47 09 C8 00 9F  |.:...."OK".G....|
00000140: 31 35 2C 38 2C 31 35 00  54 09 D2 00 98 31 35 2C  |15,8,15.T....15,|
00000150: 22 49 30 22 00 6C 09 DC  00 84 31 35 2C 45 4E 24  |"I0".l....15,EN$|
00000160: 2C 45 4D 24 2C 45 54 24  2C 45 53 24 00 7E 09 E6  |,EM$,ET$,ES$.~..|
00000170: 00 8B 45 4E 24 B2 22 30  30 22 89 32 37 30 00 9D  |..EN$."00".270..|
00000180: 09 F0 00 99 22 11 22 45  4E 24 22 2C 20 22 45 4D  |...."."EN$", "EM|
00000190: 24 22 2C 22 45 54 24 22  2C 22 45 53 24 00 A5 09  |$","ET$","ES$...|
000001A0: FA 00 A0 31 35 00 AB 09  04 01 80 00 C8 09 0E 01  |...15...........|
000001B0: 99 22 11 12 46 45 54 43  48 49 4E 47 92 20 44 49  |."..FETCHING. DI|
000001C0: 52 45 43 54 4F 52 59 22  00 DC 09 18 01 9F 32 2C  |RECTORY"......2,|
000001D0: 38 2C 32 2C 22 24 30 2C  53 2C 52 22 00 F4 09 22  |8,2,"$0,S,R"..."|
000001E0: 01 84 31 35 2C 45 4E 24  2C 45 4D 24 2C 45 54 24  |..15,EN$,EM$,ET$|
000001F0: 2C 45 53 24 00 06 0A 2C  01 8B 45 4E 24 B2 22 30  |,ES$...,..EN$."0|
00000200: 30 22 89 33 32 30 00 0F  0A 36 01 89 32 34 30 00  |0".320...6..240.|
00000210: 1C 0A 40 01 81 49 B2 30  A4 32 35 33 00 27 0A 4A  |..@..I.0.253.'.J|
00000220: 01 A1 23 32 2C 42 24 00  2E 0A 54 01 82 49 00 36  |..#2,B$...T..I.6|
00000230: 0A 5E 01 4E B2 30 00 41  0A 68 01 81 4A B2 30 A4  |.^.N.0.A.h..J.0.|
00000240: 37 00 4C 0A 72 01 A1 23  32 2C 42 24 00 5F 0A 7C  |7.L.r..#2,B$._.||
00000250: 01 8B 42 24 B2 22 22 A7  42 24 B2 C7 28 30 29 00  |..B$."".B$..(0).|
00000260: 6B 0A 86 01 41 B2 C6 28  42 24 29 00 80 0A 90 01  |k...A..(B$).....|
00000270: 8B 41 B1 31 32 37 AF 41  B3 31 33 33 89 35 31 30  |.A.127.A.133.510|
00000280: 00 8B 0A 9A 01 81 49 B2  30 A4 32 00 96 0A A4 01  |......I.0.2.....|
00000290: A1 23 32 2C 42 24 00 9D  0A AE 01 82 49 00 B0 0A  |.#2,B$......I...|
000002A0: B8 01 8B 42 24 B2 22 22  A7 42 24 B2 C7 28 30 29  |...B$."".B$..(0)|
000002B0: 00 BC 0A C2 01 41 B2 C6  28 42 24 29 00 D1 0A CC  |.....A..(B$)....|
000002C0: 01 8B 41 B2 30 A7 4A B2  37 3A 82 4A 3A 89 38 32  |..A.0.J.7:.J:.82|
000002D0: 30 00 DD 0A D6 01 81 49  B2 30 A4 32 35 00 E8 0A  |0......I.0.25...|
000002E0: E0 01 A1 23 32 2C 42 24  00 EF 0A EA 01 82 49 00  |...#2,B$......I.|
000002F0: F8 0A F4 01 89 37 35 30  00 03 0B FE 01 A1 23 32  |.....750......#2|
00000300: 2C 42 24 00 16 0B 08 02  8B 42 24 B2 22 22 A7 42  |,B$......B$."".B|
00000310: 24 B2 C7 28 30 29 00 26  0B 12 02 54 25 28 4E 29  |$..(0).&...T%(N)|
00000320: B2 C6 28 42 24 29 00 31  0B 1C 02 A1 23 32 2C 42  |..(B$).1....#2,B|
00000330: 24 00 44 0B 26 02 8B 42  24 B2 22 22 A7 42 24 B2  |$.D.&..B$."".B$.|
00000340: C7 28 30 29 00 54 0B 30  02 53 25 28 4E 29 B2 C6  |.(0).T.0.S%(N)..|
00000350: 28 42 24 29 00 5E 0B 3A  02 46 24 B2 22 22 00 69  |(B$).^.:.F$."".i|
00000360: 0B 44 02 4E 55 4C 4C B2  30 00 75 0B 4E 02 81 49  |.D.NULL.0.u.N..I|
00000370: B2 30 A4 31 35 00 80 0B  58 02 A1 23 32 2C 42 24  |.0.15...X..#2,B$|
00000380: 00 93 0B 62 02 8B 42 24  B2 22 22 A7 42 24 B2 C7  |...b..B$."".B$..|
00000390: 28 30 29 00 9F 0B 6C 02  41 B2 C6 28 42 24 29 00  |(0)...l.A..(B$).|
000003A0: B4 0B 76 02 8B 41 B2 30  A7 4E 55 4C 4C B2 4E 55  |..v..A.0.NULL.NU|
000003B0: 4C 4C AA 31 00 C7 0B 80  02 8B 41 B1 31 32 37 A7  |LL.1......A.127.|
000003C0: 41 B2 41 AB 31 32 38 00  DB 0B 8A 02 8B 41 B3 33  |A.A.128......A.3|
000003D0: 32 B0 41 B1 39 35 A7 41  B2 36 33 00 EA 0B 94 02  |2.A.95.A.63.....|
000003E0: 8B 41 B2 33 34 A7 41 B2  36 33 00 F9 0B 9E 02 46  |.A.34.A.63.....F|
000003F0: 24 B2 46 24 AA C7 28 41  29 00 00 0C A8 02 82 49  |$.F$..(A)......I|
00000400: 00 19 0C B2 02 8B 4E 55  4C 4C B2 31 36 A7 4A B2  |......NULL.16.J.|
00000410: 37 3A 82 4A 3A 89 38 32  30 00 26 0C BC 02 46 24  |7:.J:.820.&...F$|
00000420: 28 4E 29 B2 46 24 00 30  0C C6 02 4E B2 4E AA 31  |(N).F$.0...N.N.1|
00000430: 00 3C 0C D0 02 81 49 B2  30 A4 31 30 00 47 0C DA  |.<....I.0.10.G..|
00000440: 02 A1 23 32 2C 42 24 00  4E 0C E4 02 82 49 00 5B  |..#2,B$.N....I.[|
00000450: 0C EE 02 8B 4A B2 37 89  37 39 30 00 66 0C F8 02  |....J.7.790.f...|
00000460: 81 49 B2 30 A4 31 00 71  0C 02 03 A1 23 32 2C 42  |.I.0.1.q....#2,B|
00000470: 24 00 78 0C 0C 03 82 49  00 7F 0C 16 03 82 4A 00  |$.x....I......J.|
00000480: 8E 0C 20 03 8B 53 54 B2  36 34 89 38 32 30 00 97  |.. ..ST.64.820..|
00000490: 0C 2A 03 89 33 36 30 00  9E 0C 34 03 A0 32 00 B6  |.*..360...4..2..|
000004A0: 0C 3E 03 84 31 35 2C 45  4E 24 2C 45 4D 24 2C 45  |.>..15,EN$,EM$,E|
000004B0: 54 24 2C 45 53 24 00 C3  0C 48 03 8B 4E B1 30 89  |T$,ES$...H..N.0.|
000004C0: 38 38 30 00 F0 0C 52 03  99 22 11 4E 4F 20 43 4C  |880...R..".NO CL|
000004D0: 4F 53 45 44 20 46 49 4C  45 53 20 41 52 45 20 49  |OSED FILES ARE I|
000004E0: 4E 20 54 48 45 20 44 49  52 45 43 54 4F 52 59 22  |N THE DIRECTORY"|
000004F0: 00 F8 0C 5C 03 A0 31 35  00 FE 0C 66 03 80 00 06  |...\..15...f....|
00000500: 0D 70 03 49 B2 30 00 0F  0D 7A 03 99 22 93 22 00  |.p.I.0...z..".".|
00000510: 32 0D 84 03 4E 24 B2 C9  28 22 30 30 22 AA C9 28  |2...N$..("00"..(|
00000520: C4 28 4E 29 2C C3 28 C4  28 4E 29 29 AB 31 29 2C  |.(N),.(.(N)).1),|
00000530: 33 29 00 3F 0D 8E 03 81  4A B2 30 A4 4E AB 31 00  |3).?....J.0.N.1.|
00000540: 66 0D 98 03 4A 24 B2 C9  28 22 30 30 22 AA C9 28  |f...J$..("00"..(|
00000550: C4 28 4A AA 31 29 2C C3  28 C4 28 4A AA 31 29 29  |.(J.1),.(.(J.1))|
00000560: AB 31 29 2C 33 29 00 8E  0D A2 03 99 22 13 12 56  |.1),3)......"..V|
00000570: 41 4C 49 44 41 54 49 4E  47 92 20 23 22 4A 24 22  |ALIDATING. #"J$"|
00000580: 2F 22 4E 24 22 3A 20 20  22 46 24 28 4A 29 00 AD  |/"N$":  "F$(J)..|
00000590: 0D AC 03 99 22 13 22 3B  C8 28 43 44 24 2C 49 AA  |....".";.(CD$,I.|
000005A0: 32 29 3B 46 24 28 4A 29  3B 22 20 22 3B 00 B6 0D  |2);F$(J);" ";...|
000005B0: B6 03 4E 42 B2 31 00 C2  0D C0 03 54 B2 54 25 28  |..NB.1.....T.T%(|
000005C0: 4A 29 00 CE 0D CA 03 53  B2 53 25 28 4A 29 00 D8  |J).....S.S%(J)..|
000005D0: 0D D4 03 8D 31 36 34 30  00 F2 0D DE 03 99 22 13  |....1640......".|
000005E0: 22 C8 28 43 44 24 2C 49  AA 32 29 46 24 28 4A 29  |".(CD$,I.2)F$(J)|
000005F0: 4E 42 00 FE 0D E8 03 4A  4F 42 B2 31 37 36 00 08  |NB.....JOB.176..|
00000600: 0E F2 03 8D 31 35 32 30  00 16 0E FC 03 8B 45 B2  |....1520......E.|
00000610: 31 89 31 30 34 30 00 20  0E 06 04 89 31 31 37 30  |1.1040. ....1170|
00000620: 00 2C 0E 10 04 4A 4F 42  B2 31 32 38 00 36 0E 1A  |.,...JOB.128.6..|
00000630: 04 8D 31 35 32 30 00 44  0E 24 04 8B 45 B2 31 89  |..1520.D.$..E.1.|
00000640: 31 30 38 30 00 4E 0E 2E  04 89 31 31 37 30 00 68  |1080.N....1170.h|
00000650: 0E 38 04 98 31 35 2C 22  4D 2D 52 22 C7 28 30 29  |.8..15,"M-R".(0)|
00000660: C7 28 34 29 C7 28 32 29  00 74 0E 42 04 A1 23 31  |.(4).(2).t.B..#1|
00000670: 35 2C 42 24 00 85 0E 4C  04 54 B2 C6 28 42 24 AA  |5,B$...L.T..(B$.|
00000680: C7 28 30 29 29 00 93 0E  56 04 8B 54 B2 30 89 31  |.(0))...V..T.0.1|
00000690: 31 37 30 00 9F 0E 60 04  A1 23 31 35 2C 42 24 00  |170...`..#15,B$.|
000006A0: B0 0E 6A 04 53 B2 C6 28  42 24 AA C7 28 30 29 29  |..j.S..(B$..(0))|
000006B0: 00 E9 0E 74 04 8B 54 B1  33 35 B0 53 B1 32 30 AA  |...t..T.35.S.20.|
000006C0: 32 AC 28 54 B1 31 37 29  AA 28 54 B1 32 34 29 AA  |2.(T.17).(T.24).|
000006D0: 28 54 B1 33 30 29 A7 49  B2 49 AA 32 3A 52 24 B2  |(T.30).I.I.2:R$.|
000006E0: 22 12 22 3A 89 31 32 33  30 00 F5 0E 7E 04 4E 42  |".":.1230...~.NB|
000006F0: B2 4E 42 AA 31 00 FE 0E  88 04 89 39 38 30 00 08  |.NB.1......980..|
00000700: 0F 92 04 49 B2 49 AA 32  00 13 0F 9C 04 52 24 B2  |...I.I.2.....R$.|
00000710: 22 92 22 00 21 0F A6 04  8B 45 B2 31 89 31 32 34  |".".!....E.1.124|
00000720: 30 00 2C 0F B0 04 52 24  B2 22 12 22 00 36 0F BA  |0.,...R$.".".6..|
00000730: 04 8D 31 37 30 30 00 40  0F C4 04 89 31 32 35 30  |..1700.@....1250|
00000740: 00 68 0F CE 04 45 24 B2  22 49 4C 4C 45 47 41 4C  |.h...E$."ILLEGAL|
00000750: 20 54 52 41 43 4B 20 4F  52 20 53 45 43 54 4F 52  | TRACK OR SECTOR|
00000760: 9D 22 3A 89 31 32 35 30  00 7E 0F D8 04 45 24 B2  |.":.1250.~...E$.|
00000770: 22 30 30 2C 20 4F 4B 2C  30 30 2C 30 30 22 00 A0  |"00, OK,00,00"..|
00000780: 0F E2 04 99 22 13 22 52  24 3B C8 28 43 44 24 2C  |...."."R$;.(CD$,|
00000790: 49 29 3B 46 24 28 4A 29  22 20 22 45 24 22 92 22  |I);F$(J)" "E$"."|
000007A0: 00 D9 0F EC 04 46 24 28  4A 29 B2 22 13 12 22 AA  |.....F$(J)."..".|
000007B0: 4A 24 AA 22 92 22 AA 52  24 AA C8 28 43 44 24 2C  |J$.".".R$..(CD$,|
000007C0: 49 29 AA 22 9D 9D 9D 22  AA 46 24 28 4A 29 AA 22  |I)."...".F$(J)."|
000007D0: 20 22 AA 45 24 AA 22 92  22 00 00 10 F6 04 8B 49  | ".E$."."......I|
000007E0: B2 32 30 AF 4A B3 B1 4E  AB 31 A7 81 44 B2 31 A4  |.20.J..N.1..D.1.|
000007F0: 31 30 30 30 3A 82 44 3A  99 22 93 22 3A 49 B2 30  |1000:.D:.".":I.0|
00000800: 00 07 10 00 05 82 4A 00  0F 10 0A 05 A0 31 35 00  |......J......15.|
00000810: 23 10 14 05 8B 4E B3 31  31 A7 53 B2 4E 3A 89 31  |#....N.11.S.N:.1|
00000820: 35 30 30 00 4E 10 1E 05  85 22 11 53 55 4D 4D 41  |500.N....".SUMMA|
00000830: 52 59 20 49 4E 46 4F 52  4D 41 54 49 4F 4E 20 28  |RY INFORMATION (|
00000840: 59 2F 4E 29 20 20 59 9D  9D 9D 22 3B 51 24 00 5F  |Y/N)  Y...";Q$._|
00000850: 10 28 05 8B 51 24 B3 B1  22 59 22 89 31 31 30 00  |.(..Q$.."Y".110.|
00000860: 9A 10 32 05 53 49 24 B2  22 93 12 20 20 20 20 20  |..2.SI$."..     |
00000870: 2F 22 AA 4E 24 AA 22 20  20 20 20 53 55 4D 4D 41  |/".N$."    SUMMA|
00000880: 52 59 20 49 4E 46 4F 52  4D 41 54 49 4F 4E 20 20  |RY INFORMATION  |
00000890: 20 20 20 20 20 20 20 20  92 22 00 A2 10 3C 05 53  |        ."...<.S|
000008A0: B2 30 00 AB 10 46 05 99  53 49 24 00 B6 10 50 05  |.0...F..SI$...P.|
000008B0: 81 49 B2 30 A4 39 00 C1  10 5A 05 99 46 24 28 53  |.I.0.9...Z..F$(S|
000008C0: 29 00 CB 10 64 05 53 B2  53 AA 31 00 D8 10 6E 05  |)...d.S.S.1...n.|
000008D0: 8B 53 B2 4E A7 49 B2 39  00 DF 10 78 05 82 49 00  |.S.N.I.9...x..I.|
000008E0: EE 10 82 05 8B 53 B3 B1  4E 89 31 34 36 30 00 1C  |.....S..N.1460..|
000008F0: 11 8C 05 8B 53 B2 4E A7  99 22 11 12 20 20 20 20  |....S.N.."..    |
00000900: 20 54 59 50 45 20 27 43  27 20 54 4F 20 43 4F 4E  | TYPE 'C' TO CON|
00000910: 54 49 4E 55 45 20 20 20  20 20 92 22 00 30 11 96  |TINUE     .".0..|
00000920: 05 A1 43 24 3A 8B 43 24  B2 22 22 A7 31 34 33 30  |..C$:.C$."".1430|
00000930: 00 42 11 A0 05 8B 43 24  B3 B1 22 43 22 89 31 34  |.B....C$.."C".14|
00000940: 33 30 00 4B 11 AA 05 89  31 31 30 00 83 11 B4 05  |30.K....110.....|
00000950: 99 22 11 12 20 20 20 20  20 54 59 50 45 20 27 43  |."..     TYPE 'C|
00000960: 27 20 54 4F 20 43 4F 4E  54 49 4E 55 45 20 4F 52  |' TO CONTINUE OR|
00000970: 20 27 53 27 20 54 4F 20  53 54 4F 50 20 20 20 20  | 'S' TO STOP    |
00000980: 20 92 22 00 97 11 BE 05  A1 43 24 3A 8B 43 24 B2  | ."......C$:.C$.|
00000990: 22 22 A7 31 34 37 30 00  B1 11 C8 05 8B 43 24 B3  |"".1470......C$.|
000009A0: B1 22 43 22 AF 43 24 B3  B1 22 53 22 89 31 34 37  |."C".C$.."S".147|
000009B0: 30 00 C2 11 D2 05 8B 43  24 B2 22 43 22 89 31 33  |0......C$."C".13|
000009C0: 35 30 00 CB 11 DC 05 89  31 31 30 00 DB 11 E6 05  |50......110.....|
000009D0: 8F 20 4A 4F 42 20 51 55  45 55 45 00 E5 11 F0 05  |. JOB QUEUE.....|
000009E0: 54 52 59 B2 30 00 07 12  FA 05 98 31 35 2C 22 4D  |TRY.0......15,"M|
000009F0: 2D 57 22 C7 28 38 29 C7  28 30 29 C7 28 32 29 C7  |-W".(8).(0).(2).|
00000A00: 28 54 29 C7 28 53 29 00  27 12 04 06 98 31 35 2C  |(T).(S).'....15,|
00000A10: 22 4D 2D 57 22 C7 28 31  29 C7 28 30 29 C7 28 31  |"M-W".(1).(0).(1|
00000A20: 29 C7 28 4A 4F 42 29 00  35 12 0E 06 54 52 59 B2  |).(JOB).5...TRY.|
00000A30: 54 52 59 AA 31 00 4B 12  18 06 98 31 35 2C 22 4D  |TRY.1.K....15,"M|
00000A40: 2D 52 22 C7 28 31 29 C7  28 30 29 00 57 12 22 06  |-R".(1).(0).W.".|
00000A50: A1 23 31 35 2C 45 24 00  6A 12 2C 06 8B 45 24 B2  |.#15,E$.j.,..E$.|
00000A60: 22 22 A7 45 24 B2 C7 28  30 29 00 76 12 36 06 45  |"".E$..(0).v.6.E|
00000A70: B2 C6 28 45 24 29 00 88  12 40 06 8B 54 52 59 B2  |..(E$)...@..TRY.|
00000A80: 35 30 30 89 31 36 32 30  00 98 12 4A 06 8B 45 B1  |500.1620...J..E.|
00000A90: 31 32 37 89 31 35 35 30  00 9E 12 54 06 8E 00 AE  |127.1550...T....|
00000AA0: 12 5E 06 8F 20 53 54 52  24 28 54 2C 53 29 00 C7  |.^.. STR$(T,S)..|
00000AB0: 12 68 06 54 24 B2 C9 28  C4 28 54 29 2C C3 28 C4  |.h.T$..(.(T),.(.|
00000AC0: 28 54 29 29 AB 31 29 00  DB 12 72 06 8B 54 B3 31  |(T)).1)...r..T.1|
00000AD0: 30 A7 54 24 B2 22 30 22  AA 54 24 00 F4 12 7C 06  |0.T$."0".T$...|.|
00000AE0: 53 24 B2 C9 28 C4 28 53  29 2C C3 28 C4 28 53 29  |S$..(.(S),.(.(S)|
00000AF0: 29 AB 31 29 00 08 13 86  06 8B 53 B3 31 30 A7 53  |).1)......S.10.S|
00000B00: 24 B2 22 30 22 AA 53 24  00 0E 13 90 06 8E 00 24  |$."0".S$.......$|
00000B10: 13 9A 06 8F 20 45 4E 24  2C 45 4D 24 2C 45 54 24  |.... EN$,EM$,ET$|
00000B20: 2C 45 53 24 00 49 13 A4  06 8B 45 B1 31 AF 45 B3  |,ES$.I....E.1.E.|
00000B30: 31 32 A7 45 4E 24 B2 C9  28 C4 28 45 AA 31 38 29  |12.EN$..(.(E.18)|
00000B40: 2C 32 29 3A 89 31 37 32  30 00 6B 13 AE 06 45 4E  |,2):.1720.k...EN|
00000B50: 24 B2 22 30 32 22 3A 45  4D 24 B2 22 3F 54 49 4D  |$."02":EM$."?TIM|
00000B60: 45 4F 55 54 22 3A 89 31  37 33 30 00 80 13 B8 06  |EOUT":.1730.....|
00000B70: 45 4D 24 B2 22 52 45 41  44 20 45 52 52 4F 52 22  |EM$."READ ERROR"|
00000B80: 00 8B 13 C2 06 45 54 24  B2 54 24 00 96 13 CC 06  |.....ET$.T$.....|
00000B90: 45 53 24 B2 53 24 00 B9  13 D6 06 45 24 B2 45 4E  |ES$.S$.....E$.EN|
00000BA0: 24 AA 22 2C 20 22 AA 45  4D 24 AA 22 2C 22 AA 45  |$.", ".EM$.",".E|
00000BB0: 54 24 22 2C 22 AA 45 53  24 00 BF 13 E0 06 8E 00  |T$",".ES$.......|
00000BC0: 00 00                                             |..              |

..(.... *INSIDE COMMODORE DOS* *PG. 461*
.?.... *JJM*   *041987*.`.D.. VALIDATE A
 DISKETTE - 1541.F.N.....X.CD$."........
............."......F$(143),T%(143),S%(1
43).F....".VALIDATE A DISKETTE - 1541"..
....".INSERT DISKETTE IN DRIVE"... ..".P
RESS .RETURN. TO CONTINUE"......C$:.C$."
".170.0....C$..G(13).170.:...."OK".G.H..
15,8,15.T.R..15,"I0".L....15,EN$,EM$,ET$
,ES$.~....EN$."00".270......"."EN$", "EM
$","ET$","ES$..... 15.......H...."..FETC
HING. DIRECTORY"......2,8,2,"$0,S,R"..."
..15,EN$,EM$,ET$,ES$...,..EN$."00".320..
.6..240...@..I.0.253.'.J..#2,B$...T..I.6
.^.N.0.A.H..J.0.7.L.R..#2,B$._.|..B$."".
B$.G(0).K...A.F(B$)......A.127.A.133.510
......I.0.2......#2,B$......I......B$.""
.B$.G(0)...B.A.F(B$).Q.L..A.0.J.7:.J:.82
0...V..I.0.25......#2,B$......I......750
......#2,B$......B$."".B$.G(0).&...T%(N)
.F(B$).1....#2,B$.D.&..B$."".B$.G(0).T.0
.S%(N).F(B$).^.:.F$."".I.D.NULL.0.U.N..I
.0.15...X..#2,B$...B..B$."".B$.G(0)...L.
A.F(B$)...V..A.0.NULL.NULL.1.G....A.127.
A.A.128......A.32.A.95.A.63......A.34.A.
63.....F$.F$.G(A)......I......NULL.16.J.
7:.J:.820.&...F$(N).F$.0.F.N.N.1.<.P..I.
0.10.G.Z..#2,B$.N....I.[....J.7.790.F...
.I.0.1.Q....#2,B$.X....I.....J... ..ST.
64.820...*..360...4. 2...>..15,EN$,EM$,E
T$,ES$.C.H..N.0.880...R..".NO CLOSED FIL
ES ARE IN THE DIRECTORY"...\. 15...F....
.P.I.0...Z..".".2...N$.I("00".I(D(N),C(D
(N)).1),3).?....J.0.N.1.F...J$.I("00".I(
D(J.1),C(D(J.1)).1),3)......"..VALIDATIN
G. #"J$"/"N$":  "F$(J)......".";H(CD$,I.
2);F$(J);" ";.....NB.1.B...T.T%(J).N.J.S
.S%(J).X.T..1640......"."H(CD$,I.2)F$(J)
NB.....JOB.176......1520......E.1.1040. 
....1170.,...JOB.128.6....1520.D.$..E.1.
1080.N....1170.H.8..15,"M-R"G(0)G(4)G(2)
.T.B..#15,B$...L.T.F(B$.G(0))...V..T.0.1
170...`..#15,B$...J.S.F(B$.G(0))...T..T.
35.S.20.2.(T.17).(T.24).(T.30).I.I.2:R$.
".":.1230...~.NB.NB.1......980.....I.I.2
.....R$.".".!....E.1.1240.,...R$.".".6..
..1700.@.D..1250.H.N.E$."ILLEGAL TRACK O
R SECTOR.":.1250.~.X.E$."00, OK,00,00". 
...."."R$;H(CD$,I);F$(J)" "E$".".Y...F$(
J)."..".J$.".".R$.H(CD$,I)."...".F$(J)."
 ".E$."."......I.20.J..N.1..D.1.1000:.D:
.".":I.0......J..... 15.#....N.11.S.N:.1
500.N....".SUMMARY INFORMATION (Y/N)  Y.
..";Q$._.(..Q$.."Y".110...2.SI$."..     
/".N$."    SUMMARY INFORMATION          
."...<.S.0...F..SI$...P..I.0.9.A.Z..F$(S
).K.D.S.S.1.X.N..S.N.I.9...X..I......S..
N.1460......S.N.."..     TYPE 'C' TO CON
TINUE     .".0....C$:.C$."".1430.B. ..C$
.."C".1430.K....110......"..     TYPE 'C
' TO CONTINUE OR 'S' TO STOP     .".....
.C$:.C$."".1470...H..C$.."C".C$.."S".147
0.B.R..C$."C".1350.K....110...... JOB QU
EUE.....TRY.0......15,"M-W"G(8)G(0)G(2)G
(T)G(S).'....15,"M-W"G(1)G(0)G(1)G(JOB).
5...TRY.TRY.1.K....15,"M-R"G(1)G(0).W.".
.#15,E$.J.,..E$."".E$.G(0).V.6.E.F(E$)..
.@..TRY.500.1620...J..E.127.1550...T....
.^.. STR$(T,S).G.H.T$.I(D(T),C(D(T)).1).
..R..T.10.T$."0".T$...|.S$.I(D(S),C(D(S)
).1)......S.10.S$."0".S$.......$.... EN$
,EM$,ET$,ES$.I....E.1.E.12.EN$.I(D(E.18)
,2):.1720.K...EN$."02":EM$."?TIMEOUT":.1
730.....EM$."READ ERROR"...B.ET$.T$...L.
ES$.S$...V.E$.EN$.", ".EM$.",".ET$",".ES
$.........

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL