Multiple names: 12.SEQ-FILE-READ, 8.SEQ-FILE-READ, 15.SEQ-FILE-READ, SEQ READ, SEQ FILE READ

00000000: 01 08 3F 08 64 00 97 35  33 32 38 30 2C 31 34 3A  |..?.d..53280,14:|
00000010: 97 35 33 32 38 31 2C 31  33 3A 99 C7 28 31 34 32  |.53281,13:..(142|
00000020: 29 22 93 90 11 11 11 11  11 22 A3 31 32 29 22 53  |)".......".12)"S|
00000030: 45 51 55 45 4E 54 49 41  4C 20 46 49 4C 45 22 00  |EQUENTIAL FILE".|
00000040: 6A 08 69 00 99 A3 31 32  29 22 11 11 52 45 41 44  |j.i...12)"..READ|
00000050: 45 52 2F 50 52 49 4E 54  45 52 22 3A 99 A3 31 38  |ER/PRINTER":..18|
00000060: 29 22 11 11 11 11 11 42  59 22 00 8F 08 6E 00 99  |)".....BY"...n..|
00000070: A3 31 33 29 22 11 52 4F  47 45 52 20 42 2E 20 46  |.13)".ROGER B. F|
00000080: 52 59 22 3A 81 58 B2 31  A4 32 30 30 30 3A 82 00  |RY":.X.1.2000:..|
00000090: BC 08 73 00 99 22 93 22  C7 28 31 34 29 22 12 4F  |..s..".".(14)".O|
000000A0: 50 54 49 4F 4E 53 3A 92  22 3A 99 22 11 46 31 20  |PTIONS:.":.".F1 |
000000B0: 3D 20 44 49 52 45 43 54  4F 52 59 22 00 E7 08 78  |= DIRECTORY"...x|
000000C0: 00 99 22 11 46 33 20 3D  20 53 43 52 45 45 4E 20  |..".F3 = SCREEN |
000000D0: 4F 4E 4C 59 22 3A 99 22  11 46 35 20 3D 20 48 41  |ONLY":.".F5 = HA|
000000E0: 52 44 43 4F 50 59 22 00  03 09 7D 00 99 22 11 46  |RDCOPY"...}..".F|
000000F0: 37 20 3D 20 4B 49 4C 4C  20 44 49 53 4B 20 46 49  |7 = KILL DISK FI|
00000100: 4C 45 22 00 2A 09 82 00  A1 4B 24 3A 8B 4B 24 B2  |LE".*....K$:.K$.|
00000110: 22 22 B0 4B 24 B3 C7 28  31 33 33 29 B0 4B 24 B1  |"".K$..(133).K$.|
00000120: C7 28 31 33 36 29 A7 31  33 30 00 3D 09 87 00 8B  |.(136).130.=....|
00000130: 4B 24 B2 C7 28 31 33 36  29 A7 33 36 35 00 50 09  |K$..(136).365.P.|
00000140: 8C 00 8B 4B 24 B1 C7 28  31 33 33 29 A7 32 34 30  |...K$..(133).240|
00000150: 00 80 09 91 00 99 C7 28  31 34 32 29 22 93 12 44  |.......(142)"..D|
00000160: 49 52 45 43 54 4F 52 59  92 11 11 22 3A 99 22 46  |IRECTORY...":."F|
00000170: 31 20 3D 20 53 43 52 45  45 4E 20 4F 4E 4C 59 22  |1 = SCREEN ONLY"|
00000180: 00 B3 09 96 00 99 22 11  46 33 20 3D 20 48 41 52  |......".F3 = HAR|
00000190: 44 43 4F 50 59 22 3A 99  22 11 46 35 20 3D 20 43  |DCOPY":.".F5 = C|
000001A0: 41 4E 43 45 4C 20 46 55  4E 43 54 49 4F 4E 22 3A  |ANCEL FUNCTION":|
000001B0: 50 B2 30 00 DA 09 9B 00  A1 4B 24 3A 8B 4B 24 B2  |P.0......K$:.K$.|
000001C0: 22 22 B0 4B 24 B3 C7 28  31 33 33 29 B0 4B 24 B1  |"".K$..(133).K$.|
000001D0: C7 28 31 33 35 29 A7 31  35 35 00 ED 09 A0 00 8B  |.(135).155......|
000001E0: 4B 24 B2 C7 28 31 33 35  29 A7 31 31 35 00 00 0A  |K$..(135).115...|
000001F0: A5 00 8B 4B 24 B2 C7 28  31 33 33 29 A7 31 37 35  |...K$..(133).175|
00000200: 00 2F 0A AA 00 9F 34 2C  34 3A 98 34 3A 98 34 2C  |./....4,4:.4:.4,|
00000210: C7 28 31 34 29 22 44 49  52 45 43 54 4F 52 59 22  |.(14)"DIRECTORY"|
00000220: C7 28 31 35 29 3A 98 34  3A 98 34 3A 50 B2 31 00  |.(15):.4:.4:P.1.|
00000230: 65 0A AF 00 99 22 93 12  44 49 52 45 43 54 4F 52  |e...."..DIRECTOR|
00000240: 59 92 22 3A 99 3A 99 3A  9F 31 2C 38 2C 30 2C 22  |Y.":.:.:.1,8,0,"|
00000250: 24 30 22 3A A1 23 31 2C  41 24 2C 42 24 3A 4E 24  |$0":.#1,A$,B$:N$|
00000260: B2 C7 28 30 29 00 7E 0A  B4 00 A1 23 31 2C 41 24  |..(0).~....#1,A$|
00000270: 2C 42 24 3A 8B 42 24 B2  22 22 A7 32 32 30 00 A4  |,B$:.B$."".220..|
00000280: 0A B9 00 A1 23 31 2C 41  24 2C 42 24 3A 99 C6 28  |....#1,A$,B$:..(|
00000290: 41 24 AA 4E 24 29 AA 32  35 36 AC C6 28 42 24 AA  |A$.N$).256..(B$.|
000002A0: 4E 24 29 3B 00 C7 0A BE  00 8B 50 B2 31 A7 98 34  |N$);......P.1..4|
000002B0: 2C C6 28 41 24 AA 4E 24  29 AA 32 35 36 AC C6 28  |,.(A$.N$).256..(|
000002C0: 42 24 AA 4E 24 29 3B 00  DD 0A C3 00 A1 23 31 2C  |B$.N$);......#1,|
000002D0: 41 24 3A 8B 41 24 B2 22  22 A7 32 31 30 00 ED 0A  |A$:.A$."".210...|
000002E0: C8 00 8B 50 B2 31 A7 98  34 2C 41 24 3B 00 FB 0A  |...P.1..4,A$;...|
000002F0: CD 00 99 41 24 3B 3A 89  31 39 35 00 09 0B D2 00  |...A$;:.195.....|
00000300: 99 3A 8B 50 B2 31 A7 98  34 00 12 0B D7 00 89 31  |.:.P.1..4......1|
00000310: 38 30 00 2C 0B DC 00 8B  50 B2 31 A7 81 58 B2 31  |80.,....P.1..X.1|
00000320: A4 37 3A 98 34 3A 82 58  3A 50 B2 30 00 56 0B E1  |.7:.4:.X:P.0.V..|
00000330: 00 99 3A 99 22 50 52 45  53 53 20 41 4E 59 20 4B  |..:."PRESS ANY K|
00000340: 45 59 20 54 4F 20 43 4F  4E 54 49 4E 55 45 2E 22  |EY TO CONTINUE."|
00000350: 3A A0 31 3A A0 34 00 69  0B E6 00 A1 4B 24 3A 8B  |:.1:.4.i....K$:.|
00000360: 4B 24 B2 22 22 A7 32 33  30 00 72 0B EB 00 89 31  |K$."".230.r....1|
00000370: 31 35 00 94 0B F0 00 9F  31 2C 34 2C 37 3A 4C B2  |15......1,4,7:L.|
00000380: 31 3A 50 B2 30 3A 8B 4B  24 B2 C7 28 31 33 35 29  |1:P.0:.K$..(135)|
00000390: A7 50 B2 31 00 B7 0B F5  00 99 22 93 12 C9 20 4E  |.P.1......"... N|
000003A0: 45 45 44 20 41 20 46 49  4C 45 4E 41 4D 45 3A 92  |EED A FILENAME:.|
000003B0: 20 22 3B 3A 85 46 24 00  D1 0B FA 00 9F 38 2C 38  | ";:.F$......8,8|
000003C0: 2C 38 2C 46 24 AA 22 2C  53 2C 52 22 3A 8D 34 34  |,8,F$.",S,R":.44|
000003D0: 30 00 F2 0B FF 00 99 22  93 12 50 52 45 53 53 20  |0......"..PRESS |
000003E0: 41 4E 59 20 4B 45 59 20  54 4F 20 50 41 55 53 45  |ANY KEY TO PAUSE|
000003F0: 92 22 00 0C 0C 04 01 99  3A 99 3A 99 A3 31 30 29  |."......:.:..10)|
00000400: 22 12 22 46 24 22 92 22  3A 99 3A 99 00 3A 0C 09  |"."F$".":.:..:..|
00000410: 01 8B 50 B2 31 A7 98 31  2C C7 28 31 34 35 29 C7  |..P.1..1,.(145).|
00000420: 28 31 34 29 46 24 C7 28  31 35 29 C7 28 31 37 29  |(14)F$.(15).(17)|
00000430: 3A 98 31 3A 98 31 3A 4C  B2 34 00 57 0C 0E 01 A1  |:.1:.1:L.4.W....|
00000440: 23 38 2C 43 48 24 3A 97  32 31 32 2C 30 3A 8B 53  |#8,CH$:.212,0:.S|
00000450: 54 B2 30 A7 32 38 30 00  66 0C 13 01 8B 53 54 B2  |T.0.280.f....ST.|
00000460: 36 34 A7 33 34 30 00 73  0C 18 01 99 43 48 24 22  |64.340.s....CH$"|
00000470: 90 22 3B 00 9A 0C 1D 01  8B 50 B2 31 A7 98 31 2C  |.";......P.1..1,|
00000480: 43 48 24 3B 3A 8B 43 48  24 B2 C7 28 31 33 29 A7  |CH$;:.CH$..(13).|
00000490: 4C B2 4C AA 31 3A 8D 34  35 35 00 AD 0C 22 01 A1  |L.L.1:.455..."..|
000004A0: 4B 24 3A 8B 4B 24 B2 22  22 A7 32 37 30 00 DE 0C  |K$:.K$."".270...|
000004B0: 27 01 99 3A 81 58 B2 31  A4 33 39 3A 99 22 2A 22  |'..:.X.1.39:."*"|
000004C0: 3B 3A 82 58 3A 99 3A 99  22 12 50 41 55 53 45 20  |;:.X:.:.".PAUSE |
000004D0: 49 53 20 49 4E 20 45 46  46 45 43 54 92 22 00 15  |IS IN EFFECT."..|
000004E0: 0D 2C 01 99 22 4F 50 54  49 4F 4E 53 3A 22 3A 99  |.,.."OPTIONS:":.|
000004F0: 22 46 31 20 3D 20 50 52  49 4E 54 45 52 20 4F 4E  |"F1 = PRINTER ON|
00000500: 22 3A 99 22 46 33 20 3D  20 50 52 49 4E 54 45 52  |":."F3 = PRINTER|
00000510: 20 4F 46 46 22 00 4C 0D  31 01 99 22 46 35 20 3D  | OFF".L.1.."F5 =|
00000520: 20 41 42 4F 52 54 20 4F  50 45 52 41 54 49 4F 4E  | ABORT OPERATION|
00000530: 22 3A 99 22 46 37 20 3D  20 43 4F 4E 54 49 4E 55  |":."F7 = CONTINU|
00000540: 45 20 55 4E 43 48 41 4E  47 45 44 22 00 6D 0D 36  |E UNCHANGED".m.6|
00000550: 01 A1 4B 24 3A 8B 4B 24  B3 C7 28 31 33 33 29 B0  |..K$:.K$..(133).|
00000560: 4B 24 B1 C7 28 31 33 36  29 A7 33 31 30 00 98 0D  |K$..(136).310...|
00000570: 3B 01 8B 4B 24 B2 C7 28  31 33 33 29 A7 50 B2 31  |;..K$..(133).P.1|
00000580: 3A 98 31 2C C7 28 31 37  29 3A 98 31 3A 98 31 3A  |:.1,.(17):.1:.1:|
00000590: 4C B2 33 3A 89 33 33 30  00 B0 0D 40 01 8B 4B 24  |L.3:.330...@..K$|
000005A0: B2 C7 28 31 33 34 29 A7  50 B2 30 3A 89 33 33 30  |..(134).P.0:.330|
000005B0: 00 C3 0D 45 01 8B 4B 24  B2 C7 28 31 33 35 29 A7  |...E..K$..(135).|
000005C0: 33 33 35 00 EE 0D 4A 01  99 22 12 43 4F 4E 54 49  |335...J..".CONTI|
000005D0: 4E 55 49 4E 47 92 22 3A  81 58 B2 31 A4 33 39 3A  |NUING.":.X.1.39:|
000005E0: 99 22 2A 22 3B 3A 82 3A  99 3A 89 32 37 30 00 1B  |."*";:.:.:.270..|
000005F0: 0E 4F 01 99 22 93 11 11  11 11 11 22 A3 31 31 29  |.O.."......".11)|
00000600: C7 28 31 34 32 29 22 12  4F 50 45 52 41 54 49 4F  |.(142)".OPERATIO|
00000610: 4E 20 41 42 4F 52 54 45  44 92 22 00 41 0E 54 01  |N ABORTED.".A.T.|
00000620: 8B 50 B2 31 A7 98 31 3A  81 58 B2 4C AA 32 A4 36  |.P.1..1:.X.L.2.6|
00000630: 36 3A 98 31 3A 82 58 3A  98 31 2C C7 28 31 34 35  |6:.1:.X:.1,.(145|
00000640: 29 00 7B 0E 59 01 A0 31  3A A0 38 3A 99 3A 99 22  |).{.Y..1:.8:.:."|
00000650: 44 4F 20 59 4F 55 20 57  49 53 48 20 54 4F 20 52  |DO YOU WISH TO R|
00000660: 45 41 44 22 3A 99 22 41  4E 4F 54 48 45 52 20 46  |EAD":."ANOTHER F|
00000670: 49 4C 45 3F 20 28 59 2F  4E 29 22 00 92 0E 5E 01  |ILE? (Y/N)"...^.|
00000680: A1 4B 24 3A 8B 4B 24 B2  22 59 22 A7 9C 3A 89 31  |.K$:.K$."Y"..:.1|
00000690: 31 35 00 A3 0E 63 01 8B  4B 24 B3 B1 22 4E 22 A7  |15...c..K$.."N".|
000006A0: 33 35 30 00 A9 0E 68 01  80 00 CC 0E 6D 01 97 35  |350...h.....m..5|
000006B0: 33 32 38 30 2C 32 3A 97  35 33 32 38 31 2C 32 3A  |3280,2:.53281,2:|
000006C0: 99 C7 28 31 34 32 29 3A  8D 34 36 35 00 FB 0E 72  |..(142):.465...r|
000006D0: 01 99 22 11 11 11 54 59  50 45 20 49 4E 20 54 48  |.."...TYPE IN TH|
000006E0: 45 20 46 49 4C 45 4E 41  4D 45 20 54 4F 20 42 45  |E FILENAME TO BE|
000006F0: 20 53 43 52 41 54 43 48  45 44 22 00 2B 0F 77 01  | SCRATCHED".+.w.|
00000700: 99 22 4F 52 20 50 52 45  53 53 20 52 45 54 55 52  |."OR PRESS RETUR|
00000710: 4E 20 54 4F 20 41 42 4F  52 54 20 54 48 45 20 46  |N TO ABORT THE F|
00000720: 55 4E 43 54 49 4F 4E 2E  11 11 22 00 43 0F 7C 01  |UNCTION...".C.|.|
00000730: 99 22 12 46 49 4C 45 4E  41 4D 45 3A 92 22 3B 3A  |.".FILENAME:.";:|
00000740: 85 46 24 00 52 0F 81 01  8B 46 24 B2 22 22 A7 34  |.F$.R....F$."".4|
00000750: 31 30 00 8D 0F 86 01 8D  34 36 35 3A 99 22 11 11  |10......465:."..|
00000760: 4C 41 53 54 20 43 48 41  4E 43 45 21 22 3A 99 22  |LAST CHANCE!":."|
00000770: 11 11 44 4F 20 59 4F 55  20 52 45 41 4C 4C 59 20  |..DO YOU REALLY |
00000780: 57 49 53 48 20 54 4F 20  4B 49 4C 4C 22 00 B0 0F  |WISH TO KILL"...|
00000790: 8B 01 99 22 11 54 48 45  20 20 12 20 22 46 24 22  |...".THE  . "F$"|
000007A0: 20 92 20 20 46 49 4C 45  3F 20 28 59 2F 4E 29 22  | .  FILE? (Y/N)"|
000007B0: 00 C3 0F 90 01 A1 4B 24  3A 8B 4B 24 B2 22 22 A7  |......K$:.K$."".|
000007C0: 34 30 30 00 D3 0F 95 01  8B 4B 24 B2 22 59 22 A7  |400......K$."Y".|
000007D0: 34 31 35 00 FA 0F 9A 01  97 35 33 32 38 30 2C 31  |415......53280,1|
000007E0: 34 3A 97 35 33 32 38 31  2C 31 33 3A 99 22 90 22  |4:.53281,13:."."|
000007F0: C7 28 31 34 29 3A 89 33  33 35 00 13 10 9F 01 8D  |.(14):.335......|
00000800: 34 36 35 3A 99 22 11 11  4B 49 4C 4C 49 4E 47 20  |465:."..KILLING |
00000810: 22 46 24 00 31 10 A4 01  A0 31 35 3A 9F 31 35 2C  |"F$.1....15:.15,|
00000820: 38 2C 31 35 3A 98 31 35  2C 22 53 30 3A 22 AA 46  |8,15:.15,"S0:".F|
00000830: 24 00 46 10 A9 01 81 58  B2 31 A4 32 30 30 30 3A  |$.F....X.1.2000:|
00000840: 82 58 3A A0 31 35 00 67  10 AE 01 8D 34 36 35 3A  |.X:.15.g....465:|
00000850: 99 22 11 11 22 46 24 22  20 49 53 20 4E 4F 57 20  |.".."F$" IS NOW |
00000860: 44 45 41 44 21 21 22 00  9B 10 B3 01 81 58 B2 31  |DEAD!!"......X.1|
00000870: A4 32 30 30 30 3A 82 58  3A 97 35 33 32 38 30 2C  |.2000:.X:.53280,|
00000880: 31 34 3A 97 35 33 32 38  31 2C 31 33 3A 99 22 90  |14:.53281,13:.".|
00000890: 22 C7 28 31 34 29 3A 89  31 31 35 00 B9 10 B8 01  |".(14):.115.....|
000008A0: A0 31 35 3A 9F 31 35 2C  38 2C 31 35 3A 84 31 35  |.15:.15,8,15:.15|
000008B0: 2C 44 2C 45 24 2C 46 2C  47 00 F0 10 BD 01 8B 44  |,D,E$,F,G......D|
000008C0: B1 30 A7 99 3A 99 22 54  48 45 52 45 20 49 53 20  |.0..:."THERE IS |
000008D0: 41 20 44 49 53 4B 20 45  52 52 4F 52 22 3A 99 44  |A DISK ERROR":.D|
000008E0: 3B 45 24 3B 46 3B 47 3A  A0 31 35 3A 89 33 34 35  |;E$;F;G:.15:.345|
000008F0: 00 F6 10 C2 01 8E 00 11  11 C7 01 8B 4C B2 36 30  |............L.60|
00000900: A7 4C B2 31 3A 81 58 B2  31 A4 37 3A 98 31 3A 82  |.L.1:.X.1.7:.1:.|
00000910: 58 00 17 11 CC 01 8E 00  43 11 D1 01 99 22 93 11  |X.......C...."..|
00000920: 11 11 11 11 22 A3 38 29  22 05 12 20 4B 49 4C 4C  |....".8)".. KILL|
00000930: 20 46 55 4E 43 54 49 4F  4E 20 41 43 54 49 56 45  | FUNCTION ACTIVE|
00000940: 20 92 22 00 49 11 D6 01  8E 00 00 00              | .".I.......    |

..?.D..53280,14:.53281,13:.G(142)"......
.".12)"SEQUENTIAL FILE".J.I...12)"..READ
ER/PRINTER":..18)".....BY"...N...13)".RO
GER B. FRY":.X.1.2000:....S.."."G(14)".O
PTIONS:.":.".F1 = DIRECTORY"...X..".F3 =
 SCREEN ONLY":.".F5 = HARDCOPY"...}..".F
7 = KILL DISK FILE".*....K$:.K$."".K$.G(
133).K$.G(136).130.=....K$.G(136).365.P.
...K$.G(133).240......G(142)"..DIRECTORY
...":."F1 = SCREEN ONLY"......".F3 = HAR
DCOPY":.".F5 = CANCEL FUNCTION":P.0.Z...
.K$:.K$."".K$.G(133).K$.G(135).155... ..
K$.G(135).115......K$.G(133).175./....4,
4:.4:.4,G(14)"DIRECTORY"G(15):.4:.4:P.1.
E...."..DIRECTORY.":.:.:.1,8,0,"$0":.#1,
A$,B$:N$.G(0).~....#1,A$,B$:.B$."".220..
....#1,A$,B$:.F(A$.N$).256.F(B$.N$);.G..
..P.1..4,F(A$.N$).256.F(B$.N$);...C..#1,
A$:.A$."".210...H..P.1..4,A$;...M..A$;:.
195...R..:.P.1..4...W..180.,....P.1..X.1
.7:.4:.X:P.0.V....:."PRESS ANY KEY TO CO
NTINUE.": 1: 4.I....K$:.K$."".230.R....1
15......1,4,7:L.1:P.0:.K$.G(135).P.1....
.."..I NEED A FILENAME:. ";:.F$.Q....8,8
,8,F$.",S,R":.440......"..PRESS ANY KEY 
TO PAUSE."......:.:..10)"."F$".":.:..:..
..P.1..1,G(145)G(14)F$G(15)G(17):.1:.1:L
.4.W....#8,CH$:.212,0:.ST.0.280.F....ST.
64.340.S....CH$".";......P.1..1,CH$;:.CH
$.G(13).L.L.1:.455..."..K$:.K$."".270...
'..:.X.1.39:."*";:.X:.:.".PAUSE IS IN EF
FECT."...,.."OPTIONS:":."F1 = PRINTER ON
":."F3 = PRINTER OFF".L.1.."F5 = ABORT O
PERATION":."F7 = CONTINUE UNCHANGED".M.6
..K$:.K$.G(133).K$.G(136).310...;..K$.G(
133).P.1:.1,G(17):.1:.1:L.3:.330...@..K$
.G(134).P.0:.330.C.E..K$.G(135).335...J.
.".CONTINUING.":.X.1.39:."*";:.:.:.270..
.O.."......".11)G(142)".OPERATION ABORTE
D.".A.T..P.1..1:.X.L.2.66:.1:.X:.1,G(145
).{.Y. 1: 8:.:."DO YOU WISH TO READ":."A
NOTHER FILE? (Y/N)"...^..K$:.K$."Y"..:.1
15...C..K$.."N".350...H...L.M..53280,2:.
53281,2:.G(142):.465...R.."...TYPE IN TH
E FILENAME TO BE SCRATCHED".+.W.."OR PRE
SS RETURN TO ABORT THE FUNCTION...".C.|.
.".FILENAME:.";:.F$.R....F$."".410......
465:."..LAST CHANCE!":."..DO YOU REALLY 
WISH TO KILL"......".THE  . "F$" .  FILE
? (Y/N)".C....K$:.K$."".400.S....K$."Y".
415......53280,14:.53281,13:."."G(14):.3
35......465:."..KILLING "F$.1... 15:.15,
8,15:.15,"S0:".F$.F....X.1.2000:.X: 15.G
....465:.".."F$" IS NOW DEAD!!"......X.1
.2000:.X:.53280,14:.53281,13:."."G(14):.
115..... 15:.15,8,15:.15,D,E$,F,G......D
.0..:."THERE IS A DISK ERROR":.D;E$;F;G:
 15:.345...B.....G..L.60.L.1:.X.1.7:.1:.
X...L...C.Q.."......".8)".. KILL FUNCTIO
N ACTIVE .".I.V.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL