BSUTIL
FILE INFORMATION
FILENAME(S): BSUTIL
FILE TYPE(S): PRG
FILE SIZE: 14.9K
FIRST SEEN: 2025-11-30 21:24:17
APPEARS ON: 1 disk(s)
FILE HASH
bca231706050c71192446ce3ae300e9c64db8039da6e715e4560ed5ef87f2f91
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BANKSTREETWRITER | BSUTIL | PRG | DuncanTwain | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 01 00 8F 22 40 30 3A 42 53 55 54 49 |......."@0:BSUTI|
00000010: 4C 22 2C 38 00 22 08 02 00 8B 20 4C 46 20 A7 20 |L",8.".... LF . |
00000020: 31 30 00 34 08 05 00 9F 20 31 35 2C 38 2C 31 35 |10.4.... 15,8,15|
00000030: 2C 22 49 22 00 3D 08 07 00 4C 46 B2 31 00 4D 08 |,"I".=...LF.1.M.|
00000040: 08 00 93 22 4B 45 59 31 22 2C 38 2C 31 00 53 08 |..."KEY1",8,1.S.|
00000050: 0A 00 9C 00 65 08 0B 00 9F 20 31 35 2C 38 2C 31 |....e.... 15,8,1|
00000060: 35 2C 22 49 22 00 70 08 0F 00 99 20 C7 28 38 29 |5,"I".p.... .(8)|
00000070: 00 7C 08 10 00 99 20 C7 28 31 34 29 00 A0 08 14 |.|.... .(14)....|
00000080: 00 97 20 31 30 32 30 2C 31 36 39 3A 97 20 31 30 |.. 1020,169:. 10|
00000090: 32 31 2C 31 32 38 3A 97 20 31 30 32 32 2C 39 36 |21,128:. 1022,96|
000000A0: 00 B6 08 16 00 97 20 38 30 38 2C 32 35 32 3A 97 |...... 808,252:.|
000000B0: 20 38 30 39 2C 33 00 C1 08 19 00 8D 20 31 30 30 | 809,3...... 100|
000000C0: 30 00 CC 08 1B 00 8D 20 31 36 30 30 00 D7 08 23 |0...... 1600...#|
000000D0: 00 8D 20 34 30 30 30 00 ED 08 24 00 97 20 35 33 |.. 4000...$.. 53|
000000E0: 32 38 30 2C C6 28 43 56 24 28 32 29 29 00 03 09 |280,.(CV$(2))...|
000000F0: 25 00 97 20 35 33 32 38 31 2C C6 28 43 56 24 28 |%.. 53281,.(CV$(|
00000100: 32 29 29 00 18 09 26 00 99 20 43 4F 24 28 C6 28 |2))...&.. CO$(.(|
00000110: 43 56 24 28 31 29 29 29 00 24 09 28 00 89 20 31 |CV$(1))).$.(.. 1|
00000120: 30 30 30 30 00 4B 09 32 00 8F 20 2A 2A 2A 2A 2A |0000.K.2.. *****|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 09 33 00 |***********.j.3.|
00000150: 8F 20 20 20 20 20 20 43 48 41 4E 47 45 20 53 45 |. CHANGE SE|
00000160: 54 20 55 50 20 49 54 45 4D 53 00 75 09 3C 00 8D |T UP ITEMS.u.<..|
00000170: 20 33 36 30 30 00 7E 09 46 00 4C 4F B2 32 00 89 | 3600.~.F.LO.2..|
00000180: 09 50 00 8D 20 32 30 30 30 00 9C 09 55 00 48 50 |.P.. 2000...U.HP|
00000190: B2 30 3A 56 50 B2 35 3A 8D 39 39 30 00 B6 09 5A |.0:VP.5:.990...Z|
000001A0: 00 81 20 4A B2 31 20 A4 31 30 3A 99 20 53 34 30 |.. J.1 .10:. S40|
000001B0: 24 3B 3A 82 20 4A 00 C1 09 5F 00 8D 20 31 38 30 |$;:. J..._.. 180|
000001C0: 30 00 CC 09 73 00 8D 20 32 30 32 35 00 D7 09 78 |0...s.. 2025...x|
000001D0: 00 8D 20 32 31 30 30 00 E2 09 82 00 8D 20 32 32 |.. 2100...... 22|
000001E0: 30 30 00 F3 09 83 00 8B 20 49 4E B2 53 42 20 A7 |00...... IN.SB .|
000001F0: 20 38 35 00 06 0A 84 00 8B 20 49 4E B2 45 58 20 | 85...... IN.EX |
00000200: A7 20 34 35 30 30 00 18 0A 86 00 8B 20 49 4E B2 |. 4500...... IN.|
00000210: 52 54 20 A7 20 31 36 30 00 23 0A 8C 00 8D 20 32 |RT . 160.#.... 2|
00000220: 33 30 30 00 2D 0A 96 00 89 20 31 31 35 00 49 0A |300.-.... 115.I.|
00000230: A0 00 8D 32 35 36 30 3A 81 20 54 B2 33 20 A4 20 |...2560:. T.3 . |
00000240: 4D 58 3A 8D 20 32 33 31 34 00 5B 0A A5 00 8B 20 |MX:. 2314.[.... |
00000250: 49 4E B2 45 58 20 A7 20 31 31 35 00 63 0A AA 00 |IN.EX . 115.c...|
00000260: 82 20 54 00 6D 0A AF 00 89 20 31 31 35 00 92 0A |. T.m.... 115...|
00000270: F4 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 2A 00 A7 0A FE 01 8F 20 20 49 4E 50 55 54 20 |**...... INPUT |
000002A0: 52 4F 55 54 49 4E 45 00 AD 0A FF 01 8F 00 C1 0A |ROUTINE.........|
000002B0: 03 02 97 20 32 30 37 2C 30 3A 97 20 32 30 34 2C |... 207,0:. 204,|
000002C0: 30 00 DA 0A 08 02 A1 20 49 4E 24 3A 8B 20 49 4E |0...... IN$:. IN|
000002D0: 24 B2 22 22 20 A7 20 35 32 30 00 F1 0A 12 02 97 |$."" . 520......|
000002E0: 20 53 43 AA 34 2C 31 37 3A 97 20 53 43 AA 34 2C | SC.4,17:. SC.4,|
000002F0: 30 00 FF 0A 1C 02 49 4E B2 C6 28 49 4E 24 29 00 |0.....IN..(IN$).|
00000300: 0B 0B 21 02 97 20 32 30 34 2C 31 00 11 0B 26 02 |..!.. 204,1...&.|
00000310: 8E 00 1B 0B DE 03 99 22 13 22 3B 00 2C 0B DF 03 |.......".";.,...|
00000320: 8B 20 48 50 B2 30 20 A7 20 39 39 33 00 39 0B E0 |. HP.0 . 993.9..|
00000330: 03 97 20 32 31 31 2C 48 50 00 4A 0B E1 03 8B 20 |.. 211,HP.J.... |
00000340: 56 50 B2 30 20 A7 20 39 39 35 00 63 0B E2 03 81 |VP.0 . 995.c....|
00000350: 20 49 B2 31 20 A4 20 56 50 3A 99 22 11 22 3B 3A | I.1 . VP:.".";:|
00000360: 82 20 49 00 69 0B E3 03 8E 00 8E 0B E8 03 8F 20 |. I.i.......... |
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 |**************..|
00000390: 0B E9 03 8F 20 20 20 49 4E 49 54 49 41 4C 49 5A |.... INITIALIZ|
000003A0: 45 20 49 54 45 4D 20 43 4F 4E 53 54 41 4E 54 53 |E ITEM CONSTANTS|
000003B0: 00 BA 0B ED 03 4D 58 B2 32 31 00 D9 0B F5 03 86 |.....MX.21......|
000003C0: 20 43 56 24 28 4D 58 29 3A 8F 20 43 55 52 52 45 | CV$(MX):. CURRE|
000003D0: 4E 54 20 56 41 4C 55 45 53 00 FC 0B F6 03 86 20 |NT VALUES...... |
000003E0: 4F 56 24 28 4D 58 29 3A 8F 20 4F 4C 44 20 43 55 |OV$(MX):. OLD CU|
000003F0: 52 52 45 4E 54 20 56 41 4C 55 45 53 00 1A 0C F7 |RRENT VALUES....|
00000400: 03 86 20 53 53 24 28 4D 58 29 3A 8F 20 49 54 45 |.. SS$(MX):. ITE|
00000410: 4D 53 20 53 54 52 49 4E 47 53 00 3A 0C F8 03 86 |MS STRINGS.:....|
00000420: 20 53 56 24 28 4D 58 29 3A 8F 20 53 54 41 4E 44 | SV$(MX):. STAND|
00000430: 41 52 44 20 56 41 4C 55 45 53 00 5B 0C F9 03 86 |ARD VALUES.[....|
00000440: 20 41 52 24 28 4D 58 2C 32 29 3A 8F 20 41 4C 4C | AR$(MX,2):. ALL|
00000450: 4F 57 45 44 20 52 41 4E 47 45 53 00 78 0C FA 03 |OWED RANGES.x...|
00000460: 86 20 54 59 28 4D 58 29 3A 8F 20 51 55 45 53 54 |. TY(MX):. QUEST|
00000470: 49 4F 4E 20 54 59 50 45 00 8F 0C FB 03 8F 20 20 |ION TYPE...... |
00000480: 20 20 20 20 20 3A 31 3D 23 2C 32 3D 41 53 43 00 | :1=#,2=ASC.|
00000490: B9 0C FC 03 83 20 22 C4 C1 D4 C1 A0 C4 C9 D3 CB |..... ".........|
000004A0: A0 C4 C5 D6 C9 C3 C5 A0 23 20 20 20 20 20 20 20 |........# |
000004B0: 20 20 20 20 20 20 20 20 22 00 E3 0C 06 04 83 20 | "...... |
000004C0: 22 D0 D2 C9 CE D4 2D C4 D2 C1 C6 D4 A0 CC C5 C6 |".....-.........|
000004D0: D4 A0 CD C1 D2 C7 C9 CE 20 20 20 20 20 20 20 20 |........ |
000004E0: 20 20 22 00 0D 0D 10 04 83 20 22 A0 A0 A0 A0 A0 | "...... ".....|
000004F0: A0 A0 A0 A0 A0 A0 A0 CC C9 CE C5 A0 D3 D0 C1 C3 |................|
00000500: C9 CE C7 20 20 20 20 20 20 20 20 20 22 00 38 0D |... ".8.|
00000510: 1A 04 83 20 22 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |... " ..........|
00000520: A0 D0 C1 C7 C5 A0 CE D5 CD C2 C5 D2 C9 CE C7 3F |...............?|
00000530: 20 20 20 20 20 20 20 22 00 62 0D 24 04 83 20 22 | ".b.$.. "|
00000540: D0 D2 C9 CE D4 2D C6 C9 CE C1 CC A0 CC C5 C6 D4 |.....-..........|
00000550: A0 CD C1 D2 C7 C9 CE 20 20 20 20 20 20 20 20 20 |....... |
00000560: 20 22 00 8C 0D 2E 04 83 20 22 23 A0 CC C9 CE C5 | "...... "#.....|
00000570: D3 A0 D4 CF D4 C1 CC A0 D0 C5 D2 A0 D0 C1 C7 C5 |................|
00000580: 20 20 20 20 20 20 20 20 20 20 20 22 00 B6 0D 38 | "...8|
00000590: 04 83 20 22 20 20 20 20 20 20 20 20 C6 CF D2 A0 |.. " ....|
000005A0: D4 CF D0 A0 CD C1 D2 C7 C9 CE 20 20 20 20 20 20 |.......... |
000005B0: 20 20 20 20 20 22 00 E0 0D 42 04 83 20 22 20 A0 | "...B.. " .|
000005C0: A0 A0 A0 A0 A0 A0 C6 CF D2 A0 C2 CF D4 D4 CF CD |................|
000005D0: A0 CD C1 D2 C7 C9 CE 20 20 20 20 20 20 20 20 22 |....... "|
000005E0: 00 0B 0E 4C 04 83 20 22 CC C9 CE C5 A0 C6 C5 C5 |...L.. "........|
000005F0: C4 A0 CF CE A0 C3 C1 D2 D2 C9 C1 C7 C5 A0 D2 C5 |................|
00000600: D4 D5 D2 CE 3F 20 20 20 20 20 22 00 36 0E 56 04 |....? ".6.V.|
00000610: 83 20 22 CB C5 D9 C3 CC C9 C3 CB 3F 20 20 20 20 |. "........? |
00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000630: 20 20 20 20 20 22 00 60 0E 60 04 83 20 22 C4 C5 | ".`.`.. "..|
00000640: C6 C1 D5 CC D4 A0 2D 20 C3 CF CC D5 CD CE A0 D7 |......- ........|
00000650: C9 C4 D4 C8 A0 D1 D5 C5 D3 D4 C9 CF CE 20 20 22 |............. "|
00000660: 00 8A 0E 6A 04 83 20 22 20 20 20 20 20 20 20 20 |...j.. " |
00000670: 2D 20 CC C9 CE C5 A0 D3 D0 C1 C3 C9 CE C7 A0 D1 |- ..............|
00000680: D5 C5 D3 D4 C9 CF CE 20 20 22 00 B5 0E 74 04 83 |....... "...t..|
00000690: 20 22 20 20 20 20 20 20 20 20 2D 20 D0 C1 C7 C5 | " - ....|
000006A0: A0 CE D5 CD C2 C5 D2 A0 D1 D5 C5 D3 D4 C9 CF CE |................|
000006B0: 20 20 20 20 22 00 E0 0E 7E 04 83 20 22 20 20 20 | "...~.. " |
000006C0: 20 20 20 20 20 2D 20 D0 C1 C7 C5 A0 CE D5 CD C2 | - .........|
000006D0: C5 D2 A0 CC CF C3 C1 D4 C9 CF CE 20 20 20 20 22 |........... "|
000006E0: 00 0B 0F 88 04 83 20 22 A0 A0 A0 A0 A0 A0 A0 A0 |...... "........|
000006F0: 2D A0 D0 C1 D5 D3 C5 A0 C2 C5 D4 D7 C5 C5 CE A0 |-...............|
00000700: D0 C1 C7 C5 D3 20 20 20 20 20 22 00 36 0F 92 04 |..... ".6...|
00000710: 83 20 22 20 20 20 20 20 20 20 20 2D 20 D0 C1 C7 |. " - ...|
00000720: C5 A0 C5 CA C5 C3 D4 A0 D1 D5 C5 D3 D4 C9 CF CE |................|
00000730: 20 20 20 20 20 22 00 61 0F 9C 04 83 20 22 C6 CF | ".a.... "..|
00000740: D2 CD A0 C6 C5 C5 C4 A0 C3 C8 C1 D2 C1 C3 D4 C5 |................|
00000750: D2 A0 C1 C3 D4 C9 D6 C5 3F 20 20 20 20 20 20 20 |........? |
00000760: 22 00 8B 0F A6 04 83 20 22 C6 CF D2 CD A0 C6 C5 |"...... ".......|
00000770: C5 C4 A0 C3 C8 C1 D2 C1 C3 D4 C5 D2 20 20 20 20 |............ |
00000780: 20 20 20 20 20 20 20 20 20 20 22 00 B5 0F AB 04 | ".....|
00000790: 83 20 22 D0 D2 C9 CE D4 C5 D2 A0 C4 C5 D6 C9 C3 |. ".............|
000007A0: C5 A0 23 20 20 20 20 20 20 20 20 20 20 20 20 20 |..# |
000007B0: 20 20 20 20 22 00 BB 0F B0 04 8F 00 D7 0F B5 04 | "...........|
000007C0: 81 20 4A B2 33 20 A4 20 4D 58 3A 87 20 53 53 24 |. J.3 . MX:. SS$|
000007D0: 28 4A 29 3A 82 20 4A 00 DD 0F B6 04 8F 00 ED 0F |(J):. J.........|
000007E0: BA 04 53 42 20 B2 20 C6 28 22 20 22 29 00 FD 0F |..SB . .(" ")...|
000007F0: C4 04 45 58 20 B2 20 C6 28 22 5F 22 29 00 1F 10 |..EX . .("_")...|
00000800: CE 04 52 54 20 B2 20 31 33 20 3A 8F 20 52 54 20 |..RT . 13 :. RT |
00000810: 3D 20 41 53 43 28 22 52 45 54 55 52 4E 22 29 00 |= ASC("RETURN").|
00000820: 2F 10 D8 04 4C 56 20 B2 20 C6 28 22 41 22 29 00 |/...LV . .("A").|
00000830: 3F 10 E2 04 48 56 20 B2 20 C6 28 22 53 22 29 00 |?...HV . .("S").|
00000840: 61 10 EC 04 44 45 20 B2 20 32 30 20 3A 8F 20 44 |a...DE . 20 :. D|
00000850: 45 20 3D 20 41 53 43 28 22 44 45 4C 45 54 45 22 |E = ASC("DELETE"|
00000860: 29 00 87 10 F1 04 4C 41 20 B2 20 31 35 37 20 3A |).....LA . 157 :|
00000870: 8F 20 4C 41 20 3D 41 53 43 28 22 4C 45 46 54 20 |. LA =ASC("LEFT |
00000880: 41 52 52 4F 57 22 29 00 9D 10 F3 04 51 55 24 B2 |ARROW").....QU$.|
00000890: C7 28 33 34 29 3A 8F 20 51 55 24 3D 22 00 DD 10 |.(34):. QU$="...|
000008A0: F6 04 53 34 30 24 B2 22 20 20 20 20 20 20 20 20 |..S40$." |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008D0: 22 3A 8F 20 34 30 20 53 50 41 43 45 53 00 E3 10 |":. 40 SPACES...|
000008E0: 00 05 8F 00 0F 11 0A 05 83 20 31 2C 31 2C 31 2C |......... 1,1,1,|
000008F0: 32 2C 31 2C 31 2C 31 2C 31 2C 32 2C 32 2C 31 2C |2,1,1,1,1,2,2,1,|
00000900: 31 2C 32 2C 32 2C 32 2C 32 2C 32 2C 31 2C 31 00 |1,2,2,2,2,2,1,1.|
00000910: 2A 11 14 05 81 20 4A B2 33 20 A4 20 4D 58 3A 87 |*.... J.3 . MX:.|
00000920: 20 54 59 28 4A 29 3A 82 20 4A 00 6A 11 1E 05 83 | TY(J):. J.j....|
00000930: 20 38 2C 32 30 2C 32 2C 22 D9 22 2C 38 2C 36 36 | 8,20,2,".",8,66|
00000940: 2C 36 2C 39 2C 22 CE 22 2C 22 D9 22 2C 36 35 2C |,6,9,".",".",65,|
00000950: 31 2C 22 D9 22 2C 22 C2 22 2C 22 CE 22 2C 22 D9 |1,".",".",".",".|
00000960: 22 2C 22 CE 22 2C 31 32 2C 34 00 86 11 28 05 81 |",".",12,4...(..|
00000970: 20 4A B2 33 20 A4 20 4D 58 3A 87 20 53 56 24 28 | J.3 . MX:. SV$(|
00000980: 4A 29 3A 82 20 4A 00 92 11 32 05 83 20 38 2C 20 |J):. J...2.. 8, |
00000990: 31 31 00 9E 11 33 05 83 20 30 2C 20 34 30 00 AA |11...3.. 0, 40..|
000009A0: 11 34 05 83 20 31 20 2C 20 33 00 B9 11 35 05 83 |.4.. 1 , 3...5..|
000009B0: 20 32 31 37 2C 20 32 30 36 00 C5 11 36 05 83 20 | 217, 206...6.. |
000009C0: 30 2C 20 32 30 00 D3 11 37 05 83 20 32 32 2C 20 |0, 20...7.. 22, |
000009D0: 31 31 32 00 DF 11 38 05 83 20 35 2C 20 32 30 00 |112...8.. 5, 20.|
000009E0: EB 11 39 05 83 20 36 2C 20 32 30 00 FA 11 3A 05 |..9.. 6, 20...:.|
000009F0: 83 20 32 31 37 2C 20 32 30 36 00 09 12 3B 05 83 |. 217, 206...;..|
00000A00: 20 32 31 37 2C 20 32 30 36 00 17 12 3C 05 83 20 | 217, 206...<.. |
00000A10: 34 30 2C 20 31 32 36 00 22 12 3D 05 83 20 31 2C |40, 126.".=.. 1,|
00000A20: 20 33 00 31 12 3E 05 83 20 32 31 37 2C 20 32 30 | 3.1.>.. 217, 20|
00000A30: 36 00 40 12 3F 05 83 20 32 31 32 2C 20 31 39 34 |6.@.?.. 212, 194|
00000A40: 00 4F 12 40 05 83 20 32 31 37 2C 20 32 30 36 00 |.O.@.. 217, 206.|
00000A50: 5E 12 41 05 83 20 32 31 37 2C 20 32 30 36 00 6D |^.A.. 217, 206.m|
00000A60: 12 42 05 83 20 32 31 37 2C 20 32 30 36 00 7A 12 |.B.. 217, 206.z.|
00000A70: 43 05 83 20 30 2C 20 32 35 35 00 85 12 44 05 83 |C.. 0, 255...D..|
00000A80: 20 34 2C 20 35 00 9E 12 46 05 81 20 4A B2 33 20 | 4, 5...F.. J.3 |
00000A90: A4 20 4D 58 3A 81 20 49 B2 31 20 A4 20 32 00 B6 |. MX:. I.1 . 2..|
00000AA0: 12 4B 05 87 20 44 41 3A 41 52 24 28 4A 2C 49 29 |.K.. DA:AR$(J,I)|
00000AB0: B2 C7 28 44 41 29 00 C2 12 50 05 82 20 49 3A 82 |..(DA)...P.. I:.|
00000AC0: 20 4A 00 C8 12 5A 05 8F 00 E4 12 64 05 86 20 43 | J...Z.....d.. C|
00000AD0: 4F 24 28 31 35 29 3A 8F 20 43 4F 4C 4F 52 20 54 |O$(15):. COLOR T|
00000AE0: 41 42 4C 45 00 25 13 69 05 83 20 31 34 34 2C 35 |ABLE.%.i.. 144,5|
00000AF0: 2C 32 38 2C 31 35 39 2C 31 35 36 2C 33 30 2C 33 |,28,159,156,30,3|
00000B00: 31 2C 31 35 38 2C 31 32 39 2C 31 34 39 2C 31 35 |1,158,129,149,15|
00000B10: 30 2C 31 35 31 2C 31 35 32 2C 31 35 33 2C 31 35 |0,151,152,153,15|
00000B20: 34 2C 31 35 35 00 34 13 78 05 81 20 4A B2 30 20 |4,155.4.x.. J.0 |
00000B30: A4 20 31 35 00 4A 13 82 05 87 20 44 41 3A 43 4F |. 15.J.... DA:CO|
00000B40: 24 28 4A 29 B2 C7 28 44 41 29 00 52 13 8C 05 82 |$(J)..(DA).R....|
00000B50: 20 4A 00 76 13 96 05 8F 20 2A 2A 2A 2A 2A 2A 2A | J.v.... *******|
00000B60: 53 45 54 20 55 50 20 53 4F 55 4E 44 20 43 48 49 |SET UP SOUND CHI|
00000B70: 50 20 2A 2A 2A 2A 00 83 13 9B 05 53 43 B2 35 34 |P ****.....SC.54|
00000B80: 32 37 32 00 A0 13 A0 05 81 20 49 B2 53 43 20 A4 |272...... I.SC .|
00000B90: 20 53 43 AA 32 34 3A 97 20 49 2C 30 3A 82 20 49 | SC.24:. I,0:. I|
00000BA0: 00 AF 13 AA 05 97 20 53 43 AA 32 34 2C 31 35 00 |...... SC.24,15.|
00000BB0: BE 13 B4 05 97 20 53 43 AA 31 2C 31 30 30 00 E2 |..... SC.1,100..|
00000BC0: 13 C8 05 8F 20 2A 2A 2A 2A 2A 2A 2A 20 53 45 54 |.... ******* SET|
00000BD0: 20 55 50 20 4B 45 59 20 53 50 52 49 54 45 20 2A | UP KEY SPRITE *|
00000BE0: 2A 2A 00 F9 13 D2 05 97 20 35 33 32 36 34 2C 30 |**...... 53264,0|
00000BF0: 3A 97 32 30 34 30 2C 31 33 00 10 14 DC 05 97 20 |:.2040,13...... |
00000C00: 35 33 32 37 37 2C 30 3A 97 35 33 32 37 31 2C 30 |53277,0:.53271,0|
00000C10: 00 34 14 04 06 97 20 31 39 38 2C 30 3A 8F 20 43 |.4.... 198,0:. C|
00000C20: 4C 45 41 52 20 4B 45 59 42 4F 41 52 44 20 42 55 |LEAR KEYBOARD BU|
00000C30: 46 46 45 52 00 66 14 0E 06 97 20 36 34 39 2C 33 |FFER.f.... 649,3|
00000C40: 3A 8F 20 53 45 54 20 4B 45 59 42 4F 41 52 44 20 |:. SET KEYBOARD |
00000C50: 42 55 46 46 45 52 20 54 4F 20 33 20 43 48 41 52 |BUFFER TO 3 CHAR|
00000C60: 41 43 54 45 52 53 00 6C 14 36 06 8E 00 8F 14 40 |ACTERS.l.6.....@|
00000C70: 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000C90: AF 14 41 06 8F 20 20 50 4F 4B 45 20 49 4E 20 41 |..A.. POKE IN A|
00000CA0: 53 53 45 4D 42 4C 59 20 52 4F 55 54 49 4E 45 00 |SSEMBLY ROUTINE.|
00000CB0: CD 14 42 06 8F 20 20 54 48 41 54 20 43 48 41 4E |..B.. THAT CHAN|
00000CC0: 47 45 53 20 43 48 41 52 41 43 54 45 52 00 E1 14 |GES CHARACTER...|
00000CD0: 43 06 8F 20 20 43 4F 4C 4F 52 20 4D 45 4D 4F 52 |C.. COLOR MEMOR|
00000CE0: 59 00 02 15 4A 06 83 20 31 36 39 2C 20 30 2C 20 |Y...J.. 169, 0, |
00000CF0: 31 33 33 2C 20 32 35 31 2C 20 31 36 39 2C 20 32 |133, 251, 169, 2|
00000D00: 31 36 00 23 15 54 06 83 20 31 33 33 2C 20 32 35 |16.#.T.. 133, 25|
00000D10: 32 2C 20 31 36 35 2C 20 32 35 34 2C 20 31 36 30 |2, 165, 254, 160|
00000D20: 2C 20 30 00 46 15 5E 06 83 20 31 34 35 2C 20 32 |, 0.F.^.. 145, 2|
00000D30: 35 31 2C 20 32 30 30 2C 20 32 30 38 2C 20 32 35 |51, 200, 208, 25|
00000D40: 31 2C 20 32 33 30 00 69 15 68 06 83 20 32 35 32 |1, 230.i.h.. 252|
00000D50: 2C 20 31 36 35 2C 20 32 35 32 2C 20 32 30 31 2C |, 165, 252, 201,|
00000D60: 20 32 31 39 2C 20 32 30 38 00 8A 15 72 06 83 20 | 219, 208...r.. |
00000D70: 32 33 39 2C 20 31 36 35 2C 20 32 35 34 2C 20 31 |239, 165, 254, 1|
00000D80: 36 30 2C 20 30 2C 20 31 34 35 00 AD 15 7C 06 83 |60, 0, 145...|..|
00000D90: 20 32 35 31 2C 20 32 30 30 2C 20 31 39 32 2C 20 | 251, 200, 192, |
00000DA0: 32 33 32 2C 20 31 34 34 2C 20 32 34 39 00 B6 15 |232, 144, 249...|
00000DB0: 86 06 83 20 39 36 00 C5 15 8B 06 81 20 49 B2 30 |... 96...... I.0|
00000DC0: 20 A4 20 33 36 00 CE 15 90 06 87 20 49 4E 00 DF | . 36...... IN..|
00000DD0: 15 9A 06 97 20 34 39 31 35 32 AA 49 2C 49 4E 00 |.... 49152.I,IN.|
00000DE0: E7 15 A4 06 82 20 49 00 0C 16 AE 06 8F 20 2A 2A |..... I...... **|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 24 16 B8 |************.$..|
00000E10: 06 8F 20 20 20 20 50 41 53 53 57 4F 52 44 20 54 |.. PASSWORD T|
00000E20: 41 42 4C 45 00 31 16 C2 06 86 20 43 54 28 34 32 |ABLE.1.... CT(42|
00000E30: 29 00 55 16 CC 06 83 20 35 36 2C 36 38 2C 37 35 |).U.... 56,68,75|
00000E40: 2C 34 39 2C 35 30 2C 38 39 2C 38 34 2C 37 30 2C |,49,50,89,84,70,|
00000E50: 35 35 2C 38 33 00 79 16 D1 06 83 20 37 33 2C 36 |55,83.y.... 73,6|
00000E60: 36 2C 35 33 2C 38 36 2C 38 30 2C 37 32 2C 35 31 |6,53,86,80,72,51|
00000E70: 2C 38 38 2C 36 39 2C 37 37 00 91 16 D6 06 83 20 |,88,69,77...... |
00000E80: 35 32 2C 38 31 2C 39 30 2C 37 36 2C 36 37 2C 35 |52,81,90,76,67,5|
00000E90: 34 00 B9 16 EA 06 81 20 49 B2 31 20 A4 20 32 36 |4...... I.1 . 26|
00000EA0: 3A 87 20 49 4E 3A 43 54 28 49 4E AB 34 38 29 B2 |:. IN:CT(IN.48).|
00000EB0: 31 39 32 AA 49 3A 82 20 49 00 BF 16 F4 06 8E 00 |192.I:. I.......|
00000EC0: E4 16 08 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00000ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EE0: 2A 2A 2A 2A 00 F7 16 09 07 8F 20 20 20 4E 45 58 |****...... NEX|
00000EF0: 54 20 49 54 45 4D 53 00 FD 16 0A 07 8F 00 19 17 |T ITEMS.........|
00000F00: 12 07 4C 4F B2 4C 4F AA 31 3A 20 8B 20 4C 4F B2 |..LO.LO.1: . LO.|
00000F10: 34 20 A7 20 4C 4F B2 31 33 00 2C 17 1C 07 8B 20 |4 . LO.13.,.... |
00000F20: 4C 4F B1 31 33 20 A7 20 4C 4F B2 33 00 4A 17 26 |LO.13 . LO.3.J.&|
00000F30: 07 48 49 B2 4C 4F AA 38 3A 8B 20 48 49 B3 31 33 |.HI.LO.8:. HI.13|
00000F40: 20 A7 20 48 49 B2 48 49 AA 31 00 50 17 30 07 8E | . HI.HI.1.P.0..|
00000F50: 00 70 17 D0 07 99 22 93 22 3A 8F 20 2A 2A 2A 53 |.p....".":. ***S|
00000F60: 45 54 20 55 50 20 53 43 52 45 45 4E 20 2A 2A 2A |ET UP SCREEN ***|
00000F70: 00 94 17 D5 07 97 35 33 32 38 37 2C C6 28 43 56 |......53287,.(CV|
00000F80: 24 28 31 29 29 3A 8F 20 53 50 52 49 54 45 20 43 |$(1)):. SPRITE C|
00000F90: 4F 4C 4F 52 00 A8 17 DA 07 48 50 B2 30 3A 56 50 |OLOR.....HP.0:VP|
00000FA0: B2 32 3A 8D 20 39 39 30 00 D9 17 E4 07 99 22 12 |.2:. 990......".|
00000FB0: 20 20 20 20 20 20 D3 C5 D4 D5 D0 A0 C9 D4 C5 CD | ..........|
00000FC0: D3 A0 C1 CE C4 A0 C3 D5 D2 D2 C5 CE D4 A0 D6 C1 |................|
00000FD0: CC D5 C5 D3 20 20 20 20 22 00 DF 17 E5 07 8E 00 |.... ".......|
00000FE0: 04 18 E9 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
00000FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001000: 2A 2A 2A 2A 00 0A 18 EA 07 8F 00 1F 18 EE 07 48 |****...........H|
00001010: 50 B2 30 3A 56 50 B2 31 37 3A 8D 20 39 39 30 00 |P.0:VP.17:. 990.|
00001020: 51 18 F8 07 99 20 22 12 20 20 20 20 20 D0 D2 C5 |Q.... ". ...|
00001030: D3 D3 A0 D3 D0 C1 C3 C5 A0 C2 C1 D2 A0 C6 CF D2 |................|
00001040: A0 D2 C5 D3 D4 A0 CF C6 A0 CC C9 D3 D4 20 20 20 |............. |
00001050: 22 00 67 18 02 08 48 50 B2 30 20 3A 56 50 B2 32 |".g...HP.0 :VP.2|
00001060: 31 3A 8D 20 39 39 30 00 93 18 0C 08 99 22 C5 CE |1:. 990......"..|
00001070: D4 C5 D2 A0 CC C5 D4 D4 C5 D2 A0 CF C6 A0 C9 D4 |................|
00001080: C5 CD A0 D4 CF A0 C3 C8 C1 CE C7 C5 A0 28 C1 2D |.............(.-|
00001090: D3 29 22 00 A8 18 16 08 48 50 B2 30 3A 56 50 B2 |.)".....HP.0:VP.|
000010A0: 32 32 3A 8D 20 39 39 30 00 D8 18 1B 08 97 35 33 |22:. 990......53|
000010B0: 32 34 38 2C 32 30 39 3A 97 35 33 32 34 39 2C 32 |248,209:.53249,2|
000010C0: 32 36 3A 8F 20 4B 45 59 20 53 50 52 49 54 45 20 |26:. KEY SPRITE |
000010D0: 50 4F 53 49 54 49 4F 4E 00 03 19 20 08 99 22 28 |POSITION... .."(|
000010E0: D0 D2 C5 D3 D3 A0 D2 C5 D4 D5 D2 CE A0 C6 CF D2 |................|
000010F0: A0 C1 CC CC 2C 20 20 20 20 20 D4 CF A0 D1 D5 C9 |...., ......|
00001100: D4 29 22 00 11 19 25 08 97 20 35 33 32 36 39 2C |.)"...%.. 53269,|
00001110: 31 00 17 19 2A 08 8E 00 3C 19 34 08 8F 20 2A 2A |1...*...<.4.. **|
00001120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 19 35 |************.Q.5|
00001140: 08 8F 20 20 20 50 55 54 20 55 50 20 49 54 45 4D |.. PUT UP ITEM|
00001150: 53 00 65 19 3D 08 48 50 B2 30 3A 56 50 B2 35 3A |S.e.=.HP.0:VP.5:|
00001160: 8D 20 39 39 30 00 76 19 3E 08 81 20 4A 20 B2 4C |. 990.v.>.. J .L|
00001170: 4F 20 A4 20 48 49 00 8B 19 44 08 99 20 C7 28 4A |O . HI...D.. .(J|
00001180: AA 31 39 30 29 3B 22 2E 20 22 3B 00 99 19 48 08 |.190);". ";...H.|
00001190: 99 20 53 53 24 28 4A 29 3B 00 BB 19 52 08 8B 20 |. SS$(J);...R.. |
000011A0: 54 59 28 4A 29 20 B2 20 32 20 A7 20 99 20 43 56 |TY(J) . 2 . . CV|
000011B0: 24 28 4A 29 3A 89 20 32 31 34 30 00 CB 19 57 08 |$(J):. 2140...W.|
000011C0: 99 20 C6 28 43 56 24 28 4A 29 29 00 D7 19 5C 08 |. .(CV$(J))...\.|
000011D0: 56 50 B2 56 50 AA 31 00 E6 19 61 08 48 50 B2 30 |VP.VP.1...a.HP.0|
000011E0: 3A 8D 20 39 39 30 00 EE 19 66 08 82 20 4A 00 F4 |:. 990...f.. J..|
000011F0: 19 7A 08 8E 00 0A 1A 98 08 48 50 B2 33 37 3A 56 |.z.......HP.37:V|
00001200: 50 B2 32 31 3A 8D 20 39 39 30 00 14 1A 9D 08 8D |P.21:. 990......|
00001210: 20 35 30 30 00 2D 1A A3 08 8B 20 49 4E B1 31 32 | 500.-.... IN.12|
00001220: 37 20 A7 20 49 4E B2 49 4E AB 31 32 38 00 4E 1A |7 . IN.IN.128.N.|
00001230: AC 08 8B 20 49 4E 20 B1 B2 20 4C 56 20 AF 20 49 |... IN .. LV . I|
00001240: 4E 20 B3 B2 20 48 56 20 A7 20 32 32 39 35 00 63 |N .. HV . 2295.c|
00001250: 1A B1 08 8B 20 49 4E 20 B2 20 53 42 20 A7 20 32 |.... IN . SB . 2|
00001260: 32 39 35 00 78 1A B6 08 8B 20 49 4E 20 B2 20 45 |295.x.... IN . E|
00001270: 58 20 A7 20 32 32 39 35 00 8D 1A C0 08 8B 20 49 |X . 2295...... I|
00001280: 4E 20 B2 20 52 54 20 A7 20 32 32 39 35 00 98 1A |N . RT . 2295...|
00001290: CA 08 8D 20 32 37 30 30 00 A3 1A E8 08 89 20 32 |... 2700...... 2|
000012A0: 32 30 30 00 A9 1A F7 08 8E 00 CE 1A FC 08 8F 20 |200............ |
000012B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EF |**************..|
000012D0: 1A FD 08 8F 20 20 20 20 49 4E 44 49 56 49 44 55 |.... INDIVIDU|
000012E0: 41 4C 20 49 54 45 4D 20 44 49 53 50 4C 41 59 00 |AL ITEM DISPLAY.|
000012F0: F5 1A FE 08 8F 00 01 1B 00 09 54 B2 49 4E AB 36 |..........T.IN.6|
00001300: 32 00 15 1B 02 09 48 50 B2 30 3A 56 50 B2 35 3A |2.....HP.0:VP.5:|
00001310: 8D 20 39 39 30 00 2F 1B 06 09 81 20 4A B2 31 20 |. 990./.... J.1 |
00001320: A4 31 39 3A 99 20 53 34 30 24 3B 3A 82 20 4A 00 |.19:. S40$;:. J.|
00001330: 3D 1B 07 09 97 20 35 33 32 36 39 2C 30 00 47 1B |=.... 53269,0.G.|
00001340: 0A 09 4D 56 B2 32 30 00 5F 1B 0B 09 56 50 B2 35 |..MV.20._...VP.5|
00001350: 3A 8D 20 39 39 30 3A 99 22 12 C9 D4 C5 CD 22 00 |:. 990:.".....".|
00001360: 77 1B 10 09 48 50 B2 37 3A 8D 20 39 39 30 3A 99 |w...HP.7:. 990:.|
00001370: 20 53 53 24 28 54 29 00 9E 1B 1A 09 8B 20 54 B2 | SS$(T)...... T.|
00001380: 35 20 B0 20 54 B2 36 20 A7 20 8D 20 39 39 30 3A |5 . T.6 . . 990:|
00001390: 99 22 D0 D2 C9 CE D4 2D C4 D2 C1 C6 D4 22 00 C9 |.".....-....."..|
000013A0: 1B 24 09 8B 20 54 B2 39 20 B0 20 54 B2 31 30 20 |.$.. T.9 . T.10 |
000013B0: A7 20 8D 20 39 39 30 3A 99 22 23 20 CC C9 CE C5 |. . 990:."# ....|
000013C0: D3 22 3A 8D 20 32 36 30 30 00 EE 1B 2E 09 8B 20 |.":. 2600...... |
000013D0: 54 B1 31 33 20 AF 20 54 B3 31 39 20 A7 20 8D 20 |T.13 . T.19 . . |
000013E0: 39 39 30 3A 99 22 C4 C5 C6 C1 D5 CC D4 22 00 0E |990:."......."..|
000013F0: 1C 42 09 99 22 11 22 3B 3A 99 22 12 C1 CC CC CF |.B..".";:.".....|
00001400: D7 C1 C2 CC C5 A0 D2 C1 CE C7 C5 92 22 3B 00 3A |............";.:|
00001410: 1C 47 09 8B 20 54 B2 31 36 20 A7 20 99 22 20 D4 |.G.. T.16 . ." .|
00001420: CF D0 A0 CF D2 A0 C2 CF D4 D4 CF CD A0 28 D4 2F |.............(./|
00001430: C2 29 22 3A 89 20 32 33 39 30 00 70 1C 4C 09 8B |.)":. 2390.p.L..|
00001440: 20 54 59 28 54 29 B2 32 20 A7 20 99 20 22 20 22 | TY(T).2 . . " "|
00001450: 3B 41 52 24 28 54 2C 31 29 3B 22 20 CF D2 20 22 |;AR$(T,1);" .. "|
00001460: 3B 41 52 24 28 54 2C 32 29 3A 89 20 32 33 39 30 |;AR$(T,2):. 2390|
00001470: 00 93 1C 4D 09 99 20 C6 28 41 52 24 28 54 2C 31 |...M.. .(AR$(T,1|
00001480: 29 29 3B 22 2D 22 3B C6 28 41 52 24 28 54 2C 32 |));"-";.(AR$(T,2|
00001490: 29 29 3B 00 B6 1C 4E 09 8B 20 4D 56 B3 32 30 20 |));...N.. MV.20 |
000014A0: A7 20 99 22 20 20 20 20 28 4D 41 58 22 3B 4D 56 |. ." (MAX";MV|
000014B0: 3B 22 9D 29 22 3B 00 BE 1C 4F 09 99 22 22 00 DF |;".)";...O..""..|
000014C0: 1C 56 09 99 22 11 11 22 3B 3A 99 22 12 D3 D4 C1 |.V.."..";:."....|
000014D0: CE C4 C1 D2 C4 A0 D6 C1 CC D5 C5 92 20 22 3B 00 |............ ";.|
000014E0: EC 1C 60 09 99 20 53 56 24 28 54 29 00 0A 1D 6A |..`.. SV$(T)...j|
000014F0: 09 99 22 11 22 3B 3A 99 22 12 C3 D5 D2 D2 C5 CE |..".";:.".......|
00001500: D4 A0 D6 C1 CC D5 C5 92 22 3B 00 2D 1D 74 09 8B |........";.-.t..|
00001510: 20 54 59 28 54 29 B2 32 20 A7 20 99 22 20 22 3B | TY(T).2 . ." ";|
00001520: 43 56 24 28 54 29 3A 89 20 32 34 35 30 00 3D 1D |CV$(T):. 2450.=.|
00001530: 7E 09 99 20 C6 28 43 56 24 28 54 29 29 00 48 1D |~.. .(CV$(T)).H.|
00001540: 92 09 99 22 11 11 22 3B 00 72 1D 97 09 99 22 C5 |..."..";.r....".|
00001550: CE D4 C5 D2 A0 CE C5 D7 A0 D6 C1 CC D5 C5 2C A0 |..............,.|
00001560: D4 C8 C5 CE A0 D0 D2 C5 D3 D3 A0 D2 C5 D4 D5 D2 |................|
00001570: CE 22 00 A1 1D 9C 09 99 22 91 28 D2 C5 D4 D5 D2 |."......".(.....|
00001580: CE A0 C1 CC CF CE C5 A0 D4 CF A0 C1 C3 C3 C5 D0 |................|
00001590: D4 A0 C3 D5 D2 D2 C5 CE D4 A0 D6 C1 CC D5 C5 29 |...............)|
000015A0: 22 00 C4 1D A6 09 99 22 11 11 20 20 20 20 20 20 |"......".. |
000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3D | =|
000015C0: 3D 3D 3E 22 00 DD 1D AB 09 97 35 33 32 34 38 2C |==>"......53248,|
000015D0: 37 32 3A 97 35 33 32 34 39 2C 32 33 34 00 02 1E |72:.53249,234...|
000015E0: B0 09 99 20 22 D0 D2 C5 D3 D3 A0 20 20 20 20 D4 |... "...... .|
000015F0: CF A0 D2 C5 D4 D5 D2 CE A0 D4 CF A0 CD C5 CE D5 |................|
00001600: 22 3B 00 0F 1E B5 09 97 35 33 32 36 39 2C 31 00 |";......53269,1.|
00001610: 27 1E C4 09 91 20 54 59 28 54 29 20 8D 20 33 30 |'.... TY(T) . 30|
00001620: 30 30 2C 33 34 30 30 00 3B 1E 00 0A 48 50 B2 30 |00,3400.;...HP.0|
00001630: 3A 56 50 B2 35 3A 8D 20 39 39 30 00 56 1E 0A 0A |:VP.5:. 990.V...|
00001640: 81 20 4A B2 31 20 A4 20 31 39 3A 99 20 53 34 30 |. J.1 . 19:. S40|
00001650: 24 3B 3A 82 20 4A 00 63 1E 0F 0A 97 35 33 32 36 |$;:. J.c....5326|
00001660: 39 2C 30 00 69 1E 14 0A 8E 00 8E 1E 28 0A 8F 20 |9,0.i.......(.. |
00001670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 |**************..|
00001690: 1E 29 0A 8F 20 20 20 4C 4F 57 45 52 20 4D 41 58 |.).. LOWER MAX|
000016A0: 20 46 4F 52 20 54 4F 50 2F 42 4F 54 54 4F 4D 3F | FOR TOP/BOTTOM?|
000016B0: 00 B6 1E 2A 0A 8F 00 CC 1E 32 0A 54 4C 20 B2 20 |...*.....2.TL . |
000016C0: C6 28 43 56 24 28 38 29 29 AB 31 30 00 E0 1E 3C |.(CV$(8)).10...<|
000016D0: 0A 8B 20 54 4C B1 B2 34 30 20 A7 20 32 36 35 30 |.. TL..40 . 2650|
000016E0: 00 FD 1E 46 0A 8B 20 54 B2 39 20 A7 20 4D 56 B2 |...F.. T.9 . MV.|
000016F0: 54 4C AB C6 28 43 56 24 28 31 30 29 29 00 1A 1F |TL..(CV$(10))...|
00001700: 50 0A 8B 20 54 B2 31 30 20 A7 20 4D 56 B2 54 4C |P.. T.10 . MV.TL|
00001710: AB C6 28 43 56 24 28 39 29 29 00 20 1F 5A 0A 8E |..(CV$(9)). .Z..|
00001720: 00 44 1F 8C 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.D.... *********|
00001730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001740: 2A 2A 2A 2A 00 60 1F 8D 0A 8F 20 20 20 20 52 49 |****.`.... RI|
00001750: 4E 47 20 44 41 54 20 42 45 4C 4C 2C 20 42 4F 59 |NG DAT BELL, BOY|
00001760: 00 66 1F 8E 0A 8F 00 88 1F 96 0A 97 20 53 43 AA |.f.......... SC.|
00001770: 35 2C 31 35 3A 97 20 53 43 AA 31 2C 31 37 3A 97 |5,15:. SC.1,17:.|
00001780: 20 53 43 AA 34 2C 33 33 00 9B 1F A0 0A 81 20 49 | SC.4,33...... I|
00001790: B2 31 20 A4 20 33 35 3A 82 20 49 00 BC 1F AA 0A |.1 . 35:. I.....|
000017A0: 97 20 53 43 AA 34 2C 30 3A 97 20 53 43 AA 35 2C |. SC.4,0:. SC.5,|
000017B0: 30 3A 97 20 53 43 AA 31 2C 31 30 30 00 C2 1F B4 |0:. SC.1,100....|
000017C0: 0A 8E 00 E6 1F B8 0B 8F 20 2A 2A 2A 2A 2A 2A 2A |........ *******|
000017D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017E0: 2A 2A 2A 2A 2A 2A 00 03 20 B9 0B 8F 20 20 20 20 |******.. ... |
000017F0: 47 45 54 20 55 50 20 54 4F 20 33 20 44 49 47 49 |GET UP TO 3 DIGI|
00001800: 54 20 23 00 09 20 BA 0B 8F 00 1A 20 C2 0B 4F 54 |T #.. ..... ..OT|
00001810: B2 C6 28 43 56 24 28 54 29 29 00 28 20 CC 0B 4F |..(CV$(T)).( ..O|
00001820: 54 24 B2 C4 28 4F 54 29 00 38 20 D6 0B 4E 44 B2 |T$..(OT).8 ..ND.|
00001830: C3 28 4F 54 24 29 AB 31 00 4C 20 E0 0B 4F 54 24 |.(OT$).1.L ..OT$|
00001840: B2 CA 28 4F 54 24 2C 32 2C 4E 44 29 00 62 20 EA |..(OT$,2,ND).b .|
00001850: 0B 48 50 B2 32 36 3A 56 50 B2 32 31 3A 8D 20 39 |.HP.26:VP.21:. 9|
00001860: 39 30 00 75 20 F4 0B 99 22 20 20 20 20 20 22 3B |90.u ..." ";|
00001870: 3A 8D 39 39 3F 00 86 20 FE 0B 99 20 4F 54 24 3B |:.99?.. ... OT$;|
00001880: 3A 8D 20 39 39 30 00 A0 20 08 0C 4E 55 B2 30 3A |:. 990.. ..NU.0:|
00001890: 8F 20 33 20 44 49 47 49 54 20 4E 55 4D 42 45 52 |. 3 DIGIT NUMBER|
000018A0: 00 BF 20 12 0C 44 49 B2 30 3A 8F 20 44 49 47 49 |.. ..DI.0:. DIGI|
000018B0: 54 53 20 49 4E 50 55 54 20 53 4F 20 46 41 52 00 |TS INPUT SO FAR.|
000018C0: D5 20 1C 0C 8F 20 2A 2A 47 45 54 20 4E 55 4D 42 |. ... **GET NUMB|
000018D0: 45 52 2A 2A 2A 00 DF 20 1D 0C 8D 20 35 30 30 00 |ER***.. ... 500.|
000018E0: 06 21 2B 0C 8B 20 49 4E B3 B1 44 45 20 AF 20 49 |.!+.. IN..DE . I|
000018F0: 4E B3 B1 4C 41 20 A7 20 33 31 32 35 3A 8F 20 44 |N..LA . 3125:. D|
00001900: 45 4C 45 54 45 3F 00 1A 21 2C 0C 8B 20 44 49 B2 |ELETE?..!,.. DI.|
00001910: 30 20 A7 20 99 22 20 9D 22 3B 00 44 21 2D 0C 8B |0 . ." .";.D!-..|
00001920: 20 44 49 B1 30 20 A7 20 44 49 B2 44 49 AB 31 3A | DI.0 . DI.DI.1:|
00001930: 99 20 C7 28 44 45 29 3B 3A 4E 55 B2 B5 28 4E 55 |. .(DE);:NU..(NU|
00001940: AD 31 30 29 00 4F 21 2E 0C 89 20 33 31 30 30 00 |.10).O!... 3100.|
00001950: 67 21 35 0C 8B 20 49 4E B2 45 58 20 A7 20 97 20 |g!5.. IN.EX . . |
00001960: 32 30 34 2C 31 3A 8E 00 89 21 3A 0C 8B 20 49 4E |204,1:...!:.. IN|
00001970: B2 52 54 20 A7 20 33 32 30 30 3A 8F 20 43 48 45 |.RT . 3200:. CHE|
00001980: 43 4B 20 4E 55 4D 42 45 52 00 A4 21 3F 0C 8B 20 |CK NUMBER..!?.. |
00001990: 44 49 B2 33 20 A7 20 8D 20 32 37 30 30 3A 89 20 |DI.3 . . 2700:. |
000019A0: 33 31 30 30 00 CF 21 44 0C 49 4E B2 49 4E AB 34 |3100..!D.IN.IN.4|
000019B0: 38 3A 8B 20 49 4E B3 30 20 B0 20 49 4E B1 39 20 |8:. IN.0 . IN.9 |
000019C0: A7 20 8D 20 32 37 30 30 3A 89 20 33 31 30 30 00 |. . 2700:. 3100.|
000019D0: DF 21 4E 0C 4E 55 B2 4E 55 AC 31 30 AA 49 4E 00 |.!N.NU.NU.10.IN.|
000019E0: EB 21 58 0C 44 49 B2 44 49 AA 31 00 03 22 5A 0C |.!X.DI.DI.1.."Z.|
000019F0: 56 50 B2 32 31 3A 48 50 B2 32 35 AA 44 49 3A 8D |VP.21:HP.25.DI:.|
00001A00: 39 39 30 00 15 22 5D 0C 99 20 49 4E 24 3B 22 20 |990.."].. IN$;" |
00001A10: 20 9D 9D 22 3B 00 20 22 62 0C 89 20 33 31 30 30 | ..";. "b.. 3100|
00001A20: 00 45 22 80 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.E"... *********|
00001A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A40: 2A 2A 2A 2A 2A 00 5E 22 81 0C 8F 20 20 20 20 56 |*****.^"... V|
00001A50: 41 4C 55 45 20 49 4E 20 52 41 4E 47 45 3F 00 64 |ALUE IN RANGE?.d|
00001A60: 22 82 0C 8F 00 70 22 84 0C 97 20 32 30 34 2C 31 |"....p"... 204,1|
00001A70: 00 82 22 85 0C 8B 20 44 49 B2 30 20 A7 20 33 33 |.."... DI.0 . 33|
00001A80: 30 30 00 9D 22 87 0C 8B 20 54 B3 B1 39 20 AF 20 |00.."... T..9 . |
00001A90: 54 B3 B1 20 31 30 20 A7 20 33 32 31 30 00 B0 22 |T.. 10 . 3210.."|
00001AA0: 88 0C 8B 20 4E 55 B1 4D 56 20 A7 20 33 32 32 30 |... NU.MV . 3220|
00001AB0: 00 DF 22 8A 0C 8B 20 4E 55 B1 B2 C6 28 41 52 24 |.."... NU...(AR$|
00001AC0: 28 54 2C 31 29 29 20 AF 20 4E 55 B3 B2 C6 28 41 |(T,1)) . NU...(A|
00001AD0: 52 24 28 54 2C 32 29 29 20 A7 20 33 32 37 30 00 |R$(T,2)) . 3270.|
00001AE0: F5 22 94 0C 48 50 B2 31 35 3A 56 50 B2 32 30 3A |."..HP.15:VP.20:|
00001AF0: 8D 20 39 39 30 00 11 23 9E 0C 99 22 3C D6 C1 CC |. 990..#..."<...|
00001B00: D5 C5 A0 CF D5 D4 A0 CF C6 A0 D2 C1 CE C7 C5 3E |...............>|
00001B10: 22 00 1C 23 9F 0C 8D 20 32 37 30 30 00 26 23 A0 |"..#... 2700.&#.|
00001B20: 0C 8D 20 39 39 30 00 3A 23 A2 0C 81 20 4B B2 31 |.. 990.:#... K.1|
00001B30: 20 A4 20 35 30 30 3A 82 20 4B 00 5A 23 A4 0C 99 | . 500:. K.Z#...|
00001B40: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | " |
00001B50: 20 20 20 20 20 20 20 20 22 3B 00 65 23 BC 0C 89 | ";.e#...|
00001B60: 20 33 30 35 30 00 77 23 C6 0C 8B 20 54 B3 B1 38 | 3050.w#... T..8|
00001B70: 20 A7 20 33 32 39 30 00 82 23 D0 0C 8D 20 33 33 | . 3290..#... 33|
00001B80: 31 30 00 93 23 DA 0C 43 56 24 28 54 29 B2 C7 28 |10..#..CV$(T)..(|
00001B90: 4E 55 29 00 99 23 E4 0C 8E 00 BB 23 EE 0C 8F 20 |NU)..#.....#... |
00001BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DD 23 EF 0C |***********..#..|
00001BC0: 8F 20 20 43 48 41 4E 47 45 20 54 4F 50 2F 42 4F |. CHANGE TOP/BO|
00001BD0: 54 54 4F 4D 20 4D 41 52 47 49 4E 53 3F 00 E3 23 |TTOM MARGINS?..#|
00001BE0: F0 0C 8F 00 F7 23 F8 0C 8B 20 4E 55 B1 B2 35 30 |.....#... NU..50|
00001BF0: 20 A7 20 33 33 39 30 00 16 24 02 0D 54 4D B2 C6 | . 3390..$..TM..|
00001C00: 28 43 56 24 28 39 29 29 3A 42 4D B2 C6 28 43 56 |(CV$(9)):BM..(CV|
00001C10: 24 28 31 30 29 29 00 24 24 05 0D 4E 31 30 B2 4E |$(10)).$$..N10.N|
00001C20: 55 AB 31 30 00 3E 24 07 0D 8B 20 4E 31 30 B1 B2 |U.10.>$... N10..|
00001C30: 54 4D 20 AA 20 42 4D 20 A7 20 33 33 39 30 00 5F |TM . BM . 3390._|
00001C40: 24 0C 0D 8B 20 54 4D B1 4E 31 30 AB 35 20 AF 20 |$... TM.N10.5 . |
00001C50: 42 4D B1 4E 31 30 AB 36 20 A7 20 33 33 38 30 00 |BM.N10.6 . 3380.|
00001C60: 7F 24 16 0D 8B 20 54 4D B3 42 4D 20 A7 20 43 56 |.$... TM.BM . CV|
00001C70: 24 28 31 30 29 B2 C7 28 4E 31 30 AB 54 4D 29 00 |$(10)..(N10.TM).|
00001C80: 9E 24 20 0D 8B 20 42 4D B3 54 4D 20 A7 20 43 56 |.$ .. BM.TM . CV|
00001C90: 24 28 39 29 B2 C7 28 4E 31 30 AB 42 4D 29 00 B2 |$(9)..(N10.BM)..|
00001CA0: 24 2A 0D 8B 20 42 4D B3 B1 54 4D 20 A7 20 33 33 |$*.. BM..TM . 33|
00001CB0: 39 30 00 CF 24 34 0D 54 4D B2 B5 28 4E 31 30 AD |90..$4.TM..(N10.|
00001CC0: 32 29 3A 43 56 24 28 39 29 B2 C7 28 54 4D 29 00 |2):CV$(9)..(TM).|
00001CD0: E5 24 39 0D 43 56 24 28 31 30 29 B2 C7 28 4E 31 |.$9.CV$(10)..(N1|
00001CE0: 30 AB 54 4D 29 00 EB 24 3E 0D 8E 00 0D 25 48 0D |0.TM)..$>....%H.|
00001CF0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 25 |*************./%|
00001D10: 49 0D 8F 20 20 47 45 54 20 53 49 4E 47 4C 45 20 |I.. GET SINGLE |
00001D20: 41 53 43 49 49 20 43 48 41 52 41 43 54 45 52 00 |ASCII CHARACTER.|
00001D30: 35 25 4A 0D 8F 00 3E 25 4D 0D 4F 4B B2 30 00 4E |5%J...>%M.OK.0.N|
00001D40: 25 52 0D 48 50 B2 32 36 3A 56 50 B2 32 31 00 58 |%R.HP.26:VP.21.X|
00001D50: 25 57 0D 8D 20 39 39 30 00 6A 25 5C 0D 99 20 43 |%W.. 990.j%\.. C|
00001D60: 56 24 28 54 29 3B 22 20 22 3B 00 74 25 61 0D 8D |V$(T);" ";.t%a..|
00001D70: 20 39 39 30 00 7E 25 66 0D 8D 20 35 30 30 00 A2 | 990.~%f.. 500..|
00001D80: 25 70 0D 8B 20 49 4E B2 44 45 20 B0 20 49 4E B2 |%p.. IN.DE . IN.|
00001D90: 4C 41 20 A7 20 99 22 20 9D 22 3B 3A 89 20 33 34 |LA . ." .";:. 34|
00001DA0: 33 30 00 B5 25 7A 0D 8B 20 49 4E B2 45 58 20 A7 |30..%z.. IN.EX .|
00001DB0: 20 33 35 30 30 00 C8 25 84 0D 8B 20 49 4E B2 52 | 3500..%... IN.R|
00001DC0: 54 20 A7 20 33 34 39 30 00 E5 25 89 0D 8B 20 49 |T . 3490..%... I|
00001DD0: 4E B3 31 32 38 20 A7 20 49 4E 24 B2 C7 28 49 4E |N.128 . IN$..(IN|
00001DE0: AA 31 32 38 29 00 19 26 8E 0D 8B 20 49 4E 24 B3 |.128)..&... IN$.|
00001DF0: B1 41 52 24 28 54 2C 31 29 20 AF 20 49 4E 24 B3 |.AR$(T,1) . IN$.|
00001E00: B1 41 52 24 28 54 2C 32 29 20 A7 20 8D 20 32 37 |.AR$(T,2) . . 27|
00001E10: 30 30 3A 89 20 33 34 33 30 00 3B 26 93 0D 8D 20 |00:. 3430.;&... |
00001E20: 39 39 30 3A 99 20 49 4E 24 3B 22 9D 22 3B 3A 4F |990:. IN$;".";:O|
00001E30: 4B B2 31 3A 50 56 24 B2 49 4E 24 00 46 26 98 0D |K.1:PV$.IN$.F&..|
00001E40: 89 20 33 34 33 30 00 5C 26 A2 0D 8B 20 4F 4B 20 |. 3430.\&... OK |
00001E50: A7 20 43 56 24 28 54 29 B2 50 56 24 00 62 26 AC |. CV$(T).PV$.b&.|
00001E60: 0D 8E 00 85 26 10 0E 8F 20 2A 2A 2A 2A 2A 2A 2A |....&... *******|
00001E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E80: 2A 2A 2A 2A 2A 00 A9 26 11 0E 8F 20 43 4F 50 59 |*****..&... COPY|
00001E90: 20 43 55 52 52 45 4E 54 20 56 41 4C 53 20 54 4F | CURRENT VALS TO|
00001EA0: 20 4F 4C 44 20 56 41 4C 53 00 AF 26 12 0E 8F 00 | OLD VALS..&....|
00001EB0: BE 26 1A 0E 81 20 4A B2 33 20 A4 20 4D 58 00 D0 |.&... J.3 . MX..|
00001EC0: 26 24 0E 4F 56 24 28 4A 29 B2 43 56 24 28 4A 29 |&$.OV$(J).CV$(J)|
00001ED0: 00 D8 26 2E 0E 82 20 4A 00 DE 26 38 0E 8E 00 2A |..&... J..&8...*|
00001EE0: 27 42 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |'B.. ***********|
00001EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F00: 2A 2A 20 20 33 36 35 31 20 52 45 4D 20 43 4F 50 |** 3651 REM COP|
00001F10: 59 20 4F 4C 44 20 56 41 4C 53 20 54 4F 20 43 55 |Y OLD VALS TO CU|
00001F20: 52 52 45 4E 54 20 56 41 4C 53 00 30 27 44 0E 8F |RRENT VALS.0'D..|
00001F30: 00 3F 27 4C 0E 81 20 4A B2 33 20 A4 20 4D 58 00 |.?'L.. J.3 . MX.|
00001F40: 51 27 56 0E 43 56 24 28 4A 29 B2 4F 56 24 28 4A |Q'V.CV$(J).OV$(J|
00001F50: 29 00 59 27 60 0E 82 20 4A 00 5F 27 6A 0E 8E 00 |).Y'`.. J._'j...|
00001F60: 83 27 A0 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.'... **********|
00001F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F80: 2A 2A 2A 00 A0 27 A1 0F 8F 20 20 20 20 4C 4F 41 |***..'... LOA|
00001F90: 44 20 43 55 52 52 45 4E 54 20 56 41 4C 55 45 53 |D CURRENT VALUES|
00001FA0: 00 A6 27 A2 0F 8F 00 C4 27 AA 0F 9F 20 33 2C 38 |..'.....'... 3,8|
00001FB0: 2C 33 2C 22 40 30 3A 55 54 49 4C 44 41 54 41 2C |,3,"@0:UTILDATA,|
00001FC0: 53 2C 52 22 00 CF 27 B4 0F 8D 20 35 33 30 30 00 |S,R"..'... 5300.|
00001FD0: DF 27 BE 0F 8B 20 4E 52 20 A7 20 34 31 32 30 00 |.'... NR . 4120.|
00001FE0: E7 27 C8 0F A0 20 33 00 F2 27 D2 0F 8D 20 35 34 |.'... 3..'... 54|
00001FF0: 30 30 00 FD 27 DC 0F 89 20 34 30 30 30 00 0C 28 |00..'... 4000..(|
00002000: 18 10 81 20 49 B2 31 20 A4 20 4D 58 00 18 28 22 |... I.1 . MX..("|
00002010: 10 A1 23 33 2C 49 4E 24 00 23 28 2C 10 8D 20 35 |..#3,IN$.#(,.. 5|
00002020: 33 30 30 00 33 28 36 10 8B 20 4E 52 20 A7 20 34 |300.3(6.. NR . 4|
00002030: 31 37 35 00 3B 28 40 10 A0 20 33 00 46 28 45 10 |175.;(@.. 3.F(E.|
00002040: 8D 20 35 34 30 30 00 51 28 4A 10 89 20 34 30 30 |. 5400.Q(J.. 400|
00002050: 30 00 77 28 4F 10 43 56 24 28 49 29 B2 49 4E 24 |0.w(O.CV$(I).IN$|
00002060: 3A 8B 20 49 4E 24 B2 22 22 20 A7 20 43 56 24 28 |:. IN$."" . CV$(|
00002070: 49 29 B2 C7 28 30 29 00 9F 28 50 10 8B 20 54 59 |I)..(0)..(P.. TY|
00002080: 28 49 29 B2 32 20 A7 20 43 56 24 28 49 29 B2 C7 |(I).2 . CV$(I)..|
00002090: 28 C6 28 43 56 24 28 49 29 29 B0 31 32 38 29 00 |(.(CV$(I)).128).|
000020A0: A7 28 54 10 82 20 49 00 AF 28 5E 10 A0 20 33 00 |.(T.. I..(^.. 3.|
000020B0: B5 28 68 10 8E 00 D9 28 94 11 8F 20 2A 2A 2A 2A |.(h....(... ****|
000020C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F1 28 95 11 8F 20 |*********..(... |
000020E0: 20 20 20 20 20 53 41 56 45 20 56 41 4C 55 45 53 | SAVE VALUES|
000020F0: 3F 00 F7 28 96 11 8F 00 06 29 A8 11 81 20 4A B2 |?..(.....)... J.|
00002100: 33 20 A4 20 4D 58 00 22 29 B2 11 8B 20 4F 56 24 |3 . MX.")... OV$|
00002110: 28 4A 29 B3 B1 43 56 24 28 4A 29 20 A7 20 34 36 |(J)..CV$(J) . 46|
00002120: 30 30 00 2A 29 BC 11 82 20 4A 00 30 29 C6 11 8E |00.*)... J.0)...|
00002130: 00 43 29 F8 11 99 20 22 93 22 3A 97 35 33 32 36 |.C)... ".":.5326|
00002140: 39 2C 30 00 57 29 02 12 48 50 B2 30 3A 56 50 B2 |9,0.W)..HP.0:VP.|
00002150: 38 3A 8D 20 39 39 30 00 85 29 0C 12 99 20 22 20 |8:. 990..)... " |
00002160: C4 CF A0 D9 CF D5 A0 D7 C1 CE D4 A0 D4 CF A0 D3 |................|
00002170: C1 D6 C5 A0 D4 C8 C5 D3 C5 A0 CE C5 D7 A0 D6 C1 |................|
00002180: CC D5 C5 D3 22 00 AF 29 0D 12 99 20 22 20 D4 CF |...."..)... " ..|
00002190: A0 D4 C8 C5 A0 C4 C9 D3 CB A0 C6 CF D2 A0 CC C1 |................|
000021A0: D4 C5 D2 A0 D5 D3 C5 A0 28 D9 2F CE 29 3F 22 00 |........(./.)?".|
000021B0: B5 29 0E 12 99 00 E5 29 0F 12 99 22 28 D2 C5 D4 |.).....)..."(...|
000021C0: D5 D2 CE A0 C1 CC CF CE C5 A0 D4 CF A0 C7 CF A0 |................|
000021D0: C2 C1 C3 CB A0 D4 CF A0 D3 C5 D4 D5 D0 A0 C9 D4 |................|
000021E0: C5 CD D3 29 22 00 FA 29 11 12 48 50 B2 33 34 3A |...)"..)..HP.34:|
000021F0: 56 50 B2 39 3A 8D 20 39 39 30 00 11 2A 12 12 8F |VP.9:. 990..*...|
00002200: 20 2A 2A 47 45 54 20 52 45 53 50 4F 4E 53 45 2A | **GET RESPONSE*|
00002210: 2A 00 1B 2A 16 12 8D 20 35 30 30 00 2C 2A 1C 12 |*..*... 500.,*..|
00002220: 8B 20 49 4E B2 52 54 20 A7 20 37 30 00 4E 2A 20 |. IN.RT . 70.N* |
00002230: 12 8B 20 49 4E 24 20 B2 20 22 4E 22 20 B0 20 49 |.. IN$ . "N" . I|
00002240: 4E 24 20 B2 22 CE 22 20 A7 20 34 36 38 35 00 6F |N$ ."." . 4685.o|
00002250: 2A 2A 12 8B 20 49 4E 24 20 B2 20 22 59 22 20 B0 |**.. IN$ . "Y" .|
00002260: 20 49 4E 24 20 B2 22 D9 22 A7 20 34 36 36 30 00 | IN$ .".". 4660.|
00002270: 81 2A 2B 12 8D 20 32 37 30 30 3A 89 20 34 36 33 |.*+.. 2700:. 463|
00002280: 30 00 8C 2A 34 12 8D 20 35 30 30 30 00 97 2A 3E |0..*4.. 5000..*>|
00002290: 12 89 20 34 36 39 30 00 A2 2A 4D 12 8D 20 33 36 |.. 4690..*M.. 36|
000022A0: 35 30 00 A8 2A 52 12 8E 00 CD 2A 88 13 8F 20 2A |50..*R....*... *|
000022B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000022C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EC 2A |*************..*|
000022D0: 89 13 8F 20 20 53 41 56 45 20 4E 45 57 20 56 41 |... SAVE NEW VA|
000022E0: 4C 55 45 53 20 54 4F 20 44 49 53 4B 00 F2 2A 8A |LUES TO DISK..*.|
000022F0: 13 8F 00 0D 2B 8D 13 99 22 93 22 3B 3A 48 50 B2 |....+...".";:HP.|
00002300: 30 3A 56 50 B2 31 31 3A 8D 20 39 39 30 00 29 2B |0:VP.11:. 990.)+|
00002310: 8E 13 99 22 D3 C1 D6 C9 CE C7 A0 CE C5 D7 A0 D6 |..."............|
00002320: C1 CC D5 C5 D3 2E 2E 2E 22 00 47 2B 8F 13 9F 20 |........".G+... |
00002330: 33 2C 38 2C 33 2C 22 40 30 3A 55 54 49 4C 44 41 |3,8,3,"@0:UTILDA|
00002340: 54 41 2C 53 2C 52 22 00 52 2B 91 13 8D 20 35 33 |TA,S,R".R+... 53|
00002350: 30 30 00 68 2B 92 13 8B 20 4E 52 20 A7 20 A0 20 |00.h+... NR . . |
00002360: 33 3A 89 20 35 30 31 35 00 73 2B 94 13 89 20 35 |3:. 5015.s+... 5|
00002370: 30 33 35 00 91 2B 97 13 9F 20 33 2C 38 2C 33 2C |035..+... 3,8,3,|
00002380: 22 40 30 3A 55 54 49 4C 44 41 54 41 2C 53 2C 57 |"@0:UTILDATA,S,W|
00002390: 22 00 9C 2B 9C 13 8D 20 35 33 30 30 00 AC 2B A6 |"..+... 5300..+.|
000023A0: 13 8B 20 4E 52 20 A7 20 35 30 34 30 00 B4 2B AB |.. NR . 5040..+.|
000023B0: 13 A0 20 33 00 BF 2B AC 13 8D 20 35 34 30 30 00 |.. 3..+... 5400.|
000023C0: CA 2B AD 13 89 20 35 30 30 30 00 D9 2B B0 13 81 |.+... 5000..+...|
000023D0: 20 49 B2 31 20 A4 20 4D 58 00 05 2C B5 13 8B 20 | I.1 . MX..,... |
000023E0: 54 59 28 49 29 B2 32 20 A7 20 98 33 2C C7 28 C6 |TY(I).2 . .3,.(.|
000023F0: 28 43 56 24 28 49 29 29 AF 20 39 35 29 3B 3A 89 |(CV$(I)). 95);:.|
00002400: 20 35 30 36 30 00 14 2C BA 13 98 33 2C 43 56 24 | 5060..,...3,CV$|
00002410: 28 49 29 3B 00 1F 2C C4 13 8D 20 35 33 30 30 00 |(I);..,... 5300.|
00002420: 2F 2C CE 13 8B 20 4E 52 20 A7 20 35 31 30 30 00 |/,... NR . 5100.|
00002430: 37 2C D8 13 A0 20 33 00 42 2C E2 13 8D 20 35 34 |7,... 3.B,... 54|
00002440: 30 30 00 4D 2C E7 13 89 20 35 30 30 30 00 55 2C |00.M,... 5000.U,|
00002450: EC 13 82 20 49 00 5D 2C 00 14 A0 20 33 00 63 2C |... I.],... 3.c,|
00002460: 0A 14 8E 00 87 2C B4 14 8F 20 2A 2A 2A 2A 2A 2A |.....,... ******|
00002470: 2A 2A 2A 29 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |***)************|
00002480: 2A 2A 2A 2A 2A 2A 2A 00 A6 2C B5 14 8F 20 20 20 |*******..,... |
00002490: 20 20 43 48 45 43 4B 20 46 4F 52 20 44 49 53 4B | CHECK FOR DISK|
000024A0: 20 45 52 52 4F 52 00 AC 2C B6 14 8F 00 B5 2C B9 | ERROR..,.....,.|
000024B0: 14 4E 52 B2 31 00 CA 2C BE 14 84 31 35 2C 45 4E |.NR.1..,...15,EN|
000024C0: 2C 45 44 24 2C 45 46 2C 45 53 00 DD 2C C8 14 8B |,ED$,EF,ES..,...|
000024D0: 20 45 4E B3 B1 30 20 A7 20 4E 52 B2 30 00 E3 2C | EN..0 . NR.0..,|
000024E0: D2 14 8E 00 07 2D 18 15 8F 20 2A 2A 2A 2A 2A 2A |.....-... ******|
000024F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002500: 2A 2A 2A 2A 2A 2A 2A 00 25 2D 19 15 8F 20 20 20 |*******.%-... |
00002510: 20 20 50 52 49 4E 54 20 45 52 52 4F 52 20 4D 45 | PRINT ERROR ME|
00002520: 53 53 41 47 45 00 2B 2D 1A 15 8F 00 34 2D 1D 15 |SSAGE.+-....4-..|
00002530: 99 22 93 22 00 3F 2D 1E 15 8D 20 32 37 30 30 00 |.".".?-... 2700.|
00002540: 54 2D 22 15 56 50 B2 31 31 3A 48 50 B2 30 3A 8D |T-".VP.11:HP.0:.|
00002550: 20 39 39 32 00 70 2D 2C 15 8B 20 45 4E B2 32 36 | 992.p-,.. EN.26|
00002560: 20 A7 20 8D 20 35 35 33 30 3A 89 20 35 34 34 30 | . . 5530:. 5440|
00002570: 00 8C 2D 31 15 8B 20 45 4E B2 36 32 20 A7 20 8D |..-1.. EN.62 . .|
00002580: 20 35 35 36 30 3A 89 20 35 34 34 30 00 97 2D 36 | 5560:. 5440..-6|
00002590: 15 8D 20 35 35 30 30 00 A7 2D 40 15 56 50 B2 32 |.. 5500..-@.VP.2|
000025A0: 33 3A 8D 20 39 39 30 00 CA 2D 4A 15 99 22 D0 52 |3:. 990..-J..".R|
000025B0: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
000025C0: 4F 4E 54 49 4E 55 45 20 22 3B 00 D4 2D 4F 15 8D |ONTINUE ";..-O..|
000025D0: 20 35 30 30 00 DD 2D 52 15 99 22 93 22 00 E3 2D | 500..-R.."."..-|
000025E0: 54 15 8E 00 0A 2E 7C 15 99 22 D0 4C 45 41 53 45 |T.....|..".LEASE|
000025F0: 20 43 48 45 43 4B 20 44 49 53 4B 20 41 4E 44 20 | CHECK DISK AND |
00002600: 4D 41 4B 45 20 53 55 52 45 22 00 33 2E 86 15 99 |MAKE SURE".3....|
00002610: 22 49 54 20 49 53 20 49 4E 53 45 52 54 45 44 20 |"IT IS INSERTED |
00002620: 49 4E 20 44 52 49 56 45 20 50 52 4F 50 45 52 4C |IN DRIVE PROPERL|
00002630: 59 2E 22 00 39 2E 90 15 8E 00 59 2E 9A 15 99 22 |Y.".9.....Y...."|
00002640: D5 4E 41 42 4C 45 20 54 4F 20 57 52 49 54 45 20 |.NABLE TO WRITE |
00002650: 54 4F 20 44 49 53 4B 2E 22 00 7E 2E A4 15 99 22 |TO DISK.".~...."|
00002660: 28 44 49 53 4B 20 4D 41 59 20 42 45 20 57 52 49 |(DISK MAY BE WRI|
00002670: 54 45 20 50 52 4F 54 45 43 54 45 44 29 22 00 97 |TE PROTECTED)"..|
00002680: 2E A9 15 99 20 22 D0 4C 45 41 53 45 20 43 48 45 |.... ".LEASE CHE|
00002690: 43 4B 20 49 54 2E 22 00 9D 2E AE 15 8E 00 B5 2E |CK IT.".........|
000026A0: B8 15 99 22 D0 4C 45 41 53 45 20 4D 41 4B 45 20 |...".LEASE MAKE |
000026B0: 53 55 52 45 22 00 D5 2E C2 15 99 22 50 52 4F 47 |SURE"......"PROG|
000026C0: 52 41 4D 20 44 49 53 4B 20 49 53 20 49 4E 20 44 |RAM DISK IS IN D|
000026D0: 52 49 56 45 22 00 DB 2E CC 15 8E 00 00 2F 58 1B |RIVE"......../X.|
000026E0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000026F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002700: 00 22 2F 59 1B 8F 20 20 20 20 52 45 41 44 20 41 |."/Y.. READ A|
00002710: 4E 44 20 44 49 53 50 4C 41 59 20 43 41 54 41 4C |ND DISPLAY CATAL|
00002720: 4F 47 00 28 2F 5A 1B 8F 00 33 2F 62 1B 8D 20 37 |OG.(/Z...3/b.. 7|
00002730: 35 30 30 00 3D 2F 63 1B 8D 20 35 30 30 00 50 2F |500.=/c.. 500.P/|
00002740: 66 1B 8B 20 49 4E B2 45 58 20 A7 20 37 37 38 30 |f.. IN.EX . 7780|
00002750: 00 6D 2F 67 1B 8B 20 49 4E B3 B1 53 42 20 A7 20 |.m/g.. IN..SB . |
00002760: 8D 20 32 37 30 30 3A 89 20 37 30 31 31 00 85 2F |. 2700:. 7011../|
00002770: 6C 1B 9F 20 33 2C C6 28 43 56 24 28 33 29 29 2C |l.. 3,.(CV$(3)),|
00002780: 33 2C 22 23 22 00 8D 2F 7A 1B 58 B2 32 00 97 2F |3,"#"../z.X.2../|
00002790: 7B 1B 8D 37 36 30 30 00 AB 2F 80 1B 48 50 B2 30 |{..7600../..HP.0|
000027A0: 3A 56 50 B2 33 3A 8D 20 39 39 30 00 C6 2F 81 1B |:VP.3:. 990../..|
000027B0: 99 22 C6 C9 CC C5 CE C1 CD C5 A0 20 20 D0 C1 D3 |."......... ...|
000027C0: D3 D7 CF D2 C4 22 00 DA 2F 82 1B 48 50 B2 30 3A |....."../..HP.0:|
000027D0: 56 50 B2 36 3A 8D 20 39 39 30 00 E8 2F 8A 1B 4E |VP.6:. 990../..N|
000027E0: 43 B2 30 3A 46 46 B2 30 00 F0 2F 94 1B 58 B2 35 |C.0:FF.0../..X.5|
000027F0: 00 FF 2F 9E 1B 4E 54 B2 31 38 3A 4E 53 B2 31 00 |../..NT.18:NS.1.|
00002800: 16 30 A8 1B 98 31 35 2C 22 55 31 22 3B 33 3B 30 |.0...15,"U1";3;0|
00002810: 3B 4E 54 3B 4E 53 00 21 30 AA 1B 8D 20 35 33 30 |;NT;NS.!0... 530|
00002820: 30 00 31 30 AB 1B 8B 20 4E 52 20 A7 20 37 30 39 |0.10... NR . 709|
00002830: 30 00 40 30 AC 1B A0 20 33 3A 8D 20 35 34 30 30 |0.@0... 3:. 5400|
00002840: 00 4B 30 AD 1B 89 20 37 37 30 30 00 5E 30 B2 1B |.K0... 7700.^0..|
00002850: 98 31 35 2C 22 42 2D 50 3A 22 3B 33 3B 30 00 7E |.15,"B-P:";3;0.~|
00002860: 30 BC 1B A1 23 33 2C 49 4E 24 3A 8B 20 49 4E 24 |0...#3,IN$:. IN$|
00002870: B2 22 22 20 A7 20 49 4E 24 B2 C7 28 30 29 00 99 |."" . IN$..(0)..|
00002880: 30 C6 1B 4E 54 B2 C6 28 49 4E 24 29 3A 8F 20 4E |0..NT..(IN$):. N|
00002890: 45 58 54 20 54 52 41 43 4B 00 B9 30 D0 1B A1 23 |EXT TRACK..0...#|
000028A0: 33 2C 49 4E 24 3A 8B 20 49 4E 24 B2 22 22 20 A7 |3,IN$:. IN$."" .|
000028B0: 20 49 4E 24 B2 C7 28 30 29 00 D5 30 DA 1B 4E 53 | IN$..(0)..0..NS|
000028C0: B2 C6 28 49 4E 24 29 3A 8F 20 4E 45 58 54 20 53 |..(IN$):. NEXT S|
000028D0: 45 43 54 4F 52 00 DE 30 E4 1B 42 50 B2 32 00 F2 |ECTOR..0..BP.2..|
000028E0: 30 EE 1B 98 31 35 2C 22 42 2D 50 3A 22 3B 33 3B |0...15,"B-P:";3;|
000028F0: 42 50 00 FD 30 F0 1B 8D 20 35 33 30 30 00 0D 31 |BP..0... 5300..1|
00002900: F1 1B 8B 20 4E 52 20 A7 20 37 31 36 30 00 1C 31 |... NR . 7160..1|
00002910: F2 1B A0 20 33 3A 8D 20 35 34 30 30 00 27 31 F3 |... 3:. 5400.'1.|
00002920: 1B 89 20 37 37 30 30 00 43 31 F8 1B A1 23 33 2C |.. 7700.C1...#3,|
00002930: 49 4E 24 3A 8B 20 49 4E 24 B2 22 22 20 A7 20 37 |IN$:. IN$."" . 7|
00002940: 33 35 30 00 61 31 02 1C 46 54 B2 C6 28 49 4E 24 |350.a1..FT..(IN$|
00002950: 29 AB 31 32 38 3A 8F 20 46 49 4C 45 20 54 59 50 |).128:. FILE TYP|
00002960: 45 00 7F 31 16 1C A1 23 33 2C 49 4E 24 3A A1 23 |E..1...#3,IN$:.#|
00002970: 33 2C 49 4E 24 3A 8F 20 47 41 52 42 41 47 45 00 |3,IN$:. GARBAGE.|
00002980: 8A 31 20 1C 4E 46 24 B2 22 22 00 99 31 2A 1C 81 |.1 .NF$.""..1*..|
00002990: 20 49 B2 33 20 A4 20 31 38 00 A5 31 34 1C A1 23 | I.3 . 18..14..#|
000029A0: 33 2C 49 4E 24 00 B5 31 3E 1C 4E 46 24 B2 4E 46 |3,IN$..1>.NF$.NF|
000029B0: 24 AA 49 4E 24 00 BD 31 48 1C 82 20 49 00 D0 31 |$.IN$..1H.. I..1|
000029C0: 4A 1C 8B 20 46 54 B3 B1 32 20 A7 20 37 33 30 30 |J.. FT..2 . 7300|
000029D0: 00 D9 31 4B 1C 46 53 B2 30 00 F9 31 4D 1C 8B 20 |..1K.FS.0..1M.. |
000029E0: CA 28 4E 46 24 2C 31 33 2C 31 29 B2 C7 28 31 36 |.(NF$,13,1)..(16|
000029F0: 30 29 20 A7 20 37 33 30 30 00 04 32 52 1C 8D 20 |0) . 7300..2R.. |
00002A00: 37 38 30 30 00 29 32 5C 1C 99 20 C8 28 4E 46 24 |7800.)2\.. .(NF$|
00002A10: 2C 38 29 3B 22 20 20 20 22 3B CA 28 4E 46 24 2C |,8);" ";.(NF$,|
00002A20: 39 2C 35 29 3A 46 46 B2 31 00 44 32 66 1C 4E 43 |9,5):FF.1.D2f.NC|
00002A30: B2 4E 43 AA 31 3A 8B 20 4E 43 B3 31 35 20 A7 20 |.NC.1:. NC.15 . |
00002A40: 37 33 30 30 00 5A 32 6B 1C 56 50 B2 32 33 3A 48 |7300.Z2k.VP.23:H|
00002A50: 50 B2 32 38 3A 8D 20 39 39 30 00 64 32 70 1C 8D |P.28:. 990.d2p..|
00002A60: 20 35 30 30 00 7D 32 72 1C 8B 20 49 4E B2 45 58 | 500.}2r.. IN.EX|
00002A70: 20 A7 20 A0 20 33 3A 89 20 37 37 38 30 00 9A 32 | . . 3:. 7780..2|
00002A80: 75 1C 8B 20 49 4E B3 B1 53 42 20 A7 20 8D 20 32 |u.. IN..SB . . 2|
00002A90: 37 30 30 3A 89 20 37 32 38 30 00 B5 32 7A 1C 48 |700:. 7280..2z.H|
00002AA0: 50 B2 30 3A 56 50 B2 36 3A 8D 20 37 36 30 30 3A |P.0:VP.6:. 7600:|
00002AB0: 8D 20 39 39 30 00 BE 32 7F 1C 4E 43 B2 30 00 DB |. 990..2..NC.0..|
00002AC0: 32 84 1C 42 50 B2 42 50 AA 33 32 3A 8B 20 42 50 |2..BP.BP.32:. BP|
00002AD0: B3 32 32 37 20 A7 20 37 31 35 30 00 EE 32 8E 1C |.227 . 7150..2..|
00002AE0: 8B 20 4E 54 B3 B1 30 20 A7 20 37 30 38 30 00 F6 |. NT..0 . 7080..|
00002AF0: 32 B6 1C A0 20 33 00 0B 33 B8 1C 8B 20 46 46 B3 |2... 3..3... FF.|
00002B00: B1 31 20 A7 20 8D 20 37 34 30 30 00 21 33 BA 1C |.1 . . 7400.!3..|
00002B10: 48 50 B2 32 38 3A 56 50 B2 32 33 3A 8D 20 39 39 |HP.28:VP.23:. 99|
00002B20: 30 00 2B 33 C0 1C 8D 20 35 30 30 00 53 33 CA 1C |0.+3... 500.S3..|
00002B30: 8B 20 49 4E B3 B1 53 42 20 AF 20 49 4E 20 B3 B1 |. IN..SB . IN ..|
00002B40: 20 45 58 20 A7 20 8D 20 32 37 30 30 3A 89 20 37 | EX . . 2700:. 7|
00002B50: 33 36 30 00 59 33 D4 1C 8E 00 7E 33 E8 1C 8F 20 |360.Y3....~3... |
00002B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B |**************..|
00002B80: 33 F2 1C 8F 20 20 4E 4F 20 57 52 49 54 45 52 20 |3... NO WRITER |
00002B90: 46 49 4C 45 53 20 46 4F 55 4E 44 00 B0 33 FC 1C |FILES FOUND..3..|
00002BA0: 56 50 B2 31 30 3A 48 50 B2 34 3A 8D 20 39 39 30 |VP.10:HP.4:. 990|
00002BB0: 00 BB 33 06 1D 8D 20 32 37 30 30 00 DB 33 1A 1D |..3... 2700..3..|
00002BC0: 99 22 CE 4F 20 57 52 49 54 45 52 20 46 49 4C 45 |.".O WRITER FILE|
00002BD0: 53 20 4F 4E 20 44 49 53 4B 22 3B 00 E1 33 24 1D |S ON DISK";..3$.|
00002BE0: 8E 00 06 34 4C 1D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...4L.. ********|
00002BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C00: 2A 2A 2A 2A 2A 2A 00 1E 34 4D 1D 8F 20 20 20 20 |******..4M.. |
00002C10: 43 41 54 41 4C 4F 47 20 53 43 52 45 45 4E 00 24 |CATALOG SCREEN.$|
00002C20: 34 4E 1D 8F 00 2F 34 56 1D 99 20 22 93 22 3B 00 |4N.../4V.. ".";.|
00002C30: 44 34 60 1D 48 50 B2 31 30 3A 56 50 B2 31 3A 8D |D4`.HP.10:VP.1:.|
00002C40: 20 39 39 30 00 62 34 6A 1D 99 22 12 C3 C1 D4 C1 | 990.b4j..".....|
00002C50: CC CF C7 A0 C1 CE C4 A0 D0 C1 D3 D3 D7 CF D2 C4 |................|
00002C60: D3 22 00 76 34 74 1D 48 50 B2 30 3A 56 50 B2 35 |.".v4t.HP.0:VP.5|
00002C70: 3A 8D 20 39 39 30 00 A3 34 7E 1D 99 22 C9 CE D3 |:. 990..4~.."...|
00002C80: C5 D2 D4 A0 C4 C9 D3 CB A0 C3 CF CE D4 C1 C9 CE |................|
00002C90: C9 CE C7 A0 C6 C9 CC C5 D3 A0 C9 CE A0 C4 D2 C9 |................|
00002CA0: D6 C5 22 00 B7 34 88 1D 48 50 B2 30 3A 56 50 B2 |.."..4..HP.0:VP.|
00002CB0: 32 33 3A 8D 39 39 30 00 DA 34 92 1D 99 22 D0 D2 |23:.990..4..."..|
00002CC0: C5 D3 D3 A0 D3 D0 C1 C3 C5 A0 C2 C1 D2 A0 D4 CF |................|
00002CD0: A0 C3 CF CE D4 C9 CE D5 C5 22 00 F0 34 9C 1D 56 |........."..4..V|
00002CE0: 50 B2 32 33 3A 48 50 B2 32 38 3A 8D 20 39 39 30 |P.23:HP.28:. 990|
00002CF0: 00 F6 34 A6 1D 8E 00 1B 35 B0 1D 8F 20 2A 2A 2A |..4.....5... ***|
00002D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 38 35 BA 1D |***********.85..|
00002D20: 8F 20 20 20 43 4C 45 41 52 20 50 41 52 54 20 4F |. CLEAR PART O|
00002D30: 46 20 53 43 52 45 45 4E 00 4C 35 C4 1D 48 50 B2 |F SCREEN.L5..HP.|
00002D40: 30 3A 56 50 B2 58 3A 8D 20 39 39 30 00 5B 35 CE |0:VP.X:. 990.[5.|
00002D50: 1D 81 20 49 B2 31 20 A4 20 31 36 00 89 35 D8 1D |.. I.1 . 16..5..|
00002D60: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00002D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D80: 20 20 20 20 20 20 20 20 22 00 91 35 E2 1D 82 20 | "..5... |
00002D90: 49 00 97 35 EC 1D 8E 00 BC 35 14 1E 8F 20 2A 2A |I..5.....5... **|
00002DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 35 15 |************..5.|
00002DC0: 1E 8F 20 20 54 52 59 20 41 47 41 49 4E 20 4F 52 |.. TRY AGAIN OR|
00002DD0: 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 00 | RETURN TO MAIN.|
00002DE0: E5 35 16 1E 8F 00 FE 35 1E 1E 99 22 93 22 3A 56 |.5.....5...".":V|
00002DF0: 50 B2 33 3A 48 50 B2 30 3A 8D 20 39 39 30 00 24 |P.3:HP.0:. 990.$|
00002E00: 36 28 1E 99 22 D4 29 D2 D9 A0 C1 C7 C1 C9 CE A0 |6(..".).........|
00002E10: CF D2 A0 D2 29 C5 D4 D5 D2 CE A0 D4 CF A0 CD C5 |....)...........|
00002E20: CE D5 3F 22 00 39 36 32 1E 99 22 28 C5 CE D4 C5 |..?".962.."(....|
00002E30: D2 A0 D4 A0 CF D2 A0 D2 29 00 4E 36 37 1E 56 50 |........).N67.VP|
00002E40: B2 33 3A 48 50 B2 33 31 3A 8D 20 39 39 30 00 58 |.3:HP.31:. 990.X|
00002E50: 36 3C 1E 8D 20 35 30 30 00 77 36 46 1E 8B 20 49 |6<.. 500.w6F.. I|
00002E60: 4E 24 B2 22 D4 22 20 B0 20 49 4E 24 B2 22 54 22 |N$."." . IN$."T"|
00002E70: 20 A7 20 37 30 30 30 00 98 36 50 1E 8B 20 49 4E | . 7000..6P.. IN|
00002E80: 24 B3 B1 22 D2 22 20 AF 20 49 4E 24 B3 B1 22 52 |$.."." . IN$.."R|
00002E90: 22 20 A7 20 37 37 34 30 00 9E 36 64 1E 8E 00 C3 |" . 7740..6d....|
00002EA0: 36 78 1E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |6x.. ***********|
00002EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002EC0: 2A 2A 2A 00 DA 36 79 1E 8F 20 20 44 45 43 4F 44 |***..6y.. DECOD|
00002ED0: 45 20 50 41 53 53 57 4F 52 44 00 E6 36 82 1E 81 |E PASSWORD..6...|
00002EE0: 20 49 B2 30 A4 34 00 00 37 84 1E 54 4C B2 C6 28 | I.0.4..7..TL..(|
00002EF0: CA 28 4E 46 24 2C 39 AA 49 2C 31 29 29 AB 34 38 |.(NF$,9.I,1)).48|
00002F00: 00 1A 37 87 1E 8B 20 54 4C B3 31 20 B0 20 54 4C |..7... TL.1 . TL|
00002F10: B1 34 32 20 A7 20 37 38 38 30 00 36 37 8C 1E 54 |.42 . 7880.67..T|
00002F20: 4C B2 43 54 28 54 4C 29 3A 8B 20 54 4C B2 30 20 |L.CT(TL):. TL.0 |
00002F30: A7 20 37 38 38 30 00 44 37 96 1E 54 4C B2 54 4C |. 7880.D7..TL.TL|
00002F40: AB 34 AC 49 00 5C 37 A0 1E 8B 20 54 4C B3 31 39 |.4.I.\7... TL.19|
00002F50: 33 20 A7 20 54 4C B2 32 36 AA 54 4C 00 80 37 B4 |3 . TL.26.TL..7.|
00002F60: 1E 4E 46 24 B2 C8 28 4E 46 24 2C 38 AA 49 29 AA |.NF$..(NF$,8.I).|
00002F70: C7 28 54 4C 29 AA C9 28 4E 46 24 2C 37 AB 49 29 |.(TL)..(NF$,7.I)|
00002F80: 00 88 37 C8 1E 82 20 49 00 8E 37 DC 1E 8E 00 B2 |..7... I..7.....|
00002F90: 37 10 27 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |7.'. ***********|
00002FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002FB0: 2A 2A 00 CC 37 1A 27 8F 20 20 20 20 20 4D 49 53 |**..7.'. MIS|
00002FC0: 53 49 4F 4E 20 43 4F 4E 54 52 4F 4C 00 D2 37 24 |SION CONTROL..7$|
00002FD0: 27 8F 00 F3 37 2E 27 8F 20 42 41 4E 4B 20 53 54 |'...7.'. BANK ST|
00002FE0: 52 45 45 54 20 57 52 49 54 45 52 20 55 54 49 4C |REET WRITER UTIL|
00002FF0: 49 54 59 00 F9 37 38 27 8F 00 1C 38 42 27 8F 20 |ITY..78'...8B'. |
00003000: 52 4F 42 45 52 54 20 53 48 41 56 45 52 2F 41 55 |ROBERT SHAVER/AU|
00003010: 47 55 53 54 20 32 36 2C 31 39 38 33 00 3E 38 4C |GUST 26,1983.>8L|
00003020: 27 8F 20 57 49 54 48 20 41 20 4C 49 54 54 4C 45 |'. WITH A LITTLE|
00003030: 20 48 45 4C 50 20 46 52 4F 4D 20 48 49 53 00 4C | HELP FROM HIS.L|
00003040: 38 56 27 8F 20 46 52 49 45 4E 44 53 00 52 38 60 |8V'. FRIENDS.R8`|
00003050: 27 8F 00 58 38 6A 27 8F 00 64 38 74 27 8D 20 31 |'..X8j'..d8t'. 1|
00003060: 31 30 30 30 00 70 38 7E 27 8D 20 31 32 30 30 30 |1000.p8~'. 12000|
00003070: 00 8F 38 88 27 91 20 49 4E 20 8D 20 35 30 2C 37 |..8.'. IN . 50,7|
00003080: 30 30 30 2C 31 33 30 30 30 2C 31 31 35 30 30 00 |000,13000,11500.|
00003090: 9B 38 92 27 89 20 31 30 31 30 30 00 BF 38 F8 2A |.8.'. 10100..8.*|
000030A0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000030B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000030C0: D8 38 02 2B 8F 20 20 20 50 55 54 20 55 50 20 4D |.8.+. PUT UP M|
000030D0: 41 49 4E 20 4D 45 4E 55 00 DE 38 0C 2B 8F 00 F2 |AIN MENU..8.+...|
000030E0: 38 11 2B 99 20 22 93 22 3B 3A 97 35 33 32 36 39 |8.+. ".";:.53269|
000030F0: 2C 30 00 0C 39 16 2B 81 20 4A B2 31 20 A4 20 34 |,0..9.+. J.1 . 4|
00003100: 30 3A 99 22 12 20 22 3B 3A 82 20 4A 00 4F 39 20 |0:.". ";:. J.O9 |
00003110: 2B 81 20 4A B2 31 20 A4 20 32 32 3A 99 22 12 20 |+. J.1 . 22:.". |
00003120: 92 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00003130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003140: 20 20 20 20 20 20 20 12 20 22 3B 3A 82 20 4A 00 | . ";:. J.|
00003150: 6A 39 2A 2B 81 20 4A B2 31 20 A4 20 33 36 3A 99 |j9*+. J.1 . 36:.|
00003160: 22 12 20 22 3B 3A 20 82 20 4A 00 77 39 2F 2B 99 |". ";: . J.w9/+.|
00003170: 22 31 2E 30 20 22 3B 00 81 39 34 2B 99 22 92 22 |"1.0 ";..94+."."|
00003180: 3B 00 95 39 3E 2B 56 50 B2 33 3A 48 50 B2 39 3A |;..9>+VP.3:HP.9:|
00003190: 8D 20 39 39 30 00 B4 39 48 2B 99 22 D4 C8 C5 A0 |. 990..9H+."....|
000031A0: C2 C1 CE CB A0 D3 D4 D2 C5 C5 D4 A0 D7 D2 C9 D4 |................|
000031B0: C5 D2 22 3B 00 C9 39 52 2B 56 50 B2 35 3A 48 50 |..";..9R+VP.5:HP|
000031C0: B2 31 33 3A 8D 20 39 39 30 00 E1 39 5C 2B 99 22 |.13:. 990..9\+."|
000031D0: D5 D4 C9 CC C9 D4 D9 A0 D0 D2 CF C7 D2 C1 CD 22 |..............."|
000031E0: 3B 00 F5 39 66 2B 56 50 B2 38 3A 48 50 B2 35 3A |;..9f+VP.8:HP.5:|
000031F0: 8D 20 39 39 30 00 0C 3A 70 2B 99 22 C4 CF A0 D9 |. 990..:p+."....|
00003200: CF D5 A0 D7 C1 CE D4 A0 D4 CF 3A 22 00 21 3A 7A |..........:".!:z|
00003210: 2B 56 50 B2 31 30 3A 48 50 B2 39 3A 8D 20 39 39 |+VP.10:HP.9:. 99|
00003220: 30 00 3E 3A 84 2B 99 22 31 2E 20 C3 C8 C1 CE C7 |0.>:.+."1. .....|
00003230: C5 A0 D3 C5 D4 D5 D0 A0 C9 D4 C5 CD D3 22 00 53 |.............".S|
00003240: 3A 8E 2B 56 50 B2 31 32 3A 48 50 B2 39 3A 8D 20 |:.+VP.12:HP.9:. |
00003250: 39 39 30 00 6F 3A 98 2B 99 22 32 2E 20 C4 C9 D3 |990.o:.+."2. ...|
00003260: D0 CC C1 D9 A0 D0 C1 D3 D3 D7 CF D2 C4 D3 22 00 |..............".|
00003270: 83 3A A2 2B 56 50 B2 31 34 3A 48 50 B2 39 3A 8D |.:.+VP.14:HP.9:.|
00003280: 39 39 30 00 A2 3A AC 2B 99 22 33 2E 20 C3 C8 C1 |990..:.+."3. ...|
00003290: CE C7 C5 A0 D3 C3 D2 C5 C5 CE A0 C3 CF CC CF D2 |................|
000032A0: D3 22 00 B7 3A B6 2B 56 50 B2 31 36 3A 48 50 B2 |."..:.+VP.16:HP.|
000032B0: 39 3A 8D 20 39 39 30 00 C6 3A C0 2B 99 22 34 2E |9:. 990..:.+."4.|
000032C0: 20 D1 D5 C9 D4 22 00 DB 3A CA 2B 56 50 B2 31 39 | ...."..:.+VP.19|
000032D0: 3A 48 50 B2 35 3A 8D 20 39 39 30 00 F5 3A D4 2B |:HP.5:. 990..:.+|
000032E0: 99 22 D7 C8 C9 C3 C8 A0 CF CE C5 A0 28 31 2D 34 |."..........(1-4|
000032F0: 29 3F 20 22 3B 00 FB 3A DE 2B 8E 00 1F 3B EC 2C |)? ";..:.+...;.,|
00003300: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00003310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003320: 39 3B ED 2C 8F 20 20 20 20 52 45 54 55 52 4E 20 |9;.,. RETURN |
00003330: 54 4F 20 57 52 49 54 45 52 00 4B 3B F6 2C 99 22 |TO WRITER.K;.,."|
00003340: 93 22 3A 97 20 36 34 39 2C 31 30 00 69 3B 00 2D |.":. 649,10.i;.-|
00003350: 9F 20 33 2C 38 2C 33 2C 22 40 30 3A 55 54 49 4C |. 3,8,3,"@0:UTIL|
00003360: 44 41 54 41 2C 53 2C 52 22 00 74 3B 0A 2D 8D 20 |DATA,S,R".t;.-. |
00003370: 35 33 30 30 00 7C 3B 0F 2D A0 20 33 00 8D 3B 14 |5300.|;.-. 3..;.|
00003380: 2D 8B 20 4E 52 20 A7 20 31 31 36 30 30 00 98 3B |-. NR . 11600..;|
00003390: 1E 2D 8D 20 35 34 30 30 00 A4 3B 28 2D 89 20 31 |.-. 5400..;(-. 1|
000033A0: 31 35 30 30 00 BB 3B 50 2D 42 46 B2 30 3A A0 20 |1500..;P-BF.0:. |
000033B0: 31 35 3A 93 22 42 53 57 22 2C 38 00 DF 3B E0 2E |15:."BSW",8..;..|
000033C0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000033D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000033E0: FD 3B EA 2E 8F 20 20 47 45 54 20 53 49 4E 47 4C |.;... GET SINGL|
000033F0: 45 20 44 49 47 49 54 20 28 31 2D 34 29 00 03 3C |E DIGIT (1-4)..<|
00003400: F4 2E 8F 00 0D 3C FE 2E 8D 20 35 30 30 00 3B 3C |.....<... 500.;<|
00003410: 1C 2F 49 4E 20 B2 20 49 4E AB 34 38 3A 8B 20 49 |./IN . IN.48:. I|
00003420: 4E B3 31 20 B0 20 49 4E B1 34 20 A7 20 8D 20 32 |N.1 . IN.4 . . 2|
00003430: 37 30 30 3A 89 20 31 32 30 33 30 00 41 3C 26 2F |700:. 12030.A<&/|
00003440: 8E 00 65 3C C8 32 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..e<.2. ********|
00003450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003460: 2A 2A 2A 2A 2A 00 7B 3C C9 32 8F 20 20 20 43 48 |*****.{<.2. CH|
00003470: 41 4E 47 45 20 43 4F 4C 4F 52 53 00 81 3C CA 32 |ANGE COLORS..<.2|
00003480: 8F 00 9F 3C CD 32 43 31 B2 C6 28 43 56 24 28 31 |...<.2C1..(CV$(1|
00003490: 29 29 3A 43 32 B2 C6 28 43 56 24 28 32 29 29 00 |)):C2..(CV$(2)).|
000034A0: A9 3C D2 32 99 22 93 22 3B 00 BD 3C DC 32 48 50 |.<.2.".";..<.2HP|
000034B0: B2 30 3A 56 50 B2 31 3A 8D 20 39 39 30 00 EE 3C |.0:VP.1:. 990..<|
000034C0: E6 32 99 22 12 20 20 20 20 20 20 20 20 20 20 20 |.2.". |
000034D0: 20 20 C3 C8 C1 CE C7 C5 A0 C3 CF CC CF D2 20 20 | ............ |
000034E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 F7 | "..|
000034F0: 3C F0 32 53 46 B2 30 00 03 3D FA 32 8D 20 31 33 |<.2SF.0..=.2. 13|
00003500: 35 30 30 00 16 3D 22 33 48 50 B2 30 3A 56 50 B2 |500..="3HP.0:VP.|
00003510: 37 3A 8D 39 39 30 00 47 3D 2C 33 99 22 12 20 D3 |7:.990.G=,3.". .|
00003520: D0 C1 C3 C5 C2 C1 D2 A0 54 4F 20 53 45 4C 45 43 |........TO SELEC|
00003530: 54 20 D3 C3 D2 C5 C5 CE A0 4F 52 20 C3 C8 C1 D2 |T .......OR ....|
00003540: C1 C3 D4 C5 D2 A0 22 00 5C 3D 36 33 48 50 B2 35 |......".\=63HP.5|
00003550: 3A 56 50 B2 31 33 3A 8D 20 39 39 30 00 80 3D 40 |:VP.13:. 990..=@|
00003560: 33 99 22 D5 D3 C5 A0 3C A0 41 4E 44 20 3E 20 54 |3."....<.AND > T|
00003570: 4F 20 43 48 41 4E 47 45 20 43 4F 4C 4F 52 53 22 |O CHANGE COLORS"|
00003580: 00 96 3D 4A 33 48 50 B2 31 37 3A 56 50 B2 31 35 |..=J3HP.17:VP.15|
00003590: 3A 8D 20 39 39 30 00 A3 3D 54 33 99 20 22 2D CF |:. 990..=T3. "-.|
000035A0: D2 2D 22 00 B8 3D 5E 33 48 50 B2 35 3A 56 50 B2 |.-"..=^3HP.5:VP.|
000035B0: 31 37 3A 8D 20 39 39 30 00 DE 3D 68 33 99 20 22 |17:. 990..=h3. "|
000035C0: D0 52 45 53 53 20 27 D3 27 20 46 4F 52 20 D3 54 |.RESS '.' FOR .T|
000035D0: 41 4E 44 41 52 44 20 43 4F 4C 4F 52 53 22 00 F3 |ANDARD COLORS"..|
000035E0: 3D 72 33 48 50 B2 30 3A 56 50 B2 32 33 3A 8D 20 |=r3HP.0:VP.23:. |
000035F0: 39 39 30 00 10 3E 7C 33 99 22 D0 52 45 53 53 20 |990..>|3.".RESS |
00003600: D2 C5 D4 D5 D2 CE 20 54 4F 20 47 4F 20 4F 4E 22 |...... TO GO ON"|
00003610: 00 16 3E 90 33 8F 00 2B 3E 9A 33 56 49 24 B2 22 |..>.3..+>.3VI$."|
00003620: 5B 3C 3A 2C 5D 3E 3B 2E D3 53 22 00 41 3E B8 33 |[<:,]>;..S".A>.3|
00003630: 56 50 B2 32 33 3A 48 50 B2 32 32 3A 8D 20 39 39 |VP.23:HP.22:. 99|
00003640: 30 00 4B 3E BE 33 8D 20 35 30 30 00 5F 3E C7 33 |0.K>.3. 500._>.3|
00003650: 8B 20 49 4E B2 45 58 20 A7 20 31 33 37 30 30 00 |. IN.EX . 13700.|
00003660: 73 3E CC 33 8B 20 49 4E B2 52 54 20 A7 20 31 33 |s>.3. IN.RT . 13|
00003670: 36 30 30 00 91 3E D1 33 8B 20 49 4E B2 53 42 20 |600..>.3. IN.SB |
00003680: A7 20 8D 20 31 33 35 30 30 3A 89 20 31 33 32 34 |. . 13500:. 1324|
00003690: 30 00 A4 3E D6 33 81 20 49 B2 31 20 A4 20 C3 28 |0..>.3. I.1 . .(|
000036A0: 56 49 24 29 00 CC 3E DB 33 8B 20 CA 28 56 49 24 |VI$)..>.3. .(VI$|
000036B0: 2C 49 2C 31 29 B3 B1 49 4E 24 20 A7 20 82 3A 8D |,I,1)..IN$ . .:.|
000036C0: 20 32 37 30 30 3A 89 31 33 32 34 30 00 12 3F E0 | 2700:.13240..?.|
000036D0: 33 91 20 49 20 89 20 31 33 34 30 30 2C 31 33 34 |3. I . 13400,134|
000036E0: 30 30 2C 31 33 34 30 30 2C 31 33 34 30 30 2C 31 |00,13400,13400,1|
000036F0: 33 32 39 30 2C 31 33 32 39 30 2C 31 33 32 39 30 |3290,13290,13290|
00003700: 2C 31 33 32 39 30 2C 31 33 38 30 30 2C 31 33 38 |,13290,13800,138|
00003710: 30 30 00 23 3F EA 33 8B 20 53 46 20 A7 20 31 33 |00.#?.3. SF . 13|
00003720: 33 35 30 00 3E 3F F4 33 43 31 B2 43 31 AA 31 3A |350.>?.3C1.C1.1:|
00003730: 8B 20 43 31 B1 31 35 20 A7 20 43 31 B2 30 00 52 |. C1.15 . C1.0.R|
00003740: 3F F9 33 8B 20 43 31 B2 43 32 20 A7 20 31 33 33 |?.3. C1.C2 . 133|
00003750: 30 30 00 5F 3F FE 33 97 20 32 35 34 2C 43 31 00 |00._?.3. 254,C1.|
00003760: 6B 3F 03 34 9E 20 34 39 31 35 32 00 7A 3F 08 34 |k?.4. 49152.z?.4|
00003770: 99 20 43 4F 24 28 43 31 29 3B 00 86 3F 12 34 89 |. CO$(C1);..?.4.|
00003780: 20 31 33 32 34 30 00 A0 3F 26 34 43 32 B2 43 32 | 13240..?&4C2.C2|
00003790: AA 31 3A 8B 20 43 32 B1 31 35 20 A7 43 32 B2 30 |.1:. C2.15 .C2.0|
000037A0: 00 B4 3F 2B 34 8B 20 43 32 B2 43 31 20 A7 20 31 |..?+4. C2.C1 . 1|
000037B0: 33 33 35 30 00 CE 3F 30 34 97 20 35 33 32 38 30 |3350..?04. 53280|
000037C0: 2C 43 32 3A 97 20 35 33 32 38 31 2C 43 32 00 DA |,C2:. 53281,C2..|
000037D0: 3F 3A 34 89 20 31 33 32 34 30 00 EB 3F 58 34 8B |?:4. 13240..?X4.|
000037E0: 20 53 46 20 A7 20 31 33 34 35 30 00 06 40 62 34 | SF . 13450..@b4|
000037F0: 43 31 B2 43 31 AB 31 3A 8B 20 43 31 B3 30 20 A7 |C1.C1.1:. C1.0 .|
00003800: 20 43 31 B2 31 35 00 1A 40 67 34 8B 20 43 31 B2 | C1.15..@g4. C1.|
00003810: 43 32 20 A7 20 31 33 34 31 30 00 26 40 6C 34 89 |C2 . 13410.&@l4.|
00003820: 20 31 33 33 31 30 00 41 40 8A 34 43 32 B2 43 32 | 13310.A@.4C2.C2|
00003830: AB 31 3A 8B 20 43 32 B3 30 20 A7 20 43 32 B2 31 |.1:. C2.0 . C2.1|
00003840: 35 00 55 40 8F 34 8B 20 43 32 B2 43 31 20 A7 20 |5.U@.4. C2.C1 . |
00003850: 31 33 34 35 30 00 61 40 94 34 89 20 31 33 33 36 |13450.a@.4. 1336|
00003860: 30 00 84 40 BC 34 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..@.4.*********|
00003870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003880: 2A 2A 2A 2A 00 8A 40 BD 34 8F 00 A4 40 C1 34 53 |****..@.4...@.4S|
00003890: 46 B2 53 46 AA 31 3A 8B 20 53 46 B2 32 20 A7 20 |F.SF.1:. SF.2 . |
000038A0: 53 46 B2 30 00 B8 40 C6 34 48 50 B2 35 3A 56 50 |SF.0..@.4HP.5:VP|
000038B0: B2 34 3A 8D 20 39 39 30 00 C9 40 D0 34 8B 20 53 |.4:. 990..@.4. S|
000038C0: 46 20 A7 20 99 22 12 22 3B 00 D7 40 DA 34 99 22 |F . .".";..@.4."|
000038D0: D3 C3 D2 C5 C5 CE 22 00 E7 40 E4 34 48 50 B2 32 |......"..@.4HP.2|
000038E0: 36 3A 8D 20 39 39 30 00 FA 40 EE 34 8B 20 53 46 |6:. 990..@.4. SF|
000038F0: B2 30 20 A7 20 99 22 12 22 3B 00 0B 41 F8 34 99 |.0 . .".";..A.4.|
00003900: 22 C3 C8 C1 D2 C1 C3 D4 C5 D2 22 00 11 41 02 35 |"........."..A.5|
00003910: 8E 00 34 41 20 35 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..4A 5.*********|
00003920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003930: 2A 2A 2A 2A 00 53 41 21 35 8F 20 20 53 41 56 45 |****.SA!5. SAVE|
00003940: 20 4E 45 57 20 53 43 52 45 45 4E 20 43 4F 4C 4F | NEW SCREEN COLO|
00003950: 52 53 3F 00 59 41 22 35 8F 00 75 41 24 35 8B 20 |RS?.YA"5..uA$5. |
00003960: 43 31 B3 B1 C6 28 43 56 24 28 31 29 29 20 A7 20 |C1...(CV$(1)) . |
00003970: 31 33 36 31 30 00 91 41 26 35 8B 20 43 32 B3 B1 |13610..A&5. C2..|
00003980: C6 28 43 56 24 28 32 29 29 20 A7 20 31 33 36 31 |.(CV$(2)) . 1361|
00003990: 30 00 9D 41 29 35 89 20 31 33 37 33 30 00 A8 41 |0..A)5. 13730..A|
000039A0: 2A 35 99 20 22 93 22 3B 00 BD 41 34 35 48 50 B2 |*5. ".";..A45HP.|
000039B0: 30 3A 56 50 B2 31 32 3A 8D 20 39 39 30 00 E9 41 |0:VP.12:. 990..A|
000039C0: 3E 35 99 22 C4 CF A0 D9 CF D5 A0 D7 C1 CE D4 A0 |>5."............|
000039D0: D4 CF A0 D3 C1 D6 C5 A0 D4 C8 C5 D3 C5 A0 CE C5 |................|
000039E0: D7 A0 C3 CF CC CF D2 D3 22 00 12 42 43 35 99 22 |........"..BC5."|
000039F0: D4 CF A0 D4 C8 C5 A0 C4 C9 D3 CB A0 C6 CF D2 A0 |................|
00003A00: CC C1 D4 C5 D2 A0 D5 D3 C5 28 D9 2F CE 29 3F A0 |.........(./.)?.|
00003A10: 22 3B 00 1C 42 48 35 8D 20 35 30 30 00 30 42 5C |";..BH5. 500.0B\|
00003A20: 35 8B 20 49 4E B2 45 58 20 A7 20 31 33 37 30 30 |5. IN.EX . 13700|
00003A30: 00 50 42 66 35 8B 20 49 4E 24 B2 22 CE 22 20 B0 |.PBf5. IN$."." .|
00003A40: 20 49 4E 24 B2 22 4E 22 20 A7 20 31 33 37 30 30 | IN$."N" . 13700|
00003A50: 00 70 42 70 35 8B 20 49 4E 24 B2 22 D9 22 20 B0 |.pBp5. IN$."." .|
00003A60: 20 49 4E 24 B2 22 59 22 20 A7 20 31 33 36 38 35 | IN$."Y" . 13685|
00003A70: 00 83 42 71 35 8D 20 32 37 30 30 3A 89 20 31 33 |..Bq5. 2700:. 13|
00003A80: 36 34 30 00 A1 42 75 35 43 56 24 28 31 29 B2 C7 |640..Bu5CV$(1)..|
00003A90: 28 43 31 29 3A 43 56 24 28 32 29 B2 C7 28 43 32 |(C1):CV$(2)..(C2|
00003AA0: 29 00 AC 42 7A 35 8D 20 35 30 30 30 00 B8 42 7F |)..Bz5. 5000..B.|
00003AB0: 35 89 20 31 33 37 33 30 00 C2 42 84 35 99 22 93 |5. 13730..B.5.".|
00003AC0: 22 3B 00 D8 42 89 35 97 20 35 33 32 38 30 2C C6 |";..B.5. 53280,.|
00003AD0: 28 43 56 24 28 32 29 29 00 EE 42 8E 35 97 20 35 |(CV$(2))..B.5. 5|
00003AE0: 33 32 38 31 2C C6 28 43 56 24 28 32 29 29 00 04 |3281,.(CV$(2))..|
00003AF0: 43 98 35 99 20 43 4F 24 28 C6 28 43 56 24 28 31 |C.5. CO$(.(CV$(1|
00003B00: 29 29 29 3B 00 0A 43 A2 35 8E 00 2C 43 E8 35 8F |)));..C.5..,C.5.|
00003B10: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00003B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 47 43 E9 |************.GC.|
00003B30: 35 8F 20 20 20 20 20 20 53 54 41 4E 44 41 52 44 |5. STANDARD|
00003B40: 20 43 4F 4C 4F 52 53 00 4D 43 EA 35 8F 00 5C 43 | COLORS.MC.5..\C|
00003B50: F2 35 43 31 B2 31 34 3A 43 32 B2 36 00 69 43 FC |.5C1.14:C2.6.iC.|
00003B60: 35 97 20 32 35 34 2C 43 31 00 75 43 06 36 9E 20 |5. 254,C1.uC.6. |
00003B70: 34 39 31 35 32 00 84 43 10 36 99 20 43 4F 24 28 |49152..C.6. CO$(|
00003B80: 43 31 29 3B 00 9E 43 1A 36 97 20 35 33 32 38 30 |C1);..C.6. 53280|
00003B90: 2C 43 32 3A 97 20 35 33 32 38 31 2C 43 32 00 AA |,C2:. 53281,C2..|
00003BA0: 43 24 36 89 20 31 33 32 34 30 00 00 00 44 5B |C$6. 13240...D[ |
......."@0:BSUTIL",8.".... LF . 10.4....
15,8,15,"I".=...LF.1.M...."KEY1",8,1.S.
....E.... 15,8,15,"I".P.... G(8).|.... G
(14). .... 1020,169:. 1021,128:. 1022,96
...... 808,252:. 809,3.A.... 1000.L....
1600.W.#.. 4000...$.. 53280,F(CV$(2))...
%.. 53281,F(CV$(2))...&.. CO$(F(CV$(1)))
.$.(.. 10000.K.2.. *********************
***********.J.3.. CHANGE SET UP ITE
MS.U.<.. 3600.~.F.LO.2...P.. 2000...U.HP
.0:VP.5:.990...Z.. J.1 .10:. S40$;:. J.A
._.. 1800.L.S.. 2025.W.X.. 2100...... 22
00...... IN.SB . 85...... IN.EX . 4500..
.... IN.RT . 160.#.... 2300.-.... 115.I.
..2560:. T.3 . MX:. 2314.[.... IN.EX .
115.C.... T.M.... 115...... ************
******************...... INPUT ROUTINE.
......A.... 207,0:. 204,0.Z.... IN$:. IN
$."" . 520...... SC.4,17:. SC.4,0.....IN
.F(IN$)...!.. 204,1...&........".";.,...
. HP.0 . 993.9.... 211,HP.J.... VP.0 . 9
95.C.... I.1 . VP:.".";:. I.I..........
******************************...... I
NITIALIZE ITEM CONSTANTS.....MX.21.Y....
CV$(MX):. CURRENT VALUES...... OV$(MX):
. OLD CURRENT VALUES...... SS$(MX):. ITE
MS STRINGS.:.... SV$(MX):. STANDARD VALU
ES.[.... AR$(MX,2):. ALLOWED RANGES.X...
. TY(MX):. QUESTION TYPE...... :1=
#,2=ASC...... "DATA DISK DEVICE #
"...... "PRINT-DRAFT LEFT MARGIN
"...... " LINE SPAC
ING ".8.... " PAGE NU
MBERING? ".B.$.. "PRINT-FINAL LEFT
MARGIN "...... "# LINES TOTAL
PER PAGE "...8.. " FOR
TOP MARGIN "...B.. " FO
R BOTTOM MARGIN "...L.. "LINE FEE
D ON CARRIAGE RETURN? ".6.V.. "KEYCL
ICK? ".`.`.. "DE
FAULT - COLUMN WIDTH QUESTION "...J.. "
- LINE SPACING QUESTION "...T..
" - PAGE NUMBER QUESTION "...
~.. " - PAGE NUMBER LOCATION "
...... " - PAUSE BETWEEN PAGES
".6.... " - PAGE EJECT QUESTION
".A.... "FORM FEED CHARACTER ACTIVE
? "...... "FORM FEED CHARACTER
"...... "PRINTER DEVICE #
".......W.... J.3 . MX:. SS$
(J):. J...........SB . F(" ")...D.EX . F
("_")...N.RT . 13 :. RT = ASC("RETURN").
/.X.LV . F("A").?...HV . F("S").A...DE .
20 :. DE = ASC("DELETE").....LA . 157 :
. LA =ASC("LEFT ARROW").....QU$.G(34):.
QU$=".....S40$."
":. 40 SPACES...........
. 1,1,1,2,1,1,1,1,2,2,1,1,2,2,2,2,2,1,1.
*.... J.3 . MX:. TY(J):. J.J.... 8,20,2,
"Y",8,66,6,9,"N","Y",65,1,"Y","B","N","Y
","N",12,4...(.. J.3 . MX:. SV$(J):. J..
.2.. 8, 11...3.. 0, 40...4.. 1 , 3...5..
217, 206.E.6.. 0, 20.S.7.. 22, 112...8.
. 5, 20...9.. 6, 20...:.. 217, 206...;..
217, 206...<.. 40, 126.".=.. 1, 3.1.>..
217, 206.@.?.. 212, 194.O.@.. 217, 206.
^.A.. 217, 206.M.B.. 217, 206.Z.C.. 0, 2
55...D.. 4, 5...F.. J.3 . MX:. I.1 . 2..
.K.. DA:AR$(J,I).G(DA).B.P.. I:. J.H.Z..
...D.. CO$(15):. COLOR TABLE.%.I.. 144,5
,28,159,156,30,31,158,129,149,150,151,15
2,153,154,155.4.X.. J.0 . 15.J.... DA:CO
$(J).G(DA).R.... J.V.... *******SET UP S
OUND CHIP ****.....SC.54272. . .. I.SC .
SC.24:. I,0:. I...... SC.24,15...... SC
.1,100...H.. ******* SET UP KEY SPRITE *
**...R.. 53264,0:.2040,13...... 53277,0:
.53271,0.4.... 198,0:. CLEAR KEYBOARD BU
FFER.F.... 649,3:. SET KEYBOARD BUFFER T
O 3 CHARACTERS.L.6.....@.. *************
***************...A.. POKE IN ASSEMBLY
ROUTINE.M.B.. THAT CHANGES CHARACTER...
C.. COLOR MEMORY...J.. 169, 0, 133, 251
, 169, 216.#.T.. 133, 252, 165, 254, 160
, 0.F.^.. 145, 251, 200, 208, 251, 230.I
.H.. 252, 165, 252, 201, 219, 208...R..
239, 165, 254, 160, 0, 145...|.. 251, 20
0, 192, 232, 144, 249...... 96.E.... I.0
. 36.N.... IN...... 49152.I,IN...... I.
..... ******************************.$..
.. PASSWORD TABLE.1.B.. CT(42).U.L..
56,68,75,49,50,89,84,70,55,83.Y.Q.. 73,6
6,53,86,80,72,51,88,69,77...V.. 52,81,90
,76,67,54...... I.1 . 26:. IN:CT(IN.48).
192.I:. I............ ******************
************...... NEXT ITEMS.........
..LO.LO.1: . LO.4 . LO.13.,.... LO.13 .
LO.3.J.&.HI.LO.8:. HI.13 . HI.HI.1.P.0..
.P.P..".":. ***SET UP SCREEN ***...U..53
287,F(CV$(1)):. SPRITE COLOR...Z.HP.0:VP
.2:. 990.Y....". SETUP ITEMS AND CU
RRENT VALUES "............ **********
********************...........HP.0:VP.1
7:. 990.Q.... ". PRESS SPACE BAR FOR
REST OF LIST ".G...HP.0 :VP.21:. 990.
....."ENTER LETTER OF ITEM TO CHANGE (A-
S)".....HP.0:VP.22:. 990.X....53248,209:
.53249,226:. KEY SPRITE POSITION... .."(
PRESS RETURN FOR ALL, TO QUIT)"...%.
. 53269,1...*...<.4.. ******************
************.Q.5.. PUT UP ITEMS.E.=.HP
.0:VP.5:. 990.V.>.. J .LO . HI...D.. G(J
.190);". ";...H.. SS$(J);...R.. TY(J) .
2 . . CV$(J):. 2140.K.W.. F(CV$(J)).W.\.
VP.VP.1...A.HP.0:. 990...F.. J...Z......
.HP.37:VP.21:. 990...... 500.-.... IN.12
7 . IN.IN.128.N.... IN .. LV . IN .. HV
. 2295.C.... IN . SB . 2295.X.... IN . E
X . 2295...... IN . RT . 2295...J.. 2700
...... 2200.......N.... ****************
**************...... INDIVIDUAL ITEM
DISPLAY...........T.IN.62.....HP.0:VP.5:
. 990./.... J.1 .19:. S40$;:. J.=.... 53
269,0.G...MV.20._...VP.5:. 990:.".ITEM".
W...HP.7:. 990:. SS$(T)...... T.5 . T.6
. . 990:."PRINT-DRAFT".I.$.. T.9 . T.10
. . 990:."# LINES":. 2600...... T.13 . T
.19 . . 990:."DEFAULT"...B..".";:.".ALLO
WABLE RANGE.";.:.G.. T.16 . ." TOP OR BO
TTOM (T/B)":. 2390.P.L.. TY(T).2 . . " "
;AR$(T,1);" OR ";AR$(T,2):. 2390...M.. F
(AR$(T,1));"-";F(AR$(T,2));...N.. MV.20
. ." (MAX";MV;".)";...O..""...V..".."
;:.".STANDARD VALUE. ";...`.. SV$(T)...J
..".";:.".CURRENT VALUE.";.-.T.. TY(T).2
. ." ";CV$(T):. 2450.=.~.. F(CV$(T)).H.
..."..";.R...."ENTER NEW VALUE, THEN PRE
SS RETURN"......".(RETURN ALONE TO ACCEP
T CURRENT VALUE)".D...."..
===>"......53248,72:.53249,234...
... "PRESS TO RETURN TO MENU";......
53269,1.'.D.. TY(T) . 3000,3400.;...HP.0
:VP.5:. 990.V.... J.1 . 19:. S40$;:. J.C
....53269,0.I.......(.. ****************
**************...).. LOWER MAX FOR TOP
/BOTTOM?...*...L.2.TL . F(CV$(8)).10...<
.. TL..40 . 2650...F.. T.9 . MV.TL.F(CV$
(10))...P.. T.10 . MV.TL.F(CV$(9)). .Z..
.D.... *****************************.`..
.. RING DAT BELL, BOY.F.......... SC.
5,15:. SC.1,17:. SC.4,33... .. I.1 . 35:
. I...... SC.4,0:. SC.5,0:. SC.1,100.B..
........ *****************************..
... GET UP TO 3 DIGIT #.. ..... B.OT
.F(CV$(T)).( L.OT$.D(OT).8 V.ND.C(OT$).1
.L ..OT$.J(OT$,2,ND).B ..HP.26:VP.21:. 9
90.U ..." ";:.99?.. ... OT$;:. 990.
..NU.0:. 3 DIGIT NUMBER.. ..DI.0:. DIGI
TS INPUT SO FAR.U ... **GET NUMBER***..
... 500..!+.. IN..DE . IN..LA . 3125:. D
ELETE?..!,.. DI.0 . ." .";.D!-.. DI.0 .
DI.DI.1:. G(DE);:NU..(NU.10).O!... 3100.
G!5.. IN.EX . . 204,1:...!:.. IN.RT . 32
00:. CHECK NUMBER..!?.. DI.3 . . 2700:.
3100.O!D.IN.IN.48:. IN.0 . IN.9 . . 2700
:. 3100..!N.NU.NU.10.IN..!X.DI.DI.1.."Z.
VP.21:HP.25.DI:.990.."].. IN$;" ..";. "
B.. 3100.E"... *************************
*****.^"... VALUE IN RANGE?.D"....P".
.. 204,1.."... DI.0 . 3300.."... T..9 .
T.. 10 . 3210.."... NU.MV . 3220.."... N
U..F(AR$(T,1)) . NU..F(AR$(T,2)) . 3270.
."..HP.15:VP.20:. 990..#..."<VALUE OUT O
F RANGE>"..#... 2700.&# .. 990.:#... K.1
. 500:. K.Z#... "
";.E#... 3050.W#F.. T..8 . 3290..#P.. 33
10..#Z.CV$(T).G(NU)..#.....#... ********
*******************..#... CHANGE TOP/BO
TTOM MARGINS?..#.....#... NU..50 . 3390.
.$..TM.F(CV$(9)):BM.F(CV$(10)).$$..N10.N
U.10.>$... N10..TM . BM . 3390._$... TM.
N10.5 . BM.N10.6 . 3380.$... TM.BM . CV
$(10).G(N10.TM)..$ .. BM.TM . CV$(9).G(N
10.BM)..$*.. BM..TM . 3390.O$4.TM..(N10.
2):CV$(9).G(TM)..$9.CV$(10).G(N10.TM)..$
>....%H.. ***************************./%
I.. GET SINGLE ASCII CHARACTER.5%J...>%
M.OK.0.N%R.HP.26:VP.21.X%W.. 990.J%\.. C
V$(T);" ";.T%A.. 990.~%F.. 500..%P.. IN.
DE . IN.LA . ." .";:. 3430..%Z.. IN.EX .
3500.H%... IN.RT . 3490..%... IN.128 .
IN$.G(IN.128)..&... IN$..AR$(T,1) . IN$.
.AR$(T,2) . . 2700:. 3430.;&... 990:. IN
$;".";:OK.1:PV$.IN$.F&... 3430.\&... OK
. CV$(T).PV$.B&.....&... ***************
*************..&... COPY CURRENT VALS TO
OLD VALS..&.....&... J.3 . MX.P&$.OV$(J
).CV$(J).X&... J..&8...*'B.. ***********
****************** 3651 REM COPY OLD VA
LS TO CURRENT VALS.0'D...?'L.. J.3 . MX.
Q'V.CV$(J).OV$(J).Y'`.. J._'J....' .. **
***************************. '... LOA
D CURRENT VALUES..'....D'... 3,8,3,"@0:U
TILDATA,S,R".O'... 5300..'... NR . 4120.
.'H. 3..'R.. 5400..'... 4000..(... I.1
. MX..("..#3,IN$.#(,.. 5300.3(6.. NR . 4
175.;(@. 3.F(E.. 5400.Q(J.. 4000.W(O.CV
$(I).IN$:. IN$."" . CV$(I).G(0)..(P.. TY
(I).2 . CV$(I).G(F(CV$(I)).128)..(T.. I.
.(^. 3..(H...Y(... ********************
*********..(... SAVE VALUES?..(....
.)... J.3 . MX.")... OV$(J)..CV$(J) . 46
00.*)... J.0)F...C)... ".":.53269,0.W)..
HP.0:VP.8:. 990..)... " DO YOU WANT TO S
AVE THESE NEW VALUES"..)... " TO THE DIS
K FOR LATER USE (Y/N)?"..).....)..."(RET
URN ALONE TO GO BACK TO SETUP ITEMS)"..)
..HP.34:VP.9:. 990..*... **GET RESPONSE*
*..*... 500.,*... IN.RT . 70.N* .. IN$ .
"N" . IN$ ."N" . 4685.O**.. IN$ . "Y" .
IN$ ."Y". 4660..*+.. 2700:. 4630..*4..
5000..*>.. 4690..*M.. 3650..*R...M*... *
*****************************..*... SAV
E NEW VALUES TO DISK..*.....+...".";:HP.
0:VP.11:. 990.)+..."SAVING NEW VALUES...
".G+... 3,8,3,"@0:UTILDATA,S,R".R+... 53
00.H+... NR . 3:. 5015.S+... 5035..+..
. 3,8,3,"@0:UTILDATA,S,W"..+... 5300..+.
.. NR . 5040..+.. 3..+... 5400.J+... 50
00.Y+... I.1 . MX..,... TY(I).2 . .3,G(F
(CV$(I)). 95);:. 5060..,...3,CV$(I);..,D
.. 5300./,N.. NR . 5100.7,X. 3.B,... 54
00.M,... 5000.U,... I.],.. 3.C,.....,..
. *********)*******************..,...
CHECK FOR DISK ERROR..,.....,..NR.1.J,
...15,EN,ED$,EF,ES..,H.. EN..0 . NR.0..,
R....-... *****************************.
%-... PRINT ERROR MESSAGE.+-....4-..
.".".?-... 2700.T-".VP.11:HP.0:. 992.P-,
.. EN.26 . . 5530:. 5440..-1.. EN.62 . .
5560:. 5440..-6.. 5500..-@.VP.23:. 990.
J-J.."PRESS ANY KEY TO CONTINUE ";.T-O..
500..-R.."."..-T.....|.."PLEASE CHECK D
ISK AND MAKE SURE".3...."IT IS INSERTED
IN DRIVE PROPERLY.".9.....Y...."UNABLE T
O WRITE TO DISK.".~...."(DISK MAY BE WRI
TE PROTECTED)"...... "PLEASE CHECK IT.".
..........."PLEASE MAKE SURE".U.B.."PROG
RAM DISK IS IN DRIVE"...L..../X.. ******
************************."/Y.. READ A
ND DISPLAY CATALOG.(/Z...3/B.. 7500.=/C.
. 500.P/F.. IN.EX . 7780.M/G.. IN..SB .
. 2700:. 7011../L.. 3,F(CV$(3)),3,"#"../
Z.X.2../{..7600../..HP.0:VP.3:. 990.F/..
."FILENAME PASSWORD".Z/..HP.0:VP.6:. 9
90../..NC.0:FF.0../..X.5../..NT.18:NS.1.
.0...15,"U1";3;0;NT;NS.!0... 5300.10...
NR . 7090.@0.. 3:. 5400.K0... 7700.^0..
.15,"B-P:";3;0.~0...#3,IN$:. IN$."" . IN
$.G(0)..0F.NT.F(IN$):. NEXT TRACK..0P..#
3,IN$:. IN$."" . IN$.G(0).U0Z.NS.F(IN$):
. NEXT SECTOR..0..BP.2..0...15,"B-P:";3;
BP..0... 5300..1... NR . 7160..1.. 3:.
5400.'1... 7700.C1...#3,IN$:. IN$."" . 7
350.A1..FT.F(IN$).128:. FILE TYPE.1...#
3,IN$:.#3,IN$:. GARBAGE..1 .NF$.""..1*..
I.3 . 18..14..#3,IN$..1>.NF$.NF$.IN$..1
H.. I.P1J.. FT..2 . 7300.Y1K.FS.0..1M..
J(NF$,13,1).G(160) . 7300..2R.. 7800.)2\
.. H(NF$,8);" ";J(NF$,9,5):FF.1.D2F.NC
.NC.1:. NC.15 . 7300.Z2K.VP.23:HP.28:. 9
90.D2P.. 500.}2R.. IN.EX . 3:. 7780..2
U.. IN..SB . . 2700:. 7280..2Z.HP.0:VP.6
:. 7600:. 990..2.NC.0..2..BP.BP.32:. BP
.227 . 7150..2... NT..0 . 7080..2.. 3..
3... FF..1 . . 7400.!3..HP.28:VP.23:. 99
0.+3... 500.S3J.. IN..SB . IN .. EX . .
2700:. 7360.Y3T...~3... ****************
**************..3... NO WRITER FILES FO
UND..3..VP.10:HP.4:. 990..3... 2700..3..
."NO WRITER FILES ON DISK";..3$....4L..
******************************..4M..
CATALOG SCREEN.$4N.../4V.. ".";.D4`.HP.1
0:VP.1:. 990.B4J..".CATALOG AND PASSWORD
S".V4T.HP.0:VP.5:. 990..4~.."INSERT DISK
CONTAINING FILES IN DRIVE"..4..HP.0:VP.
23:.990.Z4..."PRESS SPACE BAR TO CONTINU
E"..4..VP.23:HP.28:. 990..4.....5... ***
***************************.85... CLEA
R PART OF SCREEN.L5D.HP.0:VP.X:. 990.[5N
.. I.1 . 16..5X.."
"..5... I..5.....5... **
****************************..5... TRY
AGAIN OR RETURN TO MAIN..5.....5...".":V
P.3:HP.0:. 990.$6(.."T)RY AGAIN OR R)ETU
RN TO MENU?".962.."(ENTER T OR R).N67.VP
.3:HP.31:. 990.X6<.. 500.W6F.. IN$."T" .
IN$."T" . 7000..6P.. IN$.."R" . IN$.."R
" . 7740..6D...C6X.. *******************
***********.Z6Y.. DECODE PASSWORD..6...
I.0.4..7..TL.F(J(NF$,9.I,1)).48..7... T
L.1 . TL.42 . 7880.67..TL.CT(TL):. TL.0
. 7880.D7..TL.TL.4.I.\7 .. TL.193 . TL.2
6.TL..7..NF$.H(NF$,8.I).G(TL).I(NF$,7.I)
..7H.. I..7.....7.'. *******************
**********.L7.'. MISSION CONTROL.R7$
'...7.'. BANK STREET WRITER UTILITY..78'
...8B'. ROBERT SHAVER/AUGUST 26,1983.>8L
'. WITH A LITTLE HELP FROM HIS.L8V'. FRI
ENDS.R8`'..X8J'..D8T'. 11000.P8~'. 12000
..8.'. IN . 50,7000,13000,11500..8.'. 10
100..8.*. *****************************.
X8.+. PUT UP MAIN MENU..8.+...8.+. "."
;:.53269,0..9.+. J.1 . 40:.". ";:. J.O9
+. J.1 . 22:.". .
. ";:. J.J9*+. J.1 . 36:.
". ";: . J.W9/+."1.0 ";..94+.".";..9>+VP
.3:HP.9:. 990..9H+."THE BANK STREET WRIT
ER";.I9R+VP.5:HP.13:. 990..9\+."UTILITY
PROGRAM";..9F+VP.8:HP.5:. 990..:P+."DO Y
OU WANT TO:".!:Z+VP.10:HP.9:. 990.>:.+."
1. CHANGE SETUP ITEMS".S:.+VP.12:HP.9:.
990.O:.+."2. DISPLAY PASSWORDS"..:.+VP.1
4:HP.9:.990..:.+."3. CHANGE SCREEN COLOR
S"..:.+VP.16:HP.9:. 990.F:.+."4. QUIT"..
:J+VP.19:HP.5:. 990..:T+."WHICH ONE (1-4
)? ";..:.+...;.,. **********************
*******.9;.,. RETURN TO WRITER.K;.,."
.":. 649,10.I;.-. 3,8,3,"@0:UTILDATA,S,R
".T;.-. 5300.|;.- 3..;.-. NR . 11600..;
.-. 5400..;(-. 11500..;P-BF.0: 15:."BSW
",8..;... *****************************.
.;... GET SINGLE DIGIT (1-4)..<.....<..
. 500.;<./IN . IN.48:. IN.1 . IN.4 . . 2
700:. 12030.A<&/..E<H2. ****************
*************.{<I2. CHANGE COLORS..<J2
...<M2C1.F(CV$(1)):C2.F(CV$(2))..<R2."."
;..<.2HP.0:VP.1:. 990..<.2.".
CHANGE COLOR "..<.2SF.0.
.=.2. 13500..="3HP.0:VP.7:.990.G=,3.". S
PACEBAR TO SELECT SCREEN OR CHARACTER ".
\=63HP.5:VP.13:. 990..=@3."USE < AND > T
O CHANGE COLORS"..=J3HP.17:VP.15:. 990..
=T3. "-OR-"..=^3HP.5:VP.17:. 990..=H3. "
PRESS 'S' FOR STANDARD COLORS"..=R3HP.0:
VP.23:. 990..>|3."PRESS RETURN TO GO ON"
..>.3..+>.3VI$."[<:,]>;.SS".A>.3VP.23:HP
.22:. 990.K>.3. 500._>G3. IN.EX . 13700.
S>L3. IN.RT . 13600..>Q3. IN.SB . . 1350
0:. 13240..>V3. I.1 . C(VI$).L>.3. J(VI$
,I,1)..IN$ . .:. 2700:.13240..?.3. I . 1
3400,13400,13400,13400,13290,13290,13290
,13290,13800,13800.#?.3. SF . 13350.>?.3
C1.C1.1:. C1.15 . C1.0.R?.3. C1.C2 . 133
00._?.3. 254,C1.K?.4. 49152.Z?.4. CO$(C1
);..?.4. 13240. ?&4C2.C2.1:. C2.15 .C2.0
..?+4. C2.C1 . 13350.N?04. 53280,C2:. 53
281,C2.Z?:4. 13240..?X4. SF . 13450..@B4
C1.C1.1:. C1.0 . C1.15..@G4. C1.C2 . 134
10.&@L4. 13310.A@.4C2.C2.1:. C2.0 . C2.1
5.U@.4. C2.C1 . 13450.A@.4. 13360..@.4.*
****************************..@.4...@A4S
F.SF.1:. SF.2 . SF.0..@F4HP.5:VP.4:. 990
.I@P4. SF . .".";.W@Z4."SCREEN"..@.4HP.2
6:. 990..@.4. SF.0 . .".";..A.4."CHARACT
ER"..A.5..4A 5.*************************
****.SA!5. SAVE NEW SCREEN COLORS?.YA"5
..UA$5. C1..F(CV$(1)) . 13610..A&5. C2..
F(CV$(2)) . 13610..A)5. 13730..A*5. ".";
..A45HP.0:VP.12:. 990..A>5."DO YOU WANT
TO SAVE THESE NEW COLORS"..BC5."TO THE D
ISK FOR LATER USE(Y/N)? ";..BH5. 500.0B\
5. IN.EX . 13700.PBF5. IN$."N" . IN$."N"
. 13700.PBP5. IN$."Y" . IN$."Y" . 13685
..BQ5. 2700:. 13640..BU5CV$(1).G(C1):CV$
(2).G(C2)..BZ5. 5000..B5. 13730.BB.5.".
";.XB.5. 53280,F(CV$(2))..B.5. 53281,F(C
V$(2))..C.5. CO$(F(CV$(1)));..C.5..,C.5.
***************************.GC.5.
STANDARD COLORS.MC.5..\C.5C1.14:C2.6.IC.
5. 254,C1.UC.6. 49152..C.6. CO$(C1);..C.
6. 53280,C2:. 53281,C2..C$6. 13240...D[
> CLICK IMAGE PREVIEW FOR FULL MODAL