00000000: 01 04 17 10 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 00 29 10 02 00 8F 20 2A 20 |*******.).... * |
00000020: 20 20 45 58 41 4D 50 4C 45 00 3E 10 03 00 8F 20 | EXAMPLE.>.... |
00000030: 2A 20 52 45 41 44 20 26 20 57 52 49 54 45 00 53 |* READ & WRITE.S|
00000040: 10 04 00 8F 20 2A 20 41 20 53 45 51 55 45 4E 54 |.... * A SEQUENT|
00000050: 49 41 4C 00 65 10 05 00 8F 20 2A 20 44 41 54 41 |IAL.e.... * DATA|
00000060: 20 46 49 4C 45 00 7B 10 06 00 8F 20 2A 2A 2A 2A | FILE.{.... ****|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 96 10 0A 00 |***********.....|
00000080: 99 22 93 11 11 1D 49 4E 49 54 49 41 4C 49 5A 45 |."....INITIALIZE|
00000090: 20 44 49 53 4B 22 00 A2 10 14 00 86 41 24 28 32 | DISK"......A$(2|
000000A0: 35 29 00 AD 10 1E 00 86 42 28 32 35 29 00 BF 10 |5)......B(25)...|
000000B0: 28 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 00 |(..15,8,15,"I0".|
000000C0: CA 10 3C 00 8D 20 31 30 30 30 00 D8 10 46 00 43 |..<.. 1000...F.C|
000000D0: 52 24 B2 C7 28 31 33 29 00 DE 10 50 00 99 00 FB |R$..(13)...P....|
000000E0: 10 5A 00 99 22 20 11 57 52 49 54 45 20 53 45 51 |.Z.." .WRITE SEQ|
000000F0: 20 54 45 53 54 20 46 49 4C 45 22 00 01 11 5F 00 | TEST FILE"..._.|
00000100: 99 00 15 11 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....d.. ********|
00000110: 2A 2A 2A 2A 2A 00 1D 11 65 00 8F 20 2A 00 30 11 |*****...e.. *.0.|
00000120: 66 00 8F 20 2A 20 20 57 52 49 54 45 20 53 45 51 |f.. * WRITE SEQ|
00000130: 00 43 11 67 00 8F 20 2A 20 20 54 45 53 54 20 46 |.C.g.. * TEST F|
00000140: 49 4C 45 00 4B 11 68 00 8F 20 2A 00 5F 11 69 00 |ILE.K.h.. *._.i.|
00000150: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |. *************.|
00000160: 78 11 6A 00 99 22 20 45 4E 54 45 52 20 41 20 4E |x.j.." ENTER A N|
00000170: 41 4D 45 20 46 4F 52 22 00 8F 11 6B 00 99 22 20 |AME FOR"...k.." |
00000180: 54 48 45 20 53 45 51 20 54 45 53 54 20 22 3B 00 |THE SEQ TEST ";.|
00000190: 9E 11 6C 00 85 22 46 49 4C 45 22 3B 46 24 00 B9 |..l.."FILE";F$..|
000001A0: 11 6E 00 9F 32 2C 38 2C 32 2C 22 40 30 3A 22 AA |.n..2,8,2,"@0:".|
000001B0: 46 24 AA 22 2C 53 2C 57 22 00 C4 11 73 00 8D 20 |F$.",S,W"...s.. |
000001C0: 31 30 30 30 00 CA 11 74 00 99 00 F8 11 75 00 99 |1000...t.....u..|
000001D0: 22 20 45 4E 54 45 52 20 41 20 57 4F 52 44 20 41 |" ENTER A WORD A|
000001E0: 4E 44 20 41 20 4E 55 4D 42 45 52 20 28 45 58 3A |ND A NUMBER (EX:|
000001F0: 20 4A 4F 45 2C 32 29 22 00 19 12 76 00 99 22 20 | JOE,2)"...v.." |
00000200: 4F 52 20 45 4E 54 45 52 20 27 45 4E 44 2C 30 27 |OR ENTER 'END,0'|
00000210: 20 54 4F 20 53 54 4F 50 22 00 1F 12 77 00 99 00 | TO STOP"...w...|
00000220: 31 12 78 00 85 22 20 41 24 2C 42 22 3B 41 24 2C |1.x.." A$,B";A$,|
00000230: 42 00 46 12 82 00 98 32 2C 41 24 22 2C 22 C4 28 |B.F....2,A$",".(|
00000240: 42 29 43 52 24 3B 00 51 12 8C 00 8D 20 31 30 30 |B)CR$;.Q.... 100|
00000250: 30 00 64 12 91 00 8B 41 24 B2 22 45 4E 44 22 A7 |0.d....A$."END".|
00000260: 20 31 36 30 00 6E 12 96 00 89 20 31 32 30 00 76 | 160.n.... 120.v|
00000270: 12 A0 00 A0 20 32 00 8A 12 C8 00 8F 20 2A 2A 2A |.... 2...... ***|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 12 C9 00 8F |**********......|
00000290: 20 2A 00 A4 12 CA 00 8F 20 2A 20 20 52 45 41 44 | *...... * READ|
000002A0: 20 53 45 51 00 B7 12 CB 00 8F 20 2A 20 20 54 45 | SEQ...... * TE|
000002B0: 53 54 20 46 49 4C 45 00 BF 12 CC 00 8F 20 2A 00 |ST FILE...... *.|
000002C0: D3 12 CD 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000002D0: 2A 2A 2A 00 D9 12 CE 00 99 00 F4 12 CF 00 99 22 |***............"|
000002E0: 20 52 45 41 44 20 53 45 51 20 54 45 53 54 20 46 | READ SEQ TEST F|
000002F0: 49 4C 45 22 00 FA 12 D0 00 99 00 14 13 D2 00 9F |ILE"............|
00000300: 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 AA 22 2C |2,8,2,"0:".F$.",|
00000310: 53 2C 52 22 00 1F 13 D7 00 8D 20 31 30 30 30 00 |S,R"...... 1000.|
00000320: 31 13 DC 00 84 32 2C 41 24 28 49 29 2C 42 28 49 |1....2,A$(I),B(I|
00000330: 29 00 3B 13 E0 00 52 53 B2 53 54 00 46 13 E1 00 |).;...RS.ST.F...|
00000340: 8D 20 31 30 30 30 00 59 13 E6 00 99 22 20 22 41 |. 1000.Y...." "A|
00000350: 24 28 49 29 2C 42 28 49 29 00 6B 13 F0 00 8B 52 |$(I),B(I).k....R|
00000360: 20 53 B2 36 34 20 A7 20 33 30 30 00 7D 13 FA 00 | S.64 . 300.}...|
00000370: 8B 20 52 53 B3 B1 30 20 A7 20 34 30 30 00 87 13 |. RS..0 . 400...|
00000380: 04 01 49 B2 49 AA 31 00 91 13 0E 01 89 20 32 32 |..I.I.1...... 22|
00000390: 30 00 99 13 2C 01 A0 20 32 00 9F 13 36 01 80 00 |0...,.. 2...6...|
000003A0: BC 13 90 01 99 22 42 41 44 1D 44 49 53 4B 1D 53 |....."BAD.DISK.S|
000003B0: 54 41 54 55 53 1D 49 53 1D 22 52 53 00 C4 13 9A |TATUS.IS."RS....|
000003C0: 01 A0 20 32 00 CA 13 A4 01 80 00 DD 13 E8 03 8F |.. 2............|
000003D0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E5 13 | ************...|
000003E0: E9 03 8F 20 2A 00 F3 13 EA 03 8F 20 2A 20 20 52 |... *...... * R|
000003F0: 45 41 44 00 05 14 EB 03 8F 20 2A 20 54 48 45 20 |EAD...... * THE |
00000400: 45 52 52 4F 52 00 16 14 EC 03 8F 20 2A 20 20 43 |ERROR...... * C|
00000410: 48 41 4E 4E 45 4C 00 1E 14 ED 03 8F 20 2A 00 31 |HANNEL...... *.1|
00000420: 14 EE 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000430: 2A 00 46 14 F2 03 84 31 35 2C 45 4E 2C 45 4D 24 |*.F....15,EN,EM$|
00000440: 2C 45 54 2C 45 53 00 55 14 FC 03 8B 20 45 4E B2 |,ET,ES.U.... EN.|
00000450: 30 20 A7 20 8E 00 6E 14 06 04 99 22 1D 1D 1D 1D |0 . ..n...."....|
00000460: 45 52 52 4F 52 20 4F 4E 20 44 49 53 4B 22 00 80 |ERROR ON DISK"..|
00000470: 14 10 04 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 |....EN;EM$;ET;ES|
00000480: 00 88 14 1A 04 A0 20 32 00 8E 14 24 04 80 00 00 |...... 2...$....|
00000490: 00 CA |.. |
....... ***************.).... * EXAMPL
E.>.... * READ & WRITE.S.... * A SEQUENT
IAL.E.... * DATA FILE.{.... ************
***......"....INITIALIZE DISK"......A$(2
5)......B(25)...(..15,8,15,"I0".J.<.. 10
00.X.F.CR$.G(13)...P.....Z.." .WRITE SEQ
TEST FILE"..._.....D.. *************...
E.. *.0.F.. * WRITE SEQ.C.G.. * TEST F
ILE.K.H.. *._.I.. *************.X.J.." E
NTER A NAME FOR"...K.." THE SEQ TEST ";.
..L.."FILE";F$...N..2,8,2,"@0:".F$.",S,W
".D.S.. 1000.J.T.....U.." ENTER A WORD A
ND A NUMBER (EX: JOE,2)"...V.." OR ENTER
'END,0' TO STOP"...W...1.X.." A$,B";A$,
B.F....2,A$","D(B)CR$;.Q.... 1000.D....A
$."END". 160.N.... 120.V. . 2...H.. ***
**********...I.. *...J.. * READ SEQ...K
.. * TEST FILE...L.. *.S.M.. **********
***.Y.N.....O.." READ SEQ TEST FILE"...P
.....R..2,8,2,"0:".F$.",S,R"...W.. 1000.
1....2,A$(I),B(I).;...RS.ST.F.... 1000.Y
...." "A$(I),B(I).K....R S.64 . 300.}...
. RS..0 . 400.....I.I.1...... 220...,.
2...6........"BAD.DISK.STATUS.IS."RS.D..
. 2.J.......... ************...... *...
... * READ...... * THE ERROR...... * C
HANNEL...... *.1.... ************.F....1
5,EN,EM$,ET,ES.U.... EN.0 . ..N...."....
ERROR ON DISK"......EN;EM$;ET;ES..... 2
...$.....J
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL