DISK........
FILE INFORMATION
FILENAME(S): DISK........
FILE TYPE(S): PRG
FILE SIZE: 10.5K
FIRST SEEN: 2025-11-02 16:42:40
APPEARS ON: 1 disk(s)
FILE HASH
8ec81f241aae074be1adb0b5be8e217bd93bd44d0d38702a87949d4ed891f589
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FUCHS ANWENDER | DISK........ | PRG | Treasure Chest - ralf | 4 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 34 08 01 00 99 22 93 11 11 11 11 11 11 11 |..4...."........|
00000010: 22 3A 97 35 33 32 38 30 2C 39 3A 97 35 33 32 38 |":.53280,9:.5328|
00000020: 31 2C 39 3A 97 36 34 36 2C 37 3A 97 35 33 32 37 |1,9:.646,7:.5327|
00000030: 32 2C 32 31 00 56 08 02 00 99 A3 31 31 29 22 12 |2,21.V.....11)".|
00000040: B0 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000050: C3 C3 C3 AE 92 22 00 78 08 03 00 99 A3 31 31 29 |.....".x.....11)|
00000060: 22 12 C2 42 45 41 52 27 53 20 48 41 4E 44 59 20 |"..BEAR'S HANDY |
00000070: 44 41 4E 44 59 C2 92 22 00 9A 08 04 00 99 A3 31 |DANDY..".......1|
00000080: 31 29 22 12 C2 20 20 20 20 20 20 20 20 20 20 20 |1)".. |
00000090: 20 20 20 20 20 20 20 C2 92 22 00 BC 08 05 00 99 | .."......|
000000A0: A3 31 31 29 22 12 C2 20 44 49 53 4B 20 4D 41 4E |.11)".. DISK MAN|
000000B0: 49 50 55 4C 41 54 4F 52 20 C2 92 22 00 DE 08 06 |IPULATOR .."....|
000000C0: 00 99 A3 31 31 29 22 12 AD C3 C3 C3 C3 C3 C3 C3 |...11)".........|
000000D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 BD 92 22 00 EF |............."..|
000000E0: 08 07 00 81 42 B2 30 A4 32 30 30 30 3A 82 42 00 |....B.0.2000:.B.|
000000F0: 1D 09 08 00 9C 3A 99 22 93 11 11 11 11 11 11 11 |.....:."........|
00000100: 22 3A 97 35 33 32 37 32 2C 32 31 3A 97 35 33 32 |":.53272,21:.532|
00000110: 38 30 2C 39 3A 97 35 33 32 38 31 2C 39 00 38 09 |80,9:.53281,9.8.|
00000120: 09 00 99 A3 31 34 29 22 9E 50 4C 45 41 53 45 20 |....14)".PLEASE |
00000130: 20 57 41 49 54 11 11 22 00 5C 09 0A 00 99 A3 39 | WAIT..".\.....9|
00000140: 29 22 52 45 41 44 49 4E 47 20 44 49 53 4B 20 44 |)"READING DISK D|
00000150: 49 52 45 43 54 4F 52 59 11 11 05 22 00 69 09 0B |IRECTORY...".i..|
00000160: 00 86 50 24 28 31 34 30 29 00 78 09 0C 00 9F 31 |..P$(140).x....1|
00000170: 2C 38 2C 30 2C 22 24 22 00 8D 09 0D 00 A1 23 31 |,8,0,"$"......#1|
00000180: 2C 42 24 3A 8B 53 54 B3 B1 30 A7 32 34 00 9F 09 |,B$:.ST..0.24...|
00000190: 0E 00 8B 42 24 B3 B1 C7 28 33 34 29 A7 31 33 00 |...B$...(34).13.|
000001A0: A9 09 0F 00 50 24 B2 22 22 00 CC 09 10 00 A1 23 |....P$.""......#|
000001B0: 31 2C 42 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 |1,B$:.B$...(34).|
000001C0: 50 24 B2 50 24 AA 42 24 3A 89 31 36 00 E4 09 11 |P$.P$.B$:.16....|
000001D0: 00 A1 23 31 2C 42 24 3A 8B 42 24 B2 C7 28 33 32 |..#1,B$:.B$..(32|
000001E0: 29 A7 31 37 00 FD 09 12 00 50 24 28 58 29 B2 50 |).17.....P$(X).P|
000001F0: 24 3A 99 A3 31 38 29 3B 58 3B 22 91 22 00 13 0A |$:..18);X;"."...|
00000200: 13 00 50 24 28 58 29 B2 C8 28 50 24 28 58 29 2C |..P$(X)..(P$(X),|
00000210: 31 36 29 00 29 0A 14 00 A1 23 31 2C 42 24 3A 8B |16).)....#1,B$:.|
00000220: 42 24 B3 B1 22 22 A7 32 30 00 3C 0A 15 00 8B 50 |B$.."".20.<....P|
00000230: 24 28 58 29 B2 22 20 20 22 A7 31 33 00 53 0A 16 |$(X)." ".13.S..|
00000240: 00 8B C8 28 50 24 28 58 29 2C 31 29 B2 22 90 22 |...(P$(X),1)."."|
00000250: A7 31 33 00 67 0A 17 00 8B 53 54 B2 30 A7 58 B2 |.13.g....ST.0.X.|
00000260: 58 AA 31 3A 89 31 33 00 6E 0A 18 00 A0 31 00 82 |X.1:.13.n....1..|
00000270: 0A 19 00 8F 20 20 44 49 53 50 4C 41 59 20 4D 45 |.... DISPLAY ME|
00000280: 4E 55 00 8B 0A 1A 00 4E B2 31 30 00 C4 0A 1B 00 |NU.....N.10.....|
00000290: 99 22 93 11 22 3A 99 22 12 9F 20 54 48 49 53 20 |."..":.".. THIS |
000002A0: 44 49 53 4B 27 53 20 4E 41 4D 45 20 49 53 20 22 |DISK'S NAME IS "|
000002B0: 3B 3A 99 22 12 05 20 22 50 24 28 30 29 3B 22 20 |;:.".. "P$(0);" |
000002C0: 11 11 9B 22 00 D3 0A 1C 00 8B 4E B3 31 30 A7 4E |..."......N.10.N|
000002D0: B2 31 30 00 E4 0A 1D 00 8B 4E B1 31 30 30 A7 4E |.10......N.100.N|
000002E0: B2 31 30 30 00 03 0B 1E 00 81 4A B2 28 4E AB 39 |.100......J.(N.9|
000002F0: 29 A4 4E 3A 99 4A 3B 50 24 28 4A 29 3B 22 9B 22 |).N:.J;P$(J);"."|
00000300: 3A 82 4A 00 31 0B 1F 00 99 22 13 11 11 11 11 22 |:.J.1...."....."|
00000310: 3A 81 47 B2 4E AA 31 A4 4E AA 31 30 3A 99 A6 32 |:.G.N.1.N.10:..2|
00000320: 30 29 3B 47 3B 50 24 28 47 29 3B 22 9B 22 3A 82 |0);G;P$(G);".":.|
00000330: 47 00 61 0B 20 00 99 22 11 11 20 20 9E 46 31 20 |G.a. ..".. .F1 |
00000340: 9F 4D 41 4E 49 50 55 4C 41 54 4F 52 20 20 20 20 |.MANIPULATOR |
00000350: 9E 46 37 20 9F 4E 45 58 54 20 53 43 52 45 45 4E |.F7 .NEXT SCREEN|
00000360: 22 00 93 0B 21 00 99 22 20 20 9E 46 32 20 9F 4D |"...!.." .F2 .M|
00000370: 45 52 47 45 20 50 52 47 53 2E 20 20 20 20 9E 46 |ERGE PRGS. .F|
00000380: 38 20 9F 50 52 45 56 49 4F 55 53 20 53 43 52 45 |8 .PREVIOUS SCRE|
00000390: 45 4E 22 00 C2 0B 22 00 99 22 20 20 9E 46 33 20 |EN"...".." .F3 |
000003A0: 9F 50 55 52 47 45 20 44 49 53 4B 20 20 20 20 20 |.PURGE DISK |
000003B0: 9E 20 5E 20 9F 4C 4F 41 44 20 41 4E 44 20 52 55 |. ^ .LOAD AND RU|
000003C0: 4E 22 00 EE 0B 23 00 99 22 20 20 9E 46 34 20 9F |N"...#.." .F4 .|
000003D0: 52 45 41 44 20 46 49 4C 45 20 20 20 20 20 20 9E |READ FILE .|
000003E0: 20 2F 20 9F 4C 4F 41 44 20 4F 4E 4C 59 22 00 1C | / .LOAD ONLY"..|
000003F0: 0C 24 00 99 22 20 20 9E 46 35 20 9F 50 52 49 4E |.$.." .F5 .PRIN|
00000400: 54 20 46 49 4C 45 20 20 20 20 20 9E 20 2A 20 9F |T FILE . * .|
00000410: 43 48 41 4E 47 45 20 44 49 53 4B 22 00 43 0C 25 |CHANGE DISK".C.%|
00000420: 00 99 22 20 20 9E 46 36 20 9F 50 52 49 4E 54 20 |.." .F6 .PRINT |
00000430: 44 49 52 2E 20 20 20 20 20 9E 20 5F 20 9F 45 58 |DIR. . _ .EX|
00000440: 49 54 22 00 5B 0C 26 00 5A 24 B2 22 22 3A A1 5A |IT".[.&.Z$."":.Z|
00000450: 24 3A 8B 5A 24 B2 22 22 A7 33 38 00 6F 0C 27 00 |$:.Z$."".38.o.'.|
00000460: 8B 5A 24 B2 22 2A 22 A7 8D 37 31 3A 89 32 37 00 |.Z$."*"..71:.27.|
00000470: 86 0C 28 00 8B 5A 24 B2 22 88 22 A7 4E B2 4E AA |..(..Z$.".".N.N.|
00000480: 32 30 3A 89 32 37 00 9D 0C 29 00 8B 5A 24 B2 22 |20:.27...)..Z$."|
00000490: 8C 22 A7 4E B2 4E AB 32 30 3A 89 32 37 00 C3 0C |.".N.N.20:.27...|
000004A0: 2A 00 8B 5A 24 B2 22 5F 22 A7 99 22 93 9E 4D 45 |*..Z$."_".."..ME|
000004B0: 4E 55 20 53 54 49 4C 4C 20 50 52 45 53 45 4E 54 |NU STILL PRESENT|
000004C0: 22 3A 80 00 D7 0C 2B 00 8B 5A 24 B2 22 2F 22 A7 |":....+..Z$."/".|
000004D0: 8D 35 32 3A 89 36 30 00 EB 0C 2C 00 8B 5A 24 B2 |.52:.60...,..Z$.|
000004E0: 22 5E 22 A7 8D 35 32 3A 89 35 38 00 FF 0C 2D 00 |"^"..52:.58...-.|
000004F0: 8B 5A 24 B2 22 8B 22 A7 8D 36 31 3A 89 32 37 00 |.Z$."."..61:.27.|
00000500: 0F 0D 2E 00 8B 5A 24 B2 22 85 22 A7 89 37 36 00 |.....Z$."."..76.|
00000510: 20 0D 2F 00 8B 5A 24 B2 22 86 22 A7 8D 32 31 35 | ./..Z$."."..215|
00000520: 00 31 0D 30 00 8B 5A 24 B2 22 8A 22 A7 8D 32 38 |.1.0..Z$."."..28|
00000530: 38 00 42 0D 31 00 8B 5A 24 B2 22 87 22 A7 89 33 |8.B.1..Z$."."..3|
00000540: 30 33 00 53 0D 32 00 8B 5A 24 B2 22 89 22 A7 89 |03.S.2..Z$."."..|
00000550: 33 38 35 00 5B 0D 33 00 89 33 38 00 7A 0D 34 00 |385.[.3..38.z.4.|
00000560: 99 3A 99 A3 31 30 29 22 9E 45 4E 54 45 52 20 50 |.:..10)".ENTER P|
00000570: 52 4F 47 52 41 4D 20 23 22 3B 00 8D 0D 35 00 85 |ROGRAM #";...5..|
00000580: 53 3A 8B 53 B3 31 B0 53 B1 58 A7 35 32 00 A0 0D |S:.S.1.S.X.52...|
00000590: 36 00 99 22 93 11 11 11 11 11 11 11 11 11 11 22 |6.."..........."|
000005A0: 00 C7 0D 37 00 8B C3 28 50 24 28 53 29 29 B1 31 |...7...(P$(S)).1|
000005B0: 32 A7 50 24 28 53 29 B2 C8 28 50 24 28 53 29 2C |2.P$(S)..(P$(S),|
000005C0: 31 32 29 AA 22 2A 22 00 EF 0D 38 00 99 22 4C 4F |12)."*"...8.."LO|
000005D0: 41 44 22 AA C7 28 33 34 29 AA 50 24 28 53 29 AA |AD"..(34).P$(S).|
000005E0: C7 28 33 34 29 AA 22 2C 38 2C 31 91 91 91 22 00 |.(34).",8,1...".|
000005F0: F5 0D 39 00 8E 00 30 0E 3A 00 97 36 33 31 2C 31 |..9...0.:..631,1|
00000600: 33 3A 97 36 33 32 2C 38 32 3A 97 36 33 33 2C 38 |3:.632,82:.633,8|
00000610: 35 3A 97 36 33 34 2C 37 38 3A 97 36 33 35 2C 31 |5:.634,78:.635,1|
00000620: 33 3A 97 31 39 38 2C 35 3A 97 38 33 34 2C 32 30 |3:.198,5:.834,20|
00000630: 00 36 0E 3B 00 80 00 4B 0E 3C 00 97 36 33 31 2C |.6.;...K.<..631,|
00000640: 31 33 3A 97 31 39 38 2C 31 3A 80 00 59 0E 3D 00 |13:.198,1:..Y.=.|
00000650: 9F 33 2C 34 2C 36 3A 9D 33 00 6D 0E 3E 00 99 C7 |.3,4,6:.3.m.>...|
00000660: 28 32 37 29 3B 22 40 22 3B C7 28 34 29 00 81 0E |(27);"@";.(4)...|
00000670: 3F 00 99 C7 28 32 37 29 3B 22 53 22 3B C7 28 30 |?...(27);"S";.(0|
00000680: 29 00 95 0E 40 00 99 C7 28 32 37 29 3B 22 31 22 |)...@...(27);"1"|
00000690: 3B C7 28 35 29 00 A3 0E 41 00 99 C7 28 32 37 29 |;.(5)...A...(27)|
000006A0: 22 45 22 00 B7 0E 42 00 99 50 24 28 30 29 3B C7 |"E"...B..P$(0);.|
000006B0: 28 32 37 29 22 46 22 00 C6 0E 43 00 81 49 B2 31 |(27)"F"...C..I.1|
000006C0: 20 A4 20 31 34 34 00 D6 0E 44 00 99 C7 28 31 29 | . 144...D...(1)|
000006D0: 3B 50 24 28 49 29 00 EF 0E 45 00 8B 50 24 28 49 |;P$(I)...E..P$(I|
000006E0: 29 B2 22 22 A7 20 98 33 3A A0 33 3A 89 32 37 00 |)."". .3:.3:.27.|
000006F0: F5 0E 46 00 82 00 0F 0F 47 00 8F 20 53 57 49 54 |..F.....G.. SWIT|
00000700: 43 48 20 44 49 53 4B 20 52 4F 55 54 49 4E 45 00 |CH DISK ROUTINE.|
00000710: 3E 0F 48 00 99 22 93 22 3B 22 11 11 20 20 20 20 |>.H..".";".. |
00000720: 20 20 20 20 9F 12 49 4E 53 45 52 54 92 20 4E 45 | ..INSERT. NE|
00000730: 58 54 20 44 49 53 4B 20 12 4E 4F 57 20 22 00 75 |XT DISK .NOW ".u|
00000740: 0F 49 00 99 22 11 11 11 11 11 11 11 11 11 11 20 |.I..".......... |
00000750: 20 20 20 9E 12 50 52 45 53 53 20 41 4E 59 20 4B | ..PRESS ANY K|
00000760: 45 59 20 54 4F 20 52 45 41 44 20 4E 45 58 54 20 |EY TO READ NEXT |
00000770: 44 49 53 4B 22 00 87 0F 4A 00 A1 41 24 3A 8B 41 |DISK"...J..A$:.A|
00000780: 24 B2 22 22 A7 37 34 00 8E 0F 4B 00 89 38 00 B6 |$."".74...K..8..|
00000790: 0F 4C 00 9C 3A 99 22 93 11 22 3A 99 C7 28 31 34 |.L..:."..":..(14|
000007A0: 32 29 3A 97 35 33 32 38 31 2C 31 35 3A 97 35 33 |2):.53281,15:.53|
000007B0: 32 38 30 2C 31 32 00 D4 0F 4D 00 99 A3 31 32 29 |280,12...M...12)|
000007C0: 22 12 95 20 4D 41 4E 49 50 55 4C 41 54 4F 52 20 |".. MANIPULATOR |
000007D0: 92 11 11 22 00 1A 10 4E 00 99 A3 31 30 29 22 12 |..."...N...10)".|
000007E0: 90 46 31 92 20 1C 43 48 41 4E 47 45 20 90 44 49 |.F1. .CHANGE .DI|
000007F0: 53 4B 20 4E 41 4D 45 11 22 3A 99 A3 31 30 29 22 |SK NAME.":..10)"|
00000800: 12 90 46 33 92 20 1C 43 48 41 4E 47 45 20 90 44 |..F3. .CHANGE .D|
00000810: 49 53 4B 20 49 2E 44 2E 11 22 00 5B 10 4F 00 99 |ISK I.D..".[.O..|
00000820: A3 31 30 29 22 12 90 46 35 92 20 1C 43 48 41 4E |.10)"..F5. .CHAN|
00000830: 47 45 20 90 46 49 4C 45 20 4E 41 4D 45 11 22 3A |GE .FILE NAME.":|
00000840: 99 A3 31 30 29 22 12 90 46 37 92 1C 20 46 4F 52 |..10)"..F7.. FOR|
00000850: 4D 41 54 20 90 44 49 53 4B 11 22 00 82 10 50 00 |MAT .DISK."...P.|
00000860: 99 A3 31 30 29 22 12 90 46 38 92 90 20 52 45 54 |..10)"..F8.. RET|
00000870: 55 52 4E 20 54 4F 20 44 49 52 45 43 54 4F 52 59 |URN TO DIRECTORY|
00000880: 11 22 00 9D 10 51 00 99 A3 31 30 29 22 12 90 5F |."...Q...10)".._|
00000890: 92 90 20 51 55 49 54 11 11 11 11 11 22 00 C1 10 |.. QUIT....."...|
000008A0: 52 00 99 A3 37 29 22 12 1C 50 55 53 48 20 4B 45 |R...7)"..PUSH KE|
000008B0: 59 20 46 4F 52 20 4F 50 45 52 41 54 49 4F 4E 92 |Y FOR OPERATION.|
000008C0: 22 00 D3 10 53 00 A1 55 24 3A 8B 55 24 B2 22 22 |"...S..U$:.U$.""|
000008D0: A7 38 33 00 0B 11 54 00 8B 55 24 B3 B1 22 5F 22 |.83...T..U$.."_"|
000008E0: AF 55 24 B3 B1 22 85 22 AF 55 24 B3 B1 22 86 22 |.U$..".".U$.."."|
000008F0: AF 55 24 B3 B1 22 87 22 AF 55 24 B3 B1 22 88 22 |.U$..".".U$.."."|
00000900: AF 55 24 B3 B1 22 8C 22 A7 38 33 00 1C 11 55 00 |.U$..".".83...U.|
00000910: 8B 55 24 B2 22 85 22 A7 89 31 35 32 00 2C 11 56 |.U$."."..152.,.V|
00000920: 00 8B 55 24 B2 22 86 22 A7 89 39 31 00 3D 11 57 |..U$."."..91.=.W|
00000930: 00 8B 55 24 B2 22 87 22 A7 8D 32 37 37 00 4E 11 |..U$."."..277.N.|
00000940: 58 00 8B 55 24 B2 22 88 22 A7 8D 32 36 34 00 5D |X..U$."."..264.]|
00000950: 11 59 00 8B 55 24 B2 22 8C 22 A7 89 38 00 6B 11 |.Y..U$."."..8.k.|
00000960: 5A 00 8B 55 24 B2 22 5F 22 A7 80 00 79 11 5B 00 |Z..U$."_"...y.[.|
00000970: 9C 3A 99 22 93 11 11 11 22 00 8D 11 5C 00 9F 39 |.:."...."...\..9|
00000980: 2C 30 2C 30 3A 9F 31 35 2C 38 2C 31 35 00 A5 11 |,0,0:.15,8,15...|
00000990: 5D 00 97 35 33 32 38 30 2C 31 32 3A 97 35 33 32 |]..53280,12:.532|
000009A0: 38 31 2C 31 35 00 C7 11 5E 00 4D 44 24 B2 22 13 |81,15...^.MD$.".|
000009B0: 22 3A 81 49 B2 31 A4 33 32 3A 4D 44 24 B2 4D 44 |":.I.1.32:MD$.MD|
000009C0: 24 AA 22 11 22 3A 82 00 E1 11 5F 00 81 49 B2 31 |$.".":...._..I.1|
000009D0: A4 33 39 3A 42 4C 24 B2 42 4C 24 AA 22 20 22 3A |.39:BL$.BL$." ":|
000009E0: 82 00 0C 12 60 00 50 30 24 B2 22 93 11 11 11 1D |....`.P0$.".....|
000009F0: 1D 1D 1D 1D 12 95 20 44 49 53 4B 20 49 20 44 20 |...... DISK I D |
00000A00: 23 20 43 48 41 4E 47 45 52 20 92 22 00 2A 12 61 |# CHANGER .".*.a|
00000A10: 00 52 45 24 B2 22 1D 1D 1D 1D 1D 50 52 45 53 53 |.RE$.".....PRESS|
00000A20: 20 12 52 45 54 55 52 4E 92 22 00 47 12 62 00 83 | .RETURN.".G.b..|
00000A30: 32 2C 4F 55 54 20 4F 46 20 52 41 4E 47 45 2C 54 |2,OUT OF RANGE,T|
00000A40: 4F 4F 20 4C 4F 4E 47 00 67 12 63 00 87 41 3A 86 |OO LONG.g.c..A:.|
00000A50: 45 4D 24 28 41 29 3A 81 49 B2 31 A4 41 3A 87 45 |EM$(A):.I.1.A:.E|
00000A60: 4D 24 28 49 29 3A 82 00 70 12 64 00 89 31 31 33 |M$(I):..p.d..113|
00000A70: 00 83 12 65 00 84 31 35 2C 45 52 3A 8B 45 52 B2 |...e..15,ER:.ER.|
00000A80: 30 A7 8E 00 9A 12 66 00 84 31 35 2C 45 52 2C 45 |0.....f..15,ER,E|
00000A90: 4D 24 2C 45 54 24 2C 45 53 24 00 C9 12 67 00 99 |M$,ET$,ES$...g..|
00000AA0: 4D 44 24 22 12 44 49 53 4B 20 45 52 52 4F 52 21 |MD$".DISK ERROR!|
00000AB0: 92 20 23 22 45 52 22 20 22 45 4D 24 22 20 22 45 |. #"ER" "EM$" "E|
00000AC0: 54 24 22 2C 20 22 45 53 24 00 CF 12 68 00 80 00 |T$", "ES$...h...|
00000AD0: E9 12 69 00 84 39 2C 51 24 3A 99 3A 51 31 24 B2 |..i..9,Q$:.:Q1$.|
00000AE0: C8 28 51 24 2C 31 29 3A 8E 00 14 13 6A 00 A0 39 |.(Q$,1):....j..9|
00000AF0: 3A A0 31 35 3A 97 35 39 34 36 38 2C 50 4B 3A 99 |:.15:.59468,PK:.|
00000B00: 22 93 22 3A 99 22 1D 1D 1D 1D 1D 1D 45 4E 44 22 |".":."......END"|
00000B10: 3A 89 37 36 00 2B 13 6B 00 99 C8 28 4D 44 24 2C |:.76.+.k...(MD$,|
00000B20: 4D 44 29 42 4C 24 3A 99 42 4C 24 00 3D 13 6C 00 |MD)BL$:.BL$.=.l.|
00000B30: 99 C8 28 4D 44 24 2C 4D 44 29 3B 3A 8E 00 4C 13 |..(MD$,MD);:..L.|
00000B40: 6D 00 4D 44 B2 32 31 3A 8D 31 30 37 00 72 13 6E |m.MD.21:.107.r.n|
00000B50: 00 99 22 12 55 4E 41 43 43 45 50 54 41 42 4C 45 |..".UNACCEPTABLE|
00000B60: 20 45 4E 54 52 59 20 2D 2D 20 22 45 4D 24 28 45 | ENTRY -- "EM$(E|
00000B70: 4D 29 00 85 13 6F 00 99 52 45 24 3A 8D 31 30 35 |M)...o..RE$:.105|
00000B80: 3A 8D 31 30 37 00 8B 13 70 00 8E 00 98 13 71 00 |:.107...p.....q.|
00000B90: 46 B2 30 3A 99 50 30 24 00 A1 13 72 00 44 56 B2 |F.0:.P0$...r.DV.|
00000BA0: 30 00 CC 13 73 00 99 50 30 24 3A 99 22 11 1D 1D |0...s..P0$:."...|
00000BB0: 1D 1D 1D 50 4C 41 43 45 20 44 49 53 4B 20 49 4E |...PLACE DISK IN|
00000BC0: 20 44 52 49 56 45 22 44 56 22 11 22 00 DA 13 74 | DRIVE"DV"."...t|
00000BD0: 00 99 52 45 24 3A 8D 31 30 35 00 F1 13 75 00 98 |..RE$:.105...u..|
00000BE0: 31 35 2C 22 49 22 AA C4 28 44 56 29 3A 8D 31 30 |15,"I"..(DV):.10|
00000BF0: 31 00 1B 14 76 00 9F 32 2C 38 2C 32 2C 22 23 22 |1...v..2,8,2,"#"|
00000C00: 3A 98 31 35 2C 22 55 31 3A 32 22 3B 44 56 3B 22 |:.15,"U1:2";DV;"|
00000C10: 2C 31 38 2C 30 22 3A 8D 31 30 31 00 3B 14 77 00 |,18,0":.101.;.w.|
00000C20: 98 31 35 2C 22 42 2D 50 3A 32 2C 31 36 32 22 3A |.15,"B-P:2,162":|
00000C30: 8D 31 30 31 3A 44 4E 24 B2 22 22 00 5B 14 78 00 |.101:DN$."".[.x.|
00000C40: 81 49 B2 31 A4 31 36 3A A1 23 32 2C 41 24 3A 44 |.I.1.16:.#2,A$:D|
00000C50: 4E 24 B2 44 4E 24 AA 41 24 3A 82 00 6F 14 79 00 |N$.DN$.A$:..o.y.|
00000C60: 4D 44 B2 31 30 3A 8D 31 30 37 3A 8B 46 A7 8E 00 |MD.10:.107:.F...|
00000C70: 8C 14 7A 00 99 22 1D 1D 1D 1D 1D 54 48 45 20 44 |..z..".....THE D|
00000C80: 49 53 4B 20 49 44 20 23 20 49 53 22 00 A2 14 7B |ISK ID # IS"...{|
00000C90: 00 99 A3 35 29 C7 28 33 34 29 44 4E 24 C7 28 33 |...5).(34)DN$.(3|
00000CA0: 34 29 00 AC 14 7C 00 4D 44 B2 31 33 00 B6 14 7D |4)...|.MD.13...}|
00000CB0: 00 4D 44 B2 31 36 00 CC 14 7E 00 99 22 11 11 1D |.MD.16...~.."...|
00000CC0: 1D 1D 1D 1D 45 4E 54 45 52 20 22 3B 00 FF 14 7F |....ENTER ";....|
00000CD0: 00 99 22 4E 45 57 20 44 49 53 4B 20 49 44 20 23 |.."NEW DISK ID #|
00000CE0: 22 3A 99 22 1D 1D 1D 1D 1D 4C 49 4D 49 54 20 54 |":.".....LIMIT T|
00000CF0: 4F 20 32 20 43 48 41 52 41 43 54 45 52 53 22 00 |O 2 CHARACTERS".|
00000D00: 2B 15 80 00 8D 31 30 35 3A 8B C3 28 51 24 29 B1 |+....105:..(Q$).|
00000D10: 32 A7 45 4D B2 32 3A 8D 31 30 39 3A 4D 44 B2 31 |2.EM.2:.109:MD.1|
00000D20: 38 3A 8D 31 30 37 3A 89 31 32 38 00 40 15 81 00 |8:.107:.128.@...|
00000D30: 4E 44 4E 24 B2 C8 28 51 24 AA 42 4C 24 2C 32 29 |NDN$..(Q$.BL$,2)|
00000D40: 00 4F 15 82 00 4D 44 B2 32 31 3A 8D 31 30 37 00 |.O...MD.21:.107.|
00000D50: 6E 15 83 00 99 22 1D 1D 1D 1D 1D 53 48 41 4C 4C |n....".....SHALL|
00000D60: 20 49 20 53 45 4E 44 20 12 22 4E 44 4E 24 00 A0 | I SEND ."NDN$..|
00000D70: 15 84 00 99 22 1D 1D 1D 1D 1D 54 4F 20 54 48 45 |....".....TO THE|
00000D80: 20 44 49 53 4B 45 54 54 45 20 4F 4E 20 44 52 49 | DISKETTE ON DRI|
00000D90: 56 45 22 44 56 22 20 28 59 2F 4E 29 20 12 22 3B |VE"DV" (Y/N) .";|
00000DA0: 00 B3 15 85 00 A1 45 24 3A 8B 45 24 B2 22 22 A7 |......E$:.E$."".|
00000DB0: 31 33 33 00 C3 15 86 00 8B 45 24 B2 22 4E 22 A7 |133......E$."N".|
00000DC0: 31 30 36 00 CC 15 87 00 89 31 33 38 00 EA 15 88 |106......138....|
00000DD0: 00 8B 51 31 24 B3 B1 22 4E 22 A7 8D 31 30 37 3A |..Q1$.."N"..107:|
00000DE0: 4D 44 B2 31 38 3A 89 31 32 35 00 F3 15 89 00 89 |MD.18:.125......|
00000DF0: 31 33 30 00 14 16 8A 00 4D 44 B2 32 31 3A 99 22 |130.....MD.21:."|
00000E00: 11 1D 1D 1D 1D 1D 42 45 20 50 41 54 49 45 4E 54 |......BE PATIENT|
00000E10: 2E 2E 2E 22 00 2D 16 8B 00 98 31 35 2C 22 42 2D |...".-....15,"B-|
00000E20: 50 3A 32 2C 31 36 32 22 3A 8D 31 30 31 00 3F 16 |P:2,162":.101.?.|
00000E30: 8C 00 98 32 2C 4E 44 4E 24 3B 3A 8D 31 30 31 00 |...2,NDN$;:.101.|
00000E40: 5E 16 8D 00 98 31 35 2C 22 55 32 3A 32 22 3B 44 |^....15,"U2:2";D|
00000E50: 56 3B 22 2C 31 38 2C 30 22 3A 8D 31 30 31 00 78 |V;",18,0":.101.x|
00000E60: 16 8E 00 98 31 35 2C 22 49 22 AA C4 28 44 56 29 |....15,"I"..(DV)|
00000E70: 3A 8D 31 30 31 3A A0 32 00 8E 16 8F 00 46 B2 31 |:.101:.2.....F.1|
00000E80: 3A 99 50 30 24 3A 8D 31 31 37 3A 46 B2 30 00 AA |:.P0$:.117:F.0..|
00000E90: 16 90 00 99 22 54 48 45 20 4E 45 57 20 44 49 53 |...."THE NEW DIS|
00000EA0: 4B 20 4E 41 4D 45 20 49 53 3A 00 BD 16 91 00 99 |K NAME IS:......|
00000EB0: C7 28 33 34 29 44 4E 24 C7 28 33 34 29 00 E3 16 |.(34)DN$.(34)...|
00000EC0: 92 00 A0 32 3A 4D 44 B2 32 31 3A 8D 31 30 37 3A |...2:MD.21:.107:|
00000ED0: 99 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |."DO YOU WISH TO|
00000EE0: 20 44 4F 00 04 17 93 00 99 22 41 4E 4F 54 48 45 | DO......"ANOTHE|
00000EF0: 52 20 44 49 53 4B 45 54 54 45 3F 20 28 59 2F 4E |R DISKETTE? (Y/N|
00000F00: 29 20 12 22 00 17 17 94 00 A1 55 24 3A 8B 55 24 |) ."......U$:.U$|
00000F10: B2 22 22 A7 31 34 38 00 27 17 95 00 8B 55 24 B2 |."".148.'....U$.|
00000F20: 22 59 22 A7 31 31 35 00 37 17 96 00 8B 55 24 B2 |"Y".115.7....U$.|
00000F30: 22 4E 22 A7 31 30 36 00 43 17 97 00 89 31 34 38 |"N".106.C....148|
00000F40: 3A 89 38 00 50 17 98 00 9C 3A 99 22 93 11 11 22 |:.8.P....:."..."|
00000F50: 00 78 17 99 00 9F 39 2C 30 2C 30 3A 9F 31 35 2C |.x....9,0,0:.15,|
00000F60: 38 2C 31 35 3A 97 35 33 32 38 30 2C 31 32 3A 97 |8,15:.53280,12:.|
00000F70: 35 33 32 38 31 2C 31 35 00 86 17 9A 00 97 35 39 |53281,15......59|
00000F80: 34 36 38 2C 31 32 00 A8 17 9B 00 4D 44 24 B2 22 |468,12.....MD$."|
00000F90: 13 22 3A 81 49 B2 31 A4 32 30 3A 4D 44 24 B2 4D |.":.I.1.20:MD$.M|
00000FA0: 44 24 AA 22 11 22 3A 82 00 C2 17 9C 00 81 49 B2 |D$.".":.......I.|
00000FB0: 31 A4 33 39 3A 42 4C 24 B2 42 4C 24 AA 22 20 22 |1.39:BL$.BL$." "|
00000FC0: 3A 82 00 EF 17 9D 00 50 30 24 B2 22 93 11 95 1D |:......P0$."....|
00000FD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 44 49 53 4B 20 |.......... DISK |
00000FE0: 4E 41 4D 45 20 43 48 41 4E 47 45 52 92 1C 22 00 |NAME CHANGER..".|
00000FF0: 12 18 9E 00 52 45 24 B2 22 11 1D 1D 1D 1D 1D 50 |....RE$."......P|
00001000: 52 45 53 53 20 20 20 20 20 20 12 52 45 54 55 52 |RESS .RETUR|
00001010: 4E 92 00 2F 18 9F 00 83 32 2C 4F 55 54 20 4F 46 |N../....2,OUT OF|
00001020: 20 52 41 4E 47 45 2C 54 4F 4F 20 4C 4F 4E 47 00 | RANGE,TOO LONG.|
00001030: 4F 18 A0 00 87 41 3A 86 45 4D 24 28 41 29 3A 81 |O....A:.EM$(A):.|
00001040: 49 B2 31 A4 41 3A 87 45 4D 24 28 49 29 3A 82 00 |I.1.A:.EM$(I):..|
00001050: 58 18 A1 00 89 31 37 34 00 6B 18 A2 00 84 31 35 |X....174.k....15|
00001060: 2C 45 52 3A 8B 45 52 B2 30 A7 8E 00 82 18 A3 00 |,ER:.ER.0.......|
00001070: 84 31 35 2C 45 52 2C 45 4D 24 2C 45 54 24 2C 45 |.15,ER,EM$,ET$,E|
00001080: 53 24 00 B1 18 A4 00 99 4D 44 24 22 12 44 49 53 |S$......MD$".DIS|
00001090: 4B 20 45 52 52 4F 52 21 92 20 23 22 45 52 22 20 |K ERROR!. #"ER" |
000010A0: 22 45 4D 24 22 20 22 45 54 24 22 2C 20 22 45 53 |"EM$" "ET$", "ES|
000010B0: 24 00 B7 18 A5 00 80 00 D1 18 A6 00 84 39 2C 51 |$............9,Q|
000010C0: 24 3A 99 3A 51 31 24 B2 C8 28 51 24 2C 31 29 3A |$:.:Q1$..(Q$,1):|
000010D0: 8E 00 EF 18 A7 00 A0 39 3A A0 31 35 3A 97 35 39 |.......9:.15:.59|
000010E0: 34 36 38 2C 50 4B 3A 99 22 93 22 3A 89 37 36 00 |468,PK:.".":.76.|
000010F0: 06 19 A8 00 99 C8 28 4D 44 24 2C 4D 44 29 42 4C |......(MD$,MD)BL|
00001100: 24 3A 99 42 4C 24 00 18 19 A9 00 99 C8 28 4D 44 |$:.BL$.......(MD|
00001110: 24 2C 4D 44 29 3B 3A 8E 00 27 19 AA 00 4D 44 B2 |$,MD);:..'...MD.|
00001120: 32 31 3A 8D 31 36 38 00 4D 19 AB 00 99 22 12 55 |21:.168.M....".U|
00001130: 4E 41 43 43 45 50 54 41 42 4C 45 20 45 4E 54 52 |NACCEPTABLE ENTR|
00001140: 59 20 2D 2D 20 22 45 4D 24 28 45 4D 29 00 60 19 |Y -- "EM$(EM).`.|
00001150: AC 00 99 52 45 24 3A 8D 31 36 36 3A 8D 31 36 38 |...RE$:.166:.168|
00001160: 00 66 19 AD 00 8E 00 73 19 AE 00 46 B2 30 3A 99 |.f.....s...F.0:.|
00001170: 50 30 24 00 B6 19 AF 00 99 22 11 11 1D 1D 1D 1D |P0$......"......|
00001180: 1D 1D 4F 4E 20 57 48 49 43 48 20 44 52 49 56 45 |..ON WHICH DRIVE|
00001190: 20 46 4F 52 20 43 48 41 4E 47 45 53 20 3F 11 11 | FOR CHANGES ?..|
000011A0: 22 3A 99 A3 31 37 29 22 12 30 92 20 4F 52 20 12 |":..17)".0. OR .|
000011B0: 31 92 22 3B 51 24 00 C9 19 B0 00 A1 51 24 3A 8B |1.";Q$......Q$:.|
000011C0: 51 24 B2 22 22 A7 31 37 36 00 D6 19 B1 00 44 56 |Q$."".176.....DV|
000011D0: B2 C5 28 51 24 29 00 EE 19 B2 00 8B 44 56 B2 30 |..(Q$)......DV.0|
000011E0: AF 51 31 24 B3 B1 22 30 22 A7 45 4D B2 31 00 19 |.Q1$.."0".EM.1..|
000011F0: 1A B3 00 99 50 30 24 3A 99 22 11 1D 1D 1D 1D 1D |....P0$:."......|
00001200: 50 4C 41 43 45 20 44 49 53 4B 20 49 4E 20 44 52 |PLACE DISK IN DR|
00001210: 49 56 45 22 44 56 22 11 22 00 27 1A B4 00 99 52 |IVE"DV".".'....R|
00001220: 45 24 3A 8D 31 36 36 00 3E 1A B5 00 98 31 35 2C |E$:.166.>....15,|
00001230: 22 49 22 AA C4 28 44 56 29 3A 8D 31 36 32 00 68 |"I"..(DV):.162.h|
00001240: 1A B6 00 9F 32 2C 38 2C 32 2C 22 23 22 3A 98 31 |....2,8,2,"#":.1|
00001250: 35 2C 22 55 31 3A 32 22 3B 44 56 3B 22 2C 31 38 |5,"U1:2";DV;",18|
00001260: 2C 30 22 3A 8D 31 36 32 00 88 1A B7 00 98 31 35 |,0":.162......15|
00001270: 2C 22 42 2D 50 3A 32 2C 31 34 34 22 3A 8D 31 36 |,"B-P:2,144":.16|
00001280: 32 3A 44 4E 24 B2 22 22 00 A8 1A B8 00 81 49 B2 |2:DN$.""......I.|
00001290: 31 A4 31 36 3A A1 23 32 2C 41 24 3A 44 4E 24 B2 |1.16:.#2,A$:DN$.|
000012A0: 44 4E 24 AA 41 24 3A 82 00 BC 1A B9 00 4D 44 B2 |DN$.A$:......MD.|
000012B0: 31 30 3A 8D 31 36 38 3A 8B 46 A7 8E 00 E1 1A BA |10:.168:.F......|
000012C0: 00 99 22 1D 1D 1D 1D 1D 54 48 45 20 50 52 45 53 |..".....THE PRES|
000012D0: 45 4E 54 20 44 49 53 4B 20 4E 41 4D 45 20 49 53 |ENT DISK NAME IS|
000012E0: 22 00 00 1B BB 00 99 22 11 1D 1D 1D 1D 1D 12 22 |"......"......."|
000012F0: C7 28 33 34 29 44 4E 24 C7 28 33 34 29 22 92 22 |.(34)DN$.(34)"."|
00001300: 00 0A 1B BC 00 4D 44 B2 31 33 00 3C 1B BD 00 99 |.....MD.13.<....|
00001310: 22 11 1D 1D 1D 1D 44 4F 20 59 4F 55 20 57 49 53 |".....DO YOU WIS|
00001320: 48 20 54 4F 20 43 48 41 4E 47 45 20 49 54 3F 20 |H TO CHANGE IT? |
00001330: 28 59 2F 4E 29 22 3B 3A 8D 31 36 36 00 4D 1B BE |(Y/N)";:.166.M..|
00001340: 00 8B 51 31 24 B2 22 4E 22 A7 32 30 39 00 57 1B |..Q1$."N".209.W.|
00001350: BF 00 4D 44 B2 31 36 00 98 1B C0 00 99 22 1D 1D |..MD.16......"..|
00001360: 1D 1D 1D 45 4E 54 45 52 20 4E 45 57 20 44 49 53 |...ENTER NEW DIS|
00001370: 4B 20 4E 41 4D 45 22 3A 99 22 1D 1D 1D 1D 1D 4C |K NAME":.".....L|
00001380: 49 4D 49 54 20 54 4F 20 31 36 20 43 48 41 52 41 |IMIT TO 16 CHARA|
00001390: 43 54 45 52 53 20 12 22 00 C5 1B C1 00 8D 31 36 |CTERS ."......16|
000013A0: 36 3A 8B C3 28 51 24 29 B1 31 36 A7 45 4D B2 32 |6:..(Q$).16.EM.2|
000013B0: 3A 8D 31 37 30 3A 4D 44 B2 31 38 3A 8D 31 36 38 |:.170:MD.18:.168|
000013C0: 3A 89 31 39 33 00 DB 1B C2 00 4E 44 4E 24 B2 C8 |:.193.....NDN$..|
000013D0: 28 51 24 AA 42 4C 24 2C 31 36 29 00 EA 1B C3 00 |(Q$.BL$,16).....|
000013E0: 4D 44 B2 32 31 3A 8D 31 36 38 00 09 1C C4 00 99 |MD.21:.168......|
000013F0: 22 1D 1D 1D 1D 1D 53 48 41 4C 4C 20 49 20 53 45 |".....SHALL I SE|
00001400: 4E 44 20 12 22 4E 44 4E 24 00 3E 1C C5 00 99 22 |ND ."NDN$.>...."|
00001410: 1D 1D 54 4F 20 54 48 45 20 44 49 53 4B 45 54 54 |..TO THE DISKETT|
00001420: 45 20 4F 4E 20 44 52 49 56 45 22 44 56 22 3F 20 |E ON DRIVE"DV"? |
00001430: 28 59 2F 4E 29 20 12 22 3B 3A 8D 31 36 36 00 47 |(Y/N) .";:.166.G|
00001440: 1C C6 00 89 32 30 31 00 65 1C C7 00 8B 51 31 24 |....201.e....Q1$|
00001450: B3 B1 22 4E 22 A7 8D 31 36 38 3A 4D 44 B2 31 38 |.."N"..168:MD.18|
00001460: 3A 89 31 39 31 00 6E 1C C8 00 89 31 39 35 00 8C |:.191.n....195..|
00001470: 1C C9 00 4D 44 B2 32 31 3A 99 A3 31 30 29 22 42 |...MD.21:..10)"B|
00001480: 45 20 50 41 54 49 45 4E 54 2E 2E 2E 00 A5 1C CA |E PATIENT.......|
00001490: 00 98 31 35 2C 22 42 2D 50 3A 32 2C 31 34 34 22 |..15,"B-P:2,144"|
000014A0: 3A 8D 31 36 32 00 B7 1C CB 00 98 32 2C 4E 44 4E |:.162......2,NDN|
000014B0: 24 3B 3A 8D 31 36 32 00 D6 1C CC 00 98 31 35 2C |$;:.162......15,|
000014C0: 22 55 32 3A 32 22 3B 44 56 3B 22 2C 31 38 2C 30 |"U2:2";DV;",18,0|
000014D0: 22 3A 8D 31 36 32 00 F0 1C CD 00 98 31 35 2C 22 |":.162......15,"|
000014E0: 49 22 AA C4 28 44 56 29 3A 8D 31 36 32 3A A0 32 |I"..(DV):.162:.2|
000014F0: 00 06 1D CE 00 46 B2 31 3A 99 50 30 24 3A 8D 31 |.....F.1:.P0$:.1|
00001500: 38 31 3A 46 B2 30 00 27 1D CF 00 99 22 1D 1D 1D |81:F.0.'...."...|
00001510: 1D 1D 54 48 45 20 4E 45 57 20 44 49 53 4B 20 4E |..THE NEW DISK N|
00001520: 41 4D 45 20 49 53 3A 00 3F 1D D0 00 99 A3 35 29 |AME IS:.?.....5)|
00001530: 22 22 C7 28 33 34 29 44 4E 24 C7 28 33 34 29 00 |"".(34)DN$.(34).|
00001540: 51 1D D1 00 A0 32 3A 4D 44 B2 32 31 3A 8D 31 36 |Q....2:MD.21:.16|
00001550: 38 00 7A 1D D2 00 99 A3 31 30 29 22 41 4E 4F 54 |8.z.....10)"ANOT|
00001560: 48 45 52 20 44 49 53 4B 20 12 59 92 20 4F 52 20 |HER DISK .Y. OR |
00001570: 12 4E 92 20 3F 22 3B 54 46 24 00 A1 1D D3 00 A1 |.N. ?";TF$......|
00001580: 54 46 24 3A 8B 54 46 24 B2 22 22 AF 54 46 24 B3 |TF$:.TF$."".TF$.|
00001590: B1 22 59 22 AF 54 46 24 B3 B1 22 4E 22 A7 32 31 |."Y".TF$.."N".21|
000015A0: 31 00 B2 1D D4 00 8B 54 46 24 B2 22 59 22 A7 31 |1......TF$."Y".1|
000015B0: 37 39 00 C3 1D D5 00 8B 54 46 24 B2 22 4E 22 A7 |79......TF$."N".|
000015C0: 31 36 37 00 CC 1D D6 00 89 31 37 39 00 F6 1D D7 |167......179....|
000015D0: 00 99 C7 28 31 34 29 3A 99 C7 28 38 29 3A 97 35 |...(14):..(8):.5|
000015E0: 33 32 38 30 2C 36 3A 97 35 33 32 38 31 2C 36 3A |3280,6:.53281,6:|
000015F0: 97 36 34 36 2C 31 00 30 1E D8 00 99 22 93 11 11 |.646,1.0...."...|
00001600: 11 11 11 1D 1D 9E 12 20 C9 4E 53 45 52 54 20 50 |....... .NSERT P|
00001610: 52 4F 50 45 52 20 44 49 53 4B 20 54 48 45 4E 20 |ROPER DISK THEN |
00001620: 50 52 45 53 53 20 53 50 41 43 45 20 92 11 11 22 |PRESS SPACE ..."|
00001630: 00 43 1E D9 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 |.C....X$:.X$."".|
00001640: 32 31 37 00 6A 1E DA 00 99 A3 38 29 22 9B 12 20 |217.j.....8)".. |
00001650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001660: 20 20 20 20 20 20 20 20 92 22 00 80 1E DB 00 86 | ."......|
00001670: 54 24 28 31 30 30 29 2C 46 54 24 28 31 30 30 29 |T$(100),FT$(100)|
00001680: 00 90 1E DC 00 9F 31 2C 38 2C 30 2C 22 24 30 22 |......1,8,0,"$0"|
00001690: 00 9E 1E DD 00 A1 23 31 2C 41 24 2C 42 24 00 AC |......#1,A$,B$..|
000016A0: 1E DE 00 A1 23 31 2C 41 24 2C 42 24 00 BA 1E DF |....#1,A$,B$....|
000016B0: 00 A1 23 31 2C 41 24 2C 42 24 00 C2 1E E0 00 43 |..#1,A$,B$.....C|
000016C0: B2 30 00 D9 1E E1 00 8B 20 41 24 B3 B1 22 22 20 |.0...... A$.."" |
000016D0: A7 20 43 B2 C6 28 41 24 29 00 F6 1E E2 00 8B 20 |. C..(A$)...... |
000016E0: 42 24 B3 B1 22 22 20 A7 20 43 B2 43 AA C6 28 42 |B$.."" . C.C..(B|
000016F0: 24 29 AC 32 35 36 00 16 1F E3 00 99 A3 38 29 22 |$).256.......8)"|
00001700: 12 9B 22 CA 28 C4 28 43 29 2C 32 29 3B A3 31 32 |..".(.(C),2);.12|
00001710: 29 3B 22 92 22 3B 00 2E 1F E4 00 A1 23 31 2C 42 |);".";......#1,B|
00001720: 24 3A 8B 20 53 54 B3 B1 30 20 A7 32 33 37 00 44 |$:. ST..0 .237.D|
00001730: 1F E5 00 8B 20 42 24 B3 B1 C7 28 33 34 29 20 A7 |.... B$...(34) .|
00001740: 20 32 32 38 00 77 1F E6 00 A1 23 31 2C 42 24 3A | 228.w....#1,B$:|
00001750: 8B 20 42 24 B3 B1 C7 28 33 34 29 A7 20 99 42 24 |. B$...(34). .B$|
00001760: 3B 3A 54 24 28 4E 43 29 B2 54 24 28 4E 43 29 AA |;:T$(NC).T$(NC).|
00001770: 42 24 3A 89 32 33 30 00 92 1F E7 00 A1 23 31 2C |B$:.230......#1,|
00001780: 42 24 3A 8B 20 42 24 B2 C7 28 33 32 29 20 A7 32 |B$:. B$..(32) .2|
00001790: 33 31 00 A4 1F E8 00 99 20 A3 33 30 29 3B 3A 43 |31...... .30);:C|
000017A0: 24 B2 22 22 00 C5 1F E9 00 43 24 B2 43 24 AA 42 |$."".....C$.C$.B|
000017B0: 24 3A A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 22 |$:.#1,B$:. B$.."|
000017C0: 22 A7 32 33 33 00 EA 1F EA 00 99 A3 31 32 29 22 |".233.......12)"|
000017D0: 12 9B 22 C8 28 43 24 2C 33 29 3A 46 54 24 28 4E |..".(C$,3):FT$(N|
000017E0: 43 29 B2 C8 28 43 24 2C 33 29 00 F6 1F EB 00 4E |C)..(C$,3).....N|
000017F0: 43 B2 4E 43 AA 31 00 06 20 EC 00 8B 20 53 54 B2 |C.NC.1.. ... ST.|
00001800: 30 20 A7 32 32 32 00 28 20 ED 00 99 22 12 9D 20 |0 .222.( ...".. |
00001810: 20 20 20 42 4C 4F 43 4B 53 20 20 46 52 45 45 20 | BLOCKS FREE |
00001820: 20 20 20 20 20 92 11 22 00 37 20 EE 00 A0 31 3A | ..".7 ...1:|
00001830: 8B 58 46 B2 31 A7 8E 00 54 20 EF 00 99 A3 31 33 |.XF.1...T ....13|
00001840: 29 22 12 9E 20 D0 52 45 53 53 20 20 53 50 41 43 |)".. .RESS SPAC|
00001850: 45 20 92 22 00 60 20 F0 00 4E 43 B2 4E 43 AB 31 |E .".` ..NC.NC.1|
00001860: 00 73 20 F1 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 |.s ...X$:.X$."".|
00001870: 32 34 31 00 A3 20 F2 00 99 22 93 11 11 11 11 11 |241.. ..."......|
00001880: 11 11 22 3A 99 A3 31 30 29 22 9E 12 20 D0 55 52 |..":..10)".. .UR|
00001890: 47 45 20 55 54 49 4C 49 54 59 20 31 2E 31 20 92 |GE UTILITY 1.1 .|
000018A0: 11 11 22 00 D2 20 F3 00 99 22 1D 1D 1D 1D 1D D0 |..".. ..."......|
000018B0: 52 45 53 53 20 12 59 92 20 54 4F 20 53 43 52 41 |RESS .Y. TO SCRA|
000018C0: 54 43 48 20 54 48 45 20 49 4E 44 49 43 41 54 45 |TCH THE INDICATE|
000018D0: 44 22 00 02 21 F4 00 99 22 1D 1D 1D 1D 1D 20 46 |D"..!..."..... F|
000018E0: 49 4C 45 2C 20 41 4E 44 20 12 4E 92 20 54 4F 20 |ILE, AND .N. TO |
000018F0: 4C 45 41 56 45 20 54 48 45 20 46 49 4C 45 2E 11 |LEAVE THE FILE..|
00001900: 11 22 00 1D 21 F5 00 99 A3 31 34 29 22 12 D0 52 |."..!....14)"..R|
00001910: 45 53 53 20 20 D3 50 41 43 45 92 05 22 00 30 21 |ESS .PACE..".0!|
00001920: F6 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 32 34 36 |...X$:.X$."".246|
00001930: 00 39 21 F7 00 99 22 93 22 00 46 21 F8 00 81 4D |.9!...".".F!...M|
00001940: 4C B2 31 A4 4E 43 00 74 21 F9 00 99 54 24 28 4D |L.1.NC.t!...T$(M|
00001950: 4C 29 3B A3 32 30 29 22 12 22 46 54 24 28 4D 4C |L);.20)"."FT$(ML|
00001960: 29 22 92 22 3B A3 32 34 29 22 D3 43 52 41 54 43 |)".";.24)".CRATC|
00001970: 48 3F 22 3B 00 89 21 FA 00 A1 58 24 3A 8B 58 24 |H?";..!...X$:.X$|
00001980: B2 22 59 22 A7 89 32 35 37 00 98 21 FB 00 8B 58 |."Y"..257..!...X|
00001990: 24 B2 22 22 A7 32 35 30 00 B1 21 FC 00 99 22 9D |$."".250..!...".|
000019A0: 9D 9D 9D 9D 9D 9D 9D CC 45 46 54 20 20 20 20 20 |........EFT |
000019B0: 22 00 B9 21 FD 00 82 4D 4C 00 C7 21 FE 00 58 46 |"..!...ML..!..XF|
000019C0: B2 31 3A 4E 43 B2 30 00 D0 21 FF 00 8D 32 36 30 |.1:NC.0..!...260|
000019D0: 00 D7 21 00 01 89 38 00 EB 21 01 01 44 43 24 B2 |..!...8..!..DC$.|
000019E0: 22 53 3A 22 AA 54 24 28 4D 4C 29 00 00 22 02 01 |"S:".T$(ML).."..|
000019F0: 9F 31 35 2C 38 2C 31 35 2C 44 43 24 3A A0 31 35 |.15,8,15,DC$:.15|
00001A00: 00 10 22 03 01 99 22 9D 45 44 22 3A 89 32 35 33 |.."...".ED":.253|
00001A10: 00 23 22 04 01 99 22 93 11 11 11 11 11 11 11 11 |.#"...".........|
00001A20: 11 11 22 00 44 22 05 01 99 A3 31 30 29 22 9E D6 |..".D"....10)"..|
00001A30: 41 4C 49 44 41 54 49 4E 47 20 44 49 52 45 43 54 |ALIDATING DIRECT|
00001A40: 4F 52 59 22 00 59 22 06 01 9F 31 35 2C 38 2C 31 |ORY".Y"...15,8,1|
00001A50: 35 2C 22 56 22 3A A0 31 35 00 60 22 07 01 89 38 |5,"V":.15.`"...8|
00001A60: 00 6B 22 08 01 9C 3A 99 22 93 22 00 83 22 09 01 |.k"...:.".".."..|
00001A70: 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 38 30 |.53281,15:.53280|
00001A80: 2C 31 32 00 A2 22 0A 01 99 A3 31 33 29 22 12 95 |,12.."....13)"..|
00001A90: 20 46 4F 52 4D 41 54 20 20 44 49 53 4B 20 92 11 | FORMAT DISK ..|
00001AA0: 11 22 00 DF 22 0B 01 99 A3 39 29 22 1C 49 4E 53 |.".."....9)".INS|
00001AB0: 45 52 54 20 54 48 45 20 44 49 53 4B 20 54 4F 20 |ERT THE DISK TO |
00001AC0: 42 45 22 3A 99 A3 39 29 22 46 4F 52 4D 41 54 54 |BE":..9)"FORMATT|
00001AD0: 45 44 20 49 4E 20 44 52 49 56 45 20 23 30 22 00 |ED IN DRIVE #0".|
00001AE0: FE 22 0C 01 85 22 11 11 20 20 20 20 20 44 49 53 |."...".. DIS|
00001AF0: 4B 20 4E 41 4D 45 20 22 3B 44 49 53 4B 24 00 1A |K NAME ";DISK$..|
00001B00: 23 0D 01 85 22 11 11 20 20 20 20 20 44 49 53 4B |#...".. DISK|
00001B10: 20 49 44 20 22 3B 45 58 54 24 00 3C 23 0E 01 85 | ID ";EXT$.<#...|
00001B20: 22 11 11 11 20 20 20 20 20 12 41 52 45 20 59 4F |"... .ARE YO|
00001B30: 55 20 53 55 52 45 92 20 22 3B 55 24 00 4C 23 0F |U SURE. ";U$.L#.|
00001B40: 01 8B 55 24 B2 22 59 22 A7 32 37 33 00 5B 23 10 |..U$."Y".273.[#.|
00001B50: 01 8B 55 24 B2 22 4E 22 A7 37 36 00 7A 23 11 01 |..U$."N".76.z#..|
00001B60: 4D 41 43 52 4F 24 B2 22 4E 3A 22 AA 44 49 53 4B |MACRO$."N:".DISK|
00001B70: 24 AA 22 2C 22 AA 45 58 54 24 00 8E 23 12 01 9F |$.",".EXT$..#...|
00001B80: 31 35 2C 38 2C 31 35 2C 4D 41 43 52 4F 24 00 A0 |15,8,15,MACRO$..|
00001B90: 23 13 01 A0 31 35 3A 4D 41 43 52 4F 24 B2 22 22 |#...15:MACRO$.""|
00001BA0: 00 A8 23 14 01 89 37 36 00 CA 23 15 01 9C 3A 99 |..#...76..#...:.|
00001BB0: 22 93 11 11 11 22 3A 97 35 33 32 38 31 2C 31 35 |"....":.53281,15|
00001BC0: 3A 97 35 33 32 38 30 2C 31 32 00 EF 23 16 01 99 |:.53280,12..#...|
00001BD0: A3 31 31 29 22 12 95 20 43 48 41 4E 47 45 20 46 |.11)".. CHANGE F|
00001BE0: 49 4C 45 20 4E 41 4D 45 20 92 11 11 11 1C 22 00 |ILE NAME .....".|
00001BF0: 10 24 17 01 85 22 1D 1D 1D 1D 1D 4F 4C 44 20 46 |.$...".....OLD F|
00001C00: 49 4C 45 20 4E 41 4D 45 20 22 3B 44 49 53 4B 24 |ILE NAME ";DISK$|
00001C10: 00 31 24 18 01 85 22 11 11 1D 1D 1D 1D 1D 4E 45 |.1$...".......NE|
00001C20: 57 20 46 49 4C 45 20 4E 41 4D 45 20 22 3B 4E 57 |W FILE NAME ";NW|
00001C30: 24 00 53 24 19 01 85 22 11 11 11 1D 1D 1D 1D 1D |$.S$..."........|
00001C40: 12 41 52 45 20 59 4F 55 20 53 55 52 45 92 20 22 |.ARE YOU SURE. "|
00001C50: 3B 55 24 00 63 24 1A 01 8B 55 24 B2 22 59 22 A7 |;U$.c$...U$."Y".|
00001C60: 32 38 34 00 73 24 1B 01 8B 55 24 B2 22 4E 22 A7 |284.s$...U$."N".|
00001C70: 89 37 36 00 91 24 1C 01 4D 41 43 52 4F 24 B2 22 |.76..$..MACRO$."|
00001C80: 52 3A 22 AA 4E 57 24 AA 22 3D 22 AA 44 49 53 4B |R:".NW$."=".DISK|
00001C90: 24 00 A5 24 1D 01 9F 31 35 2C 38 2C 31 35 2C 4D |$..$...15,8,15,M|
00001CA0: 41 43 52 4F 24 00 B7 24 1E 01 A0 31 35 3A 4D 41 |ACRO$..$...15:MA|
00001CB0: 43 52 4F 24 B2 22 22 00 BF 24 1F 01 89 37 36 00 |CRO$.""..$...76.|
00001CC0: E7 24 20 01 99 22 93 05 11 22 3A 97 35 33 32 38 |.$ .."...":.5328|
00001CD0: 30 2C 32 3A 97 35 33 32 38 31 2C 31 30 3A 97 35 |0,2:.53281,10:.5|
00001CE0: 33 32 37 32 2C 32 31 00 0E 25 21 01 99 A3 38 29 |3272,21..%!...8)|
00001CF0: 22 12 20 53 45 51 55 45 4E 54 49 41 4C 20 46 49 |". SEQUENTIAL FI|
00001D00: 4C 45 20 52 45 41 44 45 52 20 92 11 11 22 00 29 |LE READER ...".)|
00001D10: 25 22 01 85 22 11 11 1D 1D 1D 1D 1D 46 49 4C 45 |%"..".......FILE|
00001D20: 20 4E 41 4D 45 22 3B 46 24 00 45 25 23 01 99 22 | NAME";F$.E%#.."|
00001D30: 11 11 1D 1D 1D 1D 1D 52 45 41 44 20 53 50 45 45 |.......READ SPEE|
00001D40: 44 22 3B 52 24 00 77 25 24 01 99 3A 99 A3 37 29 |D";R$.w%$..:..7)|
00001D50: 20 22 12 53 92 4C 4F 57 11 22 3A 99 A3 37 29 22 | ".S.LOW.":..7)"|
00001D60: 12 4D 92 45 44 49 55 4D 11 22 3A 99 A3 37 29 22 |.M.EDIUM.":..7)"|
00001D70: 12 46 92 41 53 54 22 00 89 25 25 01 8B 52 24 B2 |.F.AST"..%%..R$.|
00001D80: 22 53 22 A7 42 B2 35 30 30 00 9A 25 26 01 8B 52 |"S".B.500..%&..R|
00001D90: 24 B2 22 4D 22 A7 42 B2 35 30 00 AA 25 27 01 8B |$."M".B.50..%'..|
00001DA0: 52 24 B2 22 46 22 A7 42 B2 35 00 CF 25 28 01 A1 |R$."F".B.5..%(..|
00001DB0: 52 24 3A 8B 52 24 B3 B1 22 53 22 AF 52 24 B3 B1 |R$:.R$.."S".R$..|
00001DC0: 22 4D 22 AF 52 24 B3 B1 22 46 22 A7 32 39 36 00 |"M".R$.."F".296.|
00001DD0: E2 25 29 01 99 22 93 22 3A 97 35 33 32 37 32 2C |.%)..".":.53272,|
00001DE0: 32 33 00 FA 25 2A 01 9F 38 2C 38 2C 38 2C 22 22 |23..%*..8,8,8,""|
00001DF0: AA 46 24 AA 22 2C 53 2C 52 22 00 0A 26 2B 01 A1 |.F$.",S,R"..&+..|
00001E00: 23 38 2C 41 24 3A 99 41 24 3B 00 17 26 2C 01 81 |#8,A$:.A$;..&,..|
00001E10: 58 B2 30 A4 42 3A 82 00 25 26 2D 01 8B 53 54 B2 |X.0.B:..%&-..ST.|
00001E20: 30 A7 32 39 39 00 2F 26 2E 01 A0 38 3A 89 38 00 |0.299./&...8:.8.|
00001E30: 4D 26 2F 01 97 35 33 32 38 30 2C 30 3A 97 35 33 |M&/..53280,0:.53|
00001E40: 32 38 31 2C 31 32 3A 97 36 34 36 2C 31 00 79 26 |281,12:.646,1.y&|
00001E50: 30 01 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 12 20 53 |0..".......... S|
00001E60: 45 51 55 45 4E 54 49 41 4C 20 46 49 4C 45 20 50 |EQUENTIAL FILE P|
00001E70: 52 49 4E 54 45 52 20 92 22 00 A8 26 31 01 99 22 |RINTER ."..&1.."|
00001E80: 11 11 11 11 11 11 1D 1D 1D 1D 1D 49 4E 53 45 52 |...........INSER|
00001E90: 54 20 44 41 54 41 20 44 49 53 4B 20 49 4E 20 44 |T DATA DISK IN D|
00001EA0: 52 49 56 45 20 23 30 22 00 D3 26 32 01 99 22 11 |RIVE #0"..&2..".|
00001EB0: 1D 1D 1D 1D 1D 41 4E 44 20 50 52 45 53 53 20 41 |.....AND PRESS A|
00001EC0: 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 |NY KEY WHEN READ|
00001ED0: 59 2E 22 00 E9 26 33 01 97 31 39 38 2C 30 3A 92 |Y."..&3..198,0:.|
00001EE0: 31 39 38 2C 31 3A A1 58 24 00 1D 27 34 01 99 22 |198,1:.X$..'4.."|
00001EF0: 11 11 11 11 1D 1D 1D 1D 1D 4E 41 4D 45 20 4F 46 |.........NAME OF|
00001F00: 3A 22 3A 85 22 11 1D 1D 1D 1D 1D 46 49 4C 45 20 |:":."......FILE |
00001F10: 54 4F 20 50 52 49 4E 54 22 3B 54 46 24 00 35 27 |TO PRINT";TF$.5'|
00001F20: 35 01 54 46 24 B2 22 30 3A 22 AA 54 46 24 AA 22 |5.TF$."0:".TF$."|
00001F30: 2C 53 2C 52 22 00 5B 27 36 01 4D 4C B2 36 36 3A |,S,R".['6.ML.66:|
00001F40: 54 4D B2 33 3A 42 4D B2 36 34 3A 4D 43 B2 38 30 |TM.3:BM.64:MC.80|
00001F50: 3A 4C 4D B2 35 3A 52 4D B2 37 35 00 86 27 37 01 |:LM.5:RM.75..'7.|
00001F60: 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 12 20 46 4F |."........... FO|
00001F70: 52 4D 41 54 20 50 52 49 4E 54 45 52 20 4F 55 54 |RMAT PRINTER OUT|
00001F80: 50 55 54 20 92 22 00 B1 27 38 01 99 22 11 11 1D |PUT ."..'8.."...|
00001F90: 1D 1D 1D 1D 1D 50 52 45 53 53 20 3C 52 45 54 55 |.....PRESS <RETU|
00001FA0: 52 4E 3E 20 46 4F 52 20 44 45 46 41 55 4C 54 53 |RN> FOR DEFAULTS|
00001FB0: 22 00 E8 27 39 01 99 22 11 11 11 1D 4C 49 4E 45 |"..'9.."....LINE|
00001FC0: 53 20 50 45 52 20 50 41 47 45 20 28 22 3B 3A 58 |S PER PAGE (";:X|
00001FD0: 24 B2 C4 28 4D 4C 29 3A 58 24 B2 C9 28 58 24 2C |$..(ML):X$..(X$,|
00001FE0: C3 28 58 24 29 AB 31 29 00 04 28 3A 01 99 58 24 |.(X$).1)..(:..X$|
00001FF0: 3B 3A 85 20 22 29 22 3B 58 3A 8B 58 B3 B1 30 A7 |;:. ")";X:.X..0.|
00002000: 4D 4C B2 58 00 1B 28 3B 01 99 22 11 1D 54 4F 50 |ML.X..(;.."..TOP|
00002010: 20 4D 41 52 47 49 4E 20 28 22 3B 00 39 28 3C 01 | MARGIN (";.9(<.|
00002020: 58 24 B2 C4 28 54 4D 29 3A 58 24 B2 C9 28 58 24 |X$..(TM):X$..(X$|
00002030: 2C C3 28 58 24 29 AB 31 29 00 4A 28 3D 01 99 58 |,.(X$).1).J(=..X|
00002040: 24 3B 3A 85 20 22 29 22 3B 58 00 59 28 3E 01 8B |$;:. ")";X.Y(>..|
00002050: 58 B3 B1 30 A7 54 4D B2 58 00 73 28 3F 01 99 22 |X..0.TM.X.s(?.."|
00002060: 11 1D 42 4F 54 54 4F 4D 20 4D 41 52 47 49 4E 20 |..BOTTOM MARGIN |
00002070: 28 22 3B 00 91 28 40 01 58 24 B2 C4 28 42 4D 29 |(";..(@.X$..(BM)|
00002080: 3A 58 24 B2 C9 28 58 24 2C C3 28 58 24 29 AB 31 |:X$..(X$,.(X$).1|
00002090: 29 00 A2 28 41 01 99 58 24 3B 3A 85 20 22 29 22 |)..(A..X$;:. ")"|
000020A0: 3B 58 00 B1 28 42 01 8B 58 B3 B1 30 A7 42 4D B2 |;X..(B..X..0.BM.|
000020B0: 58 00 D1 28 43 01 99 22 11 1D 43 48 41 52 41 43 |X..(C.."..CHARAC|
000020C0: 54 45 52 53 20 50 45 52 20 4C 49 4E 45 20 28 22 |TERS PER LINE ("|
000020D0: 3B 00 EF 28 44 01 58 24 B2 C4 28 4D 43 29 3A 58 |;..(D.X$..(MC):X|
000020E0: 24 B2 C9 28 58 24 2C C3 28 58 24 29 AB 31 29 00 |$..(X$,.(X$).1).|
000020F0: FF 28 45 01 99 58 24 3B 3A 85 22 29 22 3B 58 00 |.(E..X$;:.")";X.|
00002100: 0E 29 46 01 8B 58 B3 B1 30 A7 4D 43 B2 58 00 26 |.)F..X..0.MC.X.&|
00002110: 29 47 01 99 22 11 1D 4C 45 46 54 20 4D 41 52 47 |)G.."..LEFT MARG|
00002120: 49 4E 20 28 22 3B 00 44 29 48 01 58 24 B2 C4 28 |IN (";.D)H.X$..(|
00002130: 4C 4D 29 3A 58 24 B2 C9 28 58 24 2C C3 28 58 24 |LM):X$..(X$,.(X$|
00002140: 29 AB 31 29 00 54 29 49 01 99 58 24 3B 3A 85 22 |).1).T)I..X$;:."|
00002150: 29 22 3B 58 00 63 29 4A 01 8B 58 B3 B1 30 A7 4C |)";X.c)J..X..0.L|
00002160: 4D B2 58 00 7C 29 4B 01 99 22 11 1D 52 49 47 48 |M.X.|)K.."..RIGH|
00002170: 54 20 4D 41 52 47 49 4E 20 28 22 3B 00 9A 29 4C |T MARGIN (";..)L|
00002180: 01 58 24 B2 C4 28 52 4D 29 3A 58 24 B2 C9 28 58 |.X$..(RM):X$..(X|
00002190: 24 2C C3 28 58 24 29 AB 31 29 00 AA 29 4D 01 99 |$,.(X$).1)..)M..|
000021A0: 58 24 3B 3A 85 22 29 22 3B 58 00 B9 29 4E 01 8B |X$;:.")";X..)N..|
000021B0: 58 B3 B1 30 A7 52 4D B2 58 00 D4 29 4F 01 58 B2 |X..0.RM.X..)O.X.|
000021C0: 4D 43 AB 4C 4D 3A 59 B2 4D 43 AB 52 4D 3A 50 4C |MC.LM:Y.MC.RM:PL|
000021D0: B2 58 AB 59 00 F6 29 50 01 99 22 93 11 11 11 11 |.X.Y..)P..".....|
000021E0: 11 11 11 11 1D 1D 1D 1D 1D 54 49 54 4C 45 20 28 |.........TITLE (|
000021F0: 4D 41 58 3D 22 3B 00 17 2A 51 01 58 24 B2 C4 28 |MAX=";..*Q.X$..(|
00002200: 50 4C AB 31 38 29 3A 58 24 B2 C9 28 58 24 2C C3 |PL.18):X$..(X$,.|
00002210: 28 58 24 29 AB 31 29 00 25 2A 52 01 97 35 33 32 |(X$).1).%*R..532|
00002220: 37 32 2C 32 33 00 37 2A 53 01 99 58 24 3B 3A 85 |72,23.7*S..X$;:.|
00002230: 22 29 22 3B 54 4C 24 00 45 2A 54 01 97 35 33 32 |")";TL$.E*T..532|
00002240: 37 32 2C 32 31 00 67 2A 55 01 85 22 11 11 1D 1D |72,21.g*U.."....|
00002250: 1D 1D 1D 44 41 54 41 20 28 4D 4D 2F 44 44 2F 59 |...DATA (MM/DD/Y|
00002260: 59 29 22 3B 44 54 24 00 89 2A 56 01 48 31 24 B2 |Y)";DT$..*V.H1$.|
00002270: 22 22 3A 81 58 B2 31 A4 50 4C 3A 48 31 24 B2 48 |"":.X.1.PL:H1$.H|
00002280: 31 24 AA 22 3D 22 3A 82 58 00 A0 2A 57 01 58 B2 |1$."=":.X..*W.X.|
00002290: 28 50 4C AB 31 38 AB C3 28 54 4C 24 29 29 AD 32 |(PL.18..(TL$)).2|
000022A0: 00 C7 2A 58 01 58 25 B2 58 3A 53 50 24 B2 22 22 |..*X.X%.X:SP$.""|
000022B0: 3A 81 59 B2 31 A4 58 25 3A 53 50 24 B2 53 50 24 |:.Y.1.X%:SP$.SP$|
000022C0: AA 22 20 22 3A 82 59 00 DF 2A 59 01 48 32 24 B2 |." ":.Y..*Y.H2$.|
000022D0: 44 54 24 AA 22 20 22 AA 53 50 24 AA 54 4C 24 00 |DT$." ".SP$.TL$.|
000022E0: F6 2A 5A 01 8B 58 25 B3 B1 58 A7 53 50 24 B2 53 |.*Z..X%..X.SP$.S|
000022F0: 50 24 AA 22 20 22 00 0E 2B 5B 01 48 32 24 B2 48 |P$." "..+[.H2$.H|
00002300: 32 24 AA 53 50 24 AA 22 20 50 41 47 45 22 00 1A |2$.SP$." PAGE"..|
00002310: 2B 5C 01 48 33 24 B2 48 31 24 00 27 2B 5D 01 99 |+\.H3$.H1$.'+]..|
00002320: 22 11 11 11 11 11 22 00 4A 2B 5E 01 99 A6 37 29 |".....".J+^...7)|
00002330: 22 41 4C 49 47 4E 20 50 41 50 45 52 20 20 41 54 |"ALIGN PAPER AT|
00002340: 20 54 4F 50 20 4C 49 4E 45 22 00 6E 2B 5F 01 99 | TOP LINE".n+_..|
00002350: A6 37 29 22 11 50 52 45 53 53 20 41 4E 59 20 4B |.7)".PRESS ANY K|
00002360: 45 59 20 57 48 45 4E 20 52 45 41 44 59 22 00 85 |EY WHEN READY"..|
00002370: 2B 60 01 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |+`..198,0:.198,1|
00002380: 3A A1 20 58 24 00 94 2B 61 01 9F 38 2C 38 2C 38 |:. X$..+a..8,8,8|
00002390: 2C 54 46 24 00 9F 2B 62 01 9F 34 2C 34 2C 37 00 |,TF$..+b..4,4,7.|
000023A0: AD 2B 63 01 50 43 B2 30 3A 4C 43 B2 30 00 B8 2B |.+c.PC.0:LC.0..+|
000023B0: 64 01 54 58 24 B2 22 22 00 C1 2B 65 01 43 43 B2 |d.TX$.""..+e.CC.|
000023C0: 30 00 CC 2B 66 01 A1 23 38 2C 58 24 00 DB 2B 67 |0..+f..#8,X$..+g|
000023D0: 01 8B 53 54 B3 B1 30 A7 33 37 30 00 EA 2B 68 01 |..ST..0.370..+h.|
000023E0: 54 58 24 B2 54 58 24 AA 58 24 00 FC 2B 69 01 8B |TX$.TX$.X$..+i..|
000023F0: 58 24 B2 C7 28 31 33 29 A7 33 36 34 00 13 2C 6A |X$..(13).364..,j|
00002400: 01 43 43 B2 43 43 AA 31 3A 8B 43 43 B2 50 4C A7 |.CC.CC.1:.CC.PL.|
00002410: 33 36 34 00 1D 2C 6B 01 89 33 35 38 20 00 44 2C |364..,k..358 .D,|
00002420: 6C 01 8B 4C 43 B2 42 4D A7 81 58 B2 31 A4 4D 4C |l..LC.BM..X.1.ML|
00002430: AB 42 4D AA 31 3A 98 34 2C 22 20 22 3A 82 58 3A |.BM.1:.4," ":.X:|
00002440: 4C 43 B2 30 00 53 2C 6D 01 8B 4C 43 B2 30 A7 8D |LC.0.S,m..LC.0..|
00002450: 33 37 33 00 6A 2C 6E 01 81 58 B2 31 A4 4C 4D 3A |373.j,n..X.1.LM:|
00002460: 98 34 2C 22 20 22 3B 3A 82 58 00 76 2C 6F 01 98 |.4," ";:.X.v,o..|
00002470: 34 2C 54 58 24 3B 00 82 2C 70 01 4C 43 B2 4C 43 |4,TX$;..,p.LC.LC|
00002480: AA 31 00 8B 2C 71 01 89 33 35 36 00 92 2C 72 01 |.1..,q..356..,r.|
00002490: A0 38 00 9C 2C 73 01 98 34 3A A0 34 00 A3 2C 74 |.8..,s..4:.4..,t|
000024A0: 01 89 38 00 C3 2C 75 01 81 58 B2 31 A4 4D 4C AB |..8..,u..X.1.ML.|
000024B0: 42 4D AA 31 3A 98 34 2C 22 20 22 3A 82 58 3A 4C |BM.1:.4," ":.X:L|
000024C0: 43 B2 58 00 DA 2C 76 01 81 58 B2 31 A4 4C 4D 3A |C.X..,v..X.1.LM:|
000024D0: 98 34 2C 22 20 22 3B 3A 82 58 00 E5 2C 77 01 98 |.4," ";:.X..,w..|
000024E0: 34 2C 48 31 24 00 FB 2C 78 01 50 43 B2 50 43 AA |4,H1$..,x.PC.PC.|
000024F0: 31 3A 50 43 24 B2 C4 28 50 43 29 00 18 2D 79 01 |1:PC$..(PC)..-y.|
00002500: 8B 50 43 B3 31 30 A7 50 43 24 B2 22 20 20 22 AA |.PC.10.PC$." ".|
00002510: 50 43 24 3A 89 33 37 39 00 35 2D 7A 01 8B 50 43 |PC$:.379.5-z..PC|
00002520: B3 31 30 30 A7 50 43 24 B2 22 20 22 AA 50 43 24 |.100.PC$." ".PC$|
00002530: 3A 89 33 37 39 00 4C 2D 7B 01 81 58 B2 31 A4 4C |:.379.L-{..X.1.L|
00002540: 4D 3A 98 34 2C 22 20 22 3B 3A 82 58 00 5B 2D 7C |M:.4," ";:.X.[-||
00002550: 01 98 34 2C 48 32 24 3B 50 43 24 00 72 2D 7D 01 |..4,H2$;PC$.r-}.|
00002560: 81 58 B2 31 A4 4C 4D 3A 98 34 2C 22 20 22 3B 3A |.X.1.LM:.4," ";:|
00002570: 82 58 00 7D 2D 7E 01 98 34 2C 48 33 24 00 90 2D |.X.}-~..4,H3$..-|
00002580: 7F 01 98 34 2C 22 20 22 3A 4C 43 B2 4C 43 AA 34 |...4," ":LC.LC.4|
00002590: 00 96 2D 80 01 8E 00 B0 2D 81 01 86 41 28 35 30 |..-.....-...A(50|
000025A0: 30 29 2C 41 24 28 35 30 30 29 2C 4E 24 28 31 29 |0),A$(500),N$(1)|
000025B0: 00 BC 2D 82 01 4D 50 B2 32 30 34 39 00 D6 2D 83 |..-..MP.2049..-.|
000025C0: 01 44 4E 24 B2 C7 28 20 31 37 29 3A 43 4C 24 B2 |.DN$..( 17):CL$.|
000025D0: C7 28 31 34 37 29 00 F4 2D 84 01 97 35 33 32 38 |.(147)..-...5328|
000025E0: 30 2C 36 3A 97 35 33 32 38 31 2C 31 34 3A 97 36 |0,6:.53281,14:.6|
000025F0: 34 36 2C 31 00 21 2E 85 01 99 22 93 11 22 3A 99 |46,1.!...."..":.|
00002600: A3 39 29 22 12 20 4D 45 52 47 45 20 42 41 53 49 |.9)". MERGE BASI|
00002610: 43 20 50 52 4F 47 52 41 4D 53 20 92 11 22 44 4E |C PROGRAMS .."DN|
00002620: 24 00 57 2E 86 01 99 22 11 20 20 20 20 20 4E 41 |$.W....". NA|
00002630: 4D 45 20 4F 46 3A 22 3A 85 22 11 20 20 20 20 20 |ME OF:":.". |
00002640: 4F 52 49 47 49 4E 41 4C 20 50 52 4F 47 52 41 4D |ORIGINAL PROGRAM|
00002650: 22 3B 4E 24 28 30 29 00 8E 2E 87 01 99 22 11 11 |";N$(0)......"..|
00002660: 20 20 20 20 20 4E 41 4D 45 20 4F 46 3A 22 3A 85 | NAME OF:":.|
00002670: 22 11 20 20 20 20 20 50 52 4F 47 52 41 4D 20 54 |". PROGRAM T|
00002680: 4F 20 4D 45 52 47 45 22 3B 4E 24 28 31 29 00 9B |O MERGE";N$(1)..|
00002690: 2E 88 01 53 24 B2 4E 24 28 30 29 00 D3 2E 89 01 |...S$.N$(0).....|
000026A0: 99 44 4E 24 3B 3A 99 22 11 20 20 20 20 20 4E 41 |.DN$;:.". NA|
000026B0: 4D 45 20 4F 46 3A 22 3A 85 22 11 20 20 20 20 20 |ME OF:":.". |
000026C0: 50 52 4F 47 52 41 4D 20 54 4F 20 53 41 56 45 22 |PROGRAM TO SAVE"|
000026D0: 3B 53 24 00 E4 2E 8A 01 9F 31 35 2C 38 2C 31 35 |;S$......15,8,15|
000026E0: 2C 22 49 22 00 EC 2E 8B 01 58 B2 30 00 F5 2E 8C |,"I".....X.0....|
000026F0: 01 8D 34 31 39 00 00 2F 8D 01 45 31 B2 50 AB 31 |..419../..E1.P.1|
00002700: 00 09 2F 8E 01 50 32 B2 50 00 11 2F 8F 01 58 B2 |../..P2.P../..X.|
00002710: 31 00 1A 2F 90 01 8D 34 31 39 00 25 2F 91 01 45 |1../...419.%/..E|
00002720: 32 B2 50 AB 31 00 3A 2F 92 01 99 44 4E 24 22 53 |2.P.1.:/...DN$"S|
00002730: 41 56 49 4E 47 20 22 3B 53 24 00 4B 2F 93 01 98 |AVING ";S$.K/...|
00002740: 31 35 2C 22 53 30 3A 22 AA 53 24 00 65 2F 94 01 |15,"S0:".S$.e/..|
00002750: 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 53 24 AA 22 |.2,8,2,"0:".S$."|
00002760: 2C 50 2C 57 22 00 6E 2F 95 01 8D 34 33 39 00 80 |,P,W".n/...439..|
00002770: 2F 96 01 98 32 2C C7 28 31 29 3B C7 28 38 29 3B |/...2,.(1);.(8);|
00002780: 00 AB 2F 97 01 8B 41 28 50 32 29 B2 41 28 50 31 |../...A(P2).A(P1|
00002790: 29 A7 5A B2 50 31 3A 50 31 B2 50 31 AA 31 3A 50 |).Z.P1:P1.P1.1:P|
000027A0: 32 B2 50 32 AA 31 3A 89 34 31 30 00 CF 2F 98 01 |2.P2.1:.410../..|
000027B0: 8B 41 28 50 32 29 B3 41 28 50 31 29 A7 20 5A B2 |.A(P2).A(P1). Z.|
000027C0: 50 32 3A 50 32 B2 50 32 AA 31 3A 89 34 31 30 00 |P2:P2.P2.1:.410.|
000027D0: ED 2F 99 01 8B 41 28 50 32 29 B1 41 28 50 31 29 |./...A(P2).A(P1)|
000027E0: A7 5A B2 50 31 3A 50 31 B2 50 31 AA 31 00 02 30 |.Z.P1:P1.P1.1..0|
000027F0: 9A 01 4D 50 B2 4D 50 AA C3 28 41 24 28 5A 29 29 |..MP.MP..(A$(Z))|
00002800: AA 32 00 12 30 9B 01 58 B2 B5 28 4D 50 AD 32 35 |.2..0..X..(MP.25|
00002810: 36 29 00 21 30 9C 01 59 B2 4D 50 AB 32 35 36 AC |6).!0..Y.MP.256.|
00002820: 58 00 39 30 9D 01 98 32 2C C7 28 59 29 3B C7 28 |X.90...2,.(Y);.(|
00002830: 58 29 3B 41 24 28 5A 29 3B 00 4E 30 9E 01 8B 50 |X);A$(Z);.N0...P|
00002840: 31 B3 45 31 B0 50 32 B3 45 32 A7 34 30 37 00 60 |1.E1.P2.E2.407.`|
00002850: 30 9F 01 98 32 2C C7 28 30 29 3B C7 28 30 29 3B |0...2,.(0);.(0);|
00002860: 00 67 30 A0 01 A0 32 00 6F 30 A1 01 A0 31 35 00 |.g0...2.o0...15.|
00002870: 75 30 A2 01 80 00 8C 30 A3 01 99 44 4E 24 22 4C |u0.....0...DN$"L|
00002880: 4F 41 44 49 4E 47 22 4E 24 28 58 29 00 A9 30 A4 |OADING"N$(X)..0.|
00002890: 01 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 4E 24 28 |..2,8,2,"0:".N$(|
000028A0: 58 29 AA 22 2C 50 2C 52 22 00 B2 30 A5 01 8D 34 |X).",P,R"..0...4|
000028B0: 33 39 00 C0 30 A6 01 A1 23 32 2C 41 24 2C 42 24 |39..0...#2,A$,B$|
000028C0: 00 CE 30 A7 01 A1 23 32 2C 41 24 2C 42 24 00 F5 |..0...#2,A$,B$..|
000028D0: 30 A8 01 8B 41 24 B2 22 22 AF 42 24 B2 22 22 A7 |0...A$."".B$."".|
000028E0: 41 28 50 29 B2 36 35 30 30 30 3A 50 B2 50 AA 31 |A(P).65000:P.P.1|
000028F0: 3A A0 32 3A 8E 00 00 31 A9 01 A1 23 32 2C 41 24 |:.2:...1...#2,A$|
00002900: 00 13 31 AA 01 8B 41 24 B2 22 22 A7 41 24 B2 C7 |..1...A$."".A$..|
00002910: 28 30 29 00 1F 31 AB 01 58 B2 C6 28 41 24 29 00 |(0)..1..X..(A$).|
00002920: 2C 31 AC 01 41 24 28 50 29 B2 41 24 00 37 31 AD |,1..A$(P).A$.71.|
00002930: 01 A1 23 32 2C 41 24 00 4A 31 AE 01 8B 41 24 B2 |..#2,A$.J1...A$.|
00002940: 22 22 A7 41 24 B2 C7 28 30 29 00 5F 31 AF 01 41 |"".A$..(0)._1..A|
00002950: 28 50 29 B2 58 AA 32 35 36 AC C6 28 41 24 29 00 |(P).X.256..(A$).|
00002960: 72 31 B0 01 41 24 28 50 29 B2 41 24 28 50 29 AA |r1..A$(P).A$(P).|
00002970: 41 24 00 7D 31 B1 01 A1 23 32 2C 41 24 00 90 31 |A$.}1...#2,A$..1|
00002980: B2 01 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 29 |...A$."".A$..(0)|
00002990: 00 A3 31 B3 01 41 24 28 50 29 B2 41 24 28 50 29 |..1..A$(P).A$(P)|
000029A0: AA 41 24 00 B5 31 B4 01 8B 41 24 B3 B1 C7 28 30 |.A$..1...A$...(0|
000029B0: 29 A7 34 33 33 00 BF 31 B5 01 50 B2 50 AA 31 00 |).433..1..P.P.1.|
000029C0: C8 31 B6 01 89 34 32 33 00 DD 31 B7 01 84 31 35 |.1...423..1...15|
000029D0: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 E9 31 |,EN,EM$,ET,ES..1|
000029E0: B8 01 8B 45 4E B2 30 A7 8E 00 FB 31 B9 01 99 22 |...EN.0....1..."|
000029F0: 44 49 53 4B 20 45 52 52 4F 52 22 00 0D 32 BA 01 |DISK ERROR"..2..|
00002A00: 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 14 32 |.EN;EM$;ET;ES..2|
00002A10: BB 01 A0 32 00 1C 32 BC 01 A0 31 35 00 23 32 BD |...2..2...15.#2.|
00002A20: 01 89 38 00 00 00 |..8... |
..4...."........":.53280,9:.53281,9:.646
,7:.53272,21.V.....11)"..CCCCCCCCCCCCCCC
CCC..".X.....11)".BBEAR'S HANDY DANDYB."
.......11)".B B."......
.11)".B DISK MANIPULATOR B.".......11)".
.CCCCCCCCCCCCCCCCCC.."......B.0.2000:.B.
.....:."........":.53272,21:.53280,9:.53
281,9.8.....14)".PLEASE WAIT..".\.....9
)"READING DISK DIRECTORY...".I....P$(140
).X....1,8,0,"$"......#1,B$:.ST..0.24...
...B$..G(34).13.....P$."".L....#1,B$:.B$
..G(34).P$.P$.B$:.16......#1,B$:.B$.G(32
).17.....P$(X).P$:..18);X;".".....P$(X).
H(P$(X),16).)....#1,B$:.B$.."".20.<....P
$(X)." ".13.S....H(P$(X),1).".".13.G...
.ST.0.X.X.1:.13.N... 1...... DISPLAY ME
NU.....N.10.D...."..":.".. THIS DISK'S N
AME IS ";:.".. "P$(0);" ...".S....N.10.N
.10......N.100.N.100......J.(N.9).N:.J;P
$(J);".":.J.1....".....":.G.N.1.N.10:..2
0);G;P$(G);".":.G.A. ..".. .F1 .MANIPUL
ATOR .F7 .NEXT SCREEN"...!.." .F2 .M
ERGE PRGS. .F8 .PREVIOUS SCREEN".B.".
." .F3 .PURGE DISK . ^ .LOAD AND RU
N"...#.." .F4 .READ FILE . / .LOAD
ONLY"...$.." .F5 .PRINT FILE . * .
CHANGE DISK".C.%.." .F6 .PRINT DIR.
. _ .EXIT".[.&.Z$."":.Z$:.Z$."".38.O.'.
.Z$."*"..71:.27...(..Z$.".".N.N.20:.27..
.)..Z$.".".N.N.20:.27.C.*..Z$."_".."..ME
NU STILL PRESENT":..W.+..Z$."/"..52:.60.
..,..Z$."^"..52:.58...-..Z$."."..61:.27.
.....Z$."."..76. ./..Z$."."..215.1.0..Z$
."."..288.B.1..Z$."."..303.S.2..Z$."."..
385.[.3..38.Z.4..:..10)".ENTER PROGRAM #
";...5..S:.S.1.S.X.52. .6.."..........."
.G.7..C(P$(S)).12.P$(S).H(P$(S),12)."*".
..8.."LOAD".G(34).P$(S).G(34).",8,1...".
..9...0.:..631,13:.632,82:.633,85:.634,7
8:.635,13:.198,5:.834,20.6.;...K.<..631,
13:.198,1:..Y.=..3,4,6:.3.M.>..G(27);"@"
;G(4)...?..G(27);"S";G(0)...@..G(27);"1"
;G(5)...A..G(27)"E"...B..P$(0);G(27)"F".
F.C..I.1 . 144.V.D..G(1);P$(I)...E..P$(I
)."". .3: 3:.27...F.....G.. SWITCH DISK
ROUTINE.>.H..".";".. ..INSERT. NE
XT DISK .NOW ".U.I..".......... ..PRE
SS ANY KEY TO READ NEXT DISK"...J..A$:.A
$."".74...K..8...L..:."..":.G(142):.5328
1,15:.53280,12.T.M...12)".. MANIPULATOR
..."...N...10)"..F1. .CHANGE .DISK NAME.
":..10)"..F3. .CHANGE .DISK I.D..".[.O..
.10)"..F5. .CHANGE .FILE NAME.":..10)"..
F7.. FORMAT .DISK."...P...10)"..F8.. RET
URN TO DIRECTORY."...Q...10)".._.. QUIT.
....".A.R...7)"..PUSH KEY FOR OPERATION.
".S.S..U$:.U$."".83...T..U$.."_".U$.."."
.U$..".".U$..".".U$..".".U$..".".83...U.
.U$."."..152.,.V..U$."."..91.=.W..U$."."
..277.N.X..U$."."..264.].Y..U$."."..8.K.
Z..U$."_"...Y.[..:."...."...\..9,0,0:.15
,8,15...]..53280,12:.53281,15.G.^.MD$.".
":.I.1.32:MD$.MD$.".":...._..I.1.39:BL$.
BL$." ":....`.P0$."........... DISK I D
# CHANGER .".*.A.RE$.".....PRESS .RETURN
.".G.B..2,OUT OF RANGE,TOO LONG.G.C..A:.
EM$(A):.I.1.A:.EM$(I):..P.D..113...E..15
,ER:.ER.0.....F..15,ER,EM$,ET$,ES$.I.G..
MD$".DISK ERROR!. #"ER" "EM$" "ET$", "ES
$.O.H.....I..9,Q$:.:Q1$.H(Q$,1):....J. 9
: 15:.59468,PK:.".":."......END":.76.+.K
..H(MD$,MD)BL$:.BL$.=.L..H(MD$,MD);:..L.
M.MD.21:.107.R.N..".UNACCEPTABLE ENTRY -
- "EM$(EM)...O..RE$:.105:.107...P.....Q.
F.0:.P0$...R.DV.0.L.S..P0$:."......PLACE
DISK IN DRIVE"DV".".Z.T..RE$:.105...U..
15,"I".D(DV):.101...V..2,8,2,"#":.15,"U1
:2";DV;",18,0":.101.;.W..15,"B-P:2,162":
.101:DN$."".[.X..I.1.16:.#2,A$:DN$.DN$.A
$:..O.Y.MD.10:.107:.F.....Z..".....THE D
ISK ID # IS"...{...5)G(34)DN$G(34)...|.M
D.13...}.MD.16.L.~..".......ENTER ";...
.."NEW DISK ID #":.".....LIMIT TO 2 CHAR
ACTERS".+....105:.C(Q$).2.EM.2:.109:MD.1
8:.107:.128.@...NDN$.H(Q$.BL$,2).O...MD.
21:.107.N....".....SHALL I SEND ."NDN$.
....".....TO THE DISKETTE ON DRIVE"DV" (
Y/N) .";......E$:.E$."".133.C....E$."N".
106.L....138......Q1$.."N"..107:MD.18:.1
25......130.....MD.21:."......BE PATIENT
...".-....15,"B-P:2,162":.101.?....2,NDN
$;:.101.^....15,"U2:2";DV;",18,0":.101.X
....15,"I".D(DV):.101: 2.....F.1:.P0$:.1
17:F.0......"THE NEW DISK NAME IS:......
G(34)DN$G(34)..... 2:MD.21:.107:."DO YOU
WISH TO DO......"ANOTHER DISKETTE? (Y/N
) ."......U$:.U$."".148.'....U$."Y".115.
7....U$."N".106.C....148:.8.P....:."..."
.X....9,0,0:.15,8,15:.53280,12:.53281,15
......59468,12.....MD$.".":.I.1.20:MD$.M
D$.".":..B....I.1.39:BL$.BL$." ":......P
0$.".............. DISK NAME CHANGER..".
....RE$."......PRESS .RETURN../....
2,OUT OF RANGE,TOO LONG.O. ..A:.EM$(A):.
I.1.A:.EM$(I):..X....174.K....15,ER:.ER.
0........15,ER,EM$,ET$,ES$......MD$".DIS
K ERROR!. #"ER" "EM$" "ET$", "ES$.......
Q....9,Q$:.:Q1$.H(Q$,1):...... 9: 15:.59
468,PK:.".":.76......H(MD$,MD)BL$:.BL$..
....H(MD$,MD);:..'...MD.21:.168.M....".U
NACCEPTABLE ENTRY -- "EM$(EM).`....RE$:.
166:.168.F.....S...F.0:.P0$......"......
..ON WHICH DRIVE FOR CHANGES ?..":..17)"
.0. OR .1.";Q$.I....Q$:.Q$."".176.V...DV
.E(Q$)......DV.0.Q1$.."0".EM.1......P0$:
."......PLACE DISK IN DRIVE"DV".".'....R
E$:.166.>....15,"I".D(DV):.162.H....2,8,
2,"#":.15,"U1:2";DV;",18,0":.162......15
,"B-P:2,144":.162:DN$.""......I.1.16:.#2
,A$:DN$.DN$.A$:......MD.10:.168:.F......
..".....THE PRESENT DISK NAME IS"......"
......."G(34)DN$G(34)".".....MD.13.<....
".....DO YOU WISH TO CHANGE IT? (Y/N)";:
.166.M....Q1$."N".209.W...MD.16......"..
...ENTER NEW DISK NAME":.".....LIMIT TO
16 CHARACTERS .".E.A..166:.C(Q$).16.EM.2
:.170:MD.18:.168:.193...B.NDN$.H(Q$.BL$,
16)...C.MD.21:.168...D..".....SHALL I SE
ND ."NDN$.>.E.."..TO THE DISKETTE ON DRI
VE"DV"? (Y/N) .";:.166.G.F..201.E.G..Q1$
.."N"..168:MD.18:.191.N.H..195...I.MD.21
:..10)"BE PATIENT......J..15,"B-P:2,144"
:.162...K..2,NDN$;:.162.V.L..15,"U2:2";D
V;",18,0":.162...M..15,"I".D(DV):.162: 2
...N.F.1:.P0$:.181:F.0.'.O..".....THE NE
W DISK NAME IS:.?.P...5)""G(34)DN$G(34).
Q.Q. 2:MD.21:.168.Z.R...10)"ANOTHER DISK
.Y. OR .N. ?";TF$...S..TF$:.TF$."".TF$.
."Y".TF$.."N".211...T..TF$."Y".179.C.U..
TF$."N".167.L.V..179...W..G(14):.G(8):.5
3280,6:.53281,6:.646,1.0.X.."..........
INSERT PROPER DISK THEN PRESS SPACE ..."
.C.Y..X$:.X$."".217.J.Z...8)"..
."......T$(100),FT$(100)
......1,8,0,"$0"......#1,A$,B$......#1,A
$,B$......#1,A$,B$.B...C.0.Y.... A$..""
. C.F(A$)...... B$.."" . C.C.F(B$).256..
.....8)".."J(D(C),2);.12);".";......#1,B
$:. ST..0 .237.D.... B$..G(34) . 228.W..
..#1,B$:. B$..G(34). .B$;:T$(NC).T$(NC).
B$:.230......#1,B$:. B$.G(32) .231......
.30);:C$."".E...C$.C$.B$:.#1,B$:. B$.."
".233.......12)".."H(C$,3):FT$(NC).H(C$,
3).....NC.NC.1.. ... ST.0 .222.( ..."..
BLOCKS FREE ..".7 .. 1:.XF.1...
T ....13)".. PRESS SPACE .".` ..NC.NC.1
.S ...X$:.X$."".241.. ..."........":..10
)".. PURGE UTILITY 1.1 ...".R ...".....P
RESS .Y. TO SCRATCH THE INDICATED"..!...
"..... FILE, AND .N. TO LEAVE THE FILE..
."..!....14)".PRESS SPACE..".0!...X$:.X
$."".246.9!...".".F!...ML.1.NC.T!...T$(M
L);.20)"."FT$(ML)".";.24)"SCRATCH?";..!.
..X$:.X$."Y"..257..!...X$."".250..!...".
.......LEFT "..!...ML.G!..XF.1:NC.0.
P!...260.W!...8..!..DC$."S:".T$(ML).."..
.15,8,15,DC$: 15.."...".ED":.253.#"...".
..........".D"....10)".VALIDATING DIRECT
ORY".Y"...15,8,15,"V": 15.`"...8.K"...:.
".".."...53281,15:.53280,12.."....13)"..
FORMAT DISK ...".."....9)".INSERT THE
DISK TO BE":..9)"FORMATTED IN DRIVE #0".
."...".. DISK NAME ";DISK$..#..."..
DISK ID ";EXT$.<#..."... .ARE YO
U SURE. ";U$.L#...U$."Y".273.[#...U$."N"
.76.Z#..MACRO$."N:".DISK$.",".EXT$..#...
15,8,15,MACRO$. #.. 15:MACRO$.""..#...76
.J#...:."....":.53281,15:.53280,12..#...
.11)".. CHANGE FILE NAME ....."..$..."..
...OLD FILE NAME ";DISK$.1$...".......NE
W FILE NAME ";NW$.S$...".........ARE YOU
SURE. ";U$.C$...U$."Y".284.S$...U$."N".
.76..$..MACRO$."R:".NW$."=".DISK$..$...1
5,8,15,MACRO$..$.. 15:MACRO$.""..$...76.
.$ .."...":.53280,2:.53281,10:.53272,21.
.%!...8)". SEQUENTIAL FILE READER ...".)
%"..".......FILE NAME";F$.E%#..".......R
EAD SPEED";R$.W%$..:..7) ".S.LOW.":..7)"
.M.EDIUM.":..7)".F.AST"..%%..R$."S".B.50
0..%&..R$."M".B.50..%'..R$."F".B.5.O%(..
R$:.R$.."S".R$.."M".R$.."F".296..%).."."
:.53272,23..%*..8,8,8,"".F$.",S,R"..&+..
#8,A$:.A$;..&,..X.0.B:..%&-..ST.0.299./&
.. 8:.8.M&/..53280,0:.53281,12:.646,1.Y&
0..".......... SEQUENTIAL FILE PRINTER .
"..&1.."...........INSERT DATA DISK IN D
RIVE #0".S&2.."......AND PRESS ANY KEY W
HEN READY."..&3..198,0:.198,1:.X$..'4.."
.........NAME OF:":."......FILE TO PRINT
";TF$.5'5.TF$."0:".TF$.",S,R".['6.ML.66:
TM.3:BM.64:MC.80:LM.5:RM.75..'7.."......
..... FORMAT PRINTER OUTPUT ."..'8.."...
.....PRESS <RETURN> FOR DEFAULTS"..'9.."
....LINES PER PAGE (";:X$.D(ML):X$.I(X$,
C(X$).1)..(:..X$;:. ")";X:.X..0.ML.X..(;
.."..TOP MARGIN (";.9(<.X$.D(TM):X$.I(X$
,C(X$).1).J(=..X$;:. ")";X.Y(>..X..0.TM.
X.S(?.."..BOTTOM MARGIN (";..(@.X$.D(BM)
:X$.I(X$,C(X$).1)..(A..X$;:. ")";X..(B..
X..0.BM.X.Q(C.."..CHARACTERS PER LINE ("
;..(D.X$.D(MC):X$.I(X$,C(X$).1)..(E..X$;
:.")";X..)F..X..0.MC.X.&)G.."..LEFT MARG
IN (";.D)H.X$.D(LM):X$.I(X$,C(X$).1).T)I
..X$;:.")";X.C)J..X..0.LM.X.|)K.."..RIGH
T MARGIN (";..)L.X$.D(RM):X$.I(X$,C(X$).
1)..)M..X$;:.")";X..)N..X..0.RM.X.T)O.X.
MC.LM:Y.MC.RM:PL.X.Y..)P..".............
.TITLE (MAX=";..*Q.X$.D(PL.18):X$.I(X$,C
(X$).1).%*R..53272,23.7*S..X$;:.")";TL$.
E*T..53272,21.G*U..".......DATA (MM/DD/Y
Y)";DT$..*V.H1$."":.X.1.PL:H1$.H1$."=":.
X. *W.X.(PL.18.C(TL$)).2.G*X.X%.X:SP$.""
:.Y.1.X%:SP$.SP$." ":.Y..*Y.H2$.DT$." ".
SP$.TL$..*Z..X%..X.SP$.SP$." "..+[.H2$.H
2$.SP$." PAGE"..+\.H3$.H1$.'+]..".....".
J+^...7)"ALIGN PAPER AT TOP LINE".N+_..
.7)".PRESS ANY KEY WHEN READY"..+`..198,
0:.198,1:. X$..+A..8,8,8,TF$..+B..4,4,7.
.+C.PC.0:LC.0..+D.TX$."".A+E.CC.0.L+F..#
8,X$..+G..ST..0.370..+H.TX$.TX$.X$..+I..
X$.G(13).364..,J.CC.CC.1:.CC.PL.364..,K.
.358 .D,L..LC.BM..X.1.ML.BM.1:.4," ":.X:
LC.0.S,M..LC.0..373.J,N..X.1.LM:.4," ";:
.X.V,O..4,TX$;..,P.LC.LC.1..,Q..356..,R.
8..,S..4: 4..,T..8.C,U..X.1.ML.BM.1:.4,
" ":.X:LC.X.Z,V..X.1.LM:.4," ";:.X..,W..
4,H1$..,X.PC.PC.1:PC$.D(PC)..-Y..PC.10.P
C$." ".PC$:.379.5-Z..PC.100.PC$." ".PC$
:.379.L-{..X.1.LM:.4," ";:.X.[-|..4,H2$;
PC$.R-}..X.1.LM:.4," ";:.X.}-~..4,H3$..-
..4," ":LC.LC.4..-.....-...A(500),A$(50
0),N$(1)..-..MP.2049.V-..DN$.G( 17):CL$.
G(147)..-...53280,6:.53281,14:.646,1.!..
.."..":..9)". MERGE BASIC PROGRAMS .."DN
$.W....". NAME OF:":.". ORIGINAL
PROGRAM";N$(0)......".. NAME OF:":.
". PROGRAM TO MERGE";N$(1).....S$.N$
(0).S....DN$;:.". NAME OF:":.".
PROGRAM TO SAVE";S$......15,8,15,"I"....
.X.0......419../..E1.P.1../..P2.P../..X.
1../...419.%/..E2.P.1.:/...DN$"SAVING ";
S$.K/...15,"S0:".S$.E/...2,8,2,"0:".S$."
,P,W".N/...439../...2,G(1);G(8);../...A(
P2).A(P1).Z.P1:P1.P1.1:P2.P2.1:.410.O/..
.A(P2).A(P1). Z.P2:P2.P2.1:.410../...A(P
2).A(P1).Z.P1:P1.P1.1..0..MP.MP.C(A$(Z))
.2..0..X..(MP.256).!0..Y.MP.256.X.90...2
,G(Y);G(X);A$(Z);.N0...P1.E1.P2.E2.407.`
0...2,G(0);G(0);.G0 . 2.O0.. 15.U0.....0
...DN$"LOADING"N$(X)..0...2,8,2,"0:".N$(
X).",P,R"..0...439..0...#2,A$,B$.N0...#2
,A$,B$..0...A$."".B$."".A(P).65000:P.P.1
: 2:...1...#2,A$..1...A$."".A$.G(0)..1..
X.F(A$).,1..A$(P).A$.71...#2,A$.J1...A$.
"".A$.G(0)._1..A(P).X.256.F(A$).R1..A$(P
).A$(P).A$.}1...#2,A$..1...A$."".A$.G(0)
..1..A$(P).A$(P).A$..1...A$..G(0).433..1
..P.P.1.H1...423..1...15,EN,EM$,ET,ES..1
...EN.0....1..."DISK ERROR"..2...EN;EM$;
ET;ES..2.. 2..2.. 15.#2...8...
> CLICK IMAGE PREVIEW FOR FULL MODAL