CREATE
FILE INFORMATION
FILENAME(S): CREATE
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
caedb315bee18a14588615b945e281f5763cf179dfea72c91d2d46183e7e8586
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | CREATE | PRG | DuncanTwain | 6 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 14 04 06 00 9C 3A 42 41 B2 31 38 34 33 32 |.......:BA.18432| 00000010: 3A 9E 42 41 00 49 04 07 00 97 35 39 34 36 38 2C |:.BA.I....59468,| 00000020: 31 32 3A 81 49 B2 31 A4 38 3A 54 4C 24 B2 54 4C |12:.I.1.8:TL$.TL| 00000030: 24 AA 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 82 |$."**********":.| 00000040: 3A 58 59 B2 35 37 34 34 37 00 5D 04 0A 00 8B C2 |:XY.57447.].....| 00000050: 28 31 34 35 29 B2 32 32 38 A7 3A 5C 52 00 91 04 |(145).228.:\R...| 00000060: 11 00 99 22 93 22 3B 54 4C 24 3B A3 33 32 29 3B |...".";TL$;.32);| 00000070: 22 43 52 45 41 54 45 20 4F 52 20 52 45 56 49 53 |"CREATE OR REVIS| 00000080: 45 22 3A 99 54 4C 24 3A 53 59 B2 C2 28 32 31 36 |E":.TL$:SY..(216| 00000090: 29 00 BF 04 14 00 99 22 11 11 45 4E 54 45 52 20 |)......"..ENTER | 000000A0: 46 49 4C 45 20 4E 41 4D 45 3F 20 22 3B 3A 58 B2 |FILE NAME? ";:X.| 000000B0: C2 28 31 39 38 29 3A 59 B2 C2 28 32 31 36 29 00 |.(198):Y..(216).| 000000C0: F0 04 15 00 58 24 B2 22 22 3A 9E 42 41 AA 35 37 |....X$."":.BA.57| 000000D0: 2C 59 2C 58 2C 31 32 3A 8D 32 30 30 30 30 3A 46 |,Y,X,12:.20000:F| 000000E0: 41 24 B2 58 24 3A 8B 58 24 B2 22 20 22 A7 32 31 |A$.X$:.X$." ".21| 000000F0: 00 24 05 1F 00 45 52 24 28 31 29 B2 22 12 4E 55 |.$...ER$(1).".NU| 00000100: 4D 42 45 52 20 4F 46 20 46 49 45 4C 44 53 20 4F |MBER OF FIELDS O| 00000110: 4E 20 53 43 52 45 45 4E 20 45 58 43 45 45 44 53 |N SCREEN EXCEEDS| 00000120: 20 38 30 22 00 5E 05 20 00 45 52 24 28 32 29 B2 | 80".^. .ER$(2).| 00000130: 22 12 53 49 4E 47 4C 45 20 46 49 45 4C 44 20 46 |".SINGLE FIELD F| 00000140: 4F 55 4E 44 20 49 4E 20 4D 55 4C 54 49 2D 43 48 |OUND IN MULTI-CH| 00000150: 41 52 41 43 54 45 52 20 46 49 45 4C 44 22 00 8F |ARACTER FIELD"..| 00000160: 05 21 00 45 52 24 28 33 29 B2 22 12 54 4F 54 41 |.!.ER$(3).".TOTA| 00000170: 4C 20 4E 55 4D 42 45 52 20 4F 46 20 46 49 45 4C |L NUMBER OF FIEL| 00000180: 44 53 20 45 58 43 45 45 44 53 20 31 32 30 22 00 |DS EXCEEDS 120".| 00000190: BC 05 22 00 45 52 24 28 34 29 B2 22 12 55 4E 43 |..".ER$(4).".UNC| 000001A0: 4C 4F 53 45 44 20 4D 55 4C 54 49 2D 43 48 41 52 |LOSED MULTI-CHAR| 000001B0: 41 43 54 45 52 20 46 49 45 4C 44 22 00 02 06 23 |ACTER FIELD"...#| 000001C0: 00 45 52 24 28 30 29 B2 22 20 20 20 20 20 20 20 |.ER$(0)." | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 22 00 3E 06 24 00 45 52 24 28 36 29 B2 22 12 | ".>.$.ER$(6).".| 00000210: 54 4F 54 41 4C 20 4C 45 4E 47 54 48 20 4F 46 20 |TOTAL LENGTH OF | 00000220: 46 49 45 4C 44 53 20 45 58 43 45 45 44 53 20 32 |FIELDS EXCEEDS 2| 00000230: 35 33 20 43 48 41 52 41 43 54 45 52 53 22 00 73 |53 CHARACTERS".s| 00000240: 06 26 00 45 52 24 28 35 29 B2 22 12 45 41 43 48 |.&.ER$(5).".EACH| 00000250: 20 53 43 52 45 45 4E 20 4D 55 53 54 20 48 41 56 | SCREEN MUST HAV| 00000260: 45 20 41 54 20 4C 45 41 53 54 20 31 20 46 49 45 |E AT LEAST 1 FIE| 00000270: 4C 44 22 00 90 06 28 00 97 32 34 37 2C 30 3A 97 |LD"...(..247,0:.| 00000280: 32 34 38 2C 31 30 36 3A 97 33 32 37 36 37 2C 30 |248,106:.32767,0| 00000290: 00 C4 06 32 00 99 3A 99 22 11 45 4E 54 45 52 20 |...2..:.".ENTER | 000002A0: 44 52 49 56 45 20 4E 55 4D 42 45 52 3F 20 31 9D |DRIVE NUMBER? 1.| 000002B0: 22 3B 3A 59 B2 C2 28 32 31 36 29 3A 58 B2 C2 28 |";:Y..(216):X..(| 000002C0: 31 39 38 29 00 FC 06 33 00 58 24 B2 22 22 3A 9E |198)...3.X$."":.| 000002D0: 42 41 AA 35 37 2C 59 2C 58 2C 31 3A 8D 32 30 30 |BA.57,Y,X,1:.200| 000002E0: 30 30 3A 44 24 B2 58 24 3A 8B 58 24 B3 B1 22 30 |00:D$.X$:.X$.."0| 000002F0: 22 AF 58 24 B3 B1 22 31 22 A7 35 31 00 28 07 35 |".X$.."1".51.(.5| 00000300: 00 9F 31 2C 38 2C 31 35 2C 22 49 22 AA 44 24 3A |..1,8,15,"I".D$:| 00000310: 84 31 2C 41 24 3A 41 B2 C5 28 41 24 29 3A A0 31 |.1,A$:A..(A$):.1| 00000320: 3A 8B 41 B2 30 A7 35 39 00 68 07 36 00 81 49 49 |:.A.0.59.h.6..II| 00000330: B2 31 A4 35 3A 9E 42 41 AA 36 30 2C 32 34 2C 32 |.1.5:.BA.60,24,2| 00000340: 35 2C 22 12 07 50 4C 41 43 45 20 46 4F 52 4D 41 |5,"..PLACE FORMA| 00000350: 54 54 45 44 20 44 49 53 4B 45 54 54 45 20 49 4E |TTED DISKETTE IN| 00000360: 20 44 52 49 56 45 92 22 00 AC 07 37 00 81 4A 4A | DRIVE."...7..JJ| 00000370: B2 31 A4 32 30 30 3A 82 4A 4A 3A 9E 42 41 AA 36 |.1.200:.JJ:.BA.6| 00000380: 30 2C 32 34 2C 32 35 2C 22 07 50 4C 41 43 45 20 |0,24,25,".PLACE | 00000390: 46 4F 52 4D 41 54 54 45 44 20 44 49 53 4B 45 54 |FORMATTED DISKET| 000003A0: 54 45 20 49 4E 20 44 52 49 56 45 22 00 CE 07 38 |TE IN DRIVE"...8| 000003B0: 00 81 4A 4A B2 31 A4 32 30 30 3A 82 4A 4A 3A 82 |..JJ.1.200:.JJ:.| 000003C0: 49 49 3A 5C 58 2C 22 30 3A 4D 45 4E 55 22 00 E2 |II:\X,"0:MENU"..| 000003D0: 07 3B 00 9E 42 41 AA 34 38 3A 97 32 37 36 33 38 |.;..BA.48:.27638| 000003E0: 2C 30 00 04 08 3C 00 99 3A 99 22 11 12 43 92 52 |,0...<..:."..C.R| 000003F0: 45 41 54 45 20 4F 52 20 12 52 92 45 56 49 53 45 |EATE OR .R.EVISE| 00000400: 3F 20 22 3B 00 1A 08 3D 00 58 B2 C2 28 31 39 38 |? ";...=.X..(198| 00000410: 29 3A 59 B2 C2 28 32 31 36 29 00 38 08 3E 00 58 |):Y..(216).8.>.X| 00000420: 24 B2 22 22 3A 9E 42 41 AA 35 37 2C 59 2C 58 2C |$."":.BA.57,Y,X,| 00000430: 31 3A 8D 32 30 30 30 30 00 60 08 3F 00 8B 58 24 |1:.20000.`.?..X$| 00000440: B3 B1 22 43 22 AF 58 24 B3 B1 22 52 22 A7 9E 42 |.."C".X$.."R"..B| 00000450: 41 AA 36 30 2C 59 2C 58 2C 22 20 22 3A 89 36 32 |A.60,Y,X," ":.62| 00000460: 00 7E 08 40 00 46 4C 24 B2 58 24 3A 8B 46 4C 24 |.~.@.FL$.X$:.FL$| 00000470: B2 22 52 22 A7 8D 39 30 30 30 3A 89 37 30 00 B6 |."R"..9000:.70..| 00000480: 08 41 00 53 59 B2 C2 28 32 31 36 29 3A 45 52 B2 |.A.SY..(216):ER.| 00000490: 30 3A 8D 36 30 30 30 3A 8B 45 52 B2 31 A7 45 52 |0:.6000:.ER.1.ER| 000004A0: B2 30 3A 9E 42 41 AA 36 30 2C 53 59 2C 31 2C 22 |.0:.BA.60,SY,1,"| 000004B0: 9D 22 3A 89 36 35 00 D9 08 46 00 8B 45 52 B2 31 |.":.65...F..ER.1| 000004C0: A7 45 52 B2 30 3A 9E 42 41 AA 36 30 2C 53 59 2C |.ER.0:.BA.60,SY,| 000004D0: 31 2C 22 9D 22 3A 89 32 30 00 10 09 4B 00 99 3A |1,".":.20...K..:| 000004E0: 99 22 11 16 45 4E 54 45 52 20 4E 55 4D 42 45 52 |."..ENTER NUMBER| 000004F0: 20 4F 46 20 50 41 47 45 53 3F 22 3B 3A 59 B2 C2 | OF PAGES?";:Y..| 00000500: 28 32 31 36 29 3A 58 B2 C2 28 31 39 38 29 AA 31 |(216):X..(198).1| 00000510: 00 20 09 50 00 99 C2 28 32 37 36 33 38 29 AA 31 |. .P...(27638).1| 00000520: 00 47 09 51 00 58 24 B2 22 22 3A 9E 42 41 AA 35 |.G.Q.X$."":.BA.5| 00000530: 37 2C 59 2C 58 2C 31 3A 8D 32 30 30 30 30 3A 50 |7,Y,X,1:.20000:P| 00000540: 41 B2 C5 28 58 24 29 00 69 09 52 00 8B 50 41 B3 |A..(X$).i.R..PA.| 00000550: 31 B0 50 41 B1 32 A7 9E 42 41 AA 36 30 2C 59 2C |1.PA.2..BA.60,Y,| 00000560: 58 2C 22 20 22 3A 89 38 31 00 9E 09 5A 00 99 3A |X," ":.81...Z..:| 00000570: 99 22 11 16 12 55 92 50 50 45 52 2F 4C 4F 57 45 |."...U.PPER/LOWE| 00000580: 52 20 4F 52 20 12 47 92 52 41 50 48 49 43 53 2F |R OR .G.RAPHICS/| 00000590: 55 50 50 45 52 20 43 41 53 45 3F 20 22 3B 00 B4 |UPPER CASE? ";..| 000005A0: 09 5B 00 59 B2 C2 28 32 31 36 29 3A 58 B2 C2 28 |.[.Y..(216):X..(| 000005B0: 31 39 38 29 00 D9 09 5D 00 58 58 B2 C2 28 32 37 |198)...].XX..(27| 000005C0: 36 34 32 29 3A 41 24 B2 22 47 22 3A 8B 58 58 B2 |642):A$."G":.XX.| 000005D0: 31 34 A7 41 24 B2 22 55 22 00 E1 09 5E 00 99 41 |14.A$."U"...^..A| 000005E0: 24 00 12 0A 5F 00 58 24 B2 22 22 3A 9E 42 41 AA |$..._.X$."":.BA.| 000005F0: 35 37 2C 59 2C 58 2C 31 3A 8D 32 30 30 30 30 3A |57,Y,X,1:.20000:| 00000600: 8B 58 24 B2 22 47 22 A7 58 58 B2 31 32 3A 89 31 |.X$."G".XX.12:.1| 00000610: 32 30 00 32 0A 60 00 8B 58 24 B3 B1 22 55 22 A7 |20.2.`..X$.."U".| 00000620: 9E 42 41 AA 36 30 2C 59 2C 58 2C 22 20 22 3A 89 |.BA.60,Y,X," ":.| 00000630: 39 35 00 3C 0A 64 00 58 58 B2 31 34 00 42 0A 78 |95.<.d.XX.14.B.x| 00000640: 00 8F 00 56 0A 7D 00 9E 42 41 AA 31 38 3A 97 33 |...V.}..BA.18:.3| 00000650: 32 37 36 37 2C 30 00 79 0A 82 00 81 4A B2 31 A4 |2767,0.y....J.1.| 00000660: 50 41 3A 8B 46 4C 24 B2 22 52 22 B0 46 4C 24 B2 |PA:.FL$."R".FL$.| 00000670: 22 53 22 A7 9E 42 41 AA 33 00 8C 0A 8D 00 8B 46 |"S"..BA.3......F| 00000680: 4C 24 B2 22 43 22 A7 99 22 93 22 3B 00 C2 0A 8E |L$."C"..".";....| 00000690: 00 97 35 39 34 36 38 2C 58 58 3A 41 51 B2 C2 28 |..59468,XX:AQ..(| 000006A0: 36 33 35 29 3A 41 59 B2 C2 28 36 33 34 29 3A 41 |635):AY..(634):A| 000006B0: 58 B2 C2 28 31 33 37 29 3A 41 5A B2 C2 28 31 33 |X..(137):AZ..(13| 000006C0: 36 29 00 CC 0A 8F 00 8D 32 30 30 30 00 F0 0A 91 |6)......2000....| 000006D0: 00 97 36 33 35 2C 41 51 3A 97 36 33 34 2C 41 59 |..635,AQ:.634,AY| 000006E0: 3A 97 31 33 37 2C 41 58 3A 97 31 33 36 2C 41 5A |:.137,AX:.136,AZ| 000006F0: 00 0B 0B 96 00 97 32 32 35 2C 32 33 3A 9E 42 41 |......225,23:.BA| 00000700: AA 33 30 3A 97 32 32 35 2C 32 34 00 13 0B A0 00 |.30:.225,24.....| 00000710: A1 41 24 00 24 0B A5 00 8B 41 24 B2 22 93 22 A7 |.A$.$....A$.".".| 00000720: 38 30 30 30 00 3E 0B B9 00 46 59 B2 30 3A 8D 37 |8000.>...FY.0:.7| 00000730: 30 30 30 3A 8B 46 59 B3 B1 31 A7 31 35 30 00 4E |000:.FY..1.150.N| 00000740: 0B BE 00 97 30 2C 30 3A 9E 42 41 AA 33 33 00 60 |....0,0:.BA.33.`| 00000750: 0B BF 00 8B C2 28 30 29 B3 B1 30 A7 35 30 30 30 |.....(0)..0.5000| 00000760: 00 75 0B C8 00 9E 42 41 AA 36 30 2C 32 34 2C 36 |.u....BA.60,24,6| 00000770: 36 2C 22 16 22 00 8E 0B CD 01 97 33 32 37 35 32 |6,"."......32752| 00000780: 2C C2 28 36 33 34 29 AB C2 28 36 33 36 29 00 9D |,.(634)..(636)..| 00000790: 0B D0 01 97 33 32 37 35 37 2C 4A AB 31 00 AD 0B |....32757,J.1...| 000007A0: D1 01 97 33 32 37 35 38 2C 50 41 AB 31 00 BA 0B |...32758,PA.1...| 000007B0: D2 01 97 33 32 37 35 39 2C 30 00 CE 0B D3 01 97 |...32759,0......| 000007C0: 33 32 37 36 30 2C C2 28 36 33 34 29 AB 31 00 E0 |32760,.(634).1..| 000007D0: 0B D4 01 97 33 32 37 36 31 2C C2 28 36 33 36 29 |....32761,.(636)| 000007E0: 00 07 0C D5 01 97 33 32 37 36 32 2C 58 58 3A 9E |......32762,XX:.| 000007F0: 42 41 AA 33 39 3A 97 32 34 38 2C C2 28 32 34 38 |BA.39:.248,.(248| 00000800: 29 AA 31 30 3A 82 4A 00 25 0C E0 01 97 32 35 36 |).10:.J.%....256| 00000810: AC C2 28 31 33 37 29 AA C2 28 31 33 36 29 2C C2 |..(137)..(136),.| 00000820: 28 36 33 35 29 00 4E 0C E5 01 97 32 34 38 2C 31 |(635).N....248,1| 00000830: 30 36 3A 81 4A B2 31 A4 50 41 3A 9E 42 41 AA 33 |06:.J.1.PA:.BA.3| 00000840: 3A 97 33 32 37 35 33 2C C2 28 36 33 34 29 00 60 |:.32753,.(634).`| 00000850: 0C EA 01 97 33 32 37 35 34 2C C2 28 36 33 35 29 |....32754,.(635)| 00000860: 00 6B 0C F4 01 9E 42 41 AA 33 36 00 76 0C FE 01 |.k....BA.36.v...| 00000870: 9E 42 41 AA 33 39 00 89 0C 08 02 97 32 34 38 2C |.BA.39......248,| 00000880: C2 28 32 34 38 29 AA 31 30 00 8F 0C 12 02 82 00 |.(248).10.......| 00000890: 9F 0C 17 02 52 4C B2 C2 28 33 32 37 35 34 29 00 |....RL..(32754).| 000008A0: CE 0C 18 02 8B 46 4C 24 B2 22 43 22 B0 46 4C 24 |.....FL$."C".FL$| 000008B0: B2 22 53 22 A7 9E 42 41 AA 36 36 3A 97 32 36 38 |."S"..BA.66:.268| 000008C0: 38 30 AA 32 35 35 2C 31 31 3A 89 35 36 30 00 DD |80.255,11:.560..| 000008D0: 0C 1C 02 8B 52 4C B2 52 39 A7 36 37 30 00 1A 0D |....RL.R9.670...| 000008E0: 29 02 9E 42 41 AA 36 30 2C 32 34 2C 31 32 2C 22 |)..BA.60,24,12,"| 000008F0: 12 52 45 43 4F 52 44 20 4C 45 4E 47 54 48 20 41 |.RECORD LENGTH A| 00000900: 4C 54 45 52 45 44 92 2C 20 4E 45 57 20 46 49 4C |LTERED., NEW FIL| 00000910: 45 20 28 59 2F 4E 29 3F 20 22 00 30 0D 2A 02 58 |E (Y/N)? ".0.*.X| 00000920: B2 C2 28 31 39 38 29 3A 59 B2 C2 28 32 31 36 29 |..(198):Y..(216)| 00000930: 00 4E 0D 2B 02 58 24 B2 22 22 3A 9E 42 41 AA 35 |.N.+.X$."":.BA.5| 00000940: 37 2C 59 2C 58 2C 31 3A 8D 32 30 30 30 30 00 77 |7,Y,X,1:.20000.w| 00000950: 0D 2C 02 8B 58 24 B3 B1 22 4E 22 AF 58 24 B3 B1 |.,..X$.."N".X$..| 00000960: 22 59 22 A7 9E 42 41 AA 36 30 2C 59 2C 58 2C 22 |"Y"..BA.60,Y,X,"| 00000970: 20 22 3A 89 35 35 35 00 B3 0D 2D 02 9E 42 41 AA | ":.555...-..BA.| 00000980: 36 30 2C 32 34 2C 31 32 2C 22 20 20 20 20 20 20 |60,24,12," | 00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009B0: 20 20 22 00 E6 0D 2E 02 8B 58 24 B2 22 4E 22 A7 | "......X$."N".| 000009C0: 58 24 B2 22 22 3A 9E 42 41 AA 36 3A 58 24 B2 58 |X$."":.BA.6:X$.X| 000009D0: 24 3A 97 32 34 37 2C 30 3A 97 32 34 38 2C 31 30 |$:.247,0:.248,10| 000009E0: 36 3A 89 31 32 35 00 17 0E 30 02 8B 46 4C 24 B2 |6:.125...0..FL$.| 000009F0: 22 52 22 A7 9E 42 41 AA 36 30 2C 32 34 2C 30 2C |"R"..BA.60,24,0,| 00000A00: 22 12 53 43 52 41 54 43 48 49 4E 47 20 4F 4C 44 |".SCRATCHING OLD| 00000A10: 20 46 49 4C 45 92 22 00 4E 0E 31 02 44 B2 C5 28 | FILE.".N.1.D..(| 00000A20: 44 24 29 3A D9 28 46 41 24 AA 22 2E 53 43 52 22 |D$):.(FA$.".SCR"| 00000A30: 29 2C 44 28 44 29 3A D9 28 46 41 24 29 2C 44 28 |),D(D):.(FA$),D(| 00000A40: 44 29 3A 8B 44 53 B2 32 36 A7 31 30 30 30 00 79 |D):.DS.26.1000.y| 00000A50: 0E 32 02 8D 33 30 30 30 3A 8B 4D 58 B1 30 A7 97 |.2..3000:.MX.0..| 00000A60: 32 31 36 2C 32 34 3A 97 31 39 38 2C 30 3A 9E 35 |216,24:.198,0:.5| 00000A70: 37 34 34 37 3A 89 35 36 34 00 A1 0E 33 02 8D 34 |7447:.564...3..4| 00000A80: 30 30 30 3A 9F 31 2C 38 2C 31 35 2C 22 49 22 AA |000:.1,8,15,"I".| 00000A90: CA 28 C4 28 44 29 2C 32 29 3A A0 31 3A 89 35 36 |.(.(D),2):.1:.56| 00000AA0: 30 00 EB 0E 34 02 99 22 16 52 45 43 4F 52 44 20 |0...4..".RECORD | 00000AB0: 4C 45 4E 47 54 48 22 3B 52 4C 3B 22 9D 20 43 48 |LENGTH";RL;". CH| 00000AC0: 41 52 41 43 54 45 52 53 2E 20 20 45 4E 54 45 52 |ARACTERS. ENTER| 00000AD0: 20 54 4F 54 41 4C 20 4E 55 4D 42 45 52 20 4F 46 | TOTAL NUMBER OF| 00000AE0: 20 52 45 43 4F 52 44 53 3F 22 3B 00 0F 0F 35 02 | RECORDS?";...5.| 00000AF0: 58 B2 C2 28 31 39 38 29 AA 31 3A 59 B2 C2 28 32 |X..(198).1:Y..(2| 00000B00: 31 36 29 3A 99 4D 58 3B 3A 97 31 35 38 2C 30 00 |16):.MX;:.158,0.| 00000B10: 4F 0F 36 02 58 24 B2 22 22 3A 9E 42 41 AA 35 37 |O.6.X$."":.BA.57| 00000B20: 2C 59 2C 58 2C C3 28 C4 28 4D 58 29 29 AB 31 3A |,Y,X,.(.(MX)).1:| 00000B30: 8D 32 30 30 30 30 3A 52 52 B2 C5 28 58 24 29 3A |.20000:RR..(X$):| 00000B40: 8B 52 52 B3 31 B0 52 52 B1 4D 58 A7 35 36 36 00 |.RR.1.RR.MX.566.| 00000B50: 87 0F 37 02 52 31 B2 B5 28 52 52 AD 32 35 36 29 |..7.R1..(RR.256)| 00000B60: 3A 52 32 B2 52 52 AB 32 35 36 AC 52 31 3A 81 49 |:R2.RR.256.R1:.I| 00000B70: B2 31 A4 32 3A 97 32 37 36 33 36 AA 31 30 AC 28 |.1.2:.27636.10.(| 00000B80: 49 AB 31 29 2C 52 31 00 B8 0F 38 02 97 32 37 36 |I.1),R1...8..276| 00000B90: 33 35 AA 31 30 AC 28 49 AB 31 29 2C 52 32 3A 82 |35.10.(I.1),R2:.| 00000BA0: 49 3A 81 49 B2 32 37 36 34 33 A4 32 37 36 34 36 |I:.I.27643.27646| 00000BB0: 3A 97 49 2C 30 3A 82 49 00 CC 0F 39 02 52 24 B2 |:.I,0:.I...9.R$.| 00000BC0: 22 22 3A 8B 52 4C B2 31 A7 35 38 30 00 E4 0F 3A |"":.RL.1.580...:| 00000BD0: 02 81 49 B2 32 A4 52 4C 3A 52 24 B2 52 24 AA 22 |..I.2.RL:R$.R$."| 00000BE0: 20 22 3A 82 00 F2 0F 44 02 52 24 B2 22 2A 22 AA | ":....D.R$."*".| 00000BF0: 52 24 00 1E 10 4E 02 CD 23 31 2C 28 46 41 24 29 |R$...N..#1,(FA$)| 00000C00: 2C 44 28 44 29 2C 4C 28 52 4C AA 31 29 3A 8B 44 |,D(D),L(RL.1):.D| 00000C10: 53 B2 32 36 A7 CE 23 31 3A 89 31 30 30 30 00 32 |S.26..#1:.1000.2| 00000C20: 10 53 02 CF 23 31 2C 28 52 52 AA 31 29 3A 41 B2 |.S..#1,(RR.1):A.| 00000C30: 44 53 00 40 10 80 02 98 31 2C C7 28 32 35 35 29 |DS.@....1,.(255)| 00000C40: 00 5F 10 94 02 CF 23 31 2C 31 3A 81 49 B2 31 A4 |._....#1,1:.I.1.| 00000C50: 52 52 3A 98 31 2C 52 24 3A 82 49 3A CE 23 31 00 |RR:.1,R$:.I:.#1.| 00000C60: 90 10 9E 02 D9 28 46 41 24 AA 22 2E 53 43 52 22 |.....(FA$.".SCR"| 00000C70: 29 2C 44 28 C5 28 44 24 29 29 3A 46 53 24 B2 44 |),D(.(D$)):FS$.D| 00000C80: 24 AA 22 3A 22 AA 46 41 24 AA 22 2E 53 43 52 22 |$.":".FA$.".SCR"| 00000C90: 00 AD 10 A0 02 8F 20 20 20 5C 53 2C 46 53 24 2C |...... \S,FS$,| 00000CA0: 22 36 35 30 30 22 2C 22 37 44 46 46 22 00 C1 10 |"6500","7DFF"...| 00000CB0: A3 02 8F 20 20 20 5C 58 2C 22 30 3A 4D 45 4E 55 |... \X,"0:MENU| 00000CC0: 22 00 FE 10 A4 02 8F 20 20 20 4C 49 4E 45 53 20 |"...... LINES | 00000CD0: 36 37 34 20 2D 20 36 39 30 20 20 41 52 45 20 45 |674 - 690 ARE E| 00000CE0: 58 54 45 4E 54 49 4F 4E 53 20 46 4F 52 20 5B 52 |XTENTIONS FOR [R| 00000CF0: 45 46 49 45 4C 44 5D 20 4F 50 54 49 4F 4E 00 3D |EFIELD] OPTION.=| 00000D00: 11 A5 02 9E 42 41 AA 36 30 2C 32 34 2C 30 30 2C |....BA.60,24,00,| 00000D10: 22 16 20 20 20 20 20 20 20 20 20 20 20 20 52 45 |". RE| 00000D20: 2D 41 52 41 4E 47 45 20 46 49 45 4C 44 20 4F 52 |-ARANGE FIELD OR| 00000D30: 44 45 52 20 28 59 2F 4E 29 20 3F 20 22 00 53 11 |DER (Y/N) ? ".S.| 00000D40: A6 02 58 B2 C2 28 31 39 38 29 3A 59 B2 C2 28 32 |..X..(198):Y..(2| 00000D50: 31 36 29 00 7E 11 A8 02 58 24 B2 22 22 3A 9E 42 |16).~...X$."":.B| 00000D60: 41 AA 35 37 2C 59 2C 58 2C 31 3A 8D 32 30 30 30 |A.57,Y,X,1:.2000| 00000D70: 30 3A 8B 58 24 B3 B1 22 59 22 A7 36 39 30 00 95 |0:.X$.."Y".690..| 00000D80: 11 AA 02 5A 31 B2 31 30 30 30 3A 97 5A 31 2C C3 |...Z1.1000:.Z1,.| 00000D90: 28 46 41 24 29 00 BA 11 AB 02 81 49 B2 31 A4 C2 |(FA$)......I.1..| 00000DA0: 28 5A 31 29 3A 97 49 AA 5A 31 2C C6 28 CA 28 46 |(Z1):.I.Z1,.(.(F| 00000DB0: 41 24 2C 49 2C 31 29 29 3A 82 00 CA 11 AC 02 97 |A$,I,1)):.......| 00000DC0: 49 AA 5A 31 2C C5 28 44 24 29 00 F2 11 AD 02 5C |I.Z1,.(D$).....\| 00000DD0: 53 2C 46 53 24 2C 22 36 35 30 30 22 2C 22 37 44 |S,FS$,"6500","7D| 00000DE0: 46 46 22 3A 5C 58 2C 22 30 3A 52 45 46 49 45 4C |FF":\X,"0:REFIEL| 00000DF0: 44 22 00 17 12 B2 02 5C 53 2C 46 53 24 2C 22 36 |D".....\S,FS$,"6| 00000E00: 35 30 30 22 2C 22 37 44 46 46 22 3A 5C 58 2C 22 |500","7DFF":\X,"| 00000E10: 30 3A 4D 45 4E 55 22 00 2B 12 E8 03 9E 42 41 AA |0:MENU".+....BA.| 00000E20: 36 30 2C 32 34 2C 30 2C 22 16 22 00 62 12 FC 03 |60,24,0,".".b...| 00000E30: 9E 42 41 AA 36 30 2C 32 34 2C 30 2C 22 48 41 56 |.BA.60,24,0,"HAV| 00000E40: 45 20 59 4F 55 20 52 45 4D 4F 56 45 44 20 54 48 |E YOU REMOVED TH| 00000E50: 45 20 57 52 49 54 45 20 50 52 4F 54 45 43 54 3F |E WRITE PROTECT?| 00000E60: 20 22 00 78 12 38 04 59 B2 C2 28 32 31 36 29 3A | ".x.8.Y..(216):| 00000E70: 58 B2 C2 28 31 39 38 29 00 A4 12 42 04 58 24 B2 |X..(198)...B.X$.| 00000E80: 22 22 3A 9E 42 41 AA 35 37 2C 59 2C 58 2C 31 3A |"":.BA.57,Y,X,1:| 00000E90: 8D 32 30 30 30 30 3A 8B 58 24 B3 B1 22 59 22 A7 |.20000:.X$.."Y".| 00000EA0: 31 30 39 30 00 AD 12 4C 04 89 35 36 30 00 C3 12 |1090...L..560...| 00000EB0: D0 07 8B C2 28 35 39 34 36 38 29 B2 31 34 A7 32 |....(59468).14.2| 00000EC0: 30 32 30 00 F2 12 D1 07 97 32 31 36 2C 32 34 3A |020......216,24:| 00000ED0: 97 31 39 38 2C 30 3A 9E 35 37 34 34 37 3A 99 22 |.198,0:.57447:."| 00000EE0: 12 50 41 47 45 22 4A 22 4F 46 22 50 41 3B 22 92 |.PAGE"J"OF"PA;".| 00000EF0: 22 3B 00 0E 13 D5 07 99 A3 36 36 29 3B 22 4C 20 |";.......66);"L | 00000F00: 20 20 20 43 20 20 20 20 45 53 43 13 22 3B 00 14 | C ESC.";..| 00000F10: 13 DA 07 8E 00 43 13 E4 07 97 32 31 36 2C 32 34 |.....C....216,24| 00000F20: 3A 97 31 39 38 2C 30 3A 9E 35 37 34 34 37 3A 99 |:.198,0:.57447:.| 00000F30: 22 12 D0 41 47 45 22 4A 22 4F 46 22 50 41 3B 22 |"..AGE"J"OF"PA;"| 00000F40: 92 22 3B 00 61 13 EE 07 99 A3 36 36 29 3B 22 CC |.";.a.....66);".| 00000F50: 20 20 20 20 C3 20 20 20 20 C5 D3 C3 13 22 3B 3A | . ....";:| 00000F60: 8E 00 7E 13 B8 0B 58 24 B2 22 24 22 AA 44 24 AA |..~...X$."$".D$.| 00000F70: 22 3A 3A 22 3A 9F 31 2C 38 2C 30 2C 58 24 00 98 |"::":.1,8,0,X$..| 00000F80: 13 C2 0B A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C |....#1,X$,X$,X$,| 00000F90: 58 24 2C 58 24 2C 58 24 00 B0 13 CC 0B A1 23 31 |X$,X$,X$......#1| 00000FA0: 2C 58 24 3A 8B 58 24 B3 B1 22 22 89 33 30 32 30 |,X$:.X$.."".3020| 00000FB0: 00 C4 13 D6 0B A1 23 31 2C 58 24 2C 58 24 2C 58 |......#1,X$,X$,X| 00000FC0: 24 2C 59 24 00 DB 13 E0 0B 58 B2 C3 28 58 24 29 |$,Y$.....X..(X$)| 00000FD0: 3A 8B 58 A7 58 B2 C6 28 58 24 29 00 F2 13 EA 0B |:.X.X..(X$).....| 00000FE0: 59 B2 C3 28 59 24 29 3A 8B 59 A7 59 B2 C6 28 59 |Y..(Y$):.Y.Y..(Y| 00000FF0: 24 29 00 2D 14 F4 0B 46 42 B2 58 AA 59 AC 32 35 |$).-...FB.X.Y.25| 00001000: 36 AB 31 3A A0 31 3A 46 42 B2 46 42 AB 32 36 AB |6.1:.1:FB.FB.26.| 00001010: 31 AB 31 3A 46 42 B2 46 42 AB B5 28 46 42 AD 31 |1.1:FB.FB..(FB.1| 00001020: 32 30 29 3A 4D 58 B2 46 42 AC 32 35 34 00 54 14 |20):MX.FB.254.T.| 00001030: FE 0B 8F 20 44 20 38 30 35 30 3A 20 49 46 4D 58 |... D 8050: IFMX| 00001040: 3E 31 38 32 38 38 30 54 48 45 4E 4D 58 3D 31 38 |>182880THENMX=18| 00001050: 32 38 38 30 00 7D 14 08 0C 4D 58 B2 B5 28 4D 58 |2880.}...MX..(MX| 00001060: AD 28 52 4C AA 31 29 29 AB 31 3A 8B 4D 58 B1 31 |.(RL.1)).1:.MX.1| 00001070: 36 33 38 34 A7 4D 58 B2 31 36 33 38 34 00 83 14 |6384.MX.16384...| 00001080: 12 0C 8E 00 C8 14 A0 0F 9E 42 41 AA 36 30 2C 32 |.........BA.60,2| 00001090: 34 2C 30 2C 22 20 20 20 20 20 20 20 20 20 20 20 |4,0," | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010C0: 20 20 20 20 20 20 20 22 00 EF 14 A5 0F 99 22 20 | "......" | 000010D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010E0: 20 20 20 20 20 20 20 20 20 20 20 20 13 22 3B 00 | .";.| 000010F0: 38 15 A9 0F 9E 42 41 AA 36 30 2C 32 34 2C 30 2C |8....BA.60,24,0,| 00001100: 22 54 48 49 53 20 44 49 53 4B 45 54 54 45 20 49 |"THIS DISKETTE I| 00001110: 53 20 46 55 4C 4C 2E 20 20 48 41 56 45 20 59 4F |S FULL. HAVE YO| 00001120: 55 20 49 4E 53 45 52 54 45 44 20 41 4E 4F 54 48 |U INSERTED ANOTH| 00001130: 45 52 20 44 49 53 4B 22 00 68 15 AA 0F 99 22 45 |ER DISK".h...."E| 00001140: 54 54 45 20 49 4E 20 44 52 49 56 45 22 3B 44 3B |TTE IN DRIVE";D;| 00001150: 22 9D 3F 20 22 3B 3A 59 B2 C2 28 32 31 36 29 3A |".? ";:Y..(216):| 00001160: 58 B2 C2 28 31 39 38 29 00 94 15 B4 0F 58 24 B2 |X..(198).....X$.| 00001170: 22 22 3A 9E 42 41 AA 35 37 2C 59 2C 58 2C 31 3A |"":.BA.57,Y,X,1:| 00001180: 8D 32 30 30 30 30 3A 8B 58 24 B3 B1 22 59 22 A7 |.20000:.X$.."Y".| 00001190: 34 30 32 30 00 9A 15 BE 0F 8E 00 C1 15 88 13 97 |4020............| 000011A0: 32 31 36 2C 32 34 3A 97 31 39 38 2C 31 32 3A 9E |216,24:.198,12:.| 000011B0: 35 37 34 34 37 3A 99 45 52 24 28 C2 28 30 29 29 |57447:.ER$(.(0))| 000011C0: 3B 00 E1 15 92 13 8B C2 28 30 29 B3 B1 35 A7 99 |;.......(0)..5..| 000011D0: 22 20 41 54 20 4C 22 3B C2 28 36 33 39 29 AA 31 |" AT L";.(639).1| 000011E0: 3B 00 0A 16 9C 13 99 22 92 22 3B 3A 97 32 31 36 |;......".";:.216| 000011F0: 2C C2 28 36 33 39 29 3A 97 31 39 38 2C 30 3A 9E |,.(639):.198,0:.| 00001200: 35 37 34 34 37 3A 89 31 34 35 00 41 16 70 17 99 |57447:.145.A.p..| 00001210: 3A 99 22 11 44 4F 20 59 4F 55 20 57 49 53 48 20 |:.".DO YOU WISH | 00001220: 54 4F 20 55 53 45 20 41 4E 20 45 58 49 53 54 49 |TO USE AN EXISTI| 00001230: 4E 47 20 46 49 4C 45 20 28 59 2F 4E 29 3F 20 22 |NG FILE (Y/N)? "| 00001240: 3B 00 57 16 7A 17 59 B2 C2 28 32 31 36 29 3A 58 |;.W.z.Y..(216):X| 00001250: B2 C2 28 31 39 38 29 00 8B 16 84 17 58 24 B2 22 |..(198).....X$."| 00001260: 22 3A 9E 42 41 AA 35 37 2C 59 2C 58 2C 31 3A 8D |":.BA.57,Y,X,1:.| 00001270: 32 30 30 30 30 3A 8B 58 24 B3 B1 22 4E 22 AF 58 |20000:.X$.."N".X| 00001280: 24 B3 B1 22 59 22 A7 36 30 32 30 00 99 16 8E 17 |$.."Y".6020.....| 00001290: 8B 58 24 B2 22 4E 22 A7 8E 00 D1 16 98 17 99 3A |.X$."N"........:| 000012A0: 99 22 11 45 4E 54 45 52 20 45 58 49 53 54 49 4E |.".ENTER EXISTIN| 000012B0: 47 20 46 49 4C 45 20 4E 41 4D 45 3F 20 22 3B 3A |G FILE NAME? ";:| 000012C0: 59 B2 C2 28 32 31 36 29 3A 58 B2 C2 28 31 39 38 |Y..(216):X..(198| 000012D0: 29 00 04 17 A2 17 58 24 B2 22 22 3A 9E 42 41 AA |).....X$."":.BA.| 000012E0: 35 37 2C 59 2C 58 2C 31 32 3A 8D 32 30 30 30 30 |57,Y,X,12:.20000| 000012F0: 3A 53 46 24 B2 58 24 3A 8B 58 24 B2 22 20 22 A7 |:SF$.X$:.X$." ".| 00001300: 36 30 35 30 00 34 17 AC 17 99 3A 99 22 11 45 4E |6050.4....:.".EN| 00001310: 54 45 52 20 45 58 49 53 54 49 4E 47 20 46 49 4C |TER EXISTING FIL| 00001320: 45 20 44 52 49 56 45 20 4E 55 4D 42 45 52 3F 20 |E DRIVE NUMBER? | 00001330: 31 9D 22 3B 00 4A 17 B6 17 59 B2 C2 28 32 31 36 |1.";.J...Y..(216| 00001340: 29 3A 58 B2 C2 28 31 39 38 29 00 7E 17 C0 17 58 |):X..(198).~...X| 00001350: 24 B2 22 22 3A 9E 42 41 AA 35 37 2C 59 2C 58 2C |$."":.BA.57,Y,X,| 00001360: 31 3A 8D 32 30 30 30 30 3A 8B 58 24 B3 B1 22 30 |1:.20000:.X$.."0| 00001370: 22 AF 58 24 B3 B1 22 31 22 A7 36 30 38 30 00 9E |".X$.."1".6080..| 00001380: 17 CA 17 CD 23 31 2C 28 53 46 24 29 2C 44 28 C5 |....#1,(SF$),D(.| 00001390: 28 58 24 29 29 3A 41 B2 44 53 3A CE 23 31 00 AD |(X$)):A.DS:.#1..| 000013A0: 17 D4 17 8B 41 B3 B1 30 A7 39 30 37 30 00 D8 17 |....A..0.9070...| 000013B0: DE 17 46 53 24 B2 58 24 AA 22 3A 22 AA 53 46 24 |..FS$.X$.":".SF$| 000013C0: AA 22 2E 53 43 52 22 3A 5C 4C 3B 46 53 24 3A 46 |.".SCR":\L;FS$:F| 000013D0: 4C 24 B2 22 53 22 3A 8E 00 F0 17 58 1B 97 32 31 |L$."S":....X..21| 000013E0: 36 2C 32 34 3A 97 31 39 38 2C 31 32 3A 9E 58 59 |6,24:.198,12:.XY| 000013F0: 00 26 18 62 1B 46 59 B2 30 3A 99 22 12 41 52 45 |.&.b.FY.0:.".ARE| 00001400: 20 59 4F 55 20 53 55 52 45 92 20 28 59 2F 4E 29 | YOU SURE. (Y/N)| 00001410: 3F 20 22 3B 3A 59 B2 C2 28 32 31 36 29 3A 58 B2 |? ";:Y..(216):X.| 00001420: C2 28 31 39 38 29 00 5B 18 67 1B 99 22 20 20 20 |.(198).[.g.." | 00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001450: 20 20 20 20 20 20 20 20 20 22 3B 00 7F 18 6C 1B | ";...l.| 00001460: 58 24 B2 22 22 3A 9E 42 41 AA 35 37 2C 59 2C 58 |X$."":.BA.57,Y,X| 00001470: 2C 31 3A 8D 32 30 30 30 30 3A 41 24 B2 58 24 00 |,1:.20000:A$.X$.| 00001480: 90 18 76 1B 8B 41 24 B2 22 59 22 A7 46 59 B2 31 |..v..A$."Y".FY.1| 00001490: 00 AD 18 80 1B 9E 42 41 AA 36 30 2C 32 34 2C 31 |......BA.60,24,1| 000014A0: 32 2C 22 16 22 3A 8D 32 30 30 30 3A 8E 00 C6 18 |2,".":.2000:....| 000014B0: 40 1F 46 59 B2 30 3A 8D 37 30 30 30 3A 8B 46 59 |@.FY.0:.7000:.FY| 000014C0: B2 30 A7 31 34 32 00 D5 18 41 1F 99 22 93 22 3A |.0.142...A..".":| 000014D0: 8D 32 30 30 30 00 ED 18 45 1F 97 32 31 36 2C 32 |.2000...E..216,2| 000014E0: 34 3A 97 31 39 38 2C 31 37 3A 9E 58 59 00 1E 19 |4:.198,17:.XY...| 000014F0: 47 1F 99 22 12 52 3D 52 45 2D 45 4E 54 45 52 2C |G..".R=RE-ENTER,| 00001500: 20 51 3D 51 55 49 54 92 3F 20 22 3B 3A 59 B2 C2 | Q=QUIT.? ";:Y..| 00001510: 28 32 31 36 29 3A 58 B2 C2 28 31 39 38 29 00 42 |(216):X..(198).B| 00001520: 19 4A 1F 58 24 B2 22 22 3A 9E 42 41 AA 35 37 2C |.J.X$."":.BA.57,| 00001530: 59 2C 58 2C 31 3A 41 24 B2 58 24 3A 8D 32 30 30 |Y,X,1:A$.X$:.200| 00001540: 30 30 00 64 19 54 1F 8B 41 24 B3 B1 22 52 22 A7 |00.d.T..A$.."R".| 00001550: 9E 42 41 AA 36 30 2C 59 2C 58 2C 22 20 22 3A 89 |.BA.60,Y,X," ":.| 00001560: 38 30 31 30 00 72 19 68 1F 99 22 93 22 3A 89 31 |8010.r.h..".":.1| 00001570: 34 32 00 A3 19 28 23 46 53 24 B2 44 24 AA 22 3A |42...(#FS$.D$.":| 00001580: 22 AA 46 41 24 AA 22 2E 53 43 52 22 3A 5C 4C 3B |".FA$.".SCR":\L;| 00001590: 46 53 24 3A 8B C2 28 33 35 29 B3 B1 34 38 A7 39 |FS$:..(35)..48.9| 000015A0: 30 37 30 00 CE 19 50 23 52 52 B2 C2 28 32 37 36 |070...P#RR..(276| 000015B0: 33 35 29 AA C2 28 32 37 36 33 36 29 AC 32 35 36 |35)..(27636).256| 000015C0: 3A 52 39 B2 C2 28 32 37 36 33 34 29 3A 8E 00 0E |:R9..(27634):...| 000015D0: 1A 6E 23 81 49 49 B2 31 A4 35 3A 9E 42 41 AA 36 |.n#.II.1.5:.BA.6| 000015E0: 30 2C 32 34 2C 32 33 2C 22 07 12 46 49 4C 45 20 |0,24,23,"..FILE | 000015F0: 44 4F 45 53 20 4E 4F 54 20 45 58 49 53 54 20 4F |DOES NOT EXIST O| 00001600: 4E 20 54 48 49 53 20 44 52 49 56 45 92 22 00 52 |N THIS DRIVE.".R| 00001610: 1A 78 23 81 4A 4A B2 31 A4 32 30 30 3A 82 4A 4A |.x#.JJ.1.200:.JJ| 00001620: 3A 9E 42 41 AA 36 30 2C 32 34 2C 32 33 2C 22 07 |:.BA.60,24,23,".| 00001630: 46 49 4C 45 20 44 4F 45 53 20 4E 4F 54 20 45 58 |FILE DOES NOT EX| 00001640: 49 53 54 20 4F 4E 20 54 48 49 53 20 44 52 49 56 |IST ON THIS DRIV| 00001650: 45 22 00 7F 1A 82 23 81 4A 4A B2 31 A4 32 30 30 |E"....#.JJ.1.200| 00001660: 3A 82 4A 4A 3A 82 49 49 3A 9E 42 41 AA 36 30 2C |:.JJ:.II:.BA.60,| 00001670: 32 34 2C 30 2C 22 16 22 3A 45 52 B2 31 3A 8E 00 |24,0,".":ER.1:..| 00001680: 93 1A 20 4E 58 24 B2 58 24 3A 8B 58 24 B2 22 D1 |.. NX$.X$:.X$.".| 00001690: 22 A7 8A 00 AC 1A 2A 4E 8B 58 24 B2 22 51 22 A7 |".....*N.X$."Q".| 000016A0: 3A 5C 58 2C 22 30 3A 4D 45 4E 55 22 00 B2 1A 34 |:\X,"0:MENU"...4| 000016B0: 4E 8E 00 00 00 |N.... |
.......:BA.18432:.BA.I....59468,12:.I.1.
8:TL$.TL$."**********":.:XY.57447.]....B
(145).228.:\R......".";TL$;.32);"CREATE
OR REVISE":.TL$:SY.B(216)......"..ENTER
FILE NAME? ";:X.B(198):Y.B(216).....X$."
":.BA.57,Y,X,12:.20000:FA$.X$:.X$." ".21
.$...ER$(1).".NUMBER OF FIELDS ON SCREEN
EXCEEDS 80".^. .ER$(2).".SINGLE FIELD F
OUND IN MULTI-CHARACTER FIELD"...!.ER$(3
).".TOTAL NUMBER OF FIELDS EXCEEDS 120".
..".ER$(4).".UNCLOSED MULTI-CHARACTER FI
ELD"...#.ER$(0)."
".>.$.E
R$(6).".TOTAL LENGTH OF FIELDS EXCEEDS 2
53 CHARACTERS".S.&.ER$(5).".EACH SCREEN
MUST HAVE AT LEAST 1 FIELD"...(..247,0:.
248,106:.32767,0.D.2..:.".ENTER DRIVE NU
MBER? 1.";:Y.B(216):X.B(198)...3.X$."":.
BA.57,Y,X,1:.20000:D$.X$:.X$.."0".X$.."1
".51.(.5..1,8,15,"I".D$:.1,A$:A.E(A$): 1
:.A.0.59.H.6..II.1.5:.BA.60,24,25,"..PLA
CE FORMATTED DISKETTE IN DRIVE."...7..JJ
.1.200:.JJ:.BA.60,24,25,".PLACE FORMATTE
D DISKETTE IN DRIVE".N.8..JJ.1.200:.JJ:.
II:\X,"0:MENU"...;..BA.48:.27638,0...<..
:."..C.REATE OR .R.EVISE? ";...=.X.B(198
):Y.B(216).8.>.X$."":.BA.57,Y,X,1:.20000
.`.?..X$.."C".X$.."R"..BA.60,Y,X," ":.62
.~.@.FL$.X$:.FL$."R"..9000:.70...A.SY.B(
216):ER.0:.6000:.ER.1.ER.0:.BA.60,SY,1,"
.":.65.Y.F..ER.1.ER.0:.BA.60,SY,1,".":.2
0...K..:."..ENTER NUMBER OF PAGES?";:Y.B
(216):X.B(198).1. .P..B(27638).1.G.Q.X$.
"":.BA.57,Y,X,1:.20000:PA.E(X$).I.R..PA.
1.PA.2..BA.60,Y,X," ":.81...Z..:."...U.P
PER/LOWER OR .G.RAPHICS/UPPER CASE? ";..
.[.Y.B(216):X.B(198).Y.].XX.B(27642):A$.
"G":.XX.14.A$."U"...^..A$..._.X$."":.BA.
57,Y,X,1:.20000:.X$."G".XX.12:.120.2.`..
X$.."U"..BA.60,Y,X," ":.95.<.D.XX.14.B.X
...V.}..BA.18:.32767,0.Y....J.1.PA:.FL$.
"R".FL$."S"..BA.3......FL$."C"..".";.B..
..59468,XX:AQ.B(635):AY.B(634):AX.B(137)
:AZ.B(136).L....2000......635,AQ:.634,AY
:.137,AX:.136,AZ......225,23:.BA.30:.225
,24... ..A$.$....A$.".".8000.>...FY.0:.7
000:.FY..1.150.N....0,0:.BA.33.`....B(0)
..0.5000.U.H..BA.60,24,66,"."...M..32752
,B(634).B(636)...P..32757,J.1...Q..32758
,PA.1...R..32759,0.N.S..32760,B(634).1..
.T..32761,B(636)...U..32762,XX:.BA.39:.2
48,B(248).10:.J.%....256.B(137).B(136),B
(635).N....248,106:.J.1.PA:.BA.3:.32753,
B(634).`....32754,B(635).K....BA.36.V...
.BA.39......248,B(248).10...........RL.B
(32754).N....FL$."C".FL$."S"..BA.66:.268
80.255,11:.560......RL.R9.670...)..BA.60
,24,12,".RECORD LENGTH ALTERED., NEW FIL
E (Y/N)? ".0.*.X.B(198):Y.B(216).N.+.X$.
"":.BA.57,Y,X,1:.20000.W.,..X$.."N".X$..
"Y"..BA.60,Y,X," ":.555...-..BA.60,24,12
,"
"......X$."N".X$."":.BA.6:X$.X$:.247,0
:.248,106:.125...0..FL$."R"..BA.60,24,0,
".SCRATCHING OLD FILE.".N.1.D.E(D$):Y(FA
$.".SCR"),D(D):Y(FA$),D(D):.DS.26.1000.Y
.2..3000:.MX.0..216,24:.198,0:.57447:.56
4...3..4000:.1,8,15,"I".J(D(D),2): 1:.56
0...4..".RECORD LENGTH";RL;". CHARACTERS
. ENTER TOTAL NUMBER OF RECORDS?";...5.
X.B(198).1:Y.B(216):.MX;:.158,0.O.6.X$."
":.BA.57,Y,X,C(D(MX)).1:.20000:RR.E(X$):
.RR.1.RR.MX.566...7.R1..(RR.256):R2.RR.2
56.R1:.I.1.2:.27636.10.(I.1),R1...8..276
35.10.(I.1),R2:.I:.I.27643.27646:.I,0:.I
.L.9.R$."":.RL.1.580...:..I.2.RL:R$.R$."
":....D.R$."*".R$...N.M#1,(FA$),D(D),L(
RL.1):.DS.26.N#1:.1000.2.S.O#1,(RR.1):A.
DS.@....1,G(255)._...O#1,1:.I.1.RR:.1,R$
:.I:N#1.....Y(FA$.".SCR"),D(E(D$)):FS$.D
$.":".FA$.".SCR"... .. \S,FS$,"6500","
7DFF".A.... \X,"0:MENU"...... LINES
674 - 690 ARE EXTENTIONS FOR [REFIELD]
OPTION.=....BA.60,24,00,". RE
-ARANGE FIELD ORDER (Y/N) ? ".S...X.B(19
8):Y.B(216).~...X$."":.BA.57,Y,X,1:.2000
0:.X$.."Y".690.....Z1.1000:.Z1,C(FA$)...
...I.1.B(Z1):.I.Z1,F(J(FA$,I,1)):..J....
I.Z1,E(D$).....\S,FS$,"6500","7DFF":\X,"
0:REFIELD".....\S,FS$,"6500","7DFF":\X,"
0:MENU".+....BA.60,24,0,".".B....BA.60,2
4,0,"HAVE YOU REMOVED THE WRITE PROTECT?
".X.8.Y.B(216):X.B(198)...B.X$."":.BA.5
7,Y,X,1:.20000:.X$.."Y".1090...L..560.C.
P..B(59468).14.2020...Q..216,24:.198,0:.
57447:.".PAGE"J"OF"PA;".";...U...66);"L
C ESC.";...Z...C....216,24:.198,0:
.57447:.".PAGE"J"OF"PA;".";.A.....66);"L
C ESC.";:..~...X$."$".D$."::":.1,
8,0,X$...B..#1,X$,X$,X$,X$,X$,X$...L..#1
,X$:.X$.."".3020.D.V..#1,X$,X$,X$,Y$....
.X.C(X$):.X.X.F(X$).....Y.C(Y$):.Y.Y.F(Y
$).-...FB.X.Y.256.1: 1:FB.FB.26.1.1:FB.F
B..(FB.120):MX.FB.254.T.... D 8050: IFMX
>182880THENMX=182880.}...MX..(MX.(RL.1))
.1:.MX.16384.MX.16384.......H. ..BA.60,2
4,0,"
"......"
.";.8....BA.60,24,0,"THIS DI
SKETTE IS FULL. HAVE YOU INSERTED ANOTH
ER DISK".H...."ETTE IN DRIVE";D;".? ";:Y
.B(216):X.B(198).....X$."":.BA.57,Y,X,1:
.20000:.X$.."Y".4020.......A....216,24:.
198,12:.57447:.ER$(B(0));......B(0)..5..
" AT L";B(639).1;......".";:.216,B(639):
.198,0:.57447:.145.A.P..:.".DO YOU WISH
TO USE AN EXISTING FILE (Y/N)? ";.W.Z.Y.
B(216):X.B(198).....X$."":.BA.57,Y,X,1:.
20000:.X$.."N".X$.."Y".6020......X$."N".
..Q....:.".ENTER EXISTING FILE NAME? ";:
Y.B(216):X.B(198).....X$."":.BA.57,Y,X,1
2:.20000:SF$.X$:.X$." ".6050.4....:.".EN
TER EXISTING FILE DRIVE NUMBER? 1.";.J..
.Y.B(216):X.B(198).~...X$."":.BA.57,Y,X,
1:.20000:.X$.."0".X$.."1".6080...J.M#1,(
SF$),D(E(X$)):A.DS:N#1...T..A..0.9070.X.
..FS$.X$.":".SF$.".SCR":\L;FS$:FL$."S":.
...X..216,24:.198,12:.XY.&.B.FY.0:.".ARE
YOU SURE. (Y/N)? ";:Y.B(216):X.B(198).[
.G.."
";..L.X$."":.BA.57,Y,X,1:.2000
0:A$.X$...V..A$."Y".FY.1......BA.60,24,1
2,".":.2000:..F.@.FY.0:.7000:.FY.0.142.U
.A..".":.2000...E..216,24:.198,17:.XY...
G..".R=RE-ENTER, Q=QUIT.? ";:Y.B(216):X.
B(198).B.J.X$."":.BA.57,Y,X,1:A$.X$:.200
00.D.T..A$.."R"..BA.60,Y,X," ":.8010.R.H
..".":.142...(#FS$.D$.":".FA$.".SCR":\L;
FS$:.B(35)..48.9070.N.P#RR.B(27635).B(27
636).256:R9.B(27634):....N#.II.1.5:.BA.6
0,24,23,"..FILE DOES NOT EXIST ON THIS D
RIVE.".R.X#.JJ.1.200:.JJ:.BA.60,24,23,".
FILE DOES NOT EXIST ON THIS DRIVE"...#.
JJ.1.200:.JJ:.II:.BA.60,24,0,".":ER.1:..
.. NX$.X$:.X$."Q".....*N.X$."Q".:\X,"0:M
ENU"...4N....
> CLICK IMAGE PREVIEW FOR FULL MODAL