DISK-CHECK

00000000: 01 08 16 08 64 00 91 20  5A 31 AA 31 20 89 20 31  |....d.. Z1.1 . 1|
00000010: 36 30 2C 33 39 30 00 38  08 6E 00 43 4F 50 59 52  |60,390.8.n.COPYR|
00000020: 49 47 48 54 20 31 39 38  33 20 4A 4F 48 4E 20 54  |IGHT 1983 JOHN T|
00000030: 52 45 4E 48 4F 4C 4D 45  00 51 08 78 00 8F 20 2A  |RENHOLME.Q.x.. *|
00000040: 2A 2A 20 50 52 49 4E 54  20 42 20 41 53 20 48 45  |** PRINT B AS HE|
00000050: 58 00 70 08 82 00 99 20  22 20 22 3B 3A 8B 42 B2  |X.p.... " ";:.B.|
00000060: 30 A7 42 24 B2 22 30 30  22 3A 99 42 24 3B 3A 8E  |0.B$."00":.B$;:.|
00000070: 00 96 08 8C 00 42 24 B2  CA 28 48 48 24 2C 42 2C  |.....B$..(HH$,B,|
00000080: 5A 31 29 AA CA 28 48 4C  24 2C 42 2C 5A 31 29 3A  |Z1)..(HL$,B,Z1):|
00000090: 99 42 24 3B 3A 8E 00 AA  08 96 00 8F 20 2A 2A 2A  |.B$;:....... ***|
000000A0: 20 43 4F 4C 44 53 54 41  52 54 00 D6 08 A0 00 5A  | COLDSTART.....Z|
000000B0: 30 20 B2 20 30 3A 20 5A  31 20 B2 20 31 3A 20 51  |0 . 0: Z1 . 1: Q|
000000C0: 24 20 B2 20 C7 28 33 34  29 3A 20 43 52 24 20 B2  |$ . .(34): CR$ .|
000000D0: 20 C7 28 31 33 29 00 FC  08 AA 00 99 20 22 93 43  | .(13)...... ".C|
000000E0: 48 45 43 4B 53 20 44 49  53 4B 53 20 46 4F 52 20  |HECKS DISKS FOR |
000000F0: 42 41 44 20 53 45 43 54  4F 52 53 11 00 28 09 B4  |BAD SECTORS..(..|
00000100: 00 99 20 22 41 4E 44 20  43 41 4E 20 4C 4F 47 20  |.. "AND CAN LOG |
00000110: 54 4F 20 50 52 49 4E 54  45 52 20 41 4E 44 2F 4F  |TO PRINTER AND/O|
00000120: 52 20 44 49 53 4B 2E 11  00 53 09 BE 00 99 20 22  |R DISK...S.... "|
00000130: 20 20 28 43 29 20 31 39  38 34 20 4A 4F 48 4E 20  |  (C) 1984 JOHN |
00000140: 54 52 45 4E 48 4F 4C 4D  45 20 2D 20 56 2E 20 31  |TRENHOLME - V. 1|
00000150: 2E 33 11 00 9E 09 C8 00  48 48 24 20 B2 20 22 30  |.3......HH$ . "0|
00000160: 30 30 30 30 30 30 30 30  30 30 30 30 30 30 31 31  |0000000000000011|
00000170: 31 31 31 31 31 31 31 31  31 31 31 31 31 31 32 32  |1111111111111122|
00000180: 32 32 32 32 32 32 32 32  32 32 32 32 32 32 33 33  |2222222222222233|
00000190: 33 33 33 33 33 33 33 33  33 33 33 33 33 33 00 EE  |33333333333333..|
000001A0: 09 D2 00 48 48 24 20 B2  20 48 48 24 AA 22 34 34  |...HH$ . HH$."44|
000001B0: 34 34 34 34 34 34 34 34  34 34 34 34 34 34 35 35  |4444444444444455|
000001C0: 35 35 35 35 35 35 35 35  35 35 35 35 35 35 36 36  |5555555555555566|
000001D0: 36 36 36 36 36 36 36 36  36 36 36 36 36 36 37 37  |6666666666666677|
000001E0: 37 37 37 37 37 37 37 37  37 37 37 37 37 37 00 3E  |77777777777777.>|
000001F0: 0A DC 00 48 48 24 20 B2  20 48 48 24 AA 22 38 38  |...HH$ . HH$."88|
00000200: 38 38 38 38 38 38 38 38  38 38 38 38 38 38 39 39  |8888888888888899|
00000210: 39 39 39 39 39 39 39 39  39 39 39 39 39 39 41 41  |99999999999999AA|
00000220: 41 41 41 41 41 41 41 41  41 41 41 41 41 41 42 42  |AAAAAAAAAAAAAABB|
00000230: 42 42 42 42 42 42 42 42  42 42 42 42 42 42 00 8E  |BBBBBBBBBBBBBB..|
00000240: 0A E6 00 48 48 24 20 B2  20 48 48 24 AA 22 43 43  |...HH$ . HH$."CC|
00000250: 43 43 43 43 43 43 43 43  43 43 43 43 43 43 44 44  |CCCCCCCCCCCCCCDD|
00000260: 44 44 44 44 44 44 44 44  44 44 44 44 44 44 45 45  |DDDDDDDDDDDDDDEE|
00000270: 45 45 45 45 45 45 45 45  45 45 45 45 45 45 46 46  |EEEEEEEEEEEEEEFF|
00000280: 46 46 46 46 46 46 46 46  46 46 46 46 46 46 00 D8  |FFFFFFFFFFFFFF..|
00000290: 0A F0 00 48 4C 24 20 B2  20 22 30 31 32 33 34 35  |...HL$ . "012345|
000002A0: 36 37 38 39 41 42 43 44  45 46 22 3A 20 48 4C 24  |6789ABCDEF": HL$|
000002B0: 20 B2 20 48 4C 24 AA 48  4C 24 3A 20 48 4C 24 20  | . HL$.HL$: HL$ |
000002C0: B2 20 48 4C 24 AA 48 4C  24 3A 20 48 4C 24 20 B2  |. HL$.HL$: HL$ .|
000002D0: 20 48 4C 24 AA 48 4C 24  00 EF 0A FA 00 48 4C 24  | HL$.HL$.....HL$|
000002E0: 20 B2 20 CA 28 48 4C 24  2C 32 29 AA 48 4C 24 00  | . .(HL$,2).HL$.|
000002F0: FB 0A 04 01 86 20 53 28  33 35 29 00 1B 0B 0E 01  |..... S(35).....|
00000300: 81 20 54 20 B2 20 5A 31  20 A4 20 31 37 3A 20 53  |. T . Z1 . 17: S|
00000310: 28 54 29 20 B2 20 32 30  3A 20 82 00 3B 0B 18 01  |(T) . 20: ..;...|
00000320: 81 20 54 20 B2 20 31 38  20 A4 20 32 34 3A 20 53  |. T . 18 . 24: S|
00000330: 28 54 29 20 B2 20 31 38  3A 20 82 00 5B 0B 22 01  |(T) . 18: ..[.".|
00000340: 81 20 54 20 B2 20 32 35  20 A4 20 33 30 3A 20 53  |. T . 25 . 30: S|
00000350: 28 54 29 20 B2 20 31 37  3A 20 82 00 7B 0B 2C 01  |(T) . 17: ..{.,.|
00000360: 81 20 54 20 B2 20 33 31  20 A4 20 33 35 3A 20 53  |. T . 31 . 35: S|
00000370: 28 54 29 20 B2 20 31 36  3A 20 82 00 8B 0B 36 01  |(T) . 16: ....6.|
00000380: 86 20 45 4C 28 33 35 2C  32 30 29 00 B9 0B 40 01  |. EL(35,20)...@.|
00000390: 85 20 22 4C 4F 47 20 45  52 52 4F 52 53 20 54 4F  |. "LOG ERRORS TO|
000003A0: 20 50 52 49 4E 54 45 52  20 28 59 2F 4E 29 20 20  | PRINTER (Y/N)  |
000003B0: 4E 9D 9D 9D 22 3B 20 41  24 00 E1 0B 4A 01 8B 20  |N..."; A$...J.. |
000003C0: 41 24 B3 B1 22 59 22 20  AF 20 41 24 B3 B1 22 4E  |A$.."Y" . A$.."N|
000003D0: 22 20 A7 20 99 20 22 91  22 3B 3A 20 89 20 33 32  |" . . ".";: . 32|
000003E0: 30 00 02 0C 54 01 50 46  20 B2 20 AB 5A 31 3A 20  |0...T.PF . .Z1: |
000003F0: 8B 20 41 24 B2 22 4E 22  20 A7 20 50 46 20 B2 20  |. A$."N" . PF . |
00000400: 5A 30 00 13 0C 5E 01 8B  20 50 46 20 A7 20 9F 20  |Z0...^.. PF . . |
00000410: 34 2C 34 00 28 0C 68 01  81 20 41 20 B2 20 31 20  |4,4.(.h.. A . 1 |
00000420: A4 20 35 30 30 3A 20 82  00 3C 0C 72 01 8F 20 2A  |. 500: ..<.r.. *|
00000430: 2A 2A 20 57 41 52 4D 53  54 41 52 54 00 52 0C 7C  |** WARMSTART.R.||
00000440: 01 A0 20 31 35 3A 20 9F  20 31 35 2C 20 38 2C 20  |.. 15: . 15, 8, |
00000450: 31 35 00 79 0C 86 01 99  3A 20 99 20 22 49 4E 49  |15.y....: . "INI|
00000460: 54 49 41 4C 49 5A 49 4E  47 20 44 49 53 4B 20 30  |TIALIZING DISK 0|
00000470: 20 56 49 41 20 27 49 30  27 00 8E 0C 90 01 98 31  | VIA 'I0'......1|
00000480: 35 2C 20 22 49 30 22 3A  20 8D 20 39 30 30 00 BB  |5, "I0": . 900..|
00000490: 0C 9A 01 99 20 22 4F 50  45 4E 49 4E 47 20 46 49  |.... "OPENING FI|
000004A0: 4C 45 20 32 20 54 4F 20  44 49 53 4B 20 43 48 41  |LE 2 TO DISK CHA|
000004B0: 4E 4E 45 4C 20 32 20 41  53 20 23 00 DA 0C A4 01  |NNEL 2 AS #.....|
000004C0: A0 20 32 3A 20 9F 20 32  2C 20 38 2C 20 32 2C 20  |. 2: . 2, 8, 2, |
000004D0: 22 23 22 3A 20 8D 20 39  30 30 00 E0 0C AE 01 99  |"#": . 900......|
000004E0: 00 F2 0C B8 01 81 20 54  20 B2 20 5A 31 20 A4 20  |...... T . Z1 . |
000004F0: 33 35 00 06 0D C2 01 81  20 53 20 B2 20 5A 30 20  |35...... S . Z0 |
00000500: A4 20 53 28 54 29 00 2B  0D CC 01 99 20 22 52 45  |. S(T).+.... "RE|
00000510: 41 44 49 4E 47 20 54 52  41 43 4B 22 3B 3A 20 42  |ADING TRACK";: B|
00000520: 20 B2 20 54 3A 20 8D 20  31 33 30 00 4E 0D D6 01  | . T: . 130.N...|
00000530: 99 20 22 20 20 53 45 43  54 4F 52 22 3B 3A 20 42  |. "  SECTOR";: B|
00000540: 20 B2 20 53 3A 20 8D 20  31 33 30 3A 20 99 00 64  | . S: . 130: ..d|
00000550: 0D E0 01 98 31 35 2C 20  22 55 31 3A 32 2C 30 22  |....15, "U1:2,0"|
00000560: 3B 54 3B 53 00 7D 0D EA  01 84 31 35 2C 20 45 52  |;T;S.}....15, ER|
00000570: 2C 20 45 4D 24 2C 20 45  54 2C 20 45 53 00 8C 0D  |, EM$, ET, ES...|
00000580: F4 01 45 4C 28 54 2C 53  29 B2 45 52 00 9E 0D FE  |..EL(T,S).ER....|
00000590: 01 8B 20 45 52 B2 5A 30  20 A7 20 35 34 30 00 BA  |.. ER.Z0 . 540..|
000005A0: 0D 08 02 99 20 22 12 52  45 41 44 3A 92 22 45 52  |.... ".READ:."ER|
000005B0: 3B 45 4D 24 3B 45 54 3B  45 53 00 DC 0D 12 02 8B  |;EM$;ET;ES......|
000005C0: 20 50 46 20 A7 20 98 34  2C 22 52 45 41 44 3A 22  | PF . .4,"READ:"|
000005D0: 45 52 3B 45 4D 24 3B 45  54 3B 45 53 00 F1 0D 1C  |ER;EM$;ET;ES....|
000005E0: 02 8B 20 45 52 B2 5A 30  20 A7 20 99 20 22 91 91  |.. ER.Z0 . . "..|
000005F0: 22 00 FC 0D 26 02 82 20  53 2C 20 54 00 26 0E 30  |"...&.. S, T.&.0|
00000600: 02 99 20 22 93 20 20 20  54 52 41 43 4B 20 2D 3E  |.. ".   TRACK ->|
00000610: 20 31 20 20 20 20 20 20  20 20 20 32 20 20 20 20  | 1         2    |
00000620: 20 20 20 20 20 33 00 54  0E 3A 02 99 20 22 53 43  |     3.T.:.. "SC|
00000630: 20 31 32 33 34 35 36 37  38 39 30 31 32 33 34 35  | 123456789012345|
00000640: 36 37 38 39 30 31 32 33  34 35 36 37 38 39 30 31  |6789012345678901|
00000650: 32 33 34 35 00 66 0E 44  02 81 20 53 20 B2 20 5A  |2345.f.D.. S . Z|
00000660: 30 20 A4 20 32 30 00 7A  0E 4E 02 8B 20 53 B3 31  |0 . 20.z.N.. S.1|
00000670: 30 20 A7 20 99 20 22 20  22 3B 00 87 0E 58 02 99  |0 . . " ";...X..|
00000680: 20 22 9D 22 20 53 3B 00  B4 0E 62 02 81 20 54 20  | "." S;...b.. T |
00000690: B2 20 5A 31 20 A4 20 33  35 AA 35 AC 28 53 B1 31  |. Z1 . 35.5.(S.1|
000006A0: 36 29 AA 36 AC 28 53 B1  31 37 29 AA 37 AC 28 53  |6).6.(S.17).7.(S|
000006B0: B1 31 38 29 00 D5 0E 6C  02 8B 20 45 4C 28 54 2C  |.18)...l.. EL(T,|
000006C0: 53 29 B2 5A 30 20 A7 20  99 20 22 2E 22 3B 3A 20  |S).Z0 . . ".";: |
000006D0: 89 20 36 34 30 00 E2 0E  76 02 99 20 22 12 20 92  |. 640...v.. ". .|
000006E0: 22 3B 00 EA 0E 80 02 82  20 54 00 F0 0E 8A 02 99  |";...... T......|
000006F0: 00 F8 0E 94 02 82 20 53  00 23 0F 9E 02 85 20 22  |...... S.#.... "|
00000700: 4C 4F 47 20 45 52 52 4F  52 53 20 54 4F 20 44 49  |LOG ERRORS TO DI|
00000710: 53 4B 20 28 59 2F 4E 29  20 20 4E 9D 9D 9D 22 3B  |SK (Y/N)  N...";|
00000720: 20 41 24 00 4B 0F A8 02  8B 20 41 24 B3 B1 22 59  | A$.K.... A$.."Y|
00000730: 22 20 AF 20 41 24 B3 B1  22 4E 22 20 A7 20 99 20  |" . A$.."N" . . |
00000740: 22 91 22 3B 3A 20 89 20  36 37 30 00 5E 0F B2 02  |".";: . 670.^...|
00000750: 8B 20 41 24 B2 22 4E 22  20 A7 20 38 38 30 00 8A  |. A$."N" . 880..|
00000760: 0F BC 02 85 20 22 44 49  53 4B 20 46 49 4C 45 20  |.... "DISK FILE |
00000770: 4E 41 4D 45 20 20 45 52  52 4F 52 53 9D 9D 9D 9D  |NAME  ERRORS....|
00000780: 9D 9D 9D 9D 22 3B 20 44  46 24 00 A3 0F C6 02 85  |...."; DF$......|
00000790: 20 22 44 52 49 56 45 20  20 30 9D 9D 9D 22 3B 20  | "DRIVE  0..."; |
000007A0: 44 52 24 00 D8 0F D0 02  99 20 22 49 4E 53 45 52  |DR$...... "INSER|
000007B0: 54 20 44 49 53 4B 20 49  4E 20 44 52 49 56 45 20  |T DISK IN DRIVE |
000007C0: 22 20 44 52 24 20 22 20  41 4E 44 20 48 49 54 20  |" DR$ " AND HIT |
000007D0: 52 45 54 55 52 4E 22 3B  00 EB 0F DA 02 85 20 22  |RETURN";...... "|
000007E0: 20 20 BF 9D 9D 9D 22 3B  20 41 24 00 22 10 E4 02  |  ...."; A$."...|
000007F0: 99 20 22 11 49 4E 49 54  49 41 4C 49 5A 49 4E 47  |. ".INITIALIZING|
00000800: 20 44 49 53 4B 20 44 52  49 56 45 20 22 20 44 52  | DISK DRIVE " DR|
00000810: 24 20 22 20 56 49 41 20  27 49 22 20 44 52 24 20  |$ " VIA 'I" DR$ |
00000820: 22 27 00 46 10 EE 02 A0  20 31 35 3A 20 9F 20 31  |"'.F.... 15: . 1|
00000830: 35 2C 20 38 2C 20 31 35  3A 20 98 31 35 2C 20 22  |5, 8, 15: .15, "|
00000840: 49 22 20 44 52 24 00 63  10 F8 02 99 20 22 4F 50  |I" DR$.c.... "OP|
00000850: 45 4E 49 4E 47 20 22 20  44 52 24 20 22 3A 22 20  |ENING " DR$ ":" |
00000860: 44 46 24 00 91 10 02 03  A0 20 35 3A 20 9F 20 35  |DF$...... 5: . 5|
00000870: 2C 20 38 2C 20 35 2C 20  44 52 24 AA 22 3A 22 AA  |, 8, 5, DR$.":".|
00000880: 44 46 24 AA 22 2C 57 2C  53 22 3A 20 8D 20 39 30  |DF$.",W,S": . 90|
00000890: 30 00 A3 10 0C 03 81 20  54 20 B2 20 5A 31 20 A4  |0...... T . Z1 .|
000008A0: 20 33 35 00 B7 10 16 03  81 20 53 20 B2 20 5A 30  | 35...... S . Z0|
000008B0: 20 A4 20 53 28 54 29 00  CD 10 20 03 8B 20 45 4C  | . S(T)... .. EL|
000008C0: 28 54 2C 53 29 B2 30 20  A7 20 38 35 30 00 E8 10  |(T,S).0 . 850...|
000008D0: 2A 03 98 35 2C 20 CA 28  C4 28 54 AA 31 30 30 29  |*..5, .(.(T.100)|
000008E0: 2C 33 29 20 22 2C 22 3B  00 03 11 34 03 98 35 2C  |,3) ",";...4..5,|
000008F0: 20 CA 28 C4 28 53 AA 31  30 30 29 2C 33 29 20 22  | .(.(S.100),3) "|
00000900: 2C 22 3B 00 20 11 3E 03  98 35 2C 20 CA 28 C4 28  |,";. .>..5, .(.(|
00000910: 45 4C 28 54 2C 53 29 29  2C 32 29 20 43 52 24 3B  |EL(T,S)),2) CR$;|
00000920: 00 4F 11 48 03 99 20 22  54 52 41 43 4B 22 20 54  |.O.H.. "TRACK" T|
00000930: 20 22 20 20 53 45 43 54  4F 52 22 20 53 20 22 20  | "  SECTOR" S " |
00000940: 20 45 52 52 4F 52 22 20  45 4C 28 54 2C 53 29 00  | ERROR" EL(T,S).|
00000950: 5A 11 52 03 82 20 53 2C  20 54 00 72 11 5C 03 98  |Z.R.. S, T.r.\..|
00000960: 35 2C 20 22 30 30 2C 30  30 2C 2D 31 22 20 43 52  |5, "00,00,-1" CR|
00000970: 24 3B 00 93 11 66 03 A0  20 35 3A 20 99 20 22 43  |$;...f.. 5: . "C|
00000980: 4C 4F 53 49 4E 47 20 46  49 4C 45 22 3A 20 8D 20  |LOSING FILE": . |
00000990: 39 30 30 00 A6 11 70 03  A0 20 32 3A 20 A0 20 34  |900...p.. 2: . 4|
000009A0: 3A 20 A0 20 31 35 00 BF  11 7A 03 99 20 22 2A 2A  |: . 15...z.. "**|
000009B0: 2A 20 44 4F 4E 45 20 2A  2A 2A 22 3B 3A 20 80 00  |* DONE ***";: ..|
000009C0: D8 11 84 03 84 31 35 2C  20 45 4E 2C 20 45 4D 24  |.....15, EN, EM$|
000009D0: 2C 20 45 54 2C 20 45 53  00 F7 11 8E 03 99 20 22  |, ET, ES...... "|
000009E0: 12 44 49 53 4B 3A 92 22  20 20 20 45 4E 3B 45 4D  |.DISK:."   EN;EM|
000009F0: 24 3B 45 54 3B 45 53 00  06 12 98 03 8B 20 45 4E  |$;ET;ES...... EN|
00000A00: B2 30 20 A7 20 8E 00 3A  12 A2 03 99 20 22 45 52  |.0 . ..:.... "ER|
00000A10: 52 4F 52 21 20 2D 20 54  59 50 45 20 22 20 51 24  |ROR! - TYPE " Q$|
00000A20: 20 22 47 4F 54 4F 22 20  51 24 20 22 20 54 4F 20  | "GOTO" Q$ " TO |
00000A30: 57 41 52 4D 53 54 41 52  54 22 00 4E 12 AC 03 99  |WARMSTART".N....|
00000A40: 20 22 11 47 4F 54 4F 91  91 91 22 3A 20 80 00 00  | ".GOTO...": ...|
00000A50: 00 4D 00 00 00 00 F3                              |.M.....         |

....D.. Z1.1 . 160,390.8.N.COPYRIGHT 198
3 JOHN TRENHOLME.Q.X.. *** PRINT B AS HE
X.P.... " ";:.B.0.B$."00":.B$;:......B$.
J(HH$,B,Z1).J(HL$,B,Z1):.B$;:....... ***
 COLDSTART.V. .Z0 . 0: Z1 . 1: Q$ . G(34
): CR$ . G(13)...... ".CHECKS DISKS FOR 
BAD SECTORS..(.... "AND CAN LOG TO PRINT
ER AND/OR DISK...S.... "  (C) 1984 JOHN 
TRENHOLME - V. 1.3....H.HH$ . "000000000
0000001111111111111111222222222222222233
33333333333333...R.HH$ . HH$."4444444444
4444445555555555555555666666666666666677
77777777777777.>...HH$ . HH$."8888888888
8888889999999999999999AAAAAAAAAAAAAAAABB
BBBBBBBBBBBBBB.....HH$ . HH$."CCCCCCCCCC
CCCCCCDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEFF
FFFFFFFFFFFFFF.X...HL$ . "0123456789ABCD
EF": HL$ . HL$.HL$: HL$ . HL$.HL$: HL$ .
 HL$.HL$.....HL$ . J(HL$,2).HL$...... S(
35)...... T . Z1 . 17: S(T) . 20: ..;...
. T . 18 . 24: S(T) . 18: ..[.".. T . 25
 . 30: S(T) . 17: ..{.,.. T . 31 . 35: S
(T) . 16: ....6.. EL(35,20)...@.. "LOG E
RRORS TO PRINTER (Y/N)  N..."; A$...J.. 
A$.."Y" . A$.."N" . . ".";: . 320...T.PF
 . .Z1: . A$."N" . PF . Z0...^.. PF . . 
4,4.(.H.. A . 1 . 500: ..<.R.. *** WARMS
TART.R.|.  15: . 15, 8, 15.Y....: . "INI
TIALIZING DISK 0 VIA 'I0'......15, "I0":
 . 900...... "OPENING FILE 2 TO DISK CHA
NNEL 2 AS #.Z...  2: . 2, 8, 2, "#": . 9
00............ T . Z1 . 35...B.. S . Z0 
. S(T).+.L.. "READING TRACK";: B . T: . 
130.N.V.. "  SECTOR";: B . S: . 130: ..D
....15, "U1:2,0";T;S.}....15, ER, EM$, E
T, ES.....EL(T,S).ER...... ER.Z0 . 540..
.... ".READ:."ER;EM$;ET;ES...... PF . .4
,"READ:"ER;EM$;ET;ES...... ER.Z0 . . "..
"...&.. S, T.&.0.. ".   TRACK -> 1      
   2         3.T.:.. "SC 123456789012345
67890123456789012345.F.D.. S . Z0 . 20.Z
.N.. S.10 . . " ";...X.. "." S;...B.. T 
. Z1 . 35.5.(S.16).6.(S.17).7.(S.18).U.L
.. EL(T,S).Z0 . . ".";: . 640...V.. ". .
";...... T............ S.#.... "LOG ERRO
RS TO DISK (Y/N)  N..."; A$.K.... A$.."Y
" . A$.."N" . . ".";: . 670.^.... A$."N"
 . 880...... "DISK FILE NAME  ERRORS....
...."; DF$...F.. "DRIVE  0..."; DR$.X.P.
. "INSERT DISK IN DRIVE " DR$ " AND HIT 
RETURN";...Z.. "  ...."; A$.".... ".INIT
IALIZING DISK DRIVE " DR$ " VIA 'I" DR$ 
"'.F...  15: . 15, 8, 15: .15, "I" DR$.C
.... "OPENING " DR$ ":" DF$.....  5: . 5
, 8, 5, DR$.":".DF$.",W,S": . 900...... 
T . Z1 . 35...... S . Z0 . S(T).M. .. EL
(T,S).0 . 850...*..5, J(D(T.100),3) ",";
...4..5, J(D(S.100),3) ",";. .>..5, J(D(
EL(T,S)),2) CR$;.O.H.. "TRACK" T "  SECT
OR" S "  ERROR" EL(T,S).Z.R.. S, T.R.\..
5, "00,00,-1" CR$;...F.  5: . "CLOSING F
ILE": . 900...P.  2:   4:   15...Z.. "**
* DONE ***";: ..X....15, EN, EM$, ET, ES
...... ".DISK:."   EN;EM$;ET;ES...... EN
.0 . ..:.... "ERROR! - TYPE " Q$ "GOTO" 
Q$ " TO WARMSTART".N.... ".GOTO...": ...
.M.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL