REL.FIL-1541
FILE INFORMATION
FILENAME(S): REL.FIL-1541
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 19:38:33
APPEARS ON: 1 disk(s)
FILE HASH
dfb7eab5c9814cb900a0cdf33ea8b37aa41ff56555067c4d32075d47cb97461f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISKFORS G | REL.FIL-1541 | PRG | Curtcool, Brian | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 9F 31 2C 38 2C 31 35 3A 84 31 |..#....1,8,15:.1|
00000010: 2C 41 2C 42 24 2C 43 2C 44 3A 99 41 2C 42 24 2C |,A,B$,C,D:.A,B$,|
00000020: 43 2C 44 00 41 08 0C 00 8F 20 2A 20 52 41 4E 44 |C,D.A.... * RAND|
00000030: 4F 4D 20 46 49 4C 45 20 45 58 41 4D 50 4C 45 20 |OM FILE EXAMPLE |
00000040: 2A 00 5F 08 0E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*._.... ********|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000060: 80 08 10 00 86 49 24 28 36 36 34 29 3A 46 44 B2 |.....I$(664):FD.|
00000070: 30 3A 46 58 B2 35 3A 43 48 B2 32 3A 46 50 B2 31 |0:FX.5:CH.2:FP.1|
00000080: 00 A1 08 12 00 99 22 93 11 11 C6 C6 C6 C6 C6 C6 |......".........|
00000090: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000000A0: 22 00 BC 08 14 00 99 22 20 20 49 4E 53 45 52 54 |"......" INSERT|
000000B0: 20 44 41 54 41 20 53 48 45 45 54 22 00 D9 08 16 | DATA SHEET"....|
000000C0: 00 99 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |..".............|
000000D0: C4 C4 C4 C4 C4 C4 C4 C4 22 00 F6 08 18 00 99 22 |........"......"|
000000E0: 11 11 20 20 20 20 53 54 41 52 54 20 50 52 45 53 |.. START PRES|
000000F0: 53 20 27 53 27 22 00 0A 09 1A 00 A1 50 24 3A 8B |S 'S'"......P$:.|
00000100: 50 24 B3 B1 22 53 22 A7 32 36 00 27 09 1C 00 9F |P$.."S".26.'....|
00000110: 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 32 2C |15,8,15,"I0":.2,|
00000120: 38 2C 32 2C 22 23 22 00 47 09 1E 00 99 22 93 11 |8,2,"#".G...."..|
00000130: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000140: C6 C6 C6 C6 C6 C6 22 00 63 09 20 00 99 22 49 4E |......".c. .."IN|
00000150: 44 45 58 20 46 49 4C 45 20 4F 50 45 52 41 54 49 |DEX FILE OPERATI|
00000160: 4F 4E 22 00 81 09 22 00 99 22 C4 C4 C4 C4 C4 C4 |ON"...".."......|
00000170: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000180: 22 00 A5 09 24 00 85 22 11 20 20 20 20 20 4E 45 |"...$..". NE|
00000190: 57 20 53 48 45 45 54 3F 20 4E 9D 9D 9D 22 3B 4F |W SHEET? N...";O|
000001A0: 24 3A 99 22 22 00 B4 09 26 00 8B 4F 24 B2 22 4E |$:.""...&..O$."N|
000001B0: 22 A7 34 36 00 C4 09 28 00 8B 4F 24 B3 B1 22 59 |".46...(..O$.."Y|
000001C0: 22 A7 33 36 00 E0 09 2A 00 99 3A 99 22 20 20 20 |".36...*..:." |
000001D0: 20 57 41 49 54 21 22 3A 81 49 B2 31 A4 36 36 34 | WAIT!":.I.1.664|
000001E0: 00 11 0A 2C 00 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D |...,..".........|
000001F0: 1D 1D 11 11 11 11 11 11 11 11 11 20 20 20 20 9D |........... .|
00000200: 9D 9D 9D 9D 22 49 3B 3A 49 24 28 49 29 B2 22 2F |...."I;:I$(I)."/|
00000210: 22 00 22 0A 2D 00 99 49 24 28 49 29 3A 82 3A 89 |".".-..I$(I):.:.|
00000220: 35 30 00 3B 0A 2E 00 9F 35 2C 38 2C 35 2C 22 30 |50.;....5,8,5,"0|
00000230: 3A 49 4E 44 45 58 2C 53 2C 52 22 00 51 0A 2F 00 |:INDEX,S,R".Q./.|
00000240: 81 49 B2 31 A4 36 36 34 3A 84 35 2C 49 24 28 49 |.I.1.664:.5,I$(I|
00000250: 29 00 7E 0A 30 00 99 22 13 11 11 11 11 11 11 11 |).~.0.."........|
00000260: 11 1D 1D 1D 1D 1D 1D 57 41 49 54 21 20 20 20 20 |.......WAIT! |
00000270: 20 9D 9D 9D 9D 9D 22 49 3B 49 24 28 49 29 00 88 | ....."I;I$(I)..|
00000280: 0A 31 00 82 49 3A A0 35 00 A8 0A 32 00 99 22 93 |.1..I:.5...2..".|
00000290: 11 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000002A0: C6 C6 C6 C6 C6 C6 C6 22 00 C5 0A 34 00 99 22 20 |......."...4.." |
000002B0: 20 20 20 20 4A 4F 42 20 4D 45 4E 55 20 20 20 20 | JOB MENU |
000002C0: 20 20 20 20 22 00 E3 0A 36 00 99 22 C4 C4 C4 C4 | "...6.."....|
000002D0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000002E0: C4 C4 22 00 E9 0A 38 00 99 00 FE 0A 3A 00 99 22 |.."...8.....:.."|
000002F0: 20 20 20 20 20 31 3D 43 52 45 41 54 45 22 00 13 | 1=CREATE"..|
00000300: 0B 3C 00 99 22 20 20 20 20 20 32 3D 44 45 4C 45 |.<.." 2=DELE|
00000310: 54 45 22 00 28 0B 3E 00 99 22 20 20 20 20 20 33 |TE".(.>.." 3|
00000320: 3D 53 45 41 52 43 48 22 00 3A 0B 40 00 99 22 20 |=SEARCH".:.@.." |
00000330: 20 20 20 20 30 3D 45 4E 44 22 00 40 0B 41 00 99 | 0=END".@.A..|
00000340: 00 5F 0B 42 00 85 22 31 20 2C 20 32 20 2C 20 33 |._.B.."1 , 2 , 3|
00000350: 20 2C 20 30 20 20 20 31 9D 9D 9D 22 3B 4F 24 00 | , 0 1...";O$.|
00000360: 77 0B 44 00 8B 4F 24 B2 22 30 22 A7 A0 31 35 3A |w.D..O$."0"..15:|
00000370: A0 35 3A A0 32 3A 80 00 87 0B 46 00 8B 4F 24 B2 |.5:.2:....F..O$.|
00000380: 22 31 22 A7 31 30 34 00 97 0B 48 00 8B 4F 24 B2 |"1".104...H..O$.|
00000390: 22 33 22 A7 33 30 30 00 A7 0B 4A 00 8B 4F 24 B3 |"3".300...J..O$.|
000003A0: B1 22 32 22 A7 35 30 00 B0 0B 4C 00 89 32 30 30 |."2".50...L..200|
000003B0: 00 CE 0B 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...d.. *********|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EC |**************..|
000003D0: 0B 66 00 8F 20 2A 20 4D 41 53 54 45 52 20 46 49 |.f.. * MASTER FI|
000003E0: 4C 45 20 43 52 45 41 54 45 20 20 2A 00 0A 0C 67 |LE CREATE *...g|
000003F0: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B 0C 68 00 99 |**********.+.h..|
00000410: 22 93 11 11 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |"...............|
00000420: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 47 0C 69 00 |..........".G.i.|
00000430: 99 22 20 A0 4D 41 53 54 45 52 20 46 49 4C 45 20 |." .MASTER FILE |
00000440: 43 52 45 41 54 45 22 00 65 0C 6A 00 99 22 C4 C4 |CREATE".e.j.."..|
00000450: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000460: C4 C4 C4 C4 22 00 80 0C 6B 00 85 22 52 45 43 4F |...."...k.."RECO|
00000470: 52 44 20 4E 4F 2E 20 3D 20 30 9D 9D 9D 22 3B 46 |RD NO. = 0...";F|
00000480: 00 8E 0C 6D 00 8B 20 46 B2 30 A7 31 37 30 00 AB |...m.. F.0.170..|
00000490: 0C 6E 00 85 22 4E 41 4D 45 20 20 20 20 20 3D 2E |.n.."NAME =.|
000004A0: 9D 9D 9D 22 3B 46 42 24 28 31 29 00 C8 0C 78 00 |...";FB$(1)...x.|
000004B0: 85 22 41 44 44 52 45 53 53 20 20 3D 2E 9D 9D 9D |."ADDRESS =....|
000004C0: 22 3B 46 42 24 28 32 29 00 E5 0C 82 00 85 22 5A |";FB$(2)......"Z|
000004D0: 49 50 20 20 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 |IP =....";F|
000004E0: 42 24 28 33 29 00 02 0D 84 00 85 22 54 45 4C 20 |B$(3)......"TEL |
000004F0: 20 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 42 24 28 | =....";FB$(|
00000500: 34 29 00 1F 0D 86 00 85 22 43 4F 4D 4D 45 4E 54 |4)......"COMMENT|
00000510: 20 20 3D 2E 9D 9D 9D 22 3B 46 42 24 28 35 29 00 | =....";FB$(5).|
00000520: 29 0D 8C 00 8D 35 32 30 30 00 37 0D 96 00 49 24 |)....5200.7...I$|
00000530: 28 46 29 B2 22 31 22 00 40 0D A0 00 89 31 30 34 |(F)."1".@....104|
00000540: 00 5A 0D AA 00 9F 35 2C 38 2C 35 2C 22 40 30 3A |.Z....5,8,5,"@0:|
00000550: 49 4E 44 45 58 2C 53 2C 57 22 00 77 0D AF 00 81 |INDEX,S,W".w....|
00000560: 49 B2 31 A4 36 36 34 3A 98 35 2C 49 24 28 49 29 |I.1.664:.5,I$(I)|
00000570: 3B C7 28 31 33 29 3B 00 A4 0D B4 00 99 22 13 11 |;.(13);......"..|
00000580: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 57 41 49 |.............WAI|
00000590: 54 21 20 20 20 20 20 9D 9D 9D 9D 9D 22 49 3B 49 |T! ....."I;I|
000005A0: 24 28 49 29 00 AD 0D B9 00 82 3A A0 35 00 B5 0D |$(I)......:.5...|
000005B0: BE 00 89 37 34 00 D3 0D C8 00 8F 20 2A 2A 2A 2A |...74...... ****|
000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005D0: 2A 2A 2A 00 F1 0D C9 00 8F 20 2A 20 20 4D 41 53 |***...... * MAS|
000005E0: 54 45 52 20 46 49 4C 45 20 44 45 4C 45 54 45 20 |TER FILE DELETE |
000005F0: 2A 00 0F 0E CA 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
00000600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000610: 30 0E D2 00 99 22 93 11 11 C6 C6 C6 C6 C6 C6 C6 |0...."..........|
00000620: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 |..............."|
00000630: 00 4C 0E D4 00 99 22 20 20 4D 41 53 54 45 52 20 |.L...." MASTER |
00000640: 46 49 4C 45 20 44 45 4C 45 54 45 22 00 6C 0E D6 |FILE DELETE".l..|
00000650: 00 99 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |..".............|
00000660: C4 C4 C4 C4 C4 C4 C4 C4 C4 22 3A 99 00 87 0E DC |.........":.....|
00000670: 00 85 22 52 45 43 4F 52 44 20 4E 4F 2E 20 3D 20 |.."RECORD NO. = |
00000680: 30 9D 9D 9D 22 3B 46 00 94 0E E6 00 8B 46 B2 30 |0...";F......F.0|
00000690: A7 32 36 30 00 A8 0E EB 00 8B 49 24 28 46 29 B3 |.260......I$(F).|
000006A0: B1 22 31 22 A7 32 32 30 00 CF 0E F0 00 49 24 28 |."1".220.....I$(|
000006B0: 46 29 B2 22 2F 22 3A 99 22 11 52 45 43 4F 52 44 |F)."/":.".RECORD|
000006C0: 20 4E 4F 2E 22 46 3B 22 44 45 4C 45 54 45 22 00 | NO."F;"DELETE".|
000006D0: D8 0E FA 00 89 32 32 30 00 F2 0E 04 01 9F 35 2C |.....220......5,|
000006E0: 38 2C 35 2C 22 40 30 3A 49 4E 44 45 58 2C 53 2C |8,5,"@0:INDEX,S,|
000006F0: 57 22 00 0F 0F 09 01 81 49 B2 31 A4 36 36 34 3A |W"......I.1.664:|
00000700: 98 35 2C 49 24 28 49 29 3B C7 28 31 33 29 3B 00 |.5,I$(I);.(13);.|
00000710: 3A 0F 0E 01 99 22 13 11 11 11 11 11 11 1D 1D 1D |:...."..........|
00000720: 1D 1D 1D 57 41 49 54 21 20 20 20 20 20 9D 9D 9D |...WAIT! ...|
00000730: 9D 9D 22 49 3B 49 24 28 49 29 00 43 0F 13 01 82 |.."I;I$(I).C....|
00000740: 3A A0 35 00 4B 0F 18 01 89 35 30 00 69 0F 2C 01 |:.5.K....50.i.,.|
00000750: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 87 0F 2D 01 8F 20 |*********...-.. |
00000770: 2A 20 20 46 49 4C 45 20 53 45 41 52 43 48 20 20 |* FILE SEARCH |
00000780: 20 20 20 20 20 20 2A 00 A5 0F 2E 01 8F 20 2A 2A | *...... **|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007A0: 2A 2A 2A 2A 2A 00 C6 0F 36 01 99 22 93 11 11 C6 |*****...6.."....|
000007B0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000007C0: C6 C6 C6 C6 C6 22 00 E2 0F 38 01 99 22 20 20 20 |....."...8.." |
000007D0: 20 20 20 20 53 45 41 52 43 48 20 20 20 20 20 20 | SEARCH |
000007E0: 20 22 00 02 10 3A 01 99 22 C4 C4 C4 C4 C4 C4 C4 | "...:..".......|
000007F0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 |..............."|
00000800: 3A 99 00 1D 10 40 01 85 22 52 45 43 4F 52 44 20 |:....@.."RECORD |
00000810: 4E 4F 2E 20 3D 20 30 9D 9D 9D 22 3B 46 00 29 10 |NO. = 0...";F.).|
00000820: 41 01 8B 46 B2 30 A7 35 30 00 3D 10 42 01 8B 49 |A..F.0.50.=.B..I|
00000830: 24 28 46 29 B3 B1 22 31 22 A7 33 32 30 00 47 10 |$(F).."1".320.G.|
00000840: 45 01 8D 35 31 30 30 00 61 10 68 01 99 22 4E 41 |E..5100.a.h.."NA|
00000850: 4D 45 20 20 A0 A0 20 3D 20 22 3B 46 42 24 28 31 |ME .. = ";FB$(1|
00000860: 29 00 7B 10 72 01 99 22 41 44 44 52 45 53 53 20 |).{.r.."ADDRESS |
00000870: 20 3D 20 22 3B 46 42 24 28 32 29 00 95 10 7C 01 | = ";FB$(2)...|.|
00000880: 99 22 5A 49 50 20 20 20 A0 A0 20 3D 20 22 3B 46 |."ZIP .. = ";F|
00000890: 42 24 28 33 29 00 AF 10 7E 01 99 22 54 45 4C 20 |B$(3)...~.."TEL |
000008A0: 20 20 A0 A0 20 3D 20 22 3B 46 42 24 28 34 29 00 | .. = ";FB$(4).|
000008B0: C9 10 7F 01 99 22 43 4F 4D 4D 45 4E 54 A0 20 3D |....."COMMENT. =|
000008C0: 20 22 3B 46 42 24 28 35 29 00 E6 10 81 01 99 22 | ";FB$(5)......"|
000008D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008E0: 2D 2D 2D 2D 2D 22 00 EF 10 86 01 89 33 32 30 00 |-----"......320.|
000008F0: 0D 11 EC 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B 11 |*************.+.|
00000910: F1 13 8F 20 2A 20 46 44 44 20 42 4C 4F 43 4B 20 |... * FDD BLOCK |
00000920: 52 45 41 44 20 20 20 20 20 20 2A 00 49 11 F4 13 |READ *.I...|
00000930: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 11 F6 13 8D 35 |*********.S....5|
00000950: 33 33 30 00 6D 11 00 14 98 31 35 2C 22 55 31 3A |330.m....15,"U1:|
00000960: 22 3B 43 48 3B 46 44 3B 46 54 3B 46 53 00 82 11 |";CH;FD;FT;FS...|
00000970: 0A 14 98 31 35 2C 22 42 2D 50 3A 22 3B 43 48 3B |...15,"B-P:";CH;|
00000980: 46 50 00 8C 11 14 14 8D 35 32 37 30 00 99 11 1E |FP......5270....|
00000990: 14 81 46 49 B2 31 A4 46 58 00 AA 11 28 14 84 43 |..FI.1.FX...(..C|
000009A0: 48 2C 46 42 24 28 46 49 29 3A 00 B0 11 3C 14 82 |H,FB$(FI):...<..|
000009B0: 00 B6 11 46 14 8E 00 D4 11 50 14 8F 20 2A 2A 2A |...F.....P.. ***|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009D0: 2A 2A 2A 2A 00 F2 11 51 14 8F 20 2A 20 46 44 44 |****...Q.. * FDD|
000009E0: 20 42 4C 4F 43 4B 20 57 52 49 54 45 20 20 20 20 | BLOCK WRITE |
000009F0: 20 2A 00 10 12 52 14 8F 20 2A 2A 2A 2A 2A 2A 2A | *...R.. *******|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A10: 00 1A 12 5A 14 8D 35 33 33 30 00 2F 12 64 14 98 |...Z..5330./.d..|
00000A20: 31 35 2C 22 42 2D 50 3A 22 3B 43 48 3B 46 50 00 |15,"B-P:";CH;FP.|
00000A30: 51 12 6E 14 81 46 49 B2 31 A4 46 58 3A 98 43 48 |Q.n..FI.1.FX:.CH|
00000A40: 2C 46 42 24 28 46 49 29 3B C7 28 31 33 29 3B 3A |,FB$(FI);.(13);:|
00000A50: 82 00 6B 12 78 14 98 31 35 2C 22 55 32 3A 22 3B |..k.x..15,"U2:";|
00000A60: 43 48 3B 46 44 3B 46 54 3B 46 53 00 75 12 82 14 |CH;FD;FT;FS.u...|
00000A70: 8D 35 32 37 30 00 7B 12 8C 14 8E 00 99 12 96 14 |.5270.{.........|
00000A80: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B7 12 9B 14 8F 20 |*********...... |
00000AA0: 2A 20 20 45 52 52 4F 52 20 43 48 45 43 4B 20 20 |* ERROR CHECK |
00000AB0: 20 20 20 20 20 20 2A 00 D5 12 9E 14 8F 20 2A 2A | *...... **|
00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AD0: 2A 2A 2A 2A 2A 00 EA 12 A0 14 84 31 35 2C 45 4E |*****......15,EN|
00000AE0: 2C 45 4D 24 2C 45 54 2C 45 53 00 F6 12 AA 14 8B |,EM$,ET,ES......|
00000AF0: 45 4E B2 30 A7 8E 00 18 13 B4 14 99 22 45 52 52 |EN.0........"ERR|
00000B00: 4F 52 20 53 54 41 54 55 53 3A 22 3B 45 4E 3B 45 |OR STATUS:";EN;E|
00000B10: 4D 24 3B 45 54 3B 45 53 00 36 13 BE 14 85 22 43 |M$;ET;ES.6...."C|
00000B20: 4F 4E 54 49 4E 55 45 3F 22 3B 59 24 3A 8B 59 24 |ONTINUE?";Y$:.Y$|
00000B30: B2 22 59 22 A7 8E 00 3C 13 C8 14 90 00 5A 13 CA |."Y"...<.....Z..|
00000B40: 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 78 13 CC 14 8F |**********.x....|
00000B60: 20 2A 20 53 45 54 20 54 52 41 43 4B 20 26 20 53 | * SET TRACK & S|
00000B70: 45 43 54 4F 52 20 20 2A 00 96 13 CE 14 8F 20 2A |ECTOR *...... *|
00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B90: 2A 2A 2A 2A 2A 2A 00 B7 13 D2 14 8B 46 B3 33 35 |******......F.35|
00000BA0: 38 A7 46 31 B2 30 3A 46 32 B2 32 32 3A 46 33 B2 |8.F1.0:F2.22:F3.|
00000BB0: 31 3A 89 35 33 37 30 00 E1 13 DC 14 8B 46 B1 33 |1:.5370......F.3|
00000BC0: 35 37 AF 46 B3 34 37 32 A7 46 31 B2 33 35 37 3A |57.F.472.F1.357:|
00000BD0: 46 32 B2 32 30 3A 46 33 B2 31 39 3A 89 35 33 37 |F2.20:F3.19:.537|
00000BE0: 30 00 0B 14 E6 14 8B 46 B1 34 37 31 AF 46 B3 35 |0......F.471.F.5|
00000BF0: 38 30 A7 46 31 B2 34 37 31 3A 46 32 B2 31 39 3A |80.F1.471:F2.19:|
00000C00: 46 33 B2 32 35 3A 89 35 33 37 30 00 29 14 F0 14 |F3.25:.5370.)...|
00000C10: 8B 46 B1 35 37 39 A7 46 31 B2 35 37 39 3A 46 32 |.F.579.F1.579:F2|
00000C20: B2 31 38 3A 46 33 B2 33 31 00 48 14 FA 14 46 54 |.18:F3.31.H...FT|
00000C30: B2 B5 28 28 28 46 AB 46 31 29 AB 31 29 AD 28 46 |..(((F.F1).1).(F|
00000C40: 32 AB 31 29 29 AA 46 33 00 69 14 04 15 46 53 B2 |2.1)).F3.i...FS.|
00000C50: 46 AB 46 31 AB 28 46 54 AB 46 33 29 AC 46 32 AA |F.F1.(FT.F3).F2.|
00000C60: 28 46 54 AB 46 33 AB 31 29 00 6F 14 0E 15 8E 00 |(FT.F3.1).o.....|
00000C70: 00 00 |.. |
..#....1,8,15:.1,A,B$,C,D:.A,B$,C,D.A...
. * RANDOM FILE EXAMPLE *._.... ********
***************......I$(664):FD.0:FX.5:C
H.2:FP.1......"...FFFFFFFFFFFFFFFFFFFFFF
"......" INSERT DATA SHEET".Y...."DDDDD
DDDDDDDDDDDDDDDD"......".. START PRES
S 'S'"......P$:.P$.."S".26.'....15,8,15,
"I0":.2,8,2,"#".G...."..FFFFFFFFFFFFFFFF
FFFFFF".C. .."INDEX FILE OPERATION"...".
."DDDDDDDDDDDDDDDDDDDDDD"...$..". NE
W SHEET? N...";O$:.""...&..O$."N".46.D.(
..O$.."Y".36...*..:." WAIT!":.I.1.664
...,..".................... ....."I;:
I$(I)."/".".-..I$(I):.:.50.;....5,8,5,"0
:INDEX,S,R".Q./..I.1.664:.5,I$(I).~.0.."
...............WAIT! ....."I;I$(I)..
.1..I: 5...2.."..FFFFFFFFFFFFFFFFFFFFFF"
.E.4.." JOB MENU "...6.."DDDD
DDDDDDDDDDDDDDDDDD"...8.....:.." 1=C
REATE"...<.." 2=DELETE".(.>.." 3
=SEARCH".:.@.." 0=END".@.A..._.B.."1
, 2 , 3 , 0 1...";O$.W.D..O$."0". 15:
5: 2:....F..O$."1".104...H..O$."3".300.
..J..O$.."2".50...L..200.N.D.. *********
**************...F.. * MASTER FILE CREAT
E *...G.. ***********************.+.H..
"...FFFFFFFFFFFFFFFFFFFFFF".G.I.." MAST
ER FILE CREATE".E.J.."DDDDDDDDDDDDDDDDDD
DDDD"...K.."RECORD NO. = 0...";F...M.. F
.0.170...N.."NAME =....";FB$(1).H.X.
."ADDRESS =....";FB$(2)......"ZIP
=....";FB$(3)......"TEL =....";FB$(
4)......"COMMENT =....";FB$(5).)....520
0.7...I$(F)."1".@. ..104.Z....5,8,5,"@0:
INDEX,S,W".W....I.1.664:.5,I$(I);G(13);.
....."...............WAIT! ....."I;I
$(I)......: 5......74.S.H.. ************
***********...I.. * MASTER FILE DELETE
*...J.. ***********************.0.R.."..
.FFFFFFFFFFFFFFFFFFFFFF".L.T.." MASTER
FILE DELETE".L.V.."DDDDDDDDDDDDDDDDDDDDD
D":......."RECORD NO. = 0...";F......F.0
.260......I$(F).."1".220.O...I$(F)."/":.
".RECORD NO."F;"DELETE".X....220......5,
8,5,"@0:INDEX,S,W"......I.1.664:.5,I$(I)
;G(13);.:....".............WAIT! ...
.."I;I$(I).C....: 5.K....50.I.,.. ******
*****************...-.. * FILE SEARCH
*...... ***********************.F.
6.."...FFFFFFFFFFFFFFFFFFFFFF"...8.."
SEARCH "...:.."DDDDDDDDDDDDDDD
DDDDDDD":....@.."RECORD NO. = 0...";F.).
A..F.0.50.=.B..I$(F).."1".320.G.E..5100.
A.H.."NAME = ";FB$(1).{.R.."ADDRESS
= ";FB$(2)...|.."ZIP = ";FB$(3)...
~.."TEL = ";FB$(4).I..."COMMENT =
";FB$(5)......"---------------------"..
....320...... ***********************.+.
... * FDD BLOCK READ *.I.... ******
*****************.S....5330.M....15,"U1:
";CH;FD;FT;FS......15,"B-P:";CH;FP......
5270......FI.1.FX...(..CH,FB$(FI):...<..
...F...T.P.. ***********************...Q
.. * FDD BLOCK WRITE *...R.. *******
****************...Z..5330./.D..15,"B-P:
";CH;FP.Q.N..FI.1.FX:.CH,FB$(FI);G(13);:
..K.X..15,"U2:";CH;FD;FT;FS.U....5270.{.
......... ***********************......
* ERROR CHECK *.U.... **********
*************... ..15,EN,EM$,ET,ES......
EN.0........"ERROR STATUS:";EN;EM$;ET;ES
.6...."CONTINUE?";Y$:.Y$."Y"...<.H...Z.J
.. ***********************.X.L.. * SET T
RACK & SECTOR *...N.. *****************
******...R..F.358.F1.0:F2.22:F3.1:.5370.
.....F.357.F.472.F1.357:F2.20:F3.19:.537
0......F.471.F.580.F1.471:F2.19:F3.25:.5
370.)....F.579.F1.579:F2.18:F3.31.H...FT
..(((F.F1).1).(F2.1)).F3.I...FS.F.F1.(FT
.F3).F2.(FT.F3.1).O.......
> CLICK IMAGE PREVIEW FOR FULL MODAL