SEQ EXMPL-UNIV
FILE INFORMATION
FILENAME(S): SEQ EXMPL-UNIV
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 21:23:52
APPEARS ON: 1 disk(s)
FILE HASH
9670fea360288f9503836e9d17fc7c9679a5d5f73a77a530304aaaa427785e9b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 27 1 | SEQ EXMPL-UNIV | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1F 04 01 00 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 00 |***************.| 00000020: 3D 04 02 00 8F 20 2A 20 20 20 20 20 20 45 58 41 |=.... * EXA| 00000030: 4D 50 4C 45 20 20 20 20 20 20 20 20 2A 00 5B 04 |MPLE *.[.| 00000040: 03 00 8F 20 2A 20 20 52 45 41 44 20 41 4E 44 20 |... * READ AND | 00000050: 57 52 49 54 45 20 41 20 20 20 2A 00 79 04 04 00 |WRITE A *.y...| 00000060: 8F 20 2A 20 20 53 45 51 55 45 4E 54 49 41 4C 20 |. * SEQUENTIAL | 00000070: 44 41 54 41 20 20 20 20 2A 00 97 04 05 00 8F 20 |DATA *...... | 00000080: 2A 20 20 46 49 4C 45 20 55 53 49 4E 47 20 44 52 |* FILE USING DR| 00000090: 49 56 45 20 30 20 2A 00 B5 04 09 00 8F 20 2A 2A |IVE 0 *...... **| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 00 CE 04 0A 00 99 22 93 12 49 4E |*****......"..IN| 000000C0: 49 54 49 41 4C 49 5A 45 20 44 49 53 4B 22 00 FD |ITIALIZE DISK"..| 000000D0: 04 14 00 86 41 24 28 32 35 29 3A 8F 20 20 20 20 |....A$(25):. | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 53 45 54 20 41 24 20 41 52 52 41 59 00 2B 05 | SET A$ ARRAY.+.| 00000100: 1E 00 86 42 28 32 35 29 3A 8F 20 20 20 20 20 20 |...B(25):. | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 53 45 54 20 42 20 41 52 52 41 59 00 65 05 28 00 |SET B ARRAY.e.(.| 00000130: 9F 31 35 2C 38 2C 31 35 3A 8F 20 20 20 20 20 20 |.15,8,15:. | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 50 45 | OPE| 00000150: 4E 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 43 48 |N THE COMMAND CH| 00000160: 41 4E 4E 45 4C 00 9A 05 32 00 98 31 35 2C 22 49 |ANNEL...2..15,"I| 00000170: 30 22 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 |0":. | 00000180: 20 20 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 | INITIALIZE | 00000190: 44 52 49 56 45 20 5A 45 52 4F 00 D1 05 3C 00 8D |DRIVE ZERO...<..| 000001A0: 20 31 30 30 30 3A 8F 20 20 20 20 20 20 20 20 20 | 1000:. | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 | READ | 000001C0: 54 48 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |THE ERROR CHANNE| 000001D0: 4C 00 16 06 46 00 43 52 24 B2 C7 28 31 33 29 3A |L...F.CR$..(13):| 000001E0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000001F0: 20 20 20 53 45 54 20 53 54 52 49 4E 47 20 43 52 | SET STRING CR| 00000200: 24 20 54 4F 20 41 20 43 41 52 52 49 41 47 45 20 |$ TO A CARRIAGE | 00000210: 52 45 54 55 52 4E 00 2E 06 5A 00 99 22 12 57 52 |RETURN...Z..".WR| 00000220: 49 54 45 20 54 45 53 54 20 46 49 4C 45 22 00 4C |ITE TEST FILE".L| 00000230: 06 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.d.. ***********| 00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 06 65 |************.j.e| 00000250: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * | 00000260: 20 20 20 20 20 20 20 20 20 2A 00 88 06 66 00 8F | *...f..| 00000270: 20 2A 20 20 20 57 52 49 54 45 20 54 45 53 54 20 | * WRITE TEST | 00000280: 46 49 4C 45 20 20 20 2A 00 A6 06 67 00 8F 20 2A |FILE *...g.. *| 00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002A0: 20 20 20 20 20 2A 00 C4 06 69 00 8F 20 2A 2A 2A | *...i.. ***| 000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002C0: 2A 2A 2A 2A 00 07 07 6E 00 9F 32 2C 38 2C 32 2C |****...n..2,8,2,| 000002D0: 22 40 30 3A 20 54 45 53 54 20 46 49 4C 45 20 2C |"@0: TEST FILE ,| 000002E0: 53 2C 57 22 3A 8F 20 4F 50 45 4E 20 4C 4F 47 49 |S,W":. OPEN LOGI| 000002F0: 43 41 4C 20 46 49 4C 45 20 32 20 4F 4E 20 44 49 |CAL FILE 2 ON DI| 00000300: 53 4B 20 38 20 54 4F 00 4C 07 6F 00 8F 20 20 20 |SK 8 TO.L.o.. | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 20 20 20 20 20 20 20 20 20 20 43 48 41 4C 4C | CHALL| 00000330: 45 4C 20 32 20 52 45 50 4C 41 43 45 20 44 41 54 |EL 2 REPLACE DAT| 00000340: 41 20 46 49 4C 45 20 4E 41 4D 45 44 00 8F 07 70 |A FILE NAMED...p| 00000350: 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000370: 54 45 53 54 20 46 49 4C 45 20 57 49 54 48 20 53 |TEST FILE WITH S| 00000380: 45 51 55 45 4E 54 49 41 4C 20 57 52 49 54 45 00 |EQUENTIAL WRITE.| 00000390: C5 07 73 00 8D 20 31 30 30 30 3A 8F 20 20 20 20 |..s.. 1000:. | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 | R| 000003B0: 45 41 44 20 54 48 45 20 45 52 52 4F 52 20 43 48 |EAD THE ERROR CH| 000003C0: 41 4E 4E 45 4C 00 05 08 78 00 87 41 24 2C 42 3A |ANNEL...x..A$,B:| 000003D0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000003E0: 20 20 20 20 20 20 52 45 41 44 20 4E 41 4D 45 2C | READ NAME,| 000003F0: 20 4E 55 4D 42 45 52 20 49 4E 54 4F 20 41 24 20 | NUMBER INTO A$ | 00000400: 41 4E 44 20 42 00 38 08 82 00 8B 41 24 B2 22 45 |AND B.8....A$."E| 00000410: 4E 44 22 A7 20 31 36 30 3A 8F 20 20 20 20 20 20 |ND". 160:. | 00000420: 20 20 20 20 20 53 54 4F 50 20 54 48 45 20 44 41 | STOP THE DA| 00000430: 54 41 20 49 4E 50 55 54 00 65 08 8C 00 98 32 2C |TA INPUT.e....2,| 00000440: 41 24 22 2C 22 C4 28 42 29 43 52 24 3B 3A 8F 20 |A$",".(B)CR$;:. | 00000450: 20 20 20 20 50 52 49 4E 54 20 54 4F 20 54 48 45 | PRINT TO THE| 00000460: 20 44 49 53 4B 00 9B 08 91 00 8D 20 31 30 30 30 | DISK...... 1000| 00000470: 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00000480: 20 20 20 20 20 52 45 41 44 20 54 48 45 20 45 52 | READ THE ER| 00000490: 52 4F 52 20 43 48 41 4E 4E 45 4C 00 A5 08 96 00 |ROR CHANNEL.....| 000004A0: 89 20 31 32 30 00 D4 08 A0 00 A0 20 32 3A 8F 20 |. 120...... 2:. | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004C0: 20 20 20 20 20 43 4C 4F 53 45 20 54 45 53 54 20 | CLOSE TEST | 000004D0: 46 49 4C 45 00 F2 08 C8 00 8F 20 2A 2A 2A 2A 2A |FILE...... *****| 000004E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004F0: 2A 2A 00 10 09 C9 00 8F 20 2A 20 20 20 20 20 20 |**...... * | 00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00000510: 00 2E 09 CA 00 8F 20 2A 20 20 20 52 45 41 44 20 |...... * READ | 00000520: 54 45 53 54 20 46 49 4C 45 20 20 20 20 2A 00 4C |TEST FILE *.L| 00000530: 09 CB 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * | 00000540: 20 20 20 20 20 20 20 20 20 20 20 2A 00 6A 09 CD | *.j..| 00000550: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 09 CE 00 99 |**********......| 00000570: 22 12 52 45 41 44 20 54 45 53 54 20 46 49 4C 45 |".READ TEST FILE| 00000580: 22 00 C4 09 D2 00 9F 32 2C 38 2C 32 2C 22 30 3A |"......2,8,2,"0:| 00000590: 20 54 45 53 54 20 46 49 4C 45 20 2C 53 2C 52 22 | TEST FILE ,S,R"| 000005A0: 3A 8F 20 20 4F 50 45 4E 20 4C 4F 47 49 43 41 4C |:. OPEN LOGICAL| 000005B0: 20 46 49 4C 45 20 32 20 4F 4E 20 44 49 53 4B 20 | FILE 2 ON DISK | 000005C0: 38 20 54 4F 00 06 0A D3 00 8F 20 20 20 20 20 20 |8 TO...... | 000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005E0: 20 20 20 20 20 20 20 20 43 48 41 4E 4E 45 4C 20 | CHANNEL | 000005F0: 32 20 4E 41 4D 45 44 20 54 45 53 54 20 46 49 4C |2 NAMED TEST FIL| 00000600: 45 20 57 49 54 48 00 39 0A D4 00 8F 20 20 20 20 |E WITH.9.... | 00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000620: 20 20 20 20 20 20 20 20 20 20 53 45 51 55 45 4E | SEQUEN| 00000630: 54 49 41 4C 20 52 45 41 44 00 6F 0A D7 00 8D 20 |TIAL READ.o.... | 00000640: 31 30 30 30 3A 8F 20 20 20 20 20 20 20 20 20 20 |1000:. | 00000650: 20 20 20 20 20 20 20 20 20 52 45 41 44 20 54 48 | READ TH| 00000660: 45 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 4C 00 |E ERROR CHANNEL.| 00000670: AE 0A DC 00 84 32 2C 41 24 28 49 29 2C 42 28 49 |.....2,A$(I),B(I| 00000680: 29 3A 8F 20 20 20 20 20 20 20 20 20 20 20 52 45 |):. RE| 00000690: 41 44 20 53 54 52 49 4E 47 20 49 4E 54 4F 20 53 |AD STRING INTO S| 000006A0: 54 52 49 4E 47 20 41 52 52 41 59 20 41 24 00 E9 |TRING ARRAY A$..| 000006B0: 0A DD 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006D0: 20 20 41 4E 44 20 4E 55 4D 42 45 52 20 49 4E 54 | AND NUMBER INT| 000006E0: 4F 20 41 52 52 41 59 20 42 00 22 0B E0 00 52 53 |O ARRAY B."...RS| 000006F0: B2 53 54 3A 8F 20 20 20 20 20 20 20 20 20 20 20 |.ST:. | 00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4F | STO| 00000710: 52 45 20 54 48 45 20 44 49 53 4B 20 53 54 41 54 |RE THE DISK STAT| 00000720: 55 53 00 58 0B E1 00 8D 20 31 30 30 30 3A 8F 20 |US.X.... 1000:. | 00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000740: 20 20 52 45 41 44 20 54 48 45 20 45 52 52 4F 52 | READ THE ERROR| 00000750: 20 43 48 41 4E 4E 45 4C 00 8B 0B E6 00 99 41 24 | CHANNEL......A$| 00000760: 28 49 29 2C 42 28 49 29 3A 8F 20 20 20 20 20 20 |(I),B(I):. | 00000770: 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 57 48 | PRINT WH| 00000780: 41 54 20 57 41 53 20 52 45 41 44 00 C7 0B F0 00 |AT WAS READ.....| 00000790: 8B 52 20 53 B2 36 34 20 A7 20 33 30 30 3A 8F 20 |.R S.64 . 300:. | 000007A0: 20 20 20 20 20 20 20 20 20 20 20 43 48 45 43 4B | CHECK| 000007B0: 20 46 4F 52 20 45 4E 44 20 4F 46 20 46 49 4C 45 | FOR END OF FILE| 000007C0: 20 53 54 41 54 55 53 00 05 0C FA 00 8B 20 52 53 | STATUS...... RS| 000007D0: B3 B1 30 20 A7 20 34 30 30 3A 8F 20 20 20 20 20 |..0 . 400:. | 000007E0: 20 20 20 20 20 20 20 43 48 45 43 4B 20 46 4F 52 | CHECK FOR| 000007F0: 20 45 52 52 4F 52 20 49 4E 20 46 49 4C 45 20 53 | ERROR IN FILE S| 00000800: 54 41 54 55 53 00 3F 0C 04 01 49 B2 49 AA 31 3A |TATUS.?...I.I.1:| 00000810: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000820: 20 20 20 20 20 20 20 20 20 41 44 44 20 31 20 54 | ADD 1 T| 00000830: 4F 20 41 52 52 41 59 20 50 4F 49 4E 54 45 52 00 |O ARRAY POINTER.| 00000840: 49 0C 0E 01 89 20 32 32 30 00 78 0C 2C 01 A0 20 |I.... 220.x.,.. | 00000850: 32 3A 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |2:. | 00000860: 20 20 20 20 20 20 20 20 20 43 4C 4F 53 45 20 54 | CLOSE T| 00000870: 45 53 54 20 46 49 4C 45 00 B3 0C 36 01 80 3A 8F |EST FILE...6..:.| 00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000890: 20 20 20 20 20 20 20 20 20 20 45 4E 44 20 54 48 | END TH| 000008A0: 45 20 50 52 4F 47 52 41 4D 20 45 58 45 43 55 54 |E PROGRAM EXECUT| 000008B0: 49 4F 4E 00 D1 0C 90 01 99 22 12 42 41 44 1D 44 |ION......".BAD.D| 000008C0: 49 53 4B 1D 53 54 41 54 55 53 1D 49 53 1D 22 52 |ISK.STATUS.IS."R| 000008D0: 53 00 00 0D 9A 01 A0 20 32 3A 8F 20 20 20 20 20 |S...... 2:. | 000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008F0: 20 43 4C 4F 53 45 20 54 45 53 54 20 46 49 4C 45 | CLOSE TEST FILE| 00000900: 00 3B 0D A4 01 80 3A 8F 20 20 20 20 20 20 20 20 |.;....:. | 00000910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000920: 20 20 45 4E 44 20 54 48 45 20 50 52 4F 47 52 41 | END THE PROGRA| 00000930: 4D 20 45 58 45 43 55 54 49 4F 4E 00 59 0D E8 03 |M EXECUTION.Y...| 00000940: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 77 0D E9 03 8F 20 |*********.w.... | 00000960: 2A 20 20 20 52 45 41 44 20 54 48 45 20 45 52 52 |* READ THE ERR| 00000970: 4F 52 20 20 20 20 2A 00 95 0D EA 03 8F 20 2A 20 |OR *...... * | 00000980: 20 20 20 20 20 43 48 41 4E 4E 45 4C 20 20 20 20 | CHANNEL | 00000990: 20 20 20 20 2A 00 B3 0D ED 03 8F 20 2A 2A 2A 2A | *...... ****| 000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009B0: 2A 2A 2A 00 DB 0D F2 03 84 31 35 2C 45 4E 24 2C |***......15,EN$,| 000009C0: 45 4D 24 2C 45 54 24 2C 45 53 24 3A 8F 20 20 20 |EM$,ET$,ES$:. | 000009D0: 20 52 45 41 44 20 45 52 52 4F 52 00 15 0E F3 03 | READ ERROR.....| 000009E0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000009F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E | EN| 00000A00: 24 20 49 53 20 54 48 45 20 45 52 52 4F 52 20 4E |$ IS THE ERROR N| 00000A10: 55 4D 42 45 52 00 50 0E F4 03 8F 20 20 20 20 20 |UMBER.P.... | 00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A30: 20 20 20 20 20 20 20 20 45 4D 24 20 49 53 20 54 | EM$ IS T| 00000A40: 48 45 20 45 52 52 4F 52 20 4D 45 53 53 41 47 45 |HE ERROR MESSAGE| 00000A50: 00 8A 0E F5 03 8F 20 20 20 20 20 20 20 20 20 20 |...... | 00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000A70: 20 20 20 45 53 24 20 49 53 20 54 48 45 20 45 52 | ES$ IS THE ER| 00000A80: 52 4F 52 20 53 45 43 54 4F 52 00 C5 0E FC 03 8B |ROR SECTOR......| 00000A90: 20 45 4E 24 B2 22 30 30 22 20 A7 20 8E 3A 8F 20 | EN$."00" . .:. | 00000AA0: 20 20 20 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 | RETURN TO MA| 00000AB0: 49 4E 20 4C 4F 47 49 43 20 49 46 20 4E 4F 20 45 |IN LOGIC IF NO E| 00000AC0: 52 52 4F 52 53 00 F3 0E 06 04 99 22 12 45 52 52 |RRORS......".ERR| 00000AD0: 4F 52 20 4F 4E 20 44 49 53 4B 22 3A 8F 20 20 20 |OR ON DISK":. | 00000AE0: 20 20 20 20 50 52 49 4E 54 20 54 48 45 20 45 52 | PRINT THE ER| 00000AF0: 52 4F 52 00 21 0F 10 04 99 45 4D 24 2C 45 4E 24 |ROR.!....EM$,EN$| 00000B00: 2C 45 54 24 45 53 24 3A 8F 20 20 20 20 20 20 20 |,ET$ES$:. | 00000B10: 20 20 50 52 49 4E 54 20 54 48 45 20 45 52 52 4F | PRINT THE ERRO| 00000B20: 52 00 4F 0F 1A 04 A0 20 32 3A 8F 20 20 20 20 20 |R.O.... 2:. | 00000B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B40: 43 4C 4F 53 45 20 54 45 53 54 20 46 49 4C 45 00 |CLOSE TEST FILE.| 00000B50: 89 0F 24 04 80 3A 8F 20 20 20 20 20 20 20 20 20 |..$..:. | 00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000B70: 45 4E 44 20 54 48 45 20 50 52 4F 47 52 41 4D 20 |END THE PROGRAM | 00000B80: 45 58 45 43 55 54 49 4F 4E 00 D1 0F D0 07 83 20 |EXECUTION...... | 00000B90: 22 41 53 44 46 22 2C 31 2C 22 47 48 4A 4B 22 2C |"ASDF",1,"GHJK",| 00000BA0: 32 2C 22 51 57 45 52 54 22 2C 33 2C 22 59 55 49 |2,"QWERT",3,"YUI| 00000BB0: 4F 50 22 2C 34 2C 22 5A 58 43 56 42 4E 4D 22 2C |OP",4,"ZXCVBNM",| 00000BC0: 35 2C 22 50 4C 4D 4B 4F 49 4A 4E 48 55 22 2C 32 |5,"PLMKOIJNHU",2| 00000BD0: 38 00 FB 0F D5 07 83 20 22 50 4F 49 55 59 22 2C |8...... "POIUY",| 00000BE0: 36 35 2C 22 45 4E 44 20 4F 46 20 44 41 54 41 22 |65,"END OF DATA"| 00000BF0: 2C 35 2C 22 45 4E 44 22 2C 36 39 00 00 00 3A |,5,"END",69...: |
....... ***********************.=.... *
EXAMPLE *.[.... * READ AND
WRITE A *.Y.... * SEQUENTIAL DATA
*...... * FILE USING DRIVE 0 *...... **
*********************.N...."..INITIALIZE
DISK"......A$(25):.
SET A$ ARRAY.+....B(25):.
SET B ARRAY.E.(..15,8,15:.
OPEN THE COMMAND CHANNEL...
2..15,"I0":. INITIALIZE
DRIVE ZERO.Q.<.. 1000:.
READ THE ERROR CHANNEL...F.CR$.G(13):
. SET STRING CR$ TO A C
ARRIAGE RETURN...Z..".WRITE TEST FILE".L
.D.. ***********************.J.E.. *
*...F.. * WRITE TEST
FILE *...G.. * *.D
.I.. ***********************...N..2,8,2,
"@0: TEST FILE ,S,W":. OPEN LOGICAL FILE
2 ON DISK 8 TO.L.O..
CHALLEL 2 REPLACE DATA FILE N
AMED...P..
TEST FILE WITH SEQUENTIAL WRITE.E.S.. 10
00:. READ THE ERROR CH
ANNEL...X..A$,B:. RE
AD NAME, NUMBER INTO A$ AND B.8....A$."E
ND". 160:. STOP THE DATA INPUT
.E....2,A$","D(B)CR$;:. PRINT TO THE
DISK...... 1000:. REA
D THE ERROR CHANNEL...... 120.T. . 2:.
CLOSE TEST FILE...H
.. ***********************...I.. *
*...J.. * READ TEST FIL
E *.L.K.. * *.J.M
.. ***********************...N..".READ T
EST FILE".D.R..2,8,2,"0: TEST FILE ,S,R"
:. OPEN LOGICAL FILE 2 ON DISK 8 TO...S
.. CHANNEL
2 NAMED TEST FILE WITH.9.T..
SEQUENTIAL READ.O.W..
1000:. READ THE ERROR
CHANNEL......2,A$(I),B(I):. RE
AD STRING INTO STRING ARRAY A$......
AND NUMBER INT
O ARRAY B."...RS.ST:.
STORE THE DISK STATUS.X.... 1000:.
READ THE ERROR CHANNEL
......A$(I),B(I):. PRINT WH
AT WAS READ.G....R S.64 . 300:.
CHECK FOR END OF FILE STATUS...... RS
..0 . 400:. CHECK FOR ERROR I
N FILE STATUS.?...I.I.1:.
ADD 1 TO ARRAY POINTER.I.... 22
0.X.,. 2:. CLOSE T
EST FILE...6..:.
END THE PROGRAM EXECUTION.Q....".BAD.D
ISK.STATUS.IS."RS..... 2:.
CLOSE TEST FILE.;....:.
END THE PROGRAM EXECUT
ION.Y.... ***********************.W....
* READ THE ERROR *...... * CHA
NNEL *...... ********************
***......15,EN$,EM$,ET$,ES$:. READ ER
ROR...... EN
$ IS THE ERROR NUMBER.P....
EM$ IS THE ERROR MESSAGE
...... ES$ I
S THE ERROR SECTOR.E.... EN$."00" . .:.
RETURN TO MAIN LOGIC IF NO ERRORS...
...".ERROR ON DISK":. PRINT THE ER
ROR.!....EM$,EN$,ET$ES$:. PRINT
THE ERROR.O... 2:.
CLOSE TEST FILE...$..:.
END THE PROGRAM EXECUTION.Q.P..
"ASDF",1,"GHJK",2,"QWERT",3,"YUIOP",4,"Z
XCVBNM",5,"PLMKOIJNHU",28...U.. "POIUY",
65,"END OF DATA",5,"END",69...:
> CLICK IMAGE PREVIEW FOR FULL MODAL