MENU
FILE INFORMATION
FILENAME(S): MENU
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:11:27
APPEARS ON: 2 disk(s)
FILE HASH
4f01f514e45de668256747d5f66dc9d35f7c06cb5bd23185f36aae05ae4c53e5
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VERZAMEL 22 5 | MENU | PRG | DuncanTwain | 20 | 7 | DOWNLOAD FILE |
| D S COMPWARE | MENU | PRG | DuncanTwain | 3 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 0A 00 8B C2 28 32 30 35 33 29 B3 B1 |..).....(2053)..|
00000010: 31 35 38 A7 97 34 35 2C C2 28 31 37 34 29 3A 97 |158..45,.(174):.|
00000020: 34 36 2C C2 28 31 37 35 29 00 58 08 14 00 9C 3A |46,.(175).X....:|
00000030: 44 56 B2 38 3A 44 52 24 B2 22 30 3A 22 3A 44 44 |DV.8:DR$."0:":DD|
00000040: 24 B2 C8 28 44 52 24 2C 31 29 3A 9F 31 35 2C 44 |$..(DR$,1):.15,D|
00000050: 56 2C 31 35 2C 22 49 22 00 8B 08 19 00 53 5A 24 |V,15,"I".....SZ$|
00000060: B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
00000070: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 CA 08 1E 00 |..........".....|
00000090: 58 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |X$."............|
000000A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 59 24 B2 22 13 |.........":Y$.".|
000000B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000C0: 11 11 11 11 11 11 11 11 11 22 00 EC 08 28 00 53 |........."...(.S|
000000D0: 50 24 B2 22 20 22 3A 81 49 B2 31 A4 33 38 3A 53 |P$." ":.I.1.38:S|
000000E0: 50 24 B2 53 50 24 AA 22 20 22 3A 82 00 09 09 2D |P$.SP$." ":....-|
000000F0: 00 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
00000100: 2C 36 3A 97 36 34 36 2C 33 00 35 09 32 00 86 53 |,6:.646,3.5.2..S|
00000110: 4C 24 28 32 30 29 2C 50 52 24 28 32 30 29 2C 4E |L$(20),PR$(20),N|
00000120: 54 28 32 30 29 2C 45 4E 28 32 30 29 2C 54 24 28 |T(20),EN(20),T$(|
00000130: 32 30 2C 33 29 00 5B 09 3C 00 8B C2 28 31 30 31 |20,3).[.<...(101|
00000140: 39 29 B2 32 35 35 A7 97 36 34 36 2C C2 28 31 30 |9).255..646,.(10|
00000150: 31 38 29 3A 97 31 30 31 39 2C 30 00 96 09 46 00 |18):.1019,0...F.|
00000160: 86 46 49 24 28 32 30 2C 31 35 29 2C 4F 50 24 28 |.FI$(20,15),OP$(|
00000170: 32 30 2C 31 35 29 2C 52 45 24 28 32 30 2C 31 35 |20,15),RE$(20,15|
00000180: 29 2C 52 50 24 28 32 30 2C 31 35 29 2C 52 4E 28 |),RP$(20,15),RN(|
00000190: 32 30 2C 31 35 29 00 C3 09 50 00 44 4F 24 B2 22 |20,15)...P.DO$."|
000001A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 44 4F 24 B2 |..........":DO$.|
000001B0: 44 4F 24 AA 44 4F 24 3A 44 4F 24 B2 44 4F 24 AA |DO$.DO$:DO$.DO$.|
000001C0: 44 4F 24 00 D6 09 5A 00 4E 4D 24 B2 22 4D 45 4E |DO$...Z.NM$."MEN|
000001D0: 55 2F 53 43 52 22 00 F3 09 64 00 8D 20 31 37 33 |U/SCR"...d.. 173|
000001E0: 30 3A 8B 44 53 B1 30 A7 8D 20 31 35 35 30 3A 89 |0:.DS.0.. 1550:.|
000001F0: 20 39 30 00 27 0A 6E 00 99 22 93 11 11 11 11 11 | 90.'.n.."......|
00000200: 20 20 20 2A 2A 2A 2A 2A 2A 20 20 12 CC 4F 41 44 | ****** ..OAD|
00000210: 49 4E 47 20 CD 45 4E 55 20 C6 49 4C 45 92 20 20 |ING .ENU .ILE. |
00000220: 2A 2A 2A 2A 2A 2A 22 00 38 0A 78 00 99 C7 28 31 |******".8.x...(1|
00000230: 34 29 3B C7 28 38 29 3B 00 4F 0A 82 00 8F 20 52 |4);.(8);.O.... R|
00000240: 45 41 44 20 53 43 52 45 45 4E 20 46 49 4C 45 00 |EAD SCREEN FILE.|
00000250: 6B 0A 8C 00 9F 32 2C 44 56 2C 32 2C AA 44 52 24 |k....2,DV,2,.DR$|
00000260: AA 22 4D 45 4E 55 2F 53 43 52 22 00 77 0A 96 00 |."MENU/SCR".w...|
00000270: 81 4A B2 30 A4 32 30 00 85 0A A0 00 84 32 2C 53 |.J.0.20......2,S|
00000280: 4C 24 28 4A 29 00 92 0A AA 00 84 32 2C 4E 54 28 |L$(J)......2,NT(|
00000290: 4A 29 00 CA 0A B4 00 8B 4E 54 28 4A 29 B1 30 A7 |J)......NT(J).0.|
000002A0: 81 49 B2 31 A4 4E 54 28 4A 29 3A 84 32 2C 54 24 |.I.1.NT(J):.2,T$|
000002B0: 28 4A 2C 49 29 3A 82 49 3A 8F 20 47 45 54 20 54 |(J,I):.I:. GET T|
000002C0: 49 54 4C 45 20 4C 49 4E 45 53 00 D8 0A BE 00 84 |ITLE LINES......|
000002D0: 32 2C 50 52 24 28 4A 29 00 F4 0A C8 00 84 32 2C |2,PR$(J)......2,|
000002E0: 45 4E 28 4A 29 3A 8B 45 4E 28 4A 29 B3 B2 30 A7 |EN(J):.EN(J)..0.|
000002F0: 20 32 39 30 00 05 0B D2 00 81 49 B2 30 A4 45 4E | 290......I.0.EN|
00000300: 28 4A 29 AB 31 00 15 0B DC 00 84 32 2C 46 49 24 |(J).1......2,FI$|
00000310: 28 4A 2C 49 29 00 20 0B E6 00 84 32 2C 4F 50 24 |(J,I). ....2,OP$|
00000320: 00 30 0B F0 00 84 32 2C 52 45 24 28 4A 2C 49 29 |.0....2,RE$(J,I)|
00000330: 00 40 0B FA 00 84 32 2C 52 50 24 28 4A 2C 49 29 |.@....2,RP$(J,I)|
00000340: 00 4F 0B 04 01 84 32 2C 52 4E 28 4A 2C 49 29 00 |.O....2,RN(J,I).|
00000350: 82 0B 0E 01 4F 50 24 28 4A 2C 49 29 B2 4F 50 24 |....OP$(J,I).OP$|
00000360: AA 22 20 22 AA C8 28 44 4F 24 2C 32 31 AB C3 28 |." "..(DO$,21..(|
00000370: 4F 50 24 29 29 AA 22 20 22 AA 52 45 24 28 4A 2C |OP$))." ".RE$(J,|
00000380: 49 29 00 89 0B 18 01 82 49 00 90 0B 22 01 82 4A |I)......I..."..J|
00000390: 00 97 0B 2C 01 A0 32 00 AE 0B 36 01 96 A5 43 28 |...,..2...6...C(|
000003A0: 43 29 B2 B5 28 28 34 30 AB 43 29 AD 32 29 00 BB |C)..((40.C).2)..|
000003B0: 0B 40 01 51 24 B2 C7 28 33 34 29 00 D7 0B 4A 01 |.@.Q$..(34)...J.|
000003C0: 43 56 B2 C2 28 36 37 35 29 3A 8B 20 43 56 B1 32 |CV..(675):. CV.2|
000003D0: 30 A7 20 43 56 B2 30 00 ED 0B 54 01 99 22 93 22 |0. CV.0...T.."."|
000003E0: 3B A3 33 34 29 3B 53 4C 24 28 43 56 29 00 FD 0B |;.34);SL$(CV)...|
000003F0: 5E 01 81 49 B2 31 A4 4E 54 28 43 56 29 00 14 0C |^..I.1.NT(CV)...|
00000400: 68 01 99 C8 28 59 24 2C 34 AB 4E 54 28 43 56 29 |h...(Y$,4.NT(CV)|
00000410: AA 49 29 3B 00 2C 0C 72 01 49 4E 24 B2 54 24 28 |.I);.,.r.IN$.T$(|
00000420: 43 56 2C 49 29 3A 8D 20 31 31 36 30 00 33 0C 7C |CV,I):. 1160.3.||
00000430: 01 82 49 00 46 0C 86 01 8B 45 4E 28 43 56 29 B2 |..I.F....EN(CV).|
00000440: 30 A7 20 34 37 30 00 55 0C 90 01 43 B2 45 4E 28 |0. 470.U...C.EN(|
00000450: 43 56 29 B3 37 00 63 0C 9A 01 99 C8 28 59 24 2C |CV).7.c.....(Y$,|
00000460: 36 29 3B 00 6C 0C A4 01 8B 43 A7 99 00 7E 0C AE |6);.l....C...~..|
00000470: 01 81 49 B2 30 A4 45 4E 28 43 56 29 AB 31 00 91 |..I.0.EN(CV).1..|
00000480: 0C B8 01 99 A3 38 29 3B 4F 50 24 28 43 56 2C 49 |.....8);OP$(CV,I|
00000490: 29 00 9A 0C C2 01 8B 43 A7 99 00 A1 0C CC 01 82 |)......C........|
000004A0: 49 00 C3 0C D6 01 8B 45 4E 28 43 56 29 B3 37 A7 |I......EN(CV).7.|
000004B0: 99 C8 28 59 24 2C 32 AC 45 4E 28 43 56 29 AA 31 |..(Y$,2.EN(CV).1|
000004C0: 30 29 3B 00 ED 0C E0 01 8B 45 4E 28 43 56 29 B1 |0);......EN(CV).|
000004D0: B2 37 AF 45 4E 28 43 56 29 B3 31 35 A7 99 C8 28 |.7.EN(CV).15...(|
000004E0: 59 24 2C 45 4E 28 43 56 29 AA 38 29 3B 00 07 0D |Y$,EN(CV).8);...|
000004F0: EA 01 8B 45 4E 28 43 56 29 B2 31 35 A7 99 C8 28 |...EN(CV).15...(|
00000500: 59 24 2C 32 32 29 3B 00 2B 0D F4 01 49 4E 24 B2 |Y$,22);.+...IN$.|
00000510: 50 52 24 28 43 56 29 AA 22 20 12 20 92 22 3A 8D |PR$(CV)." . .":.|
00000520: 20 31 31 36 30 3A 99 22 9D 22 3B 00 3B 0D FE 01 | 1160:.".";.;...|
00000530: 46 31 B2 31 3A 8D 20 31 37 37 30 00 58 0D 08 02 |F1.1:. 1770.X...|
00000540: 8F 20 56 45 52 49 46 59 20 49 46 20 4C 45 47 41 |. VERIFY IF LEGA|
00000550: 4C 20 4F 50 54 49 4F 4E 00 61 0D 12 02 46 B2 AB |L OPTION.a...F..|
00000560: 31 00 73 0D 1C 02 81 49 B2 30 A4 45 4E 28 43 56 |1.s....I.0.EN(CV|
00000570: 29 AB 31 00 89 0D 26 02 8B 52 45 24 28 43 56 2C |).1...&..RE$(CV,|
00000580: 49 29 B2 41 24 A7 46 B2 49 00 90 0D 30 02 82 49 |I).A$.F.I...0..I|
00000590: 00 A1 0D 3A 02 8B 46 B3 B1 AB 31 A7 89 20 36 30 |...:..F...1.. 60|
000005A0: 30 00 C0 0D 44 02 45 24 B2 22 C9 4C 4C 45 47 41 |0...D.E$.".LLEGA|
000005B0: 4C 20 CF 50 54 49 4F 4E 22 3A 8D 20 31 31 33 30 |L .PTION":. 1130|
000005C0: 00 E5 0D 4E 02 81 49 B2 31 A4 32 30 30 30 3A 82 |...N..I.1.2000:.|
000005D0: 3A 99 C8 28 59 24 2C 32 34 29 3B 53 50 24 3B 3A |:..(Y$,24);SP$;:|
000005E0: 89 20 34 37 30 00 09 0E 58 02 8F 20 3D 3D 20 47 |. 470...X.. == G|
000005F0: 4F 54 20 4F 50 54 49 4F 4E 2D 20 43 48 41 49 4E |OT OPTION- CHAIN|
00000600: 20 54 4F 20 49 54 20 3D 3D 00 3B 0E 62 02 8B 46 | TO IT ==.;.b..F|
00000610: 49 24 28 43 56 2C 46 29 B2 22 22 AF 52 4E 28 43 |I$(CV,F)."".RN(C|
00000620: 56 2C 46 29 B1 AB 31 A7 20 36 35 30 3A 8F 20 43 |V,F)..1. 650:. C|
00000630: 48 41 49 4E 20 4D 45 4E 55 27 53 00 78 0E 6C 02 |HAIN MENU'S.x.l.|
00000640: 8B 46 49 24 28 43 56 2C 46 29 B2 22 22 A7 91 28 |.FI$(CV,F).""..(|
00000650: AB 52 4E 28 43 56 2C 46 29 29 89 20 36 36 30 2C |.RN(CV,F)). 660,|
00000660: 20 36 38 30 2C 20 36 38 30 2C 20 37 30 30 2C 20 | 680, 680, 700, |
00000670: 38 31 30 2C 20 38 35 30 00 97 0E 71 02 8B 20 52 |810, 850...q.. R|
00000680: 4E 28 43 56 2C 46 29 B2 AB 37 20 A7 20 8D 34 30 |N(CV,F)..7 . .40|
00000690: 30 30 3A 89 33 34 30 00 A8 0E 76 02 50 24 B2 46 |00:.340...v.P$.F|
000006A0: 49 24 28 43 56 2C 46 29 00 B3 0E 80 02 89 20 31 |I$(CV,F)...... 1|
000006B0: 30 33 30 00 D0 0E 8A 02 8D 20 31 32 30 30 3A 43 |030...... 1200:C|
000006C0: 56 B2 52 4E 28 43 56 2C 46 29 3A 89 20 33 34 30 |V.RN(CV,F):. 340|
000006D0: 00 0D 0F 94 02 44 B2 30 3A 8D 20 31 32 34 30 3A |.....D.0:. 1240:|
000006E0: 89 20 33 34 30 3A 8F 20 43 4C 45 41 52 20 53 54 |. 340:. CLEAR ST|
000006F0: 41 43 4B 20 41 4E 44 20 52 45 54 55 52 4E 20 54 |ACK AND RETURN T|
00000700: 4F 20 4D 41 53 54 45 52 20 4D 45 4E 55 00 28 0F |O MASTER MENU.(.|
00000710: 9E 02 8F 20 3D 3D 20 47 4F 54 4F 20 4C 41 53 54 |... == GOTO LAST|
00000720: 20 4D 45 4E 55 20 3D 3D 00 51 0F A8 02 8B C2 28 | MENU ==.Q.....(|
00000730: 36 37 35 29 B2 30 A7 8D 20 31 32 34 30 3A 89 20 |675).0.. 1240:. |
00000740: 33 34 30 3A 8F 20 53 54 41 43 4B 20 45 4D 50 54 |340:. STACK EMPT|
00000750: 59 00 5C 0F B2 02 8D 20 31 32 32 30 00 65 0F B7 |Y.\.... 1220.e..|
00000760: 02 89 33 34 30 00 7C 0F BB 02 8F 20 3D 3D 20 46 |..340.|.... == F|
00000770: 4F 52 4D 41 54 20 52 54 4E 20 3D 3D 00 9C 0F BC |ORMAT RTN ==....|
00000780: 02 8D 20 31 34 31 30 3A 8F 20 44 49 53 50 4C 41 |.. 1410:. DISPLA|
00000790: 59 20 46 4F 52 4D 41 54 20 4D 53 47 00 B2 0F C6 |Y FORMAT MSG....|
000007A0: 02 A1 41 41 24 3A 8B 41 41 24 B2 22 22 A7 20 37 |..AA$:.AA$."". 7|
000007B0: 31 30 00 C5 0F D0 02 8B 41 41 24 B3 B1 22 43 22 |10......AA$.."C"|
000007C0: A7 20 33 34 30 00 F1 0F DA 02 8D 20 31 35 32 30 |. 340...... 1520|
000007D0: 3A 8D 20 31 37 37 30 3A 8B C3 28 43 48 24 29 B1 |:. 1770:..(CH$).|
000007E0: 31 36 B0 43 48 24 B2 C7 28 31 33 29 A7 20 37 33 |16.CH$..(13). 73|
000007F0: 30 00 0E 10 E4 02 8D 20 31 32 36 30 3A 8B 41 41 |0...... 1260:.AA|
00000800: 24 B2 C7 28 31 33 33 29 A7 89 20 33 34 30 00 38 |$..(133).. 340.8|
00000810: 10 EE 02 99 22 93 22 C8 28 59 24 2C 31 30 29 A3 |....".".(Y$,10).|
00000820: 31 30 29 22 CE 4F 57 20 C6 4F 52 4D 41 54 54 49 |10)".OW .ORMATTI|
00000830: 4E 47 20 C4 49 53 4B 22 00 6A 10 F8 02 44 50 24 |NG .ISK".j...DP$|
00000840: B2 43 48 24 3A 98 31 35 2C 22 4E 22 AA 44 52 24 |.CH$:.15,"N".DR$|
00000850: AA 44 50 24 AA 22 2C 30 30 22 3A 8D 20 31 37 34 |.DP$.",00":. 174|
00000860: 30 3A 41 24 B2 41 24 AA 42 24 00 92 10 02 03 99 |0:A$.A$.B$......|
00000870: C8 28 59 24 2C 31 32 29 A6 32 29 22 C6 4F 52 4D |.(Y$,12).2)".ORM|
00000880: 41 54 54 49 4E 47 20 D3 54 41 54 55 53 3A 20 22 |ATTING .TATUS: "|
00000890: 41 24 00 D3 10 0C 03 99 C8 28 59 24 2C 32 34 29 |A$.......(Y$,24)|
000008A0: 22 20 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 |" .RESS ........|
000008B0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A A1 41 | TO CONTINUE":.A|
000008C0: 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 20 |A$:.AA$...(13). |
000008D0: 37 39 30 00 ED 10 16 03 A1 41 41 24 3A 8B 41 41 |790......AA$:.AA|
000008E0: 24 B3 B1 C7 28 31 33 29 A7 20 37 39 30 00 F7 10 |$...(13). 790...|
000008F0: 20 03 89 20 33 34 30 00 07 11 2A 03 8D 20 31 32 | .. 340...*.. 12|
00000900: 34 30 3A 99 22 93 22 00 12 11 34 03 A0 32 3A A0 |40:."."...4..2:.|
00000910: 31 35 00 1D 11 3E 03 97 36 37 35 2C 30 00 23 11 |15...>..675,0.#.|
00000920: 48 03 80 00 3E 11 52 03 43 4F 24 B2 22 90 05 1C |H...>.R.CO$."...|
00000930: 9F 9C 1E 1F 9E 81 95 96 97 98 99 9A 9B 22 00 64 |.............".d|
00000940: 11 5C 03 99 22 93 22 A6 31 30 29 22 11 11 11 12 |.\..".".10)"....|
00000950: D3 45 54 20 C4 49 53 50 4C 41 59 20 C3 4F 4C 4F |.ET .ISPLAY .OLO|
00000960: 52 53 92 22 00 8C 11 66 03 99 53 5A 24 3A 99 3A |RS."...f..SZ$:.:|
00000970: 99 A3 38 29 22 5B 46 31 5D 20 53 45 54 53 20 53 |..8)"[F1] SETS S|
00000980: 43 52 45 45 4E 20 43 4F 4C 4F 52 22 00 AF 11 70 |CREEN COLOR"...p|
00000990: 03 99 3A 99 A3 38 29 22 5B 46 33 5D 20 53 45 54 |..:..8)"[F3] SET|
000009A0: 53 20 42 4F 52 44 45 52 20 43 4F 4C 4F 52 22 00 |S BORDER COLOR".|
000009B0: D0 11 7A 03 99 3A 99 A3 38 29 22 5B 46 35 5D 20 |..z..:..8)"[F5] |
000009C0: 53 45 54 53 20 54 45 58 54 20 43 4F 4C 4F 52 22 |SETS TEXT COLOR"|
000009D0: 00 FF 11 84 03 99 3A 99 A3 38 29 22 5B 46 37 5D |......:..8)"[F7]|
000009E0: 20 52 45 54 55 52 4E 53 20 59 4F 55 20 54 4F 20 | RETURNS YOU TO |
000009F0: 4D 45 4E 55 22 3A 99 22 11 11 11 22 53 5A 24 00 |MENU":."..."SZ$.|
00000A00: 15 12 8E 03 A1 41 41 24 3A 8B 41 41 24 B2 22 22 |.....AA$:.AA$.""|
00000A10: A7 20 39 31 30 00 2A 12 98 03 8B 41 41 24 B2 C7 |. 910.*....AA$..|
00000A20: 28 31 33 33 29 A7 20 39 37 30 00 3F 12 A2 03 8B |(133). 970.?....|
00000A30: 41 41 24 B2 C7 28 31 33 34 29 A7 20 39 39 30 00 |AA$..(134). 990.|
00000A40: 55 12 AC 03 8B 41 41 24 B2 C7 28 31 33 35 29 A7 |U....AA$..(135).|
00000A50: 20 31 30 31 30 00 6B 12 B6 03 8B 41 41 24 B2 C7 | 1010.k....AA$..|
00000A60: 28 31 33 36 29 A7 20 20 33 34 30 00 75 12 C0 03 |(136). 340.u...|
00000A70: 89 20 39 31 30 00 8D 12 CA 03 43 31 B2 43 31 AA |. 910.....C1.C1.|
00000A80: 31 3A 8B 43 31 B1 31 35 A7 43 31 B2 30 00 A1 12 |1:.C1.15.C1.0...|
00000A90: D4 03 97 35 33 32 38 31 2C 43 31 3A 89 20 38 36 |...53281,C1:. 86|
00000AA0: 30 00 B9 12 DE 03 43 32 B2 43 32 AA 31 3A 8B 43 |0.....C2.C2.1:.C|
00000AB0: 32 B1 31 35 A7 43 32 B2 30 00 CD 12 E8 03 97 35 |2.15.C2.0......5|
00000AC0: 33 32 38 30 2C 43 32 3A 89 20 38 36 30 00 E5 12 |3280,C2:. 860...|
00000AD0: F2 03 43 33 B2 43 33 AA 31 3A 8B 43 33 B1 31 37 |..C3.C3.1:.C3.17|
00000AE0: A7 43 33 B2 31 00 FC 12 FC 03 99 CA 28 43 4F 24 |.C3.1.......(CO$|
00000AF0: 2C 43 33 2C 31 29 3A 89 20 38 36 30 00 02 13 06 |,C3,1):. 860....|
00000B00: 04 8F 00 22 13 10 04 8F 20 20 20 20 20 20 20 43 |...".... C|
00000B10: 48 41 49 4E 20 54 4F 20 50 52 4F 47 52 41 4D 20 |HAIN TO PROGRAM |
00000B20: 50 24 00 28 13 1A 04 8F 00 38 13 24 04 8B 50 24 |P$.(.....8.$..P$|
00000B30: B2 22 22 A7 20 33 34 30 00 5E 13 2E 04 4E 4D 24 |."". 340.^...NM$|
00000B40: B2 50 24 3A 8D 20 31 37 33 30 3A 8B 44 53 B1 30 |.P$:. 1730:.DS.0|
00000B50: A7 8D 20 31 36 35 30 3A 89 20 31 30 37 30 00 9A |.. 1650:. 1070..|
00000B60: 13 38 04 99 22 93 11 11 11 11 11 22 A3 B5 28 39 |.8.."......"..(9|
00000B70: AB C3 28 50 24 29 AD 32 29 29 22 2A 2A 20 12 CC |..(P$).2))"** ..|
00000B80: 4F 41 44 49 4E 47 20 22 3B 50 24 3B 22 20 D0 52 |OADING ";P$;" .R|
00000B90: 4F 47 52 41 4D 92 20 2A 2A 22 00 C1 13 42 04 97 |OGRAM. **"...B..|
00000BA0: 31 30 31 39 2C 30 3A 8B 50 24 B2 22 4D 45 4E 55 |1019,0:.P$."MENU|
00000BB0: 57 52 49 54 45 52 22 A7 97 31 30 31 39 2C 32 35 |WRITER"..1019,25|
00000BC0: 35 00 D2 13 4A 04 8B 44 56 B2 39 A7 44 52 24 B2 |5...J..DV.9.DR$.|
00000BD0: 22 22 00 E9 13 4C 04 8D 20 31 32 32 30 3A 93 20 |""...L.. 1220:. |
00000BE0: 44 52 24 AA 50 24 2C 44 56 00 EF 13 56 04 80 00 |DR$.P$,DV...V...|
00000BF0: F9 13 60 04 89 20 33 34 30 00 0C 14 6A 04 99 C8 |..`.. 340...j...|
00000C00: 28 59 24 2C 32 33 29 3B 53 50 24 3B 00 26 14 74 |(Y$,23);SP$;.&.t|
00000C10: 04 99 C8 28 59 24 2C 32 33 29 3A 99 22 12 22 3B |...(Y$,23):.".";|
00000C20: 45 24 3B 22 92 22 00 2C 14 7E 04 8E 00 40 14 88 |E$;".".,.~...@..|
00000C30: 04 8B 49 4E 24 B2 22 22 A7 99 45 53 24 3B 3A 8E |..IN$.""..ES$;:.|
00000C40: 00 57 14 92 04 99 A3 B5 28 32 30 AB C3 28 49 4E |.W......(20..(IN|
00000C50: 24 29 AD 32 29 29 3B 00 70 14 9C 04 8B C6 28 49 |$).2));.p.....(I|
00000C60: 4E 24 29 B2 C6 28 22 12 22 29 A7 99 22 20 22 3B |N$)..(".").." ";|
00000C70: 00 7C 14 A6 04 99 49 4E 24 3B 3A 8E 00 88 14 B0 |.|....IN$;:.....|
00000C80: 04 97 36 37 35 2C 43 56 00 8E 14 BA 04 8E 00 B7 |..675,CV........|
00000C90: 14 C4 04 97 36 37 34 2C 43 56 3A 43 56 B2 C2 28 |....674,CV:CV..(|
00000CA0: 36 37 35 29 3A 97 36 37 35 2C C2 28 36 37 34 29 |675):.675,.(674)|
00000CB0: 3A 97 36 37 34 2C 30 00 BD 14 CE 04 8E 00 CE 14 |:.674,0.........|
00000CC0: D8 04 97 36 37 35 2C 43 56 3A 43 56 B2 30 00 D4 |...675,CV:CV.0..|
00000CD0: 14 E2 04 8E 00 E6 14 EC 04 4E 4D 24 B2 22 4E 45 |.........NM$."NE|
00000CE0: 57 4D 45 4E 55 22 00 FD 14 F6 04 8D 20 31 37 33 |WMENU"...... 173|
00000CF0: 30 3A 8B 44 53 B1 30 A7 20 31 33 37 30 00 2E 15 |0:.DS.0. 1370...|
00000D00: 00 05 99 22 93 11 20 20 2A 20 12 C3 4F 44 45 D7 |...".. * ..ODE.|
00000D10: 52 49 54 45 52 20 D3 59 53 54 45 4D 20 C4 49 53 |RITER .YSTEM .IS|
00000D20: 4B 20 49 4E 20 44 52 49 56 45 92 20 2A 22 00 59 |K IN DRIVE. *".Y|
00000D30: 15 0A 05 99 22 11 11 11 20 20 20 20 20 C9 54 20 |...."... .T |
00000D40: 41 50 50 45 41 52 53 20 54 48 41 54 20 59 4F 55 |APPEARS THAT YOU|
00000D50: 20 48 41 56 45 20 41 20 22 00 88 15 14 05 99 22 | HAVE A "......"|
00000D60: 20 20 20 C3 4F 44 45 D7 52 49 54 45 52 20 D3 59 | .ODE.RITER .Y|
00000D70: 53 54 45 4D 20 C4 49 53 4B 20 49 4E 20 54 48 45 |STEM .ISK IN THE|
00000D80: 20 44 52 49 56 45 2E 22 00 B5 15 1E 05 99 22 20 | DRIVE."......" |
00000D90: 20 20 12 CD 41 4B 45 20 53 55 52 45 92 20 54 48 | ..AKE SURE. TH|
00000DA0: 45 20 50 52 4F 50 45 52 20 44 49 53 4B 20 54 4F |E PROPER DISK TO|
00000DB0: 20 42 45 20 22 00 DD 15 28 05 99 22 20 20 20 46 | BE "...(.." F|
00000DC0: 4F 52 4D 41 54 54 45 44 20 49 53 20 49 4E 20 44 |ORMATTED IS IN D|
00000DD0: 52 49 56 45 20 22 3B 44 44 24 22 2E 22 00 16 16 |RIVE ";DD$"."...|
00000DE0: 32 05 99 C8 28 59 24 2C 32 33 29 22 20 D0 52 45 |2...(Y$,23)" .RE|
00000DF0: 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 42 |SS ........ TO B|
00000E00: 45 47 49 4E A0 46 4F 52 4D 41 54 54 49 4E 47 2C |EGIN.FORMATTING,|
00000E10: 20 12 46 31 92 22 00 4D 16 3C 05 99 C8 28 59 24 | .F1.".M.<...(Y$|
00000E20: 2C 32 34 29 22 20 54 4F 20 45 58 49 54 20 54 4F |,24)" TO EXIT TO|
00000E30: 20 4D 45 4E 55 20 4F 52 20 12 46 33 92 20 46 4F | MENU OR .F3. FO|
00000E40: 52 20 44 49 52 45 43 54 4F 52 59 2E 22 00 6E 16 |R DIRECTORY.".n.|
00000E50: 46 05 A1 41 41 24 3A 8B 41 41 24 B2 C7 28 31 33 |F..AA$:.AA$..(13|
00000E60: 29 B0 41 41 24 B2 C7 28 31 33 33 29 A7 8E 00 8A |).AA$..(133)....|
00000E70: 16 4B 05 8B 41 41 24 B2 C7 28 31 33 34 29 A7 8D |.K..AA$..(134)..|
00000E80: 34 30 30 30 3A 89 31 32 38 30 00 95 16 50 05 89 |4000:.1280...P..|
00000E90: 20 31 33 35 30 00 BA 16 5A 05 4E 4D 24 B2 22 52 | 1350...Z.NM$."R|
00000EA0: 45 50 4F 52 54 22 3A 8D 20 31 37 33 30 3A 8B 44 |EPORT":. 1730:.D|
00000EB0: 53 B1 30 A7 89 20 31 33 39 30 00 C5 16 64 05 89 |S.0.. 1390...d..|
00000EC0: 20 31 32 38 30 00 E3 16 6E 05 4E 4D 24 B2 22 4D | 1280...n.NM$."M|
00000ED0: 45 4E 55 22 3A 8D 20 31 37 33 30 3A 8B 44 53 B1 |ENU":. 1730:.DS.|
00000EE0: 30 A7 8E 00 EE 16 78 05 89 20 31 32 38 30 00 F7 |0.....x.. 1280..|
00000EF0: 16 82 05 99 22 93 22 00 29 17 8C 05 99 C8 28 59 |....".".).....(Y|
00000F00: 24 2C 33 29 3B 22 20 20 20 D0 4C 41 43 45 20 54 |$,3);" .LACE T|
00000F10: 48 45 20 44 49 53 4B 20 54 4F 20 42 45 20 46 4F |HE DISK TO BE FO|
00000F20: 52 4D 41 54 54 45 44 20 22 00 43 17 96 05 99 22 |RMATTED ".C...."|
00000F30: 20 20 49 4E 20 44 52 49 56 45 20 22 3B 44 44 24 | IN DRIVE ";DD$|
00000F40: 22 2E 22 00 66 17 A0 05 99 53 5A 24 3A 99 A6 31 |".".f....SZ$:..1|
00000F50: 30 29 22 11 2A 2A 2A 20 C9 4D 50 4F 52 54 41 4E |0)".*** .MPORTAN|
00000F60: 54 20 2A 2A 2A 22 00 93 17 AA 05 99 22 11 11 20 |T ***"......".. |
00000F70: 20 20 C6 4F 52 4D 41 54 54 49 4E 47 20 57 49 4C | .ORMATTING WIL|
00000F80: 4C 20 44 45 53 54 52 4F 59 20 41 4C 4C 20 44 41 |L DESTROY ALL DA|
00000F90: 54 41 22 00 A9 17 B4 05 99 22 20 20 4F 4E 20 54 |TA"......" ON T|
00000FA0: 48 45 20 44 49 53 4B 21 22 00 D3 17 BE 05 99 22 |HE DISK!"......"|
00000FB0: 11 20 20 20 12 CD 41 4B 45 20 53 55 52 45 92 20 |. ..AKE SURE. |
00000FC0: 59 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 20 |YOU DO NOT HAVE |
00000FD0: 41 4E 22 00 FC 17 C8 05 99 22 20 20 49 4D 50 4F |AN"......" IMPO|
00000FE0: 52 54 41 4E 54 20 44 49 53 4B 20 49 4E 20 54 48 |RTANT DISK IN TH|
00000FF0: 45 20 44 52 49 56 45 20 21 21 21 22 00 2F 18 D2 |E DRIVE !!!"./..|
00001000: 05 99 22 11 11 20 20 C5 4E 54 45 52 20 27 43 27 |..".. .NTER 'C'|
00001010: 20 54 4F 20 42 45 47 49 4E 20 46 4F 52 4D 41 54 | TO BEGIN FORMAT|
00001020: 54 49 4E 47 2E 20 22 3A 99 22 11 22 53 5A 24 00 |TING. ":."."SZ$.|
00001030: 63 18 DC 05 99 C8 28 59 24 2C 32 34 29 22 D0 52 |c.....(Y$,24)".R|
00001040: 45 53 53 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 |ESS ANY OTHER KE|
00001050: 59 20 54 4F 20 45 58 49 54 20 54 4F 20 4D 45 4E |Y TO EXIT TO MEN|
00001060: 55 2E 22 00 69 18 E6 05 8E 00 93 18 F0 05 99 22 |U.".i.........."|
00001070: 93 11 11 20 20 20 20 D0 4C 45 41 53 45 20 45 4E |... .LEASE EN|
00001080: 54 45 52 20 41 20 4E 41 4D 45 20 46 4F 52 20 54 |TER A NAME FOR T|
00001090: 48 45 22 00 BA 18 FA 05 99 22 20 20 44 49 53 4B |HE"......" DISK|
000010A0: 20 28 31 2D 31 36 20 43 48 41 52 41 43 54 45 52 | (1-16 CHARACTER|
000010B0: 53 29 2E 20 12 20 92 9D 22 3B 00 C0 18 04 06 8E |S). . ..";......|
000010C0: 00 F7 18 0E 06 99 22 93 22 3B C8 28 59 24 2C 34 |......".";.(Y$,4|
000010D0: 29 3B 22 20 20 20 20 20 20 20 2A 2A 2A 20 12 CD |);" *** ..|
000010E0: 45 4E 55 20 C6 49 4C 45 20 CD 49 53 53 49 4E 47 |ENU .ILE .ISSING|
000010F0: 92 20 2A 2A 2A 20 22 00 2D 19 18 06 99 C8 28 59 |. *** ".-.....(Y|
00001100: 24 2C 31 30 29 3B 22 20 20 20 C9 54 20 41 50 50 |$,10);" .T APP|
00001110: 45 41 52 53 20 54 48 41 54 20 59 4F 55 52 20 4D |EARS THAT YOUR M|
00001120: 45 4E 55 20 46 49 4C 45 20 49 53 20 22 00 59 19 |ENU FILE IS ".Y.|
00001130: 22 06 99 22 20 20 4E 4F 54 20 4F 4E 20 54 48 49 |".." NOT ON THI|
00001140: 53 20 44 49 53 4B 2E 20 D0 4C 45 41 53 45 20 50 |S DISK. .LEASE P|
00001150: 4C 41 43 45 20 54 48 45 22 00 7F 19 2C 06 99 22 |LACE THE"...,.."|
00001160: 20 20 50 52 4F 50 45 52 20 44 49 53 4B 20 49 4E | PROPER DISK IN|
00001170: 20 44 52 49 56 45 20 22 44 44 24 3B 22 2E 22 00 | DRIVE "DD$;".".|
00001180: AA 19 36 06 99 C8 28 59 24 2C 32 33 29 22 20 D0 |..6...(Y$,23)" .|
00001190: 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F |RESS ........ TO|
000011A0: 20 43 4F 4E 54 49 4E 55 45 22 00 D6 19 40 06 99 | CONTINUE"...@..|
000011B0: 22 20 12 46 31 92 20 54 4F 20 45 58 49 54 20 4F |" .F1. TO EXIT O|
000011C0: 52 20 12 46 33 92 20 46 4F 52 20 44 49 52 45 43 |R .F3. FOR DIREC|
000011D0: 54 4F 52 59 2E 22 00 ED 19 4A 06 A1 41 41 24 3A |TORY."...J..AA$:|
000011E0: 8B 41 41 24 B2 22 22 A7 20 31 36 31 30 00 0A 1A |.AA$."". 1610...|
000011F0: 4F 06 8B 20 41 41 24 B2 C7 28 31 33 34 29 A7 8D |O.. AA$..(134)..|
00001200: 34 30 30 30 3A 89 31 35 35 30 00 1B 1A 54 06 8B |4000:.1550...T..|
00001210: 41 41 24 B2 C7 28 31 33 29 A7 8E 00 31 1A 5E 06 |AA$..(13)...1.^.|
00001220: 8B 41 41 24 B3 B1 C7 28 31 33 33 29 A7 31 36 31 |.AA$...(133).161|
00001230: 30 00 40 1A 68 06 99 22 93 22 3A A0 31 35 3A 80 |0.@.h..".":.15:.|
00001240: 00 7B 1A 72 06 99 22 93 11 11 11 11 11 22 A3 B5 |.{.r.."......"..|
00001250: 28 39 AB C3 28 50 24 29 AD 32 29 29 22 2A 2A 2A |(9..(P$).2))"***|
00001260: 20 12 22 3B 50 24 3B 22 20 C6 49 4C 45 20 CD 49 | .";P$;" .ILE .I|
00001270: 53 53 49 4E 47 92 20 2A 2A 2A 22 00 B1 1A 7C 06 |SSING. ***"...|.|
00001280: 99 22 11 11 11 11 20 20 20 20 D0 4C 45 41 53 45 |.".... .LEASE|
00001290: 20 50 4C 41 43 45 20 50 52 4F 50 45 52 20 44 49 | PLACE PROPER DI|
000012A0: 53 4B 20 49 4E 20 44 52 49 56 45 20 22 3B 44 44 |SK IN DRIVE ";DD|
000012B0: 24 00 E2 1A 86 06 99 C8 28 59 24 2C 32 34 29 22 |$.......(Y$,24)"|
000012C0: 20 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 | .RESS ........ |
000012D0: 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 12 46 31 |TO CONTINUE, .F1|
000012E0: 92 22 00 1A 1B 90 06 99 C8 28 59 24 2C 32 35 29 |.".......(Y$,25)|
000012F0: 22 20 54 4F 20 45 58 49 54 20 54 4F 20 4D 45 4E |" TO EXIT TO MEN|
00001300: 55 20 4F 52 20 12 46 33 92 20 46 4F 52 20 44 49 |U OR .F3. FOR DI|
00001310: 52 45 43 54 4F 52 59 2E 22 3B 00 32 1B 9A 06 A1 |RECTORY.";.2....|
00001320: 20 41 41 24 3A 8B 41 41 24 B2 22 22 A7 20 31 36 | AA$:.AA$."". 16|
00001330: 39 30 00 4F 1B 9F 06 8B 20 41 41 24 B2 C7 28 31 |90.O.... AA$..(1|
00001340: 33 34 29 A7 8D 34 30 30 30 3A 89 31 36 35 30 00 |34)..4000:.1650.|
00001350: 64 1B A4 06 8B 41 41 24 B2 C7 28 31 33 33 29 A7 |d....AA$..(133).|
00001360: 20 33 34 30 00 7A 1B AE 06 8B 41 41 24 B3 B1 C7 | 340.z....AA$...|
00001370: 28 31 33 29 A7 20 31 36 39 30 00 80 1B B8 06 8E |(13). 1690......|
00001380: 00 95 1B C2 06 9F 34 2C 44 56 2C 34 2C AA 44 52 |......4,DV,4,.DR|
00001390: 24 AA 4E 4D 24 00 B2 1B CC 06 84 31 35 2C 41 24 |$.NM$......15,A$|
000013A0: 2C 42 24 2C 43 24 2C 44 24 3A 44 53 B2 C5 28 41 |,B$,C$,D$:DS..(A|
000013B0: 24 29 00 B9 1B D6 06 A0 34 00 BF 1B E0 06 8E 00 |$)......4.......|
000013C0: CE 1B EA 06 43 48 24 B2 22 22 3A 5A B2 31 00 E3 |....CH$."":Z.1..|
000013D0: 1B F4 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 31 |....A$:.A$."". 1|
000013E0: 37 38 30 00 FD 1B FE 06 41 41 B2 C6 28 41 24 29 |780.....AA..(A$)|
000013F0: 3A 8B 41 41 B2 33 34 A7 20 31 37 38 30 00 0E 1C |:.AA.34. 1780...|
00001400: 08 07 8B 46 31 B3 B1 31 A7 20 31 38 33 30 00 25 |...F1..1. 1830.%|
00001410: 1C 12 07 46 31 B2 30 3A 8B 41 41 B2 32 30 A7 89 |...F1.0:.AA.20..|
00001420: 20 31 37 38 30 00 30 1C 1C 07 99 41 24 3B 3A 8E | 1780.0....A$;:.|
00001430: 00 49 1C 26 07 8B 41 41 B2 31 33 AF 43 48 24 B3 |.I.&..AA.13.CH$.|
00001440: B1 22 22 A7 20 31 39 32 30 00 61 1C 30 07 8B 41 |."". 1920.a.0..A|
00001450: 41 B2 31 33 AF 43 48 24 B2 22 22 A7 20 31 37 38 |A.13.CH$."". 178|
00001460: 30 00 9B 1C 3A 07 8B 28 41 41 B3 33 32 AF 41 41 |0...:..(AA.32.AA|
00001470: B3 B1 32 30 AF 41 41 B3 B1 31 33 29 B0 28 41 41 |..20.AA..13).(AA|
00001480: B1 31 32 38 AF 41 41 B3 31 39 32 29 B0 28 41 41 |.128.AA.192).(AA|
00001490: B1 32 31 38 29 A7 20 31 37 38 30 00 AD 1C 44 07 |.218). 1780...D.|
000014A0: 8B 41 41 B3 B1 32 30 A7 20 31 38 39 30 00 BC 1C |.AA..20. 1890...|
000014B0: 4E 07 8B 5A B2 31 A7 20 31 37 38 30 00 E6 1C 58 |N..Z.1. 1780...X|
000014C0: 07 8B 5A B1 31 A7 99 41 24 3B 3A 5A B2 5A AB 31 |..Z.1..A$;:Z.Z.1|
000014D0: 3A 43 48 24 B2 C8 28 43 48 24 2C 5A AB 31 29 3A |:CH$..(CH$,Z.1):|
000014E0: 89 20 31 37 38 30 00 F5 1C 62 07 43 48 24 B2 43 |. 1780...b.CH$.C|
000014F0: 48 24 AA 41 24 00 0A 1D 6C 07 8B C3 28 43 48 24 |H$.A$...l...(CH$|
00001500: 29 B1 31 36 A7 20 31 37 38 30 00 27 1D 76 07 99 |).16. 1780.'.v..|
00001510: 41 24 3B 22 12 20 92 9D 22 3B 3A 5A B2 5A AA 31 |A$;". ..";:Z.Z.1|
00001520: 3A 89 20 31 37 38 30 00 2D 1D 80 07 8E 00 41 1D |:. 1780.-.....A.|
00001530: A0 0F 54 42 B2 30 3A 42 4C B2 30 3A 54 24 B2 22 |..TB.0:BL.0:T$."|
00001540: 22 00 55 1D A2 0F 9F 31 2C 44 56 2C 30 2C 22 24 |".U....1,DV,0,"$|
00001550: 22 AA 44 44 24 00 6F 1D A5 0F A1 23 31 2C 41 24 |".DD$.o....#1,A$|
00001560: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 00 |,A$,A$,A$,A$,A$.|
00001570: 84 1D AA 0F 4C B2 31 39 3A 8D 34 32 30 30 3A 4E |....L.19:.4200:N|
00001580: 24 B2 42 24 00 98 1D AF 0F 4C B2 33 3A 8D 34 32 |$.B$.....L.3:.42|
00001590: 30 30 3A 49 24 B2 42 24 00 AD 1D B4 0F 4C B2 33 |00:I$.B$.....L.3|
000015A0: 3A 8D 34 32 30 30 3A 4F 53 24 B2 42 24 00 B7 1D |:.4200:OS$.B$...|
000015B0: B9 0F 8D 34 33 30 30 00 CC 1D BE 0F 81 49 B2 31 |...4300......I.1|
000015C0: A4 33 3A A1 23 31 2C 42 24 3A 82 49 00 E1 1D C3 |.3:.#1,B$:.I....|
000015D0: 0F 81 4A B2 31 A4 32 35 35 3A 43 54 B2 43 54 AA |..J.1.255:CT.CT.|
000015E0: 31 00 F2 1D C6 0F 8B 43 54 B1 31 35 A7 8D 34 34 |1......CT.15..44|
000015F0: 30 30 00 01 1E C8 0F 4C B2 32 38 3A 8D 34 35 30 |00.....L.28:.450|
00001600: 30 00 12 1E CA 0F 8B 20 53 54 B3 B1 30 A7 34 30 |0...... ST..0.40|
00001610: 39 30 00 2A 1E D7 0F 99 C8 28 42 24 AA 53 50 24 |90.*.....(B$.SP$|
00001620: 2C 31 38 29 2C 54 24 2C 42 4C 00 31 1E E1 0F 82 |,18),T$,BL.1....|
00001630: 4A 00 46 1E FA 0F 42 24 B2 22 42 4C 4F 43 4B 53 |J.F...B$."BLOCKS|
00001640: 46 52 45 45 2E 22 00 69 1E FC 0F 54 24 B2 C7 28 |FREE.".i...T$..(|
00001650: 30 29 3A 99 22 11 22 C8 28 42 24 AA 53 50 24 2C |0):.".".(B$.SP$,|
00001660: 31 38 29 2C 54 24 2C 42 4C 00 7E 1E 04 10 A0 31 |18),T$,BL.~....1|
00001670: 3A 43 54 B2 AB 31 3A 8D 34 34 30 30 3A 8E 00 88 |:CT..1:.4400:...|
00001680: 1E 68 10 42 24 B2 22 22 00 93 1E 6D 10 81 49 B2 |.h.B$.""...m..I.|
00001690: 31 A4 4C 00 9E 1E 72 10 A1 23 31 2C 41 24 00 AB |1.L...r..#1,A$..|
000016A0: 1E 77 10 42 24 B2 42 24 AA 41 24 00 B2 1E 9A 10 |.w.B$.B$.A$.....|
000016B0: 82 49 00 B8 1E A4 10 8E 00 D6 1E CB 10 8F 20 3D |.I............ =|
000016C0: 3D 20 50 52 49 4E 54 20 48 45 41 44 45 52 20 52 |= PRINT HEADER R|
000016D0: 54 4E 20 3D 3D 3D 00 F7 1E CC 10 99 C8 28 59 24 |TN ===.......(Y$|
000016E0: 2C 32 29 22 93 20 12 C4 49 53 4B 20 CE 41 4D 45 |,2)". ..ISK .AME|
000016F0: 3A 92 20 22 3B 4E 24 00 2E 1F D1 10 99 C8 28 59 |:. ";N$.......(Y|
00001700: 24 2C 33 29 22 20 12 C9 C4 3A 92 20 22 3B 49 24 |$,3)" ...:. ";I$|
00001710: 3B A6 35 29 3B 22 12 CF 50 45 52 41 54 49 4E 47 |;.5);"..PERATING|
00001720: 20 D3 59 53 54 45 4D 3A 92 20 22 4F 53 24 00 66 | .YSTEM:. "OS$.f|
00001730: 1F D6 10 99 C8 28 59 24 2C 35 29 22 20 12 C6 49 |.....(Y$,5)" ..I|
00001740: 4C 45 20 CE 41 4D 45 92 22 3B A6 31 30 29 3B 22 |LE .AME.";.10);"|
00001750: 12 D4 59 50 45 92 22 3B A6 37 29 3B 22 12 C2 4C |..YPE.";.7);"..L|
00001760: 4F 43 4B 53 92 22 00 71 1F DB 10 99 53 5A 24 3A |OCKS.".q....SZ$:|
00001770: 8E 00 9B 1F 30 11 99 C8 28 59 24 2C 32 34 29 22 |....0...(Y$,24)"|
00001780: D0 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 |.RESS RETURN TO |
00001790: 43 4F 4E 54 49 4E 55 45 2E 22 3B 00 B2 1F 35 11 |CONTINUE.";...5.|
000017A0: A1 20 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 34 34 |. IN$:.IN$."".44|
000017B0: 30 35 00 C7 1F 3A 11 8B 49 4E 24 B3 B1 C7 28 31 |05...:..IN$...(1|
000017C0: 33 29 A7 34 34 30 35 00 D4 1F 3F 11 8B 43 54 B2 |3).4405...?..CT.|
000017D0: AB 31 A7 8E 00 E5 1F 44 11 43 54 B2 30 3A 8D 34 |.1.....D.CT.0:.4|
000017E0: 33 30 30 3A 8E 00 FE 1F 94 11 42 24 B2 22 22 3A |300:......B$."":|
000017F0: 54 24 B2 22 22 3A 51 B2 30 3A 42 4C B2 30 00 33 |T$."":Q.0:BL.0.3|
00001800: 20 99 11 A1 23 31 2C 41 24 3A 42 4C B2 C6 28 41 | ...#1,A$:BL..(A|
00001810: 24 AA C7 28 30 29 29 3A A1 23 31 2C 41 24 3A 42 |$..(0)):.#1,A$:B|
00001820: 4C B2 42 4C AA 32 35 36 AC C6 28 41 24 AA C7 28 |L.BL.256..(A$..(|
00001830: 30 29 29 00 45 20 9C 11 81 49 B2 31 A4 4C 3A A1 |0)).E ...I.1.L:.|
00001840: 23 31 2C 41 24 00 59 20 9E 11 8B 41 24 B2 C7 28 |#1,A$.Y ...A$..(|
00001850: 33 34 29 A7 51 B2 51 AA 31 00 71 20 A3 11 8B 51 |34).Q.Q.1.q ...Q|
00001860: B2 31 A7 42 24 B2 42 24 AA 41 24 3A 89 34 35 39 |.1.B$.B$.A$:.459|
00001870: 30 00 8D 20 A8 11 8B 51 B2 32 A7 42 24 B2 42 24 |0.. ...Q.2.B$.B$|
00001880: AA 41 24 3A 51 B2 30 3A 89 34 35 39 30 00 AA 20 |.A$:Q.0:.4590.. |
00001890: AD 11 8B 41 24 B2 C7 28 33 32 29 B0 41 24 B2 C7 |...A$..(32).A$..|
000018A0: 28 31 36 30 29 A7 34 35 39 30 00 B7 20 B2 11 54 |(160).4590.. ..T|
000018B0: 24 B2 54 24 AA 41 24 00 BE 20 EE 11 82 49 00 CC |$.T$.A$.. ...I..|
000018C0: 20 F0 11 A1 23 31 2C 41 24 2C 41 24 00 D2 20 F3 | ...#1,A$,A$.. .|
000018D0: 11 8E 00 00 00 AD |...... |
..)....B(2053)..158..45,B(174):.46,B(175
).X....:DV.8:DR$."0:":DD$.H(DR$,1):.15,D
V,15,"I".....SZ$."......................
..................".J...X$."............
.........":Y$.".........................
."...(.SP$." ":.I.1.38:SP$.SP$." ":....-
..53281,0:.53280,6:.646,3.5.2..SL$(20),P
R$(20),NT(20),EN(20),T$(20,3).[.<..B(101
9).255..646,B(1018):.1019,0...F..FI$(20,
15),OP$(20,15),RE$(20,15),RP$(20,15),RN(
20,15).C.P.DO$."..........":DO$.DO$.DO$:
DO$.DO$.DO$.V.Z.NM$."MENU/SCR"...D.. 173
0:.DS.0.. 1550:. 90.'.N.."...... *****
* .LOADING MENU FILE. ******".8.X..G(1
4);G(8);.O.... READ SCREEN FILE.K....2,D
V,2,.DR$."MENU/SCR".W....J.0.20... ..2,S
L$(J)......2,NT(J).J....NT(J).0..I.1.NT(
J):.2,T$(J,I):.I:. GET TITLE LINES.X....
2,PR$(J)...H..2,EN(J):.EN(J)..0. 290...R
..I.0.EN(J).1......2,FI$(J,I). ....2,OP$
.0....2,RE$(J,I).@....2,RP$(J,I).O....2,
RN(J,I).....OP$(J,I).OP$." ".H(DO$,21.C(
OP$))." ".RE$(J,I)......I..."..J...,. 2.
..6...C(C)..((40.C).2)...@.Q$.G(34).W.J.
CV.B(675):. CV.20. CV.0...T..".";.34);SL
$(CV)...^..I.1.NT(CV)...H..H(Y$,4.NT(CV)
.I);.,.R.IN$.T$(CV,I):. 1160.3.|..I.F...
.EN(CV).0. 470.U...C.EN(CV).7.C....H(Y$,
6);.L....C...~....I.0.EN(CV).1.......8);
OP$(CV,I)...B..C.....L..I.C.V..EN(CV).7.
.H(Y$,2.EN(CV).10);......EN(CV)..7.EN(CV
).15..H(Y$,EN(CV).8);......EN(CV).15..H(
Y$,22);.+...IN$.PR$(CV)." . .":. 1160:."
.";.;...F1.1:. 1770.X.... VERIFY IF LEGA
L OPTION.A...F..1.S....I.0.EN(CV).1...&.
.RE$(CV,I).A$.F.I...0..I...:..F...1.. 60
0...D.E$."ILLEGAL OPTION":. 1130...N..I.
1.2000:.:.H(Y$,24);SP$;:. 470...X.. == G
OT OPTION- CHAIN TO IT ==.;.B..FI$(CV,F)
."".RN(CV,F)..1. 650:. CHAIN MENU'S.X.L.
.FI$(CV,F).""..(.RN(CV,F)). 660, 680, 68
0, 700, 810, 850...Q.. RN(CV,F)..7 . .40
00:.340...V.P$.FI$(CV,F)...... 1030.P...
. 1200:CV.RN(CV,F):. 340.....D.0:. 1240:
. 340:. CLEAR STACK AND RETURN TO MASTER
MENU.(.... == GOTO LAST MENU ==.Q....B(
675).0.. 1240:. 340:. STACK EMPTY.\....
1220.E....340.|.... == FORMAT RTN ==....
.. 1410:. DISPLAY FORMAT MSG...F..AA$:.A
A$."". 710.E.P..AA$.."C". 340...Z.. 1520
:. 1770:.C(CH$).16.CH$.G(13). 730......
1260:.AA$.G(133).. 340.8...."."H(Y$,10).
10)"NOW FORMATTING DISK".J...DP$.CH$:.15
,"N".DR$.DP$.",00":. 1740:A$.A$.B$......
H(Y$,12).2)"FORMATTING STATUS: "A$.S....
H(Y$,24)" PRESS .RETURN. TO CONTINUE":.A
A$:.AA$..G(13). 790......AA$:.AA$..G(13)
. 790... .. 340...*.. 1240:."."...4. 2:
15...>..675,0.#.H...>.R.CO$."...........
.....".D.\..".".10)"....SET DISPLAY COLO
RS."...F..SZ$:.:..8)"[F1] SETS SCREEN CO
LOR"...P..:..8)"[F3] SETS BORDER COLOR".
P.Z..:..8)"[F5] SETS TEXT COLOR"......:.
.8)"[F7] RETURNS YOU TO MENU":."..."SZ$.
.....AA$:.AA$."". 910.*....AA$.G(133). 9
70.?....AA$.G(134). 990.U....AA$.G(135).
1010.K....AA$.G(136). 340.U.... 910...
J.C1.C1.1:.C1.15.C1.0...T..53281,C1:. 86
0.....C2.C2.1:.C2.15.C2.0.M....53280,C2:
. 860.....C3.C3.1:.C3.17.C3.1......J(CO$
,C3,1):. 860.......".... CHAIN TO
PROGRAM P$.(.....8.$..P$."". 340.^...NM$
.P$:. 1730:.DS.0.. 1650:. 1070...8.."...
..."..(9.C(P$).2))"** .LOADING ";P$;" PR
OGRAM. **".A.B..1019,0:.P$."MENUWRITER".
.1019,255.R.J..DV.9.DR$.""...L.. 1220:.
DR$.P$,DV...V.....`.. 340...J..H(Y$,23);
SP$;.&.T..H(Y$,23):.".";E$;".".,.~...@..
..IN$.""..ES$;:..W......(20.C(IN$).2));.
P....F(IN$).F(".").." ";.|....IN$;:.....
..675,CV.........D..674,CV:CV.B(675):.67
5,B(674):.674,0...N...N.X..675,CV:CV.0.T
.........NM$."NEWMENU"...... 1730:.DS.0.
1370......".. * .CODEWRITER SYSTEM DIS
K IN DRIVE. *".Y...."... IT APPEARS
THAT YOU HAVE A "......" CODEWRITER SY
STEM DISK IN THE DRIVE."......" .MAKE
SURE. THE PROPER DISK TO BE "...(.." F
ORMATTED IS IN DRIVE ";DD$"."...2..H(Y$,
23)" PRESS .RETURN. TO BEGIN FORMATTING,
.F1.".M.<..H(Y$,24)" TO EXIT TO MENU OR
.F3. FOR DIRECTORY.".N.F..AA$:.AA$.G(13
).AA$.G(133).....K..AA$.G(134)..4000:.12
80...P.. 1350...Z.NM$."REPORT":. 1730:.D
S.0.. 1390.E.D.. 1280...N.NM$."MENU":. 1
730:.DS.0.....X.. 1280......".".)....H(Y
$,3);" PLACE THE DISK TO BE FORMATTED
".C...." IN DRIVE ";DD$".".F. ..SZ$:..1
0)".*** IMPORTANT ***"......".. FORMAT
TING WILL DESTROY ALL DATA"......" ON T
HE DISK!".S....". .MAKE SURE. YOU DO N
OT HAVE AN"...H.." IMPORTANT DISK IN TH
E DRIVE !!!"./.R..".. ENTER 'C' TO BEGI
N FORMATTING. ":."."SZ$.C....H(Y$,24)"PR
ESS ANY OTHER KEY TO EXIT TO MENU.".I...
......."... PLEASE ENTER A NAME FOR T
HE"......" DISK (1-16 CHARACTERS). . ..
";............".";H(Y$,4);" *** .M
ENU FILE MISSING. *** ".-....H(Y$,10);"
IT APPEARS THAT YOUR MENU FILE IS ".Y.
".." NOT ON THIS DISK. PLEASE PLACE THE
"..,.." PROPER DISK IN DRIVE "DD$;".".
..6..H(Y$,23)" PRESS .RETURN. TO CONTINU
E".V.@.." .F1. TO EXIT OR .F3. FOR DIREC
TORY."...J..AA$:.AA$."". 1610...O.. AA$.
G(134)..4000:.1550...T..AA$.G(13)...1.^.
.AA$..G(133).1610.@.H..".": 15:..{.R..".
....."..(9.C(P$).2))"*** .";P$;" FILE MI
SSING. ***"...|..".... PLEASE PLACE P
ROPER DISK IN DRIVE ";DD$......H(Y$,24)"
PRESS .RETURN. TO CONTINUE, .F1."......
H(Y$,25)" TO EXIT TO MENU OR .F3. FOR DI
RECTORY.";.2.... AA$:.AA$."". 1690.O....
AA$.G(134)..4000:.1650.D....AA$.G(133).
340.Z....AA$..G(13). 1690.........B..4,
DV,4,.DR$.NM$...L..15,A$,B$,C$,D$:DS.E(A
$)...V. 4.......N...CH$."":Z.1......A$:.
A$."". 1780.....AA.F(A$):.AA.34. 1780...
...F1..1. 1830.%...F1.0:.AA.20.. 1780.0.
...A$;:..I.&..AA.13.CH$.."". 1920.A.0..A
A.13.CH$."". 1780...:..(AA.32.AA..20.AA.
.13).(AA.128.AA.192).(AA.218). 1780...D.
.AA..20. 1890...N..Z.1. 1780...X..Z.1..A
$;:Z.Z.1:CH$.H(CH$,Z.1):. 1780...B.CH$.C
H$.A$...L..C(CH$).16. 1780.'.V..A$;". ..
";:Z.Z.1:. 1780.-.....A. .TB.0:BL.0:T$."
".U....1,DV,0,"$".DD$.O....#1,A$,A$,A$,A
$,A$,A$.....L.19:.4200:N$.B$.....L.3:.42
00:I$.B$.....L.3:.4200:OS$.B$......4300.
L....I.1.3:.#1,B$:.I...C..J.1.255:CT.CT.
1...F..CT.15..4400...H.L.28:.4500...J..
ST..0.4090.*.W..H(B$.SP$,18),T$,BL.1....
J.F...B$."BLOCKSFREE.".I...T$.G(0):."."H
(B$.SP$,18),T$,BL.~... 1:CT..1:.4400:...
.H.B$.""...M..I.1.L...R..#1,A$...W.B$.B$
.A$......I.......V.K.. == PRINT HEADER R
TN ===...L..H(Y$,2)". .DISK NAME:. ";N$.
..Q..H(Y$,3)" .ID:. ";I$;.5);".OPERATING
SYSTEM:. "OS$.F.V..H(Y$,5)" .FILE NAME.
";.10);".TYPE.";.7);".BLOCKS.".Q....SZ$:
....0..H(Y$,24)"PRESS RETURN TO CONTINUE
.";...5.. IN$:.IN$."".4405.G.:..IN$..G(1
3).4405.T.?..CT..1.....D.CT.0:.4300:....
..B$."":T$."":Q.0:BL.0.3 ...#1,A$:BL.F(A
$.G(0)):.#1,A$:BL.BL.256.F(A$.G(0)).E ..
.I.1.L:.#1,A$.Y ...A$.G(34).Q.Q.1.Q ...Q
.1.B$.B$.A$:.4590.. ...Q.2.B$.B$.A$:Q.0:
.4590.. ...A$.G(32).A$.G(160).4590.. ..T
$.T$.A$.. ...I.L ...#1,A$,A$.R .......
> CLICK IMAGE PREVIEW FOR FULL MODAL