RELATIVE128.JUL
FILE INFORMATION
FILENAME(S): RELATIVE128.JUL
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-10-19 22:48:36
APPEARS ON: 2 disk(s)
FILE HASH
49c481e03a5a911dbc1cded986e6c8111134c8ea9382a00350fe2fe93bef534e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMPUTE | RELATIVE128.JUL | PRG | Radd Maxx | 25 | 3 | DOWNLOAD FILE |
| COMPUTE | RELATIVE128.JUL | PRG | DuncanTwain | 25 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 52 1C E8 03 8F 3A 20 52 45 4C 41 54 49 56 |..R....: RELATIV|
00000010: 45 20 46 49 4C 45 20 54 45 53 54 49 4E 47 20 50 |E FILE TESTING P|
00000020: 52 4F 47 52 41 4D 20 46 4F 52 20 54 48 45 20 43 |ROGRAM FOR THE C|
00000030: 2D 31 32 38 20 43 4F 4D 50 55 54 45 52 20 41 4E |-128 COMPUTER AN|
00000040: 44 20 31 35 37 31 20 44 49 53 4B 20 44 52 49 56 |D 1571 DISK DRIV|
00000050: 45 2E 00 9B 1C F2 03 8F 3A 20 43 4F 50 59 52 49 |E.......: COPYRI|
00000060: 47 48 54 20 31 39 38 37 20 43 4F 4D 50 55 54 45 |GHT 1987 COMPUTE|
00000070: 21 20 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 |! PUBLICATIONS, |
00000080: 49 4E 43 2E 20 20 20 41 4C 4C 20 52 49 47 48 54 |INC. ALL RIGHT|
00000090: 53 20 52 45 53 45 52 56 45 44 2E 00 D1 1C F3 03 |S RESERVED......|
000000A0: 99 22 93 43 4F 50 59 52 49 47 48 54 20 31 39 38 |.".COPYRIGHT 198|
000000B0: 37 22 3A 99 22 43 4F 4D 50 55 54 45 21 20 50 55 |7":."COMPUTE! PU|
000000C0: 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 4E 43 2E |BLICATIONS, INC.|
000000D0: 22 00 ED 1C F4 03 99 22 41 4C 4C 20 52 49 47 48 |"......"ALL RIGH|
000000E0: 54 53 20 52 45 53 45 52 56 45 44 2E 22 00 FD 1C |TS RESERVED."...|
000000F0: F5 03 81 58 B2 31 A4 31 32 30 30 3A 82 00 14 1D |...X.1.1200:....|
00000100: FC 03 FE 26 3A 8B C2 28 33 33 30 30 29 B2 30 A7 |...&:..(3300).0.|
00000110: 32 31 37 30 00 4F 1D 06 04 9C 3A E8 3A E7 35 2C |2170.O....:.:.5,|
00000120: 31 34 3A 4E 4E 24 B2 22 20 20 20 20 20 20 20 20 |14:NN$." |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000150: 84 1D 10 04 E0 2C 30 2C 31 2C 22 4F 4E 45 20 4D |.....,0,1,"ONE M|
00000160: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 22 |OMENT PLEASE..."|
00000170: 3A F2 22 52 2A 22 3A 8D 32 30 33 30 3A F3 3A 8D |:."R*":.2030:.:.|
00000180: 32 30 33 30 00 CC 1D 1A 04 E0 2C 30 2C 33 2C 22 |2030......,0,3,"|
00000190: 43 2D 31 32 38 3A 20 53 4C 4F 57 20 4D 4F 44 45 |C-128: SLOW MODE|
000001A0: 20 4F 52 20 46 41 53 54 20 4D 4F 44 45 22 3A E0 | OR FAST MODE":.|
000001B0: 2C 30 2C 34 2C 22 45 4E 54 45 52 20 27 53 27 20 |,0,4,"ENTER 'S' |
000001C0: 4F 52 20 27 46 27 22 3A 85 4D 4F 24 00 F9 1D 24 |OR 'F'":.MO$...$|
000001D0: 04 8B 4D 4F 24 B3 B1 22 53 22 AF 4D 4F 24 B3 B1 |..MO$.."S".MO$..|
000001E0: 22 46 22 A7 E0 2C 30 2C 34 2C 4E 4E 24 3A 99 C7 |"F"..,0,4,NN$:..|
000001F0: 28 37 29 3A 89 31 30 35 30 00 43 1E 2E 04 E0 2C |(7):.1050.C....,|
00000200: 30 2C 36 2C 22 44 52 49 56 45 3A 20 31 35 34 31 |0,6,"DRIVE: 1541|
00000210: 20 4D 4F 44 45 20 4F 52 20 31 35 37 31 20 4D 4F | MODE OR 1571 MO|
00000220: 44 45 22 3A E0 2C 30 2C 37 2C 22 45 4E 54 45 52 |DE":.,0,7,"ENTER|
00000230: 20 27 34 31 27 20 4F 52 20 27 37 31 27 22 3A 85 | '41' OR '71'":.|
00000240: 44 44 24 00 72 1E 38 04 8B 44 44 24 B3 B1 22 34 |DD$.r.8..DD$.."4|
00000250: 31 22 AF 44 44 24 B3 B1 22 37 31 22 A7 E0 2C 30 |1".DD$.."71"..,0|
00000260: 2C 37 2C 4E 4E 24 3A 99 C7 28 37 29 3A 89 31 30 |,7,NN$:..(7):.10|
00000270: 37 30 00 BC 1E 42 04 E0 2C 30 2C 39 2C 22 57 41 |70...B..,0,9,"WA|
00000280: 4E 54 20 54 4F 20 43 48 45 43 4B 20 45 52 52 4F |NT TO CHECK ERRO|
00000290: 52 20 43 48 41 4E 4E 45 4C 22 3A E0 2C 30 2C 31 |R CHANNEL":.,0,1|
000002A0: 30 2C 22 45 4E 54 45 52 20 27 4F 4E 27 20 4F 52 |0,"ENTER 'ON' OR|
000002B0: 20 27 4F 46 46 27 22 3A 85 43 4B 24 00 ED 1E 4C | 'OFF'":.CK$...L|
000002C0: 04 8B 43 4B 24 B3 B1 22 4F 4E 22 AF 43 4B 24 B3 |..CK$.."ON".CK$.|
000002D0: B1 22 4F 46 46 22 A7 E0 2C 30 2C 31 30 2C 4E 4E |."OFF"..,0,10,NN|
000002E0: 24 3A 99 C7 28 37 29 3A 89 31 30 39 30 00 45 1F |$:..(7):.1090.E.|
000002F0: 56 04 E0 2C 30 2C 31 32 2C 22 48 4F 57 20 4D 41 |V..,0,12,"HOW MA|
00000300: 4E 59 20 52 45 43 4F 52 44 53 20 44 4F 20 59 4F |NY RECORDS DO YO|
00000310: 55 20 57 41 4E 54 22 3A E0 2C 30 2C 31 33 2C 22 |U WANT":.,0,13,"|
00000320: 54 4F 20 43 52 45 41 54 45 20 28 31 30 20 54 4F |TO CREATE (10 TO|
00000330: 20 39 39 39 29 22 3A 85 4E 52 24 3A 4E 52 B2 C5 | 999)":.NR$:NR..|
00000340: 28 4E 52 24 29 00 6E 1F 60 04 8B 4E 52 B3 31 30 |(NR$).n.`..NR.10|
00000350: B0 4E 52 B1 39 39 39 A7 E0 2C 30 2C 31 33 2C 4E |.NR.999..,0,13,N|
00000360: 4E 24 3A 99 C7 28 37 29 3A 89 31 31 31 30 00 BC |N$:..(7):.1110..|
00000370: 1F 6A 04 E0 2C 30 2C 31 35 2C 22 57 41 4E 54 20 |.j..,0,15,"WANT |
00000380: 54 4F 20 50 4F 53 49 54 49 4F 4E 20 50 4F 49 4E |TO POSITION POIN|
00000390: 54 45 52 20 54 4F 22 3A E0 2C 30 2C 31 36 2C 22 |TER TO":.,0,16,"|
000003A0: 4C 41 53 54 20 52 45 43 4F 52 44 20 27 59 27 20 |LAST RECORD 'Y' |
000003B0: 4F 52 20 27 4E 27 22 3A 85 50 50 24 00 EA 1F 74 |OR 'N'":.PP$...t|
000003C0: 04 8B 50 50 24 B3 B1 22 59 22 AF 50 50 24 B3 B1 |..PP$.."Y".PP$..|
000003D0: 22 4E 22 A7 E0 2C 30 2C 31 36 2C 4E 4E 24 3A 99 |"N"..,0,16,NN$:.|
000003E0: C7 28 37 29 3A 89 31 31 33 30 00 13 20 7E 04 8B |.(7):.1130.. ~..|
000003F0: 44 44 24 B2 22 34 31 22 A7 9F 31 35 2C 38 2C 31 |DD$."41"..15,8,1|
00000400: 35 2C 22 55 30 3E 4D 30 22 3A 8D 32 30 33 30 3A |5,"U0>M0":.2030:|
00000410: A0 31 35 00 3C 20 88 04 8B 44 44 24 B2 22 37 31 |.15.< ...DD$."71|
00000420: 22 A7 9F 31 35 2C 38 2C 31 35 2C 22 55 30 3E 4D |"..15,8,15,"U0>M|
00000430: 31 22 3A 8D 32 30 33 30 3A A0 31 35 00 6D 20 92 |1":.2030:.15.m .|
00000440: 04 46 54 24 B2 22 52 2D 22 AA 4D 4F 24 AA 22 2D |.FT$."R-".MO$."-|
00000450: 22 AA 44 44 24 AA 22 2D 22 AA 43 4B 24 AA 22 2D |".DD$."-".CK$."-|
00000460: 22 AA 50 50 24 AA 22 2D 22 AA 4E 52 24 00 7F 20 |".PP$."-".NR$.. |
00000470: 9C 04 8B 50 50 24 B2 22 4E 22 A7 31 32 35 30 00 |...PP$."N".1250.|
00000480: B7 20 A6 04 99 3A 99 22 57 41 49 54 20 2D 20 57 |. ...:."WAIT - W|
00000490: 52 49 54 49 4E 47 20 50 4F 49 4E 54 45 52 20 54 |RITING POINTER T|
000004A0: 4F 20 52 45 43 2E 20 23 22 AA C4 28 4E 52 29 AA |O REC. #"..(NR).|
000004B0: 22 2E 22 3A FE 0B 32 00 C7 20 B0 04 8B 4D 4F 24 |".":..2.. ...MO$|
000004C0: B2 22 46 22 A7 FE 25 00 DB 20 BA 04 FE 0D 23 31 |."F"..%.. ....#1|
000004D0: 2C 28 46 54 24 29 2C 4C 31 30 32 00 EB 20 C4 04 |,(FT$),L102.. ..|
000004E0: FE 12 23 31 2C 28 4E 52 29 2C 31 00 06 21 CE 04 |..#1,(NR),1..!..|
000004F0: 8B 44 53 B2 35 30 A7 98 31 2C C7 28 32 35 35 29 |.DS.50..1,.(255)|
00000500: 3A 89 31 32 32 30 00 15 21 D8 04 8D 32 30 33 30 |:.1220..!...2030|
00000510: 3A FE 0F 23 31 00 1E 21 E2 04 50 54 B2 30 00 53 |:..#1..!..PT.0.S|
00000520: 21 EC 04 FE 26 3A E8 3A 99 22 43 52 45 41 54 49 |!...&:.:."CREATI|
00000530: 4E 47 20 54 45 58 54 20 46 4F 52 20 54 48 45 20 |NG TEXT FOR THE |
00000540: 52 45 4C 41 54 49 56 45 20 46 49 4C 45 2E 22 3A |RELATIVE FILE.":|
00000550: FE 0B 32 00 5F 21 F6 04 81 4A B2 31 A4 31 30 00 |..2._!...J.1.10.|
00000560: 84 21 00 05 46 31 24 28 4A 29 B2 22 32 33 20 43 |.!..F1$(J)."23 C|
00000570: 48 41 52 41 43 54 45 52 20 46 49 45 4C 44 2A 2A |HARACTER FIELD**|
00000580: 2A 2A 2A 22 00 A2 21 0A 05 46 32 24 28 4A 29 B2 |***"..!..F2$(J).|
00000590: 22 31 36 20 43 48 41 52 41 43 54 45 52 20 46 49 |"16 CHARACTER FI|
000005A0: 45 22 00 B9 21 14 05 46 33 24 28 4A 29 B2 22 30 |E"..!..F3$(J)."0|
000005B0: 39 20 43 48 41 52 41 43 22 00 DA 21 1E 05 46 34 |9 CHARAC"..!..F4|
000005C0: 24 28 4A 29 B2 22 31 39 20 43 48 41 52 41 43 54 |$(J)."19 CHARACT|
000005D0: 45 52 20 46 49 45 4C 44 2A 22 00 05 22 28 05 46 |ER FIELD*".."(.F|
000005E0: 35 24 28 4A 29 B2 22 32 39 20 43 48 41 52 41 43 |5$(J)."29 CHARAC|
000005F0: 54 45 52 20 46 49 45 4C 44 2A 2A 2A 2A 2A 2A 2A |TER FIELD*******|
00000600: 2A 2A 2A 2A 22 00 0B 22 32 05 82 00 38 22 3C 05 |****".."2...8"<.|
00000610: FE 26 3A 99 3A 99 22 57 52 49 54 49 4E 47 20 41 |.&:.:."WRITING A|
00000620: 52 52 41 59 20 49 54 45 4D 53 20 4F 4E 20 44 49 |RRAY ITEMS ON DI|
00000630: 53 4B 2E 22 3A FE 0B 32 00 48 22 46 05 8B 4D 4F |SK.":..2.H"F..MO|
00000640: 24 B2 22 46 22 A7 FE 25 00 62 22 50 05 FE 0D 23 |$."F"..%.b"P...#|
00000650: 33 2C 28 46 54 24 29 2C 4C 31 30 32 3A 8D 32 30 |3,(FT$),L102:.20|
00000660: 33 30 00 6E 22 5A 05 81 4A B2 31 A4 31 30 00 7F |30.n"Z..J.1.10..|
00000670: 22 64 05 50 54 B2 50 54 AA 31 3A 99 50 54 3B 00 |"d.PT.PT.1:.PT;.|
00000680: 90 22 6E 05 8B 43 4B 24 B2 22 4F 4E 22 A7 FE 18 |."n..CK$."ON"...|
00000690: 00 C8 22 78 05 FE 12 23 33 2C 28 50 54 29 2C 31 |.."x...#3,(PT),1|
000006A0: 3A 8D 32 30 31 30 3A 98 33 2C 46 31 24 28 4A 29 |:.2010:.3,F1$(J)|
000006B0: 3A 8D 32 30 31 30 3A FE 12 23 33 2C 28 50 54 29 |:.2010:..#3,(PT)|
000006C0: 2C 31 3A 8D 32 30 31 30 00 02 23 82 05 FE 12 23 |,1:.2010..#....#|
000006D0: 33 2C 28 50 54 29 2C 32 35 3A 8D 32 30 31 30 3A |3,(PT),25:.2010:|
000006E0: 98 33 2C 46 32 24 28 4A 29 3A 8D 32 30 31 30 3A |.3,F2$(J):.2010:|
000006F0: FE 12 23 33 2C 28 50 54 29 2C 32 35 3A 8D 32 30 |..#3,(PT),25:.20|
00000700: 31 30 00 3C 23 8C 05 FE 12 23 33 2C 28 50 54 29 |10.<#....#3,(PT)|
00000710: 2C 34 32 3A 8D 32 30 31 30 3A 98 33 2C 46 33 24 |,42:.2010:.3,F3$|
00000720: 28 4A 29 3A 8D 32 30 31 30 3A FE 12 23 33 2C 28 |(J):.2010:..#3,(|
00000730: 50 54 29 2C 34 32 3A 8D 32 30 31 30 00 76 23 96 |PT),42:.2010.v#.|
00000740: 05 FE 12 23 33 2C 28 50 54 29 2C 35 32 3A 8D 32 |...#3,(PT),52:.2|
00000750: 30 31 30 3A 98 33 2C 46 34 24 28 4A 29 3A 8D 32 |010:.3,F4$(J):.2|
00000760: 30 31 30 3A FE 12 23 33 2C 28 50 54 29 2C 35 32 |010:..#3,(PT),52|
00000770: 3A 8D 32 30 31 30 00 B0 23 A0 05 FE 12 23 33 2C |:.2010..#....#3,|
00000780: 28 50 54 29 2C 37 32 3A 8D 32 30 31 30 3A 98 33 |(PT),72:.2010:.3|
00000790: 2C 46 35 24 28 4A 29 3A 8D 32 30 31 30 3A FE 12 |,F5$(J):.2010:..|
000007A0: 23 33 2C 28 50 54 29 2C 37 32 3A 8D 32 30 31 30 |#3,(PT),72:.2010|
000007B0: 00 B7 23 AA 05 FE 19 00 C9 23 B4 05 8B 43 4B 24 |..#......#...CK$|
000007C0: B2 22 4F 46 46 22 A7 FE 18 00 EF 23 BE 05 FE 12 |."OFF".....#....|
000007D0: 23 33 2C 28 50 54 29 2C 31 3A 98 33 2C 46 31 24 |#3,(PT),1:.3,F1$|
000007E0: 28 4A 29 3A FE 12 23 33 2C 28 50 54 29 2C 31 00 |(J):..#3,(PT),1.|
000007F0: 17 24 C8 05 FE 12 23 33 2C 28 50 54 29 2C 32 35 |.$....#3,(PT),25|
00000800: 3A 98 33 2C 46 32 24 28 4A 29 3A FE 12 23 33 2C |:.3,F2$(J):..#3,|
00000810: 28 50 54 29 2C 32 35 00 3F 24 D2 05 FE 12 23 33 |(PT),25.?$....#3|
00000820: 2C 28 50 54 29 2C 34 32 3A 98 33 2C 46 33 24 28 |,(PT),42:.3,F3$(|
00000830: 4A 29 3A FE 12 23 33 2C 28 50 54 29 2C 34 32 00 |J):..#3,(PT),42.|
00000840: 67 24 DC 05 FE 12 23 33 2C 28 50 54 29 2C 35 32 |g$....#3,(PT),52|
00000850: 3A 98 33 2C 46 34 24 28 4A 29 3A FE 12 23 33 2C |:.3,F4$(J):..#3,|
00000860: 28 50 54 29 2C 35 32 00 8F 24 E6 05 FE 12 23 33 |(PT),52..$....#3|
00000870: 2C 28 50 54 29 2C 37 32 3A 98 33 2C 46 35 24 28 |,(PT),72:.3,F5$(|
00000880: 4A 29 3A FE 12 23 33 2C 28 50 54 29 2C 37 32 00 |J):..#3,(PT),72.|
00000890: 96 24 F0 05 FE 19 00 A7 24 FA 05 8B 4A B2 31 30 |.$......$...J.10|
000008A0: A7 99 3A 99 44 53 24 00 BF 24 04 06 8B 50 54 B2 |..:.DS$..$...PT.|
000008B0: 4E 52 A7 99 3A 99 44 53 24 3A 89 31 35 36 30 00 |NR..:.DS$:.1560.|
000008C0: C5 24 0E 06 82 00 CE 24 18 06 FE 0F 23 33 00 42 |.$.....$....#3.B|
000008D0: 25 22 06 8B 50 54 B2 4E 52 A7 FE 26 3A 99 3A 99 |%"..PT.NR..&:.:.|
000008E0: 22 54 4F 54 41 4C 20 23 20 4F 46 20 52 45 43 4F |"TOTAL # OF RECO|
000008F0: 52 44 53 20 57 52 49 54 54 45 4E 3D 22 3B 50 54 |RDS WRITTEN=";PT|
00000900: 3A E7 35 2C 32 3A 99 3A 99 22 45 4E 44 20 4F 46 |:.5,2:.:."END OF|
00000910: 20 57 52 49 54 49 4E 47 20 50 52 4F 47 52 41 4D | WRITING PROGRAM|
00000920: 22 3A 99 22 50 52 45 53 53 20 41 4E 59 20 4B 45 |":."PRESS ANY KE|
00000930: 59 20 4E 4F 57 2E 22 3A A1 F9 4B 24 3A 89 31 35 |Y NOW.":..K$:.15|
00000940: 39 30 00 6F 25 2C 06 99 3A 99 22 54 4F 54 41 4C |90.o%,..:."TOTAL|
00000950: 20 23 20 4F 46 20 52 45 43 4F 52 44 53 20 53 4F | # OF RECORDS SO|
00000960: 20 46 41 52 3D 22 3B 50 54 3A 89 31 32 37 30 00 | FAR=";PT:.1270.|
00000970: 7B 25 36 06 E8 3A E7 35 2C 31 34 00 AC 25 40 06 |{%6..:.5,14..%@.|
00000980: 99 22 52 45 41 44 49 4E 47 20 42 41 43 4B 20 52 |."READING BACK R|
00000990: 45 43 4F 52 44 53 20 23 20 31 20 54 4F 22 AA C4 |ECORDS # 1 TO"..|
000009A0: 28 4E 52 29 AA 22 2E 22 3A FE 0B 32 00 BC 25 4A |(NR).".":..2..%J|
000009B0: 06 8B 4D 4F 24 B2 22 46 22 A7 FE 25 00 D6 25 54 |..MO$."F"..%..%T|
000009C0: 06 FE 0D 23 35 2C 28 46 54 24 29 2C 4C 31 30 32 |...#5,(FT$),L102|
000009D0: 3A 8D 32 30 33 30 00 E2 25 5E 06 81 49 B2 31 A4 |:.2030..%^..I.1.|
000009E0: 4E 52 00 0A 26 68 06 E0 2C 32 33 2C 35 2C C7 28 |NR..&h..,23,5,.(|
000009F0: 31 35 38 29 AA C7 28 39 35 29 AA C7 28 31 35 33 |158)..(95)..(153|
00000A00: 29 AA 22 20 20 20 20 20 20 22 00 39 26 72 06 E0 |)." ".9&r..|
00000A10: 2C 31 36 2C 36 2C C7 28 31 35 38 29 AA C7 28 39 |,16,6,.(158)..(9|
00000A20: 35 29 AA C7 28 31 35 33 29 AA 22 20 20 20 20 20 |5)..(153)." |
00000A30: 20 20 20 20 20 20 20 20 22 00 6E 26 7C 06 E0 2C | ".n&|..,|
00000A40: 39 2C 37 2C C7 28 31 35 38 29 AA C7 28 39 35 29 |9,7,.(158)..(95)|
00000A50: AA C7 28 31 35 33 29 AA 22 20 20 20 20 20 20 20 |..(153)." |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 9A | "..|
00000A70: 26 86 06 E0 2C 31 39 2C 38 2C C7 28 31 35 38 29 |&...,19,8,.(158)|
00000A80: AA C7 28 39 35 29 AA C7 28 31 35 33 29 AA 22 20 |..(95)..(153)." |
00000A90: 20 20 20 20 20 20 20 20 20 22 00 B9 26 90 06 E0 | "..&...|
00000AA0: 2C 32 39 2C 39 2C C7 28 31 35 38 29 AA C7 28 39 |,29,9,.(158)..(9|
00000AB0: 35 29 AA C7 28 31 35 33 29 00 E4 26 9A 06 E7 35 |5)..(153)..&...5|
00000AC0: 2C 32 3A E0 2C 30 2C 33 2C 22 52 45 43 4F 52 44 |,2:.,0,3,"RECORD|
00000AD0: 20 23 22 AA C4 28 49 29 3A E7 35 2C 31 34 3A E0 | #"..(I):.5,14:.|
00000AE0: 2C 30 2C 35 00 F5 26 A4 06 8B 43 4B 24 B2 22 4F |,0,5..&...CK$."O|
00000AF0: 4E 22 A7 FE 18 00 3B 27 AE 06 FE 12 23 35 2C 28 |N"....;'....#5,(|
00000B00: 49 29 2C 31 3A 8D 32 30 31 30 3A 84 35 2C 46 31 |I),1:.2010:.5,F1|
00000B10: 24 3A 8D 32 30 33 30 3A 99 46 31 24 3A 8B C3 28 |$:.2030:.F1$:..(|
00000B20: 46 31 24 29 B3 B1 32 33 A7 43 44 B2 35 3A 53 55 |F1$)..23.CD.5:SU|
00000B30: 24 B2 46 31 24 3A 8D 32 30 35 30 00 82 27 B8 06 |$.F1$:.2050..'..|
00000B40: FE 12 23 35 2C 28 49 29 2C 32 35 3A 8D 32 30 31 |..#5,(I),25:.201|
00000B50: 30 3A 84 35 2C 46 32 24 3A 8D 32 30 33 30 3A 99 |0:.5,F2$:.2030:.|
00000B60: 46 32 24 3A 8B C3 28 46 32 24 29 B3 B1 31 36 A7 |F2$:..(F2$)..16.|
00000B70: 43 44 B2 36 3A 53 55 24 B2 46 32 24 3A 8D 32 30 |CD.6:SU$.F2$:.20|
00000B80: 35 30 00 C8 27 C2 06 FE 12 23 35 2C 28 49 29 2C |50..'....#5,(I),|
00000B90: 34 32 3A 8D 32 30 31 30 3A 84 35 2C 46 33 24 3A |42:.2010:.5,F3$:|
00000BA0: 8D 32 30 33 30 3A 99 46 33 24 3A 8B C3 28 46 33 |.2030:.F3$:..(F3|
00000BB0: 24 29 B3 B1 39 A7 43 44 B2 37 3A 53 55 24 B2 46 |$)..9.CD.7:SU$.F|
00000BC0: 33 24 3A 8D 32 30 35 30 00 0F 28 CC 06 FE 12 23 |3$:.2050..(....#|
00000BD0: 35 2C 28 49 29 2C 35 32 3A 8D 32 30 31 30 3A 84 |5,(I),52:.2010:.|
00000BE0: 35 2C 46 34 24 3A 8D 32 30 33 30 3A 99 46 34 24 |5,F4$:.2030:.F4$|
00000BF0: 3A 8B C3 28 46 34 24 29 B3 B1 31 39 A7 43 44 B2 |:..(F4$)..19.CD.|
00000C00: 38 3A 53 55 24 B2 46 34 24 3A 8D 32 30 35 30 00 |8:SU$.F4$:.2050.|
00000C10: 56 28 D6 06 FE 12 23 35 2C 28 49 29 2C 37 32 3A |V(....#5,(I),72:|
00000C20: 8D 32 30 31 30 3A 84 35 2C 46 35 24 3A 8D 32 30 |.2010:.5,F5$:.20|
00000C30: 33 30 3A 99 46 35 24 3A 8B C3 28 46 35 24 29 B3 |30:.F5$:..(F5$).|
00000C40: B1 32 39 A7 43 44 B2 39 3A 53 55 24 B2 46 35 24 |.29.CD.9:SU$.F5$|
00000C50: 3A 8D 32 30 35 30 00 5D 28 E0 06 FE 19 00 6F 28 |:.2050.](.....o(|
00000C60: EA 06 8B 43 4B 24 B2 22 4F 46 46 22 A7 FE 18 00 |...CK$."OFF"....|
00000C70: A9 28 F4 06 FE 12 23 35 2C 28 49 29 2C 31 3A 84 |.(....#5,(I),1:.|
00000C80: 35 2C 46 31 24 3A 99 46 31 24 3A 8B C3 28 46 31 |5,F1$:.F1$:..(F1|
00000C90: 24 29 B3 B1 32 33 A7 43 44 B2 35 3A 53 55 24 B2 |$)..23.CD.5:SU$.|
00000CA0: 46 31 24 3A 8D 32 30 35 30 00 E4 28 FE 06 FE 12 |F1$:.2050..(....|
00000CB0: 23 35 2C 28 49 29 2C 32 35 3A 84 35 2C 46 32 24 |#5,(I),25:.5,F2$|
00000CC0: 3A 99 46 32 24 3A 8B C3 28 46 32 24 29 B3 B1 31 |:.F2$:..(F2$)..1|
00000CD0: 36 A7 43 44 B2 36 3A 53 55 24 B2 46 32 24 3A 8D |6.CD.6:SU$.F2$:.|
00000CE0: 32 30 35 30 00 1E 29 08 07 FE 12 23 35 2C 28 49 |2050..)....#5,(I|
00000CF0: 29 2C 34 32 3A 84 35 2C 46 33 24 3A 99 46 33 24 |),42:.5,F3$:.F3$|
00000D00: 3A 8B C3 28 46 33 24 29 B3 B1 39 A7 43 44 B2 37 |:..(F3$)..9.CD.7|
00000D10: 3A 53 55 24 B2 46 33 24 3A 8D 32 30 35 30 00 59 |:SU$.F3$:.2050.Y|
00000D20: 29 12 07 FE 12 23 35 2C 28 49 29 2C 35 32 3A 84 |)....#5,(I),52:.|
00000D30: 35 2C 46 34 24 3A 99 46 34 24 3A 8B C3 28 46 34 |5,F4$:.F4$:..(F4|
00000D40: 24 29 B3 B1 31 39 A7 43 44 B2 38 3A 53 55 24 B2 |$)..19.CD.8:SU$.|
00000D50: 46 34 24 3A 8D 32 30 35 30 00 94 29 1C 07 FE 12 |F4$:.2050..)....|
00000D60: 23 35 2C 28 49 29 2C 37 32 3A 84 35 2C 46 35 24 |#5,(I),72:.5,F5$|
00000D70: 3A 99 46 35 24 3A 8B C3 28 46 35 24 29 B3 B1 32 |:.F5$:..(F5$)..2|
00000D80: 39 A7 43 44 B2 38 3A 53 55 24 B2 46 35 24 3A 8D |9.CD.8:SU$.F5$:.|
00000D90: 32 30 35 30 00 9B 29 26 07 FE 19 00 AE 29 30 07 |2050..)&.....)0.|
00000DA0: FE 0B 31 3A 8B 49 B2 4E 52 A7 31 39 31 30 00 C2 |..1:.I.NR.1910..|
00000DB0: 29 3A 07 E0 2C 30 2C 35 2C C8 28 4E 4E 24 2C 32 |):..,0,5,.(NN$,2|
00000DC0: 33 29 00 D6 29 44 07 E0 2C 30 2C 36 2C C8 28 4E |3)..)D..,0,6,.(N|
00000DD0: 4E 24 2C 31 36 29 00 E9 29 4E 07 E0 2C 30 2C 37 |N$,16)..)N..,0,7|
00000DE0: 2C C8 28 4E 4E 24 2C 39 29 00 FD 29 58 07 E0 2C |,.(NN$,9)..)X..,|
00000DF0: 30 2C 38 2C C8 28 4E 4E 24 2C 31 39 29 00 11 2A |0,8,.(NN$,19)..*|
00000E00: 62 07 E0 2C 30 2C 39 2C C8 28 4E 4E 24 2C 32 39 |b..,0,9,.(NN$,29|
00000E10: 29 00 17 2A 6C 07 82 00 20 2A 76 07 FE 0F 23 35 |)..*l... *v...#5|
00000E20: 00 6A 2A 80 07 FE 26 3A 99 3A 99 3A 99 22 54 4F |.j*...&:.:.:."TO|
00000E30: 54 41 4C 20 23 20 4F 46 20 52 45 43 4F 52 44 53 |TAL # OF RECORDS|
00000E40: 20 52 45 41 44 3D 22 3B 4E 52 3A E7 35 2C 32 3A | READ=";NR:.5,2:|
00000E50: 99 22 45 4E 44 20 4F 46 20 52 45 41 44 49 4E 47 |."END OF READING|
00000E60: 20 50 52 4F 47 52 41 4D 2E 22 00 77 2A 8A 07 FE | PROGRAM.".w*...|
00000E70: 0C 3A 8D 32 30 33 30 00 AC 2A 94 07 E7 35 2C 31 |.:.2030..*...5,1|
00000E80: 34 3A 85 22 57 41 4E 54 20 54 4F 20 53 43 52 41 |4:."WANT TO SCRA|
00000E90: 54 43 48 20 52 45 4C 41 54 49 56 45 20 46 49 4C |TCH RELATIVE FIL|
00000EA0: 45 A0 28 59 2F 4E 29 22 3B 4E 59 24 00 CD 2A 9E |E.(Y/N)";NY$..*.|
00000EB0: 07 8B 4E 59 24 B2 22 59 22 A7 F2 22 52 2A 22 3A |..NY$."Y".."R*":|
00000EC0: 8D 32 30 33 30 3A F3 3A 8D 32 30 33 30 00 DA 2A |.2030:.:.2030..*|
00000ED0: A8 07 FE 0C 3A 8D 32 30 33 30 00 2D 2B B2 07 E7 |....:.2030.-+...|
00000EE0: 35 2C 32 3A 99 22 50 52 45 53 53 20 41 4E 59 20 |5,2:."PRESS ANY |
00000EF0: 4B 45 59 20 54 4F 20 52 45 2D 52 55 4E 20 50 52 |KEY TO RE-RUN PR|
00000F00: 4F 47 52 41 4D 2E 22 3A 99 22 50 52 45 53 53 20 |OGRAM.":."PRESS |
00000F10: 27 22 AA C7 28 39 35 29 AA 22 27 20 54 4F 20 51 |'"..(95)."' TO Q|
00000F20: 55 49 54 20 50 52 4F 47 52 41 4D 2E 22 00 36 2B |UIT PROGRAM.".6+|
00000F30: BC 07 A1 F9 4B 24 00 46 2B C6 07 8B 4B 24 B2 C7 |....K$.F+...K$..|
00000F40: 28 39 35 29 A7 80 00 50 2B D0 07 89 31 30 33 30 |(95)...P+...1030|
00000F50: 00 5C 2B DA 07 54 32 B2 54 49 AA 35 00 6C 2B E4 |.\+..T2.TI.5.l+.|
00000F60: 07 8B 54 49 B3 54 32 A7 32 30 32 30 00 7F 2B EE |..TI.T2.2020..+.|
00000F70: 07 8B 44 53 B3 32 30 B0 44 53 B2 35 30 A7 8E 00 |..DS.20.DS.50...|
00000F80: 8A 2B F8 07 99 44 53 24 3A 80 00 91 2B 02 08 FE |.+...DS$:...+...|
00000F90: 26 00 A0 2B 0C 08 E0 2C 30 2C 43 44 2C 4E 4E 24 |&..+...,0,CD,NN$|
00000FA0: 00 AB 2B 16 08 81 42 B2 31 A4 33 00 E9 2B 20 08 |..+...B.1.3..+ .|
00000FB0: E0 2C 30 2C 43 44 2C 53 55 24 2C 31 3A E0 2C 30 |.,0,CD,SU$,1:.,0|
00000FC0: 2C 31 32 2C 22 43 4F 52 52 55 50 54 45 44 20 52 |,12,"CORRUPTED R|
00000FD0: 45 43 4F 52 44 22 2C 31 3A 99 C7 28 37 29 AA C7 |ECORD",1:..(7)..|
00000FE0: 28 31 34 35 29 3A FE 0B 31 00 12 2C 2A 08 E0 2C |(145):..1..,*..,|
00000FF0: 30 2C 43 44 2C 53 55 24 3A E0 2C 30 2C 31 32 2C |0,CD,SU$:.,0,12,|
00001000: 22 43 4F 52 52 55 50 54 45 44 20 52 45 43 4F 52 |"CORRUPTED RECOR|
00001010: 44 22 00 18 2C 34 08 82 00 38 2C 3E 08 E0 2C 30 |D"..,4...8,>..,0|
00001020: 2C 31 33 2C 22 50 52 45 53 53 20 41 4E 59 20 4B |,13,"PRESS ANY K|
00001030: 45 59 20 4E 4F 57 2E 22 00 41 2C 48 08 A1 F9 4B |EY NOW.".A,H...K|
00001040: 24 00 5B 2C 52 08 E0 2C 30 2C 31 32 2C 4E 4E 24 |$.[,R..,0,12,NN$|
00001050: 3A E0 2C 30 2C 31 33 2C 4E 4E 24 00 68 2C 5C 08 |:.,0,13,NN$.h,\.|
00001060: E0 2C 30 2C 43 44 AA 31 00 78 2C 66 08 8B 4D 4F |.,0,CD.1.x,f..MO|
00001070: 24 B2 22 46 22 A7 FE 25 00 7E 2C 70 08 8E 00 92 |$."F"..%.~,p....|
00001080: 2C 7A 08 97 33 33 30 30 2C 31 3A E8 3A E7 35 2C |,z..3300,1:.:.5,|
00001090: 31 34 00 15 2D 84 08 99 3A 99 A3 34 29 22 2A 2A |14..-...:..4)"**|
000010A0: 2A 2A 2A 20 57 41 52 4E 49 4E 47 20 2A 2A 2A 2A |*** WARNING ****|
000010B0: 20 57 41 52 4E 49 4E 47 20 2A 2A 2A 2A 2A 22 3A | WARNING *****":|
000010C0: 99 3A 99 22 20 20 54 48 49 53 20 50 52 4F 47 52 |.:." THIS PROGR|
000010D0: 41 4D 20 49 53 20 44 45 53 49 47 4E 45 44 20 54 |AM IS DESIGNED T|
000010E0: 4F 20 54 45 53 54 20 54 48 45 22 3A 99 22 20 20 |O TEST THE":." |
000010F0: 52 45 4C 49 41 42 49 4C 49 54 59 20 4F 46 20 52 |RELIABILITY OF R|
00001100: 45 4C 41 54 49 56 45 20 46 49 4C 45 53 20 4F 4E |ELATIVE FILES ON|
00001110: 20 54 48 45 22 00 7B 2D 8E 08 99 22 20 20 43 2D | THE".{-..." C-|
00001120: 31 32 38 20 20 43 4F 4D 50 55 54 45 52 20 20 57 |128 COMPUTER W|
00001130: 49 54 48 20 54 48 45 20 22 C7 28 35 29 22 31 35 |ITH THE ".(5)"15|
00001140: 37 31 22 C7 28 31 35 33 29 22 20 20 44 49 53 4B |71".(153)" DISK|
00001150: 22 3A 99 22 20 20 44 52 49 56 45 2E 20 20 54 48 |":." DRIVE. TH|
00001160: 49 53 20 20 50 52 4F 47 52 41 4D 20 49 53 20 20 |IS PROGRAM IS |
00001170: 43 41 50 41 42 4C 45 20 4F 46 22 00 D3 2D 98 08 |CAPABLE OF"..-..|
00001180: 99 22 20 20 43 4F 4D 50 4C 45 54 45 4C 59 20 20 |." COMPLETELY |
00001190: 43 4F 52 52 55 50 54 49 4E 47 20 20 54 48 45 20 |CORRUPTING THE |
000011A0: 46 49 4C 45 53 20 4F 4E 22 3A 99 22 20 20 54 48 |FILES ON":." TH|
000011B0: 49 53 20 44 49 53 4B 21 20 20 59 4F 55 20 4D 55 |IS DISK! YOU MU|
000011C0: 53 54 20 55 53 45 20 41 20 42 4C 41 4E 4B 20 41 |ST USE A BLANK A|
000011D0: 4E 44 22 00 23 2E A2 08 99 22 20 20 4E 45 57 4C |ND".#...." NEWL|
000011E0: 59 20 46 4F 52 4D 41 54 54 45 44 20 44 49 53 4B |Y FORMATTED DISK|
000011F0: 20 54 4F 20 50 52 4F 50 45 52 4C 59 20 53 45 45 | TO PROPERLY SEE|
00001200: 22 3A 99 22 20 20 52 45 53 55 4C 54 53 20 57 49 |":." RESULTS WI|
00001210: 54 48 20 54 48 49 53 20 50 52 4F 47 52 41 4D 2E |TH THIS PROGRAM.|
00001220: 22 3A 99 00 87 2E AC 08 99 22 20 20 4E 4F 57 2C |":......." NOW,|
00001230: 20 46 4F 52 4D 41 54 20 41 20 4E 45 57 20 42 4C | FORMAT A NEW BL|
00001240: 41 4E 4B 20 44 49 53 4B 20 49 4E 20 22 C7 28 35 |ANK DISK IN ".(5|
00001250: 29 22 31 35 37 31 22 C7 28 31 35 33 29 3A 99 22 |)"1571".(153):."|
00001260: 20 20 4D 4F 44 45 2E 20 54 48 45 4E 20 52 55 4E | MODE. THEN RUN|
00001270: 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 20 59 4F | THE PROGRAM. YO|
00001280: 55 20 57 49 4C 4C 22 00 EA 2E B6 08 99 22 20 20 |U WILL"......" |
00001290: 53 45 45 20 54 48 41 54 20 43 52 45 41 54 49 4E |SEE THAT CREATIN|
000012A0: 47 20 20 52 45 4C 41 54 49 56 45 20 46 49 4C 45 |G RELATIVE FILE|
000012B0: 53 20 49 4E 22 3A 99 C7 28 35 29 22 20 20 31 35 |S IN":..(5)" 15|
000012C0: 37 31 22 C7 28 31 35 33 29 22 20 4D 4F 44 45 20 |71".(153)" MODE |
000012D0: 43 41 4E 20 42 45 20 56 45 52 59 20 55 4E 52 45 |CAN BE VERY UNRE|
000012E0: 4C 49 41 42 4C 45 2E 22 3A 99 00 44 2F C0 08 99 |LIABLE.":..D/...|
000012F0: 22 20 20 4D 41 4E 59 20 44 49 53 4B 20 45 52 52 |" MANY DISK ERR|
00001300: 4F 52 53 20 41 52 49 53 45 20 41 4E 44 20 41 20 |ORS ARISE AND A |
00001310: 48 49 47 48 20 4E 4F 2E 22 3A 99 22 20 20 4F 46 |HIGH NO.":." OF|
00001320: 20 46 49 4C 45 53 20 20 41 52 45 20 20 43 4F 52 | FILES ARE COR|
00001330: 52 55 50 54 45 44 20 20 55 4E 4C 45 53 53 20 54 |RUPTED UNLESS T|
00001340: 48 45 20 22 00 9C 2F CA 08 99 22 20 20 45 52 52 |HE "../..." ERR|
00001350: 4F 52 20 43 48 41 4E 4E 45 4C 20 49 53 20 43 48 |OR CHANNEL IS CH|
00001360: 45 43 4B 45 44 20 41 4E 44 20 41 20 53 48 4F 52 |ECKED AND A SHOR|
00001370: 54 22 3A 99 22 20 20 54 49 4D 45 20 44 45 4C 41 |T":." TIME DELA|
00001380: 59 20 49 53 20 49 4E 43 4C 55 44 45 44 2E 20 53 |Y IS INCLUDED. S|
00001390: 45 45 20 54 48 45 20 53 55 42 2D 22 00 06 30 D4 |EE THE SUB-"..0.|
000013A0: 08 99 22 20 20 52 4F 55 54 49 4E 45 20 49 4E 20 |.." ROUTINE IN |
000013B0: 20 4C 49 4E 45 53 20 32 30 31 30 2D 32 30 33 30 | LINES 2010-2030|
000013C0: 2E 20 49 4E 20 22 C7 28 31 35 38 29 22 31 35 34 |. IN ".(158)"154|
000013D0: 31 22 C7 28 31 35 33 29 3A 99 22 20 20 4D 4F 44 |1".(153):." MOD|
000013E0: 45 20 54 48 45 52 45 20 41 52 45 20 4E 4F 20 50 |E THERE ARE NO P|
000013F0: 52 4F 42 4C 45 4D 53 20 41 54 20 41 4C 4C 2E 22 |ROBLEMS AT ALL."|
00001400: C7 28 31 34 35 29 00 0C 30 DE 08 80 00 00 00 |.(145)..0...... |
..R....: RELATIVE FILE TESTING PROGRAM F
OR THE C-128 COMPUTER AND 1571 DISK DRIV
E.......: COPYRIGHT 1987 COMPUTE! PUBLIC
ATIONS, INC. ALL RIGHTS RESERVED..Q...
.".COPYRIGHT 1987":."COMPUTE! PUBLICATIO
NS, INC."......"ALL RIGHTS RESERVED."...
...X.1.1200:.......&:.B(3300).0.2170.O..
..:.:.5,14:NN$."
"......,0,1,"ONE MOMENT PL
EASE...":."R*":.2030:.:.2030.L....,0,3,"
C-128: SLOW MODE OR FAST MODE":.,0,4,"EN
TER 'S' OR 'F'":.MO$...$..MO$.."S".MO$..
"F"..,0,4,NN$:.G(7):.1050.C....,0,6,"DRI
VE: 1541 MODE OR 1571 MODE":.,0,7,"ENTER
'41' OR '71'":.DD$.R.8..DD$.."41".DD$..
"71"..,0,7,NN$:.G(7):.1070...B..,0,9,"WA
NT TO CHECK ERROR CHANNEL":.,0,10,"ENTER
'ON' OR 'OFF'":.CK$...L..CK$.."ON".CK$.
."OFF"..,0,10,NN$:.G(7):.1090.E.V..,0,12
,"HOW MANY RECORDS DO YOU WANT":.,0,13,"
TO CREATE (10 TO 999)":.NR$:NR.E(NR$).N.
`..NR.10.NR.999..,0,13,NN$:.G(7):.1110..
.J..,0,15,"WANT TO POSITION POINTER TO":
.,0,16,"LAST RECORD 'Y' OR 'N'":.PP$...T
..PP$.."Y".PP$.."N"..,0,16,NN$:.G(7):.11
30.. ~..DD$."41"..15,8,15,"U0>M0":.2030:
15.< ...DD$."71"..15,8,15,"U0>M1":.2030
: 15.M ..FT$."R-".MO$."-".DD$."-".CK$."-
".PP$."-".NR$. ...PP$."N".1250.. ...:."
WAIT - WRITING POINTER TO REC. #".D(NR).
".":..2.G ...MO$."F"..%.. ....#1,(FT$),L
102.. D...#1,(NR),1..!N..DS.50..1,G(255)
:.1220..!X..2030:..#1..!..PT.0.S!...&:.:
."CREATING TEXT FOR THE RELATIVE FILE.":
..2._!...J.1.10..!..F1$(J)."23 CHARACTER
FIELD*****"..!..F2$(J)."16 CHARACTER FI
E"..!..F3$(J)."09 CHARAC".Z!..F4$(J)."19
CHARACTER FIELD*".."(.F5$(J)."29 CHARAC
TER FIELD***********".."2...8"<..&:.:."W
RITING ARRAY ITEMS ON DISK.":..2.H"F..MO
$."F"..%.B"P...#3,(FT$),L102:.2030.N"Z..
J.1.10."D.PT.PT.1:.PT;.."N..CK$."ON"...
.H"X...#3,(PT),1:.2010:.3,F1$(J):.2010:.
.#3,(PT),1:.2010..#....#3,(PT),25:.2010:
.3,F2$(J):.2010:..#3,(PT),25:.2010.<#...
.#3,(PT),42:.2010:.3,F3$(J):.2010:..#3,(
PT),42:.2010.V#....#3,(PT),52:.2010:.3,F
4$(J):.2010:..#3,(PT),52:.2010..# ...#3,
(PT),72:.2010:.3,F5$(J):.2010:..#3,(PT),
72:.2010..#.....I#...CK$."OFF".....#....
#3,(PT),1:.3,F1$(J):..#3,(PT),1..$H...#3
,(PT),25:.3,F2$(J):..#3,(PT),25.?$R...#3
,(PT),42:.3,F3$(J):..#3,(PT),42.G$....#3
,(PT),52:.3,F4$(J):..#3,(PT),52..$....#3
,(PT),72:.3,F5$(J):..#3,(PT),72..$......
$...J.10..:.DS$..$...PT.NR..:.DS$:.1560.
E$....N$....#3.B%"..PT.NR..&:.:."TOTAL #
OF RECORDS WRITTEN=";PT:.5,2:.:."END OF
WRITING PROGRAM":."PRESS ANY KEY NOW.":
..K$:.1590.O%,..:."TOTAL # OF RECORDS SO
FAR=";PT:.1270.{%6..:.5,14..%@.."READIN
G BACK RECORDS # 1 TO".D(NR).".":..2..%J
..MO$."F"..%.V%T...#5,(FT$),L102:.2030..
%^..I.1.NR..&H..,23,5,G(158).G(95).G(153
)." ".9&R..,16,6,G(158).G(95).G(153
)." ".N&|..,9,7,G(158).G(95)
.G(153)." "..&...,19,
8,G(158).G(95).G(153)." "..&...
,29,9,G(158).G(95).G(153)..&...5,2:.,0,3
,"RECORD #".D(I):.5,14:.,0,5..&...CK$."O
N"....;'....#5,(I),1:.2010:.5,F1$:.2030:
.F1$:.C(F1$)..23.CD.5:SU$.F1$:.2050..'..
..#5,(I),25:.2010:.5,F2$:.2030:.F2$:.C(F
2$)..16.CD.6:SU$.F2$:.2050.H'B...#5,(I),
42:.2010:.5,F3$:.2030:.F3$:.C(F3$)..9.CD
.7:SU$.F3$:.2050..(L...#5,(I),52:.2010:.
5,F4$:.2030:.F4$:.C(F4$)..19.CD.8:SU$.F4
$:.2050.V(V...#5,(I),72:.2010:.5,F5$:.20
30:.F5$:.C(F5$)..29.CD.9:SU$.F5$:.2050.]
(.....O(...CK$."OFF".....(....#5,(I),1:.
5,F1$:.F1$:.C(F1$)..23.CD.5:SU$.F1$:.205
0..(....#5,(I),25:.5,F2$:.F2$:.C(F2$)..1
6.CD.6:SU$.F2$:.2050..)....#5,(I),42:.5,
F3$:.F3$:.C(F3$)..9.CD.7:SU$.F3$:.2050.Y
)....#5,(I),52:.5,F4$:.F4$:.C(F4$)..19.C
D.8:SU$.F4$:.2050..)....#5,(I),72:.5,F5$
:.F5$:.C(F5$)..29.CD.8:SU$.F5$:.2050..)&
.....)0...1:.I.NR.1910.B):..,0,5,H(NN$,2
3).V)D..,0,6,H(NN$,16)..)N..,0,7,H(NN$,9
)..)X..,0,8,H(NN$,19)..*B..,0,9,H(NN$,29
)..*L... *V...#5.J*...&:.:.:."TOTAL # OF
RECORDS READ=";NR:.5,2:."END OF READING
PROGRAM.".W*....:.2030..*...5,14:."WANT
TO SCRATCH RELATIVE FILE (Y/N)";NY$.M*.
..NY$."Y".."R*":.2030:.:.2030.Z*....:.20
30.-+...5,2:."PRESS ANY KEY TO RE-RUN PR
OGRAM.":."PRESS '".G(95)."' TO QUIT PROG
RAM.".6+....K$.F+F..K$.G(95)...P+P..1030
.\+Z.T2.TI.5.L+...TI.T2.2020.+...DS.20.
DS.50....+...DS$:...+...&. +...,0,CD,NN$
..+...B.1.3..+ ..,0,CD,SU$,1:.,0,12,"COR
RUPTED RECORD",1:.G(7).G(145):..1..,*..,
0,CD,SU$:.,0,12,"CORRUPTED RECORD"..,4..
.8,>..,0,13,"PRESS ANY KEY NOW.".A,H...K
$.[,R..,0,12,NN$:.,0,13,NN$.H,\..,0,CD.1
.X,F..MO$."F"..%.~,P....,Z..3300,1:.:.5,
14..-...:..4)"***** WARNING **** WARNING
*****":.:." THIS PROGRAM IS DESIGNED T
O TEST THE":." RELIABILITY OF RELATIVE
FILES ON THE".{-..." C-128 COMPUTER W
ITH THE "G(5)"1571"G(153)" DISK":." DR
IVE. THIS PROGRAM IS CAPABLE OF".S-..
." COMPLETELY CORRUPTING THE FILES ON
":." THIS DISK! YOU MUST USE A BLANK A
ND".#...." NEWLY FORMATTED DISK TO PROP
ERLY SEE":." RESULTS WITH THIS PROGRAM.
":......." NOW, FORMAT A NEW BLANK DISK
IN "G(5)"1571"G(153):." MODE. THEN RUN
THE PROGRAM. YOU WILL"......" SEE THAT
CREATING RELATIVE FILES IN":.G(5)" 15
71"G(153)" MODE CAN BE VERY UNRELIABLE."
:..D/..." MANY DISK ERRORS ARISE AND A
HIGH NO.":." OF FILES ARE CORRUPTED
UNLESS THE "../J.." ERROR CHANNEL IS CH
ECKED AND A SHORT":." TIME DELAY IS INC
LUDED. SEE THE SUB-"..0T.." ROUTINE IN
LINES 2010-2030. IN "G(158)"1541"G(153)
:." MODE THERE ARE NO PROBLEMS AT ALL."
G(145)..0......
> CLICK IMAGE PREVIEW FOR FULL MODAL