BSUTIL
FILE INFORMATION
FILENAME(S): BSUTIL
FILE TYPE(S): PRG
FILE SIZE: 15K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 2 disk(s)
FILE HASH
70d2bc61b74b49a2d0dc9228769a91e26795db519efdda85afada16c250ecef6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BANKSTREETWRITER | BSUTIL | PRG | Radd Maxx | 21 | 3 | DOWNLOAD FILE |
| MM UTILITY | BSUTIL | PRG | Radd Maxx | 21 | 3 | 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 32 00 D9 0B F5 03 86 |.....MX.22......|
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 CE D5 CD C2 C5 D2 20 20 20 20 20 20 20 20 |........ |
000007B0: 20 20 20 20 22 00 DF 0F AD 04 83 20 22 D0 D2 C9 | "...... "...|
000007C0: CE D4 C5 D2 A0 D3 C5 C3 CF CE C4 C1 D2 D9 A0 C1 |................|
000007D0: C4 C4 D2 C5 D3 D3 20 20 20 20 20 20 20 20 22 00 |...... ".|
000007E0: E5 0F B0 04 8F 00 01 10 B5 04 81 20 4A B2 33 20 |........... J.3 |
000007F0: A4 20 4D 58 3A 87 20 53 53 24 28 4A 29 3A 82 20 |. MX:. SS$(J):. |
00000800: 4A 00 07 10 B6 04 8F 00 17 10 BA 04 53 42 20 B2 |J...........SB .|
00000810: 20 C6 28 22 20 22 29 00 27 10 C4 04 45 58 20 B2 | .(" ").'...EX .|
00000820: 20 C6 28 22 5F 22 29 00 49 10 CE 04 52 54 20 B2 | .("_").I...RT .|
00000830: 20 31 33 20 3A 8F 20 52 54 20 3D 20 41 53 43 28 | 13 :. RT = ASC(|
00000840: 22 52 45 54 55 52 4E 22 29 00 59 10 D8 04 4C 56 |"RETURN").Y...LV|
00000850: 20 B2 20 C6 28 22 41 22 29 00 69 10 E2 04 48 56 | . .("A").i...HV|
00000860: 20 B2 20 C6 28 22 54 22 29 00 8B 10 EC 04 44 45 | . .("T").....DE|
00000870: 20 B2 20 32 30 20 3A 8F 20 44 45 20 3D 20 41 53 | . 20 :. DE = AS|
00000880: 43 28 22 44 45 4C 45 54 45 22 29 00 B1 10 F1 04 |C("DELETE").....|
00000890: 4C 41 20 B2 20 31 35 37 20 3A 8F 20 4C 41 20 3D |LA . 157 :. LA =|
000008A0: 41 53 43 28 22 4C 45 46 54 20 41 52 52 4F 57 22 |ASC("LEFT ARROW"|
000008B0: 29 00 C7 10 F3 04 51 55 24 B2 C7 28 33 34 29 3A |).....QU$..(34):|
000008C0: 8F 20 51 55 24 3D 22 00 07 11 F6 04 53 34 30 24 |. QU$=".....S40$|
000008D0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 20 20 20 20 20 20 20 20 20 22 3A 8F 20 34 30 | ":. 40|
00000900: 20 53 50 41 43 45 53 00 0D 11 00 05 8F 00 3B 11 | SPACES.......;.|
00000910: 0A 05 83 20 31 2C 31 2C 31 2C 32 2C 31 2C 31 2C |... 1,1,1,2,1,1,|
00000920: 31 2C 31 2C 32 2C 32 2C 31 2C 31 2C 32 2C 32 2C |1,1,2,2,1,1,2,2,|
00000930: 32 2C 32 2C 32 2C 31 2C 31 2C 31 00 56 11 14 05 |2,2,2,1,1,1.V...|
00000940: 81 20 4A B2 33 20 A4 20 4D 58 3A 87 20 54 59 28 |. J.3 . MX:. TY(|
00000950: 4A 29 3A 82 20 4A 00 98 11 1E 05 83 20 38 2C 32 |J):. J...... 8,2|
00000960: 30 2C 32 2C 22 D9 22 2C 38 2C 36 36 2C 36 2C 39 |0,2,".",8,66,6,9|
00000970: 2C 22 CE 22 2C 22 D9 22 2C 36 35 2C 31 2C 22 D9 |,".",".",65,1,".|
00000980: 22 2C 22 C2 22 2C 22 CE 22 2C 22 D9 22 2C 22 CE |",".",".",".",".|
00000990: 22 2C 31 32 2C 34 2C 37 00 B4 11 28 05 81 20 4A |",12,4,7...(.. J|
000009A0: B2 33 20 A4 20 4D 58 3A 87 20 53 56 24 28 4A 29 |.3 . MX:. SV$(J)|
000009B0: 3A 82 20 4A 00 C0 11 32 05 83 20 38 2C 20 31 31 |:. J...2.. 8, 11|
000009C0: 00 CC 11 33 05 83 20 30 2C 20 34 30 00 D8 11 34 |...3.. 0, 40...4|
000009D0: 05 83 20 31 20 2C 20 33 00 E7 11 35 05 83 20 32 |.. 1 , 3...5.. 2|
000009E0: 31 37 2C 20 32 30 36 00 F3 11 36 05 83 20 30 2C |17, 206...6.. 0,|
000009F0: 20 32 30 00 01 12 37 05 83 20 32 32 2C 20 31 31 | 20...7.. 22, 11|
00000A00: 32 00 0D 12 38 05 83 20 35 2C 20 32 30 00 19 12 |2...8.. 5, 20...|
00000A10: 39 05 83 20 36 2C 20 32 30 00 28 12 3A 05 83 20 |9.. 6, 20.(.:.. |
00000A20: 32 31 37 2C 20 32 30 36 00 37 12 3B 05 83 20 32 |217, 206.7.;.. 2|
00000A30: 31 37 2C 20 32 30 36 00 45 12 3C 05 83 20 34 30 |17, 206.E.<.. 40|
00000A40: 2C 20 31 32 36 00 50 12 3D 05 83 20 31 2C 20 33 |, 126.P.=.. 1, 3|
00000A50: 00 5F 12 3E 05 83 20 32 31 37 2C 20 32 30 36 00 |._.>.. 217, 206.|
00000A60: 6E 12 3F 05 83 20 32 31 32 2C 20 31 39 34 00 7D |n.?.. 212, 194.}|
00000A70: 12 40 05 83 20 32 31 37 2C 20 32 30 36 00 8C 12 |.@.. 217, 206...|
00000A80: 41 05 83 20 32 31 37 2C 20 32 30 36 00 9B 12 42 |A.. 217, 206...B|
00000A90: 05 83 20 32 31 37 2C 20 32 30 36 00 A8 12 43 05 |.. 217, 206...C.|
00000AA0: 83 20 30 2C 20 32 35 35 00 B3 12 44 05 83 20 34 |. 0, 255...D.. 4|
00000AB0: 2C 20 35 00 BF 12 45 05 83 20 30 2C 32 35 35 00 |, 5...E.. 0,255.|
00000AC0: D8 12 46 05 81 20 4A B2 33 20 A4 20 4D 58 3A 81 |..F.. J.3 . MX:.|
00000AD0: 20 49 B2 31 20 A4 20 32 00 F0 12 4B 05 87 20 44 | I.1 . 2...K.. D|
00000AE0: 41 3A 41 52 24 28 4A 2C 49 29 B2 C7 28 44 41 29 |A:AR$(J,I)..(DA)|
00000AF0: 00 FC 12 50 05 82 20 49 3A 82 20 4A 00 02 13 5A |...P.. I:. J...Z|
00000B00: 05 8F 00 1E 13 64 05 86 20 43 4F 24 28 31 35 29 |.....d.. CO$(15)|
00000B10: 3A 8F 20 43 4F 4C 4F 52 20 54 41 42 4C 45 00 5F |:. COLOR TABLE._|
00000B20: 13 69 05 83 20 31 34 34 2C 35 2C 32 38 2C 31 35 |.i.. 144,5,28,15|
00000B30: 39 2C 31 35 36 2C 33 30 2C 33 31 2C 31 35 38 2C |9,156,30,31,158,|
00000B40: 31 32 39 2C 31 34 39 2C 31 35 30 2C 31 35 31 2C |129,149,150,151,|
00000B50: 31 35 32 2C 31 35 33 2C 31 35 34 2C 31 35 35 00 |152,153,154,155.|
00000B60: 6E 13 78 05 81 20 4A B2 30 20 A4 20 31 35 00 84 |n.x.. J.0 . 15..|
00000B70: 13 82 05 87 20 44 41 3A 43 4F 24 28 4A 29 B2 C7 |.... DA:CO$(J)..|
00000B80: 28 44 41 29 00 8C 13 8C 05 82 20 4A 00 B0 13 96 |(DA)...... J....|
00000B90: 05 8F 20 2A 2A 2A 2A 2A 2A 2A 53 45 54 20 55 50 |.. *******SET UP|
00000BA0: 20 53 4F 55 4E 44 20 43 48 49 50 20 2A 2A 2A 2A | SOUND CHIP ****|
00000BB0: 00 BD 13 9B 05 53 43 B2 35 34 32 37 32 00 DA 13 |.....SC.54272...|
00000BC0: A0 05 81 20 49 B2 53 43 20 A4 20 53 43 AA 32 34 |... I.SC . SC.24|
00000BD0: 3A 97 20 49 2C 30 3A 82 20 49 00 E9 13 AA 05 97 |:. I,0:. I......|
00000BE0: 20 53 43 AA 32 34 2C 31 35 00 F8 13 B4 05 97 20 | SC.24,15...... |
00000BF0: 53 43 AA 31 2C 31 30 30 00 1C 14 C8 05 8F 20 2A |SC.1,100...... *|
00000C00: 2A 2A 2A 2A 2A 2A 20 53 45 54 20 55 50 20 4B 45 |****** SET UP KE|
00000C10: 59 20 53 50 52 49 54 45 20 2A 2A 2A 00 33 14 D2 |Y SPRITE ***.3..|
00000C20: 05 97 20 35 33 32 36 34 2C 30 3A 97 32 30 34 30 |.. 53264,0:.2040|
00000C30: 2C 31 33 00 4A 14 DC 05 97 20 35 33 32 37 37 2C |,13.J.... 53277,|
00000C40: 30 3A 97 35 33 32 37 31 2C 30 00 6E 14 04 06 97 |0:.53271,0.n....|
00000C50: 20 31 39 38 2C 30 3A 8F 20 43 4C 45 41 52 20 4B | 198,0:. CLEAR K|
00000C60: 45 59 42 4F 41 52 44 20 42 55 46 46 45 52 00 A0 |EYBOARD BUFFER..|
00000C70: 14 0E 06 97 20 36 34 39 2C 33 3A 8F 20 53 45 54 |.... 649,3:. SET|
00000C80: 20 4B 45 59 42 4F 41 52 44 20 42 55 46 46 45 52 | KEYBOARD BUFFER|
00000C90: 20 54 4F 20 33 20 43 48 41 52 41 43 54 45 52 53 | TO 3 CHARACTERS|
00000CA0: 00 A6 14 36 06 8E 00 C9 14 40 06 8F 20 2A 2A 2A |...6.....@.. ***|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E9 14 41 06 8F 20 |*********...A.. |
00000CD0: 20 50 4F 4B 45 20 49 4E 20 41 53 53 45 4D 42 4C | POKE IN ASSEMBL|
00000CE0: 59 20 52 4F 55 54 49 4E 45 00 07 15 42 06 8F 20 |Y ROUTINE...B.. |
00000CF0: 20 54 48 41 54 20 43 48 41 4E 47 45 53 20 43 48 | THAT CHANGES CH|
00000D00: 41 52 41 43 54 45 52 00 1B 15 43 06 8F 20 20 43 |ARACTER...C.. C|
00000D10: 4F 4C 4F 52 20 4D 45 4D 4F 52 59 00 3C 15 4A 06 |OLOR MEMORY.<.J.|
00000D20: 83 20 31 36 39 2C 20 30 2C 20 31 33 33 2C 20 32 |. 169, 0, 133, 2|
00000D30: 35 31 2C 20 31 36 39 2C 20 32 31 36 00 5D 15 54 |51, 169, 216.].T|
00000D40: 06 83 20 31 33 33 2C 20 32 35 32 2C 20 31 36 35 |.. 133, 252, 165|
00000D50: 2C 20 32 35 34 2C 20 31 36 30 2C 20 30 00 80 15 |, 254, 160, 0...|
00000D60: 5E 06 83 20 31 34 35 2C 20 32 35 31 2C 20 32 30 |^.. 145, 251, 20|
00000D70: 30 2C 20 32 30 38 2C 20 32 35 31 2C 20 32 33 30 |0, 208, 251, 230|
00000D80: 00 A3 15 68 06 83 20 32 35 32 2C 20 31 36 35 2C |...h.. 252, 165,|
00000D90: 20 32 35 32 2C 20 32 30 31 2C 20 32 31 39 2C 20 | 252, 201, 219, |
00000DA0: 32 30 38 00 C4 15 72 06 83 20 32 33 39 2C 20 31 |208...r.. 239, 1|
00000DB0: 36 35 2C 20 32 35 34 2C 20 31 36 30 2C 20 30 2C |65, 254, 160, 0,|
00000DC0: 20 31 34 35 00 E7 15 7C 06 83 20 32 35 31 2C 20 | 145...|.. 251, |
00000DD0: 32 30 30 2C 20 31 39 32 2C 20 32 33 32 2C 20 31 |200, 192, 232, 1|
00000DE0: 34 34 2C 20 32 34 39 00 F0 15 86 06 83 20 39 36 |44, 249...... 96|
00000DF0: 00 FF 15 8B 06 81 20 49 B2 30 20 A4 20 33 36 00 |...... I.0 . 36.|
00000E00: 08 16 90 06 87 20 49 4E 00 19 16 9A 06 97 20 34 |..... IN...... 4|
00000E10: 39 31 35 32 AA 49 2C 49 4E 00 21 16 A4 06 82 20 |9152.I,IN.!.... |
00000E20: 49 00 46 16 AE 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |I.F.... ********|
00000E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E40: 2A 2A 2A 2A 2A 2A 00 5E 16 B8 06 8F 20 20 20 20 |******.^.... |
00000E50: 50 41 53 53 57 4F 52 44 20 54 41 42 4C 45 00 6B |PASSWORD TABLE.k|
00000E60: 16 C2 06 86 20 43 54 28 34 32 29 00 8F 16 CC 06 |.... CT(42).....|
00000E70: 83 20 35 36 2C 36 38 2C 37 35 2C 34 39 2C 35 30 |. 56,68,75,49,50|
00000E80: 2C 38 39 2C 38 34 2C 37 30 2C 35 35 2C 38 33 00 |,89,84,70,55,83.|
00000E90: B3 16 D1 06 83 20 37 33 2C 36 36 2C 35 33 2C 38 |..... 73,66,53,8|
00000EA0: 36 2C 38 30 2C 37 32 2C 35 31 2C 38 38 2C 36 39 |6,80,72,51,88,69|
00000EB0: 2C 37 37 00 CB 16 D6 06 83 20 35 32 2C 38 31 2C |,77...... 52,81,|
00000EC0: 39 30 2C 37 36 2C 36 37 2C 35 34 00 F3 16 EA 06 |90,76,67,54.....|
00000ED0: 81 20 49 B2 31 20 A4 20 32 36 3A 87 20 49 4E 3A |. I.1 . 26:. IN:|
00000EE0: 43 54 28 49 4E AB 34 38 29 B2 31 39 32 AA 49 3A |CT(IN.48).192.I:|
00000EF0: 82 20 49 00 F9 16 F4 06 8E 00 1E 17 08 07 8F 20 |. I............ |
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 |**************.1|
00000F20: 17 09 07 8F 20 20 20 4E 45 58 54 20 49 54 45 4D |.... NEXT ITEM|
00000F30: 53 00 37 17 0A 07 8F 00 53 17 12 07 4C 4F B2 4C |S.7.....S...LO.L|
00000F40: 4F AA 31 3A 20 8B 20 4C 4F B2 34 20 A7 20 4C 4F |O.1: . LO.4 . LO|
00000F50: B2 31 33 00 66 17 1C 07 8B 20 4C 4F B1 31 33 20 |.13.f.... LO.13 |
00000F60: A7 20 4C 4F B2 33 00 72 17 26 07 48 49 B2 4C 4F |. LO.3.r.&.HI.LO|
00000F70: AA 39 00 78 17 30 07 8E 00 98 17 D0 07 99 22 93 |.9.x.0........".|
00000F80: 22 3A 8F 20 2A 2A 2A 53 45 54 20 55 50 20 53 43 |":. ***SET UP SC|
00000F90: 52 45 45 4E 20 2A 2A 2A 00 BC 17 D5 07 97 35 33 |REEN ***......53|
00000FA0: 32 38 37 2C C6 28 43 56 24 28 31 29 29 3A 8F 20 |287,.(CV$(1)):. |
00000FB0: 53 50 52 49 54 45 20 43 4F 4C 4F 52 00 D0 17 DA |SPRITE COLOR....|
00000FC0: 07 48 50 B2 30 3A 56 50 B2 32 3A 8D 20 39 39 30 |.HP.0:VP.2:. 990|
00000FD0: 00 01 18 E4 07 99 22 12 20 20 20 20 20 20 D3 C5 |......". ..|
00000FE0: D4 D5 D0 A0 C9 D4 C5 CD D3 A0 C1 CE C4 A0 C3 D5 |................|
00000FF0: D2 D2 C5 CE D4 A0 D6 C1 CC D5 C5 D3 20 20 20 20 |............ |
00001000: 22 00 07 18 E5 07 8E 00 2C 18 E9 07 8F 20 2A 2A |".......,.... **|
00001010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 18 EA |************.2..|
00001030: 07 8F 00 47 18 EE 07 48 50 B2 30 3A 56 50 B2 31 |...G...HP.0:VP.1|
00001040: 37 3A 8D 20 39 39 30 00 79 18 F8 07 99 20 22 12 |7:. 990.y.... ".|
00001050: 20 20 20 20 20 D0 D2 C5 D3 D3 A0 D3 D0 C1 C3 C5 | ...........|
00001060: A0 C2 C1 D2 A0 C6 CF D2 A0 D2 C5 D3 D4 A0 CF C6 |................|
00001070: A0 CC C9 D3 D4 20 20 20 22 00 8F 18 02 08 48 50 |..... ".....HP|
00001080: B2 30 20 3A 56 50 B2 32 31 3A 8D 20 39 39 30 00 |.0 :VP.21:. 990.|
00001090: BB 18 0C 08 99 22 C5 CE D4 C5 D2 A0 CC C5 D4 D4 |....."..........|
000010A0: C5 D2 A0 CF C6 A0 C9 D4 C5 CD A0 D4 CF A0 C3 C8 |................|
000010B0: C1 CE C7 C5 A0 28 C1 2D D4 29 22 00 D0 18 16 08 |.....(.-.)".....|
000010C0: 48 50 B2 30 3A 56 50 B2 32 32 3A 8D 20 39 39 30 |HP.0:VP.22:. 990|
000010D0: 00 00 19 1B 08 97 35 33 32 34 38 2C 32 30 39 3A |......53248,209:|
000010E0: 97 35 33 32 34 39 2C 32 32 36 3A 8F 20 4B 45 59 |.53249,226:. KEY|
000010F0: 20 53 50 52 49 54 45 20 50 4F 53 49 54 49 4F 4E | SPRITE POSITION|
00001100: 00 2B 19 20 08 99 22 28 D0 D2 C5 D3 D3 A0 D2 C5 |.+. .."(........|
00001110: D4 D5 D2 CE A0 C6 CF D2 A0 C1 CC CC 2C 20 20 20 |............, |
00001120: 20 20 D4 CF A0 D1 D5 C9 D4 29 22 00 39 19 25 08 | .......)".9.%.|
00001130: 97 20 35 33 32 36 39 2C 31 00 3F 19 2A 08 8E 00 |. 53269,1.?.*...|
00001140: 64 19 34 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |d.4.. **********|
00001150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001160: 2A 2A 2A 2A 00 79 19 35 08 8F 20 20 20 50 55 54 |****.y.5.. PUT|
00001170: 20 55 50 20 49 54 45 4D 53 00 8D 19 3D 08 48 50 | UP ITEMS...=.HP|
00001180: B2 30 3A 56 50 B2 35 3A 8D 20 39 39 30 00 9E 19 |.0:VP.5:. 990...|
00001190: 3E 08 81 20 4A 20 B2 4C 4F 20 A4 20 48 49 00 B3 |>.. J .LO . HI..|
000011A0: 19 44 08 99 20 C7 28 4A AA 31 39 30 29 3B 22 2E |.D.. .(J.190);".|
000011B0: 20 22 3B 00 C1 19 48 08 99 20 53 53 24 28 4A 29 | ";...H.. SS$(J)|
000011C0: 3B 00 E3 19 52 08 8B 20 54 59 28 4A 29 20 B2 20 |;...R.. TY(J) . |
000011D0: 32 20 A7 20 99 20 43 56 24 28 4A 29 3A 89 20 32 |2 . . CV$(J):. 2|
000011E0: 31 34 30 00 F3 19 57 08 99 20 C6 28 43 56 24 28 |140...W.. .(CV$(|
000011F0: 4A 29 29 00 FF 19 5C 08 56 50 B2 56 50 AA 31 00 |J))...\.VP.VP.1.|
00001200: 0E 1A 61 08 48 50 B2 30 3A 8D 20 39 39 30 00 16 |..a.HP.0:. 990..|
00001210: 1A 66 08 82 20 4A 00 1C 1A 7A 08 8E 00 32 1A 98 |.f.. J...z...2..|
00001220: 08 48 50 B2 33 37 3A 56 50 B2 32 31 3A 8D 20 39 |.HP.37:VP.21:. 9|
00001230: 39 30 00 3C 1A 9D 08 8D 20 35 30 30 00 55 1A A3 |90.<.... 500.U..|
00001240: 08 8B 20 49 4E B1 31 32 37 20 A7 20 49 4E B2 49 |.. IN.127 . IN.I|
00001250: 4E AB 31 32 38 00 76 1A AC 08 8B 20 49 4E 20 B1 |N.128.v.... IN .|
00001260: B2 20 4C 56 20 AF 20 49 4E 20 B3 B2 20 48 56 20 |. LV . IN .. HV |
00001270: A7 20 32 32 39 35 00 8B 1A B1 08 8B 20 49 4E 20 |. 2295...... IN |
00001280: B2 20 53 42 20 A7 20 32 32 39 35 00 A0 1A B6 08 |. SB . 2295.....|
00001290: 8B 20 49 4E 20 B2 20 45 58 20 A7 20 32 32 39 35 |. IN . EX . 2295|
000012A0: 00 B5 1A C0 08 8B 20 49 4E 20 B2 20 52 54 20 A7 |...... IN . RT .|
000012B0: 20 32 32 39 35 00 C0 1A CA 08 8D 20 32 37 30 30 | 2295...... 2700|
000012C0: 00 CB 1A E8 08 89 20 32 32 30 30 00 D1 1A F7 08 |...... 2200.....|
000012D0: 8E 00 F6 1A FC 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
000012E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012F0: 2A 2A 2A 2A 2A 2A 00 17 1B FD 08 8F 20 20 20 20 |******...... |
00001300: 49 4E 44 49 56 49 44 55 41 4C 20 49 54 45 4D 20 |INDIVIDUAL ITEM |
00001310: 44 49 53 50 4C 41 59 00 1D 1B FE 08 8F 00 29 1B |DISPLAY.......).|
00001320: 00 09 54 B2 49 4E AB 36 32 00 3D 1B 02 09 48 50 |..T.IN.62.=...HP|
00001330: B2 30 3A 56 50 B2 35 3A 8D 20 39 39 30 00 57 1B |.0:VP.5:. 990.W.|
00001340: 06 09 81 20 4A B2 31 20 A4 31 39 3A 99 20 53 34 |... J.1 .19:. S4|
00001350: 30 24 3B 3A 82 20 4A 00 65 1B 07 09 97 20 35 33 |0$;:. J.e.... 53|
00001360: 32 36 39 2C 30 00 6F 1B 0A 09 4D 56 B2 32 30 00 |269,0.o...MV.20.|
00001370: 87 1B 0B 09 56 50 B2 35 3A 8D 20 39 39 30 3A 99 |....VP.5:. 990:.|
00001380: 22 12 C9 D4 C5 CD 22 00 9F 1B 10 09 48 50 B2 37 |".....".....HP.7|
00001390: 3A 8D 20 39 39 30 3A 99 20 53 53 24 28 54 29 00 |:. 990:. SS$(T).|
000013A0: C6 1B 1A 09 8B 20 54 B2 35 20 B0 20 54 B2 36 20 |..... T.5 . T.6 |
000013B0: A7 20 8D 20 39 39 30 3A 99 22 D0 D2 C9 CE D4 2D |. . 990:.".....-|
000013C0: C4 D2 C1 C6 D4 22 00 F1 1B 24 09 8B 20 54 B2 39 |....."...$.. T.9|
000013D0: 20 B0 20 54 B2 31 30 20 A7 20 8D 20 39 39 30 3A | . T.10 . . 990:|
000013E0: 99 22 23 20 CC C9 CE C5 D3 22 3A 8D 20 32 36 30 |."# .....":. 260|
000013F0: 30 00 16 1C 2E 09 8B 20 54 B1 31 33 20 AF 20 54 |0...... T.13 . T|
00001400: B3 31 39 20 A7 20 8D 20 39 39 30 3A 99 22 C4 C5 |.19 . . 990:."..|
00001410: C6 C1 D5 CC D4 22 00 36 1C 42 09 99 22 11 22 3B |.....".6.B..".";|
00001420: 3A 99 22 12 C1 CC CC CF D7 C1 C2 CC C5 A0 D2 C1 |:.".............|
00001430: CE C7 C5 92 22 3B 00 62 1C 47 09 8B 20 54 B2 31 |....";.b.G.. T.1|
00001440: 36 20 A7 20 99 22 20 D4 CF D0 A0 CF D2 A0 C2 CF |6 . ." .........|
00001450: D4 D4 CF CD A0 28 D4 2F C2 29 22 3A 89 20 32 33 |.....(./.)":. 23|
00001460: 39 30 00 98 1C 4C 09 8B 20 54 59 28 54 29 B2 32 |90...L.. TY(T).2|
00001470: 20 A7 20 99 20 22 20 22 3B 41 52 24 28 54 2C 31 | . . " ";AR$(T,1|
00001480: 29 3B 22 20 CF D2 20 22 3B 41 52 24 28 54 2C 32 |);" .. ";AR$(T,2|
00001490: 29 3A 89 20 32 33 39 30 00 BB 1C 4D 09 99 20 C6 |):. 2390...M.. .|
000014A0: 28 41 52 24 28 54 2C 31 29 29 3B 22 2D 22 3B C6 |(AR$(T,1));"-";.|
000014B0: 28 41 52 24 28 54 2C 32 29 29 3B 00 DE 1C 4E 09 |(AR$(T,2));...N.|
000014C0: 8B 20 4D 56 B3 32 30 20 A7 20 99 22 20 20 20 20 |. MV.20 . ." |
000014D0: 28 4D 41 58 22 3B 4D 56 3B 22 9D 29 22 3B 00 E6 |(MAX";MV;".)";..|
000014E0: 1C 4F 09 99 22 22 00 07 1D 56 09 99 22 11 11 22 |.O..""...V..".."|
000014F0: 3B 3A 99 22 12 D3 D4 C1 CE C4 C1 D2 C4 A0 D6 C1 |;:."............|
00001500: CC D5 C5 92 20 22 3B 00 14 1D 60 09 99 20 53 56 |.... ";...`.. SV|
00001510: 24 28 54 29 00 32 1D 6A 09 99 22 11 22 3B 3A 99 |$(T).2.j..".";:.|
00001520: 22 12 C3 D5 D2 D2 C5 CE D4 A0 D6 C1 CC D5 C5 92 |"...............|
00001530: 22 3B 00 55 1D 74 09 8B 20 54 59 28 54 29 B2 32 |";.U.t.. TY(T).2|
00001540: 20 A7 20 99 22 20 22 3B 43 56 24 28 54 29 3A 89 | . ." ";CV$(T):.|
00001550: 20 32 34 35 30 00 65 1D 7E 09 99 20 C6 28 43 56 | 2450.e.~.. .(CV|
00001560: 24 28 54 29 29 00 70 1D 92 09 99 22 11 11 22 3B |$(T)).p...."..";|
00001570: 00 9A 1D 97 09 99 22 C5 CE D4 C5 D2 A0 CE C5 D7 |......".........|
00001580: A0 D6 C1 CC D5 C5 2C A0 D4 C8 C5 CE A0 D0 D2 C5 |......,.........|
00001590: D3 D3 A0 D2 C5 D4 D5 D2 CE 22 00 C9 1D 9C 09 99 |........."......|
000015A0: 22 91 28 D2 C5 D4 D5 D2 CE A0 C1 CC CF CE C5 A0 |".(.............|
000015B0: D4 CF A0 C1 C3 C3 C5 D0 D4 A0 C3 D5 D2 D2 C5 CE |................|
000015C0: D4 A0 D6 C1 CC D5 C5 29 22 00 EC 1D A6 09 99 22 |.......)"......"|
000015D0: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000015E0: 20 20 20 20 20 20 20 3D 3D 3D 3E 22 00 05 1E AB | ===>"....|
000015F0: 09 97 35 33 32 34 38 2C 37 32 3A 97 35 33 32 34 |..53248,72:.5324|
00001600: 39 2C 32 33 34 00 2A 1E B0 09 99 20 22 D0 D2 C5 |9,234.*.... "...|
00001610: D3 D3 A0 20 20 20 20 D4 CF A0 D2 C5 D4 D5 D2 CE |... .........|
00001620: A0 D4 CF A0 CD C5 CE D5 22 3B 00 37 1E B5 09 97 |........";.7....|
00001630: 35 33 32 36 39 2C 31 00 4F 1E C4 09 91 20 54 59 |53269,1.O.... TY|
00001640: 28 54 29 20 8D 20 33 30 30 30 2C 33 34 30 30 00 |(T) . 3000,3400.|
00001650: 63 1E 00 0A 48 50 B2 30 3A 56 50 B2 35 3A 8D 20 |c...HP.0:VP.5:. |
00001660: 39 39 30 00 7E 1E 0A 0A 81 20 4A B2 31 20 A4 20 |990.~.... J.1 . |
00001670: 31 39 3A 99 20 53 34 30 24 3B 3A 82 20 4A 00 8B |19:. S40$;:. J..|
00001680: 1E 0F 0A 97 35 33 32 36 39 2C 30 00 91 1E 14 0A |....53269,0.....|
00001690: 8E 00 B6 1E 28 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....(.. ********|
000016A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016B0: 2A 2A 2A 2A 2A 2A 00 D8 1E 29 0A 8F 20 20 20 4C |******...).. L|
000016C0: 4F 57 45 52 20 4D 41 58 20 46 4F 52 20 54 4F 50 |OWER MAX FOR TOP|
000016D0: 2F 42 4F 54 54 4F 4D 3F 00 DE 1E 2A 0A 8F 00 F4 |/BOTTOM?...*....|
000016E0: 1E 32 0A 54 4C 20 B2 20 C6 28 43 56 24 28 38 29 |.2.TL . .(CV$(8)|
000016F0: 29 AB 31 30 00 08 1F 3C 0A 8B 20 54 4C B1 B2 34 |).10...<.. TL..4|
00001700: 30 20 A7 20 32 36 35 30 00 25 1F 46 0A 8B 20 54 |0 . 2650.%.F.. T|
00001710: B2 39 20 A7 20 4D 56 B2 54 4C AB C6 28 43 56 24 |.9 . MV.TL..(CV$|
00001720: 28 31 30 29 29 00 42 1F 50 0A 8B 20 54 B2 31 30 |(10)).B.P.. T.10|
00001730: 20 A7 20 4D 56 B2 54 4C AB C6 28 43 56 24 28 39 | . MV.TL..(CV$(9|
00001740: 29 29 00 48 1F 5A 0A 8E 00 6C 1F 8C 0A 8F 20 2A |)).H.Z...l.... *|
00001750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 88 1F 8D |************....|
00001770: 0A 8F 20 20 20 20 52 49 4E 47 20 44 41 54 20 42 |.. RING DAT B|
00001780: 45 4C 4C 2C 20 42 4F 59 00 8E 1F 8E 0A 8F 00 B0 |ELL, BOY........|
00001790: 1F 96 0A 97 20 53 43 AA 35 2C 31 35 3A 97 20 53 |.... SC.5,15:. S|
000017A0: 43 AA 31 2C 31 37 3A 97 20 53 43 AA 34 2C 33 33 |C.1,17:. SC.4,33|
000017B0: 00 C3 1F A0 0A 81 20 49 B2 31 20 A4 20 33 35 3A |...... I.1 . 35:|
000017C0: 82 20 49 00 E4 1F AA 0A 97 20 53 43 AA 34 2C 30 |. I...... SC.4,0|
000017D0: 3A 97 20 53 43 AA 35 2C 30 3A 97 20 53 43 AA 31 |:. SC.5,0:. SC.1|
000017E0: 2C 31 30 30 00 EA 1F B4 0A 8E 00 0E 20 B8 0B 8F |,100........ ...|
000017F0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2B |**************.+|
00001810: 20 B9 0B 8F 20 20 20 20 47 45 54 20 55 50 20 54 | ... GET UP T|
00001820: 4F 20 33 20 44 49 47 49 54 20 23 00 31 20 BA 0B |O 3 DIGIT #.1 ..|
00001830: 8F 00 42 20 C2 0B 4F 54 B2 C6 28 43 56 24 28 54 |..B ..OT..(CV$(T|
00001840: 29 29 00 50 20 CC 0B 4F 54 24 B2 C4 28 4F 54 29 |)).P ..OT$..(OT)|
00001850: 00 60 20 D6 0B 4E 44 B2 C3 28 4F 54 24 29 AB 31 |.` ..ND..(OT$).1|
00001860: 00 74 20 E0 0B 4F 54 24 B2 CA 28 4F 54 24 2C 32 |.t ..OT$..(OT$,2|
00001870: 2C 4E 44 29 00 8A 20 EA 0B 48 50 B2 32 36 3A 56 |,ND).. ..HP.26:V|
00001880: 50 B2 32 31 3A 8D 20 39 39 30 00 9D 20 F4 0B 99 |P.21:. 990.. ...|
00001890: 22 20 20 20 20 20 22 3B 3A 8D 39 39 30 00 AE 20 |" ";:.990.. |
000018A0: FE 0B 99 20 4F 54 24 3B 3A 8D 20 39 39 30 00 C8 |... OT$;:. 990..|
000018B0: 20 08 0C 4E 55 B2 30 3A 8F 20 33 20 44 49 47 49 | ..NU.0:. 3 DIGI|
000018C0: 54 20 4E 55 4D 42 45 52 00 E7 20 12 0C 44 49 B2 |T NUMBER.. ..DI.|
000018D0: 30 3A 8F 20 44 49 47 49 54 53 20 49 4E 50 55 54 |0:. DIGITS INPUT|
000018E0: 20 53 4F 20 46 41 52 00 FD 20 1C 0C 8F 20 2A 2A | SO FAR.. ... **|
000018F0: 47 45 54 20 4E 55 4D 42 45 52 2A 2A 2A 00 07 21 |GET NUMBER***..!|
00001900: 1D 0C 8D 20 35 30 30 00 2E 21 2B 0C 8B 20 49 4E |... 500..!+.. IN|
00001910: B3 B1 44 45 20 AF 20 49 4E B3 B1 4C 41 20 A7 20 |..DE . IN..LA . |
00001920: 33 31 32 35 3A 8F 20 44 45 4C 45 54 45 3F 00 42 |3125:. DELETE?.B|
00001930: 21 2C 0C 8B 20 44 49 B2 30 20 A7 20 99 22 20 9D |!,.. DI.0 . ." .|
00001940: 22 3B 00 6C 21 2D 0C 8B 20 44 49 B1 30 20 A7 20 |";.l!-.. DI.0 . |
00001950: 44 49 B2 44 49 AB 31 3A 99 20 C7 28 44 45 29 3B |DI.DI.1:. .(DE);|
00001960: 3A 4E 55 B2 B5 28 4E 55 AD 31 30 29 00 77 21 2E |:NU..(NU.10).w!.|
00001970: 0C 89 20 33 31 30 30 00 8F 21 35 0C 8B 20 49 4E |.. 3100..!5.. IN|
00001980: B2 45 58 20 A7 20 97 20 32 30 34 2C 31 3A 8E 00 |.EX . . 204,1:..|
00001990: B1 21 3A 0C 8B 20 49 4E B2 52 54 20 A7 20 33 32 |.!:.. IN.RT . 32|
000019A0: 30 30 3A 8F 20 43 48 45 43 4B 20 4E 55 4D 42 45 |00:. CHECK NUMBE|
000019B0: 52 00 CC 21 3F 0C 8B 20 44 49 B2 33 20 A7 20 8D |R..!?.. DI.3 . .|
000019C0: 20 32 37 30 30 3A 89 20 33 31 30 30 00 F7 21 44 | 2700:. 3100..!D|
000019D0: 0C 49 4E B2 49 4E AB 34 38 3A 8B 20 49 4E B3 30 |.IN.IN.48:. IN.0|
000019E0: 20 B0 20 49 4E B1 39 20 A7 20 8D 20 32 37 30 30 | . IN.9 . . 2700|
000019F0: 3A 89 20 33 31 30 30 00 07 22 4E 0C 4E 55 B2 4E |:. 3100.."N.NU.N|
00001A00: 55 AC 31 30 AA 49 4E 00 13 22 58 0C 44 49 B2 44 |U.10.IN.."X.DI.D|
00001A10: 49 AA 31 00 2B 22 5A 0C 56 50 B2 32 31 3A 48 50 |I.1.+"Z.VP.21:HP|
00001A20: B2 32 35 AA 44 49 3A 8D 39 39 30 00 3D 22 5D 0C |.25.DI:.990.="].|
00001A30: 99 20 49 4E 24 3B 22 20 20 9D 9D 22 3B 00 48 22 |. IN$;" ..";.H"|
00001A40: 62 0C 89 20 33 31 30 30 00 6D 22 80 0C 8F 20 2A |b.. 3100.m"... *|
00001A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 22 |*************.."|
00001A70: 81 0C 8F 20 20 20 20 56 41 4C 55 45 20 49 4E 20 |... VALUE IN |
00001A80: 52 41 4E 47 45 3F 00 8C 22 82 0C 8F 00 98 22 84 |RANGE?..".....".|
00001A90: 0C 97 20 32 30 34 2C 31 00 AA 22 85 0C 8B 20 44 |.. 204,1.."... D|
00001AA0: 49 B2 30 20 A7 20 33 33 30 30 00 C5 22 87 0C 8B |I.0 . 3300.."...|
00001AB0: 20 54 B3 B1 39 20 AF 20 54 B3 B1 20 31 30 20 A7 | T..9 . T.. 10 .|
00001AC0: 20 33 32 31 30 00 D8 22 88 0C 8B 20 4E 55 B1 4D | 3210.."... NU.M|
00001AD0: 56 20 A7 20 33 32 32 30 00 07 23 8A 0C 8B 20 4E |V . 3220..#... N|
00001AE0: 55 B1 B2 C6 28 41 52 24 28 54 2C 31 29 29 20 AF |U...(AR$(T,1)) .|
00001AF0: 20 4E 55 B3 B2 C6 28 41 52 24 28 54 2C 32 29 29 | NU...(AR$(T,2))|
00001B00: 20 A7 20 33 32 37 30 00 1D 23 94 0C 48 50 B2 31 | . 3270..#..HP.1|
00001B10: 35 3A 56 50 B2 32 30 3A 8D 20 39 39 30 00 39 23 |5:VP.20:. 990.9#|
00001B20: 9E 0C 99 22 3C D6 C1 CC D5 C5 A0 CF D5 D4 A0 CF |..."<...........|
00001B30: C6 A0 D2 C1 CE C7 C5 3E 22 00 44 23 9F 0C 8D 20 |.......>".D#... |
00001B40: 32 37 30 30 00 4E 23 A0 0C 8D 20 39 39 30 00 62 |2700.N#... 990.b|
00001B50: 23 A2 0C 81 20 4B B2 31 20 A4 20 35 30 30 3A 82 |#... K.1 . 500:.|
00001B60: 20 4B 00 82 23 A4 0C 99 20 22 20 20 20 20 20 20 | K..#... " |
00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B80: 22 3B 00 8D 23 BC 0C 89 20 33 30 35 30 00 9F 23 |";..#... 3050..#|
00001B90: C6 0C 8B 20 54 B3 B1 38 20 A7 20 33 32 39 30 00 |... T..8 . 3290.|
00001BA0: AA 23 D0 0C 8D 20 33 33 31 30 00 BB 23 DA 0C 43 |.#... 3310..#..C|
00001BB0: 56 24 28 54 29 B2 C7 28 4E 55 29 00 C1 23 E4 0C |V$(T)..(NU)..#..|
00001BC0: 8E 00 E3 23 EE 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...#... ********|
00001BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BE0: 2A 2A 2A 00 05 24 EF 0C 8F 20 20 43 48 41 4E 47 |***..$... CHANG|
00001BF0: 45 20 54 4F 50 2F 42 4F 54 54 4F 4D 20 4D 41 52 |E TOP/BOTTOM MAR|
00001C00: 47 49 4E 53 3F 00 0B 24 F0 0C 8F 00 1F 24 F8 0C |GINS?..$.....$..|
00001C10: 8B 20 4E 55 B1 B2 35 30 20 A7 20 33 33 39 30 00 |. NU..50 . 3390.|
00001C20: 3E 24 02 0D 54 4D B2 C6 28 43 56 24 28 39 29 29 |>$..TM..(CV$(9))|
00001C30: 3A 42 4D B2 C6 28 43 56 24 28 31 30 29 29 00 4C |:BM..(CV$(10)).L|
00001C40: 24 05 0D 4E 31 30 B2 4E 55 AB 31 30 00 66 24 07 |$..N10.NU.10.f$.|
00001C50: 0D 8B 20 4E 31 30 B1 B2 54 4D 20 AA 20 42 4D 20 |.. N10..TM . BM |
00001C60: A7 20 33 33 39 30 00 87 24 0C 0D 8B 20 54 4D B1 |. 3390..$... TM.|
00001C70: 4E 31 30 AB 35 20 AF 20 42 4D B1 4E 31 30 AB 36 |N10.5 . BM.N10.6|
00001C80: 20 A7 20 33 33 38 30 00 A7 24 16 0D 8B 20 54 4D | . 3380..$... TM|
00001C90: B3 42 4D 20 A7 20 43 56 24 28 31 30 29 B2 C7 28 |.BM . CV$(10)..(|
00001CA0: 4E 31 30 AB 54 4D 29 00 C6 24 20 0D 8B 20 42 4D |N10.TM)..$ .. BM|
00001CB0: B3 54 4D 20 A7 20 43 56 24 28 39 29 B2 C7 28 4E |.TM . CV$(9)..(N|
00001CC0: 31 30 AB 42 4D 29 00 DA 24 2A 0D 8B 20 42 4D B3 |10.BM)..$*.. BM.|
00001CD0: B1 54 4D 20 A7 20 33 33 39 30 00 F7 24 34 0D 54 |.TM . 3390..$4.T|
00001CE0: 4D B2 B5 28 4E 31 30 AD 32 29 3A 43 56 24 28 39 |M..(N10.2):CV$(9|
00001CF0: 29 B2 C7 28 54 4D 29 00 0D 25 39 0D 43 56 24 28 |)..(TM)..%9.CV$(|
00001D00: 31 30 29 B2 C7 28 4E 31 30 AB 54 4D 29 00 13 25 |10)..(N10.TM)..%|
00001D10: 3E 0D 8E 00 35 25 48 0D 8F 20 2A 2A 2A 2A 2A 2A |>...5%H.. ******|
00001D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D30: 2A 2A 2A 2A 2A 00 57 25 49 0D 8F 20 20 47 45 54 |*****.W%I.. GET|
00001D40: 20 53 49 4E 47 4C 45 20 41 53 43 49 49 20 43 48 | SINGLE ASCII CH|
00001D50: 41 52 41 43 54 45 52 00 5D 25 4A 0D 8F 00 66 25 |ARACTER.]%J...f%|
00001D60: 4D 0D 4F 4B B2 30 00 76 25 52 0D 48 50 B2 32 36 |M.OK.0.v%R.HP.26|
00001D70: 3A 56 50 B2 32 31 00 80 25 57 0D 8D 20 39 39 30 |:VP.21..%W.. 990|
00001D80: 00 92 25 5C 0D 99 20 43 56 24 28 54 29 3B 22 20 |..%\.. CV$(T);" |
00001D90: 22 3B 00 9C 25 61 0D 8D 20 39 39 30 00 A6 25 66 |";..%a.. 990..%f|
00001DA0: 0D 8D 20 35 30 30 00 CA 25 70 0D 8B 20 49 4E B2 |.. 500..%p.. IN.|
00001DB0: 44 45 20 B0 20 49 4E B2 4C 41 20 A7 20 99 22 20 |DE . IN.LA . ." |
00001DC0: 9D 22 3B 3A 89 20 33 34 33 30 00 DD 25 7A 0D 8B |.";:. 3430..%z..|
00001DD0: 20 49 4E B2 45 58 20 A7 20 33 35 30 30 00 F0 25 | IN.EX . 3500..%|
00001DE0: 84 0D 8B 20 49 4E B2 52 54 20 A7 20 33 34 39 30 |... IN.RT . 3490|
00001DF0: 00 0D 26 89 0D 8B 20 49 4E B3 31 32 38 20 A7 20 |..&... IN.128 . |
00001E00: 49 4E 24 B2 C7 28 49 4E AA 31 32 38 29 00 41 26 |IN$..(IN.128).A&|
00001E10: 8E 0D 8B 20 49 4E 24 B3 B1 41 52 24 28 54 2C 31 |... IN$..AR$(T,1|
00001E20: 29 20 AF 20 49 4E 24 B3 B1 41 52 24 28 54 2C 32 |) . IN$..AR$(T,2|
00001E30: 29 20 A7 20 8D 20 32 37 30 30 3A 89 20 33 34 33 |) . . 2700:. 343|
00001E40: 30 00 63 26 93 0D 8D 20 39 39 30 3A 99 20 49 4E |0.c&... 990:. IN|
00001E50: 24 3B 22 9D 22 3B 3A 4F 4B B2 31 3A 50 56 24 B2 |$;".";:OK.1:PV$.|
00001E60: 49 4E 24 00 6E 26 98 0D 89 20 33 34 33 30 00 84 |IN$.n&... 3430..|
00001E70: 26 A2 0D 8B 20 4F 4B 20 A7 20 43 56 24 28 54 29 |&... OK . CV$(T)|
00001E80: B2 50 56 24 00 8A 26 AC 0D 8E 00 AD 26 10 0E 8F |.PV$..&.....&...|
00001E90: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D1 26 |*************..&|
00001EB0: 11 0E 8F 20 43 4F 50 59 20 43 55 52 52 45 4E 54 |... COPY CURRENT|
00001EC0: 20 56 41 4C 53 20 54 4F 20 4F 4C 44 20 56 41 4C | VALS TO OLD VAL|
00001ED0: 53 00 D7 26 12 0E 8F 00 E6 26 1A 0E 81 20 4A B2 |S..&.....&... J.|
00001EE0: 33 20 A4 20 4D 58 00 F8 26 24 0E 4F 56 24 28 4A |3 . MX..&$.OV$(J|
00001EF0: 29 B2 43 56 24 28 4A 29 00 00 27 2E 0E 82 20 4A |).CV$(J)..'... J|
00001F00: 00 06 27 38 0E 8E 00 52 27 42 0E 8F 20 2A 2A 2A |..'8...R'B.. ***|
00001F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 33 36 35 31 |********** 3651|
00001F30: 20 52 45 4D 20 43 4F 50 59 20 4F 4C 44 20 56 41 | REM COPY OLD VA|
00001F40: 4C 53 20 54 4F 20 43 55 52 52 45 4E 54 20 56 41 |LS TO CURRENT VA|
00001F50: 4C 53 00 58 27 44 0E 8F 00 67 27 4C 0E 81 20 4A |LS.X'D...g'L.. J|
00001F60: B2 33 20 A4 20 4D 58 00 79 27 56 0E 43 56 24 28 |.3 . MX.y'V.CV$(|
00001F70: 4A 29 B2 4F 56 24 28 4A 29 00 81 27 60 0E 82 20 |J).OV$(J)..'`.. |
00001F80: 4A 00 87 27 6A 0E 8E 00 AB 27 A0 0F 8F 20 2A 2A |J..'j....'... **|
00001F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C8 27 A1 0F |***********..'..|
00001FB0: 8F 20 20 20 20 4C 4F 41 44 20 43 55 52 52 45 4E |. LOAD CURREN|
00001FC0: 54 20 56 41 4C 55 45 53 00 CE 27 A2 0F 8F 00 EC |T VALUES..'.....|
00001FD0: 27 AA 0F 9F 20 33 2C 38 2C 33 2C 22 40 30 3A 55 |'... 3,8,3,"@0:U|
00001FE0: 54 49 4C 44 41 54 41 2C 53 2C 52 22 00 F7 27 B4 |TILDATA,S,R"..'.|
00001FF0: 0F 8D 20 35 33 30 30 00 07 28 BE 0F 8B 20 4E 52 |.. 5300..(... NR|
00002000: 20 A7 20 34 31 32 30 00 0F 28 C8 0F A0 20 33 00 | . 4120..(... 3.|
00002010: 1A 28 D2 0F 8D 20 35 34 30 30 00 25 28 DC 0F 89 |.(... 5400.%(...|
00002020: 20 34 30 30 30 00 34 28 18 10 81 20 49 B2 31 20 | 4000.4(... I.1 |
00002030: A4 20 4D 58 00 40 28 22 10 A1 23 33 2C 49 4E 24 |. MX.@("..#3,IN$|
00002040: 00 4B 28 2C 10 8D 20 35 33 30 30 00 5B 28 36 10 |.K(,.. 5300.[(6.|
00002050: 8B 20 4E 52 20 A7 20 34 31 37 35 00 63 28 40 10 |. NR . 4175.c(@.|
00002060: A0 20 33 00 6E 28 45 10 8D 20 35 34 30 30 00 79 |. 3.n(E.. 5400.y|
00002070: 28 4A 10 89 20 34 30 30 30 00 9F 28 4F 10 43 56 |(J.. 4000..(O.CV|
00002080: 24 28 49 29 B2 49 4E 24 3A 8B 20 49 4E 24 B2 22 |$(I).IN$:. IN$."|
00002090: 22 20 A7 20 43 56 24 28 49 29 B2 C7 28 30 29 00 |" . CV$(I)..(0).|
000020A0: C7 28 50 10 8B 20 54 59 28 49 29 B2 32 20 A7 20 |.(P.. TY(I).2 . |
000020B0: 43 56 24 28 49 29 B2 C7 28 C6 28 43 56 24 28 49 |CV$(I)..(.(CV$(I|
000020C0: 29 29 B0 31 32 38 29 00 CF 28 54 10 82 20 49 00 |)).128)..(T.. I.|
000020D0: D7 28 5E 10 A0 20 33 00 DD 28 68 10 8E 00 01 29 |.(^.. 3..(h....)|
000020E0: 94 11 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000020F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002100: 2A 00 19 29 95 11 8F 20 20 20 20 20 20 53 41 56 |*..)... SAV|
00002110: 45 20 56 41 4C 55 45 53 3F 00 1F 29 96 11 8F 00 |E VALUES?..)....|
00002120: 2E 29 A8 11 81 20 4A B2 33 20 A4 20 4D 58 00 4A |.)... J.3 . MX.J|
00002130: 29 B2 11 8B 20 4F 56 24 28 4A 29 B3 B1 43 56 24 |)... OV$(J)..CV$|
00002140: 28 4A 29 20 A7 20 34 36 30 30 00 52 29 BC 11 82 |(J) . 4600.R)...|
00002150: 20 4A 00 58 29 C6 11 8E 00 6B 29 F8 11 99 20 22 | J.X)....k)... "|
00002160: 93 22 3A 97 35 33 32 36 39 2C 30 00 7F 29 02 12 |.":.53269,0..)..|
00002170: 48 50 B2 30 3A 56 50 B2 38 3A 8D 20 39 39 30 00 |HP.0:VP.8:. 990.|
00002180: AD 29 0C 12 99 20 22 20 C4 CF A0 D9 CF D5 A0 D7 |.)... " ........|
00002190: C1 CE D4 A0 D4 CF A0 D3 C1 D6 C5 A0 D4 C8 C5 D3 |................|
000021A0: C5 A0 CE C5 D7 A0 D6 C1 CC D5 C5 D3 22 00 D7 29 |............"..)|
000021B0: 0D 12 99 20 22 20 D4 CF A0 D4 C8 C5 A0 C4 C9 D3 |... " ..........|
000021C0: CB A0 C6 CF D2 A0 CC C1 D4 C5 D2 A0 D5 D3 C5 A0 |................|
000021D0: 28 D9 2F CE 29 3F 22 00 DD 29 0E 12 99 00 0D 2A |(./.)?"..).....*|
000021E0: 0F 12 99 22 28 D2 C5 D4 D5 D2 CE A0 C1 CC CF CE |..."(...........|
000021F0: C5 A0 D4 CF A0 C7 CF A0 C2 C1 C3 CB A0 D4 CF A0 |................|
00002200: D3 C5 D4 D5 D0 A0 C9 D4 C5 CD D3 29 22 00 22 2A |...........)"."*|
00002210: 11 12 48 50 B2 33 34 3A 56 50 B2 39 3A 8D 20 39 |..HP.34:VP.9:. 9|
00002220: 39 30 00 39 2A 12 12 8F 20 2A 2A 47 45 54 20 52 |90.9*... **GET R|
00002230: 45 53 50 4F 4E 53 45 2A 2A 00 43 2A 16 12 8D 20 |ESPONSE**.C*... |
00002240: 35 30 30 00 54 2A 1C 12 8B 20 49 4E B2 52 54 20 |500.T*... IN.RT |
00002250: A7 20 37 30 00 76 2A 20 12 8B 20 49 4E 24 20 B2 |. 70.v* .. IN$ .|
00002260: 20 22 4E 22 20 B0 20 49 4E 24 20 B2 22 CE 22 20 | "N" . IN$ ."." |
00002270: A7 20 34 36 38 35 00 97 2A 2A 12 8B 20 49 4E 24 |. 4685..**.. IN$|
00002280: 20 B2 20 22 59 22 20 B0 20 49 4E 24 20 B2 22 D9 | . "Y" . IN$ .".|
00002290: 22 A7 20 34 36 36 30 00 A9 2A 2B 12 8D 20 32 37 |". 4660..*+.. 27|
000022A0: 30 30 3A 89 20 34 36 33 30 00 B4 2A 34 12 8D 20 |00:. 4630..*4.. |
000022B0: 35 30 30 30 00 BF 2A 3E 12 89 20 34 36 39 30 00 |5000..*>.. 4690.|
000022C0: CA 2A 4D 12 8D 20 33 36 35 30 00 D0 2A 52 12 8E |.*M.. 3650..*R..|
000022D0: 00 F5 2A 88 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..*... *********|
000022E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000022F0: 2A 2A 2A 2A 2A 00 14 2B 89 13 8F 20 20 53 41 56 |*****..+... SAV|
00002300: 45 20 4E 45 57 20 56 41 4C 55 45 53 20 54 4F 20 |E NEW VALUES TO |
00002310: 44 49 53 4B 00 1A 2B 8A 13 8F 00 35 2B 8D 13 99 |DISK..+....5+...|
00002320: 22 93 22 3B 3A 48 50 B2 30 3A 56 50 B2 31 31 3A |".";:HP.0:VP.11:|
00002330: 8D 20 39 39 30 00 51 2B 8E 13 99 22 D3 C1 D6 C9 |. 990.Q+..."....|
00002340: CE C7 A0 CE C5 D7 A0 D6 C1 CC D5 C5 D3 2E 2E 2E |................|
00002350: 22 00 6F 2B 8F 13 9F 20 33 2C 38 2C 33 2C 22 40 |".o+... 3,8,3,"@|
00002360: 30 3A 55 54 49 4C 44 41 54 41 2C 53 2C 52 22 00 |0:UTILDATA,S,R".|
00002370: 7A 2B 91 13 8D 20 35 33 30 30 00 90 2B 92 13 8B |z+... 5300..+...|
00002380: 20 4E 52 20 A7 20 A0 20 33 3A 89 20 35 30 31 35 | NR . . 3:. 5015|
00002390: 00 9B 2B 94 13 89 20 35 30 33 35 00 B9 2B 97 13 |..+... 5035..+..|
000023A0: 9F 20 33 2C 38 2C 33 2C 22 40 30 3A 55 54 49 4C |. 3,8,3,"@0:UTIL|
000023B0: 44 41 54 41 2C 53 2C 57 22 00 C4 2B 9C 13 8D 20 |DATA,S,W"..+... |
000023C0: 35 33 30 30 00 D4 2B A6 13 8B 20 4E 52 20 A7 20 |5300..+... NR . |
000023D0: 35 30 34 30 00 DC 2B AB 13 A0 20 33 00 E7 2B AC |5040..+... 3..+.|
000023E0: 13 8D 20 35 34 30 30 00 F2 2B AD 13 89 20 35 30 |.. 5400..+... 50|
000023F0: 30 30 00 01 2C B0 13 81 20 49 B2 31 20 A4 20 4D |00..,... I.1 . M|
00002400: 58 00 2D 2C B5 13 8B 20 54 59 28 49 29 B2 32 20 |X.-,... TY(I).2 |
00002410: A7 20 98 33 2C C7 28 C6 28 43 56 24 28 49 29 29 |. .3,.(.(CV$(I))|
00002420: AF 20 39 35 29 3B 3A 89 20 35 30 36 30 00 3C 2C |. 95);:. 5060.<,|
00002430: BA 13 98 33 2C 43 56 24 28 49 29 3B 00 47 2C C4 |...3,CV$(I);.G,.|
00002440: 13 8D 20 35 33 30 30 00 57 2C CE 13 8B 20 4E 52 |.. 5300.W,... NR|
00002450: 20 A7 20 35 31 30 30 00 5F 2C D8 13 A0 20 33 00 | . 5100._,... 3.|
00002460: 6A 2C E2 13 8D 20 35 34 30 30 00 75 2C E7 13 89 |j,... 5400.u,...|
00002470: 20 35 30 30 30 00 7D 2C EC 13 82 20 49 00 85 2C | 5000.},... I..,|
00002480: 00 14 A0 20 33 00 8B 2C 0A 14 8E 00 AF 2C B4 14 |... 3..,.....,..|
00002490: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000024A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000024B0: CE 2C B5 14 8F 20 20 20 20 20 43 48 45 43 4B 20 |.,... CHECK |
000024C0: 46 4F 52 20 44 49 53 4B 20 45 52 52 4F 52 00 D4 |FOR DISK ERROR..|
000024D0: 2C B6 14 8F 00 DD 2C B9 14 4E 52 B2 31 00 F2 2C |,.....,..NR.1..,|
000024E0: BE 14 84 31 35 2C 45 4E 2C 45 44 24 2C 45 46 2C |...15,EN,ED$,EF,|
000024F0: 45 53 00 05 2D C8 14 8B 20 45 4E B3 B1 30 20 A7 |ES..-... EN..0 .|
00002500: 20 4E 52 B2 30 00 0B 2D D2 14 8E 00 2F 2D 18 15 | NR.0..-..../-..|
00002510: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00002520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00002530: 4D 2D 19 15 8F 20 20 20 20 20 50 52 49 4E 54 20 |M-... PRINT |
00002540: 45 52 52 4F 52 20 4D 45 53 53 41 47 45 00 53 2D |ERROR MESSAGE.S-|
00002550: 1A 15 8F 00 5C 2D 1D 15 99 22 93 22 00 67 2D 1E |....\-...".".g-.|
00002560: 15 8D 20 32 37 30 30 00 7C 2D 22 15 56 50 B2 31 |.. 2700.|-".VP.1|
00002570: 31 3A 48 50 B2 30 3A 8D 20 39 39 32 00 98 2D 2C |1:HP.0:. 992..-,|
00002580: 15 8B 20 45 4E B2 32 36 20 A7 20 8D 20 35 35 33 |.. EN.26 . . 553|
00002590: 30 3A 89 20 35 34 34 30 00 B4 2D 31 15 8B 20 45 |0:. 5440..-1.. E|
000025A0: 4E B2 36 32 20 A7 20 8D 20 35 35 36 30 3A 89 20 |N.62 . . 5560:. |
000025B0: 35 34 34 30 00 BF 2D 36 15 8D 20 35 35 30 30 00 |5440..-6.. 5500.|
000025C0: CF 2D 40 15 56 50 B2 32 33 3A 8D 20 39 39 30 00 |.-@.VP.23:. 990.|
000025D0: F2 2D 4A 15 99 22 D0 52 45 53 53 20 41 4E 59 20 |.-J..".RESS ANY |
000025E0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |KEY TO CONTINUE |
000025F0: 22 3B 00 FC 2D 4F 15 8D 20 35 30 30 00 05 2E 52 |";..-O.. 500...R|
00002600: 15 99 22 93 22 00 0B 2E 54 15 8E 00 32 2E 7C 15 |.."."...T...2.|.|
00002610: 99 22 D0 4C 45 41 53 45 20 43 48 45 43 4B 20 44 |.".LEASE CHECK D|
00002620: 49 53 4B 20 41 4E 44 20 4D 41 4B 45 20 53 55 52 |ISK AND MAKE SUR|
00002630: 45 22 00 5B 2E 86 15 99 22 49 54 20 49 53 20 49 |E".[...."IT IS I|
00002640: 4E 53 45 52 54 45 44 20 49 4E 20 44 52 49 56 45 |NSERTED IN DRIVE|
00002650: 20 50 52 4F 50 45 52 4C 59 2E 22 00 61 2E 90 15 | PROPERLY.".a...|
00002660: 8E 00 81 2E 9A 15 99 22 D5 4E 41 42 4C 45 20 54 |.......".NABLE T|
00002670: 4F 20 57 52 49 54 45 20 54 4F 20 44 49 53 4B 2E |O WRITE TO DISK.|
00002680: 22 00 A6 2E A4 15 99 22 28 44 49 53 4B 20 4D 41 |"......"(DISK MA|
00002690: 59 20 42 45 20 57 52 49 54 45 20 50 52 4F 54 45 |Y BE WRITE PROTE|
000026A0: 43 54 45 44 29 22 00 BF 2E A9 15 99 20 22 D0 4C |CTED)"...... ".L|
000026B0: 45 41 53 45 20 43 48 45 43 4B 20 49 54 2E 22 00 |EASE CHECK IT.".|
000026C0: C5 2E AE 15 8E 00 DD 2E B8 15 99 22 D0 4C 45 41 |...........".LEA|
000026D0: 53 45 20 4D 41 4B 45 20 53 55 52 45 22 00 FD 2E |SE MAKE SURE"...|
000026E0: C2 15 99 22 50 52 4F 47 52 41 4D 20 44 49 53 4B |..."PROGRAM DISK|
000026F0: 20 49 53 20 49 4E 20 44 52 49 56 45 22 00 03 2F | IS IN DRIVE"../|
00002700: CC 15 8E 00 28 2F 58 1B 8F 20 2A 2A 2A 2A 2A 2A |....(/X.. ******|
00002710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002720: 2A 2A 2A 2A 2A 2A 2A 2A 00 4A 2F 59 1B 8F 20 20 |********.J/Y.. |
00002730: 20 20 52 45 41 44 20 41 4E 44 20 44 49 53 50 4C | READ AND DISPL|
00002740: 41 59 20 43 41 54 41 4C 4F 47 00 50 2F 5A 1B 8F |AY CATALOG.P/Z..|
00002750: 00 5B 2F 62 1B 8D 20 37 35 30 30 00 65 2F 63 1B |.[/b.. 7500.e/c.|
00002760: 8D 20 35 30 30 00 78 2F 66 1B 8B 20 49 4E B2 45 |. 500.x/f.. IN.E|
00002770: 58 20 A7 20 37 37 38 30 00 95 2F 67 1B 8B 20 49 |X . 7780../g.. I|
00002780: 4E B3 B1 53 42 20 A7 20 8D 20 32 37 30 30 3A 89 |N..SB . . 2700:.|
00002790: 20 37 30 31 31 00 AD 2F 6C 1B 9F 20 33 2C C6 28 | 7011../l.. 3,.(|
000027A0: 43 56 24 28 33 29 29 2C 33 2C 22 23 22 00 B5 2F |CV$(3)),3,"#"../|
000027B0: 7A 1B 58 B2 32 00 BF 2F 7B 1B 8D 37 36 30 30 00 |z.X.2../{..7600.|
000027C0: D3 2F 80 1B 48 50 B2 30 3A 56 50 B2 33 3A 8D 20 |./..HP.0:VP.3:. |
000027D0: 39 39 30 00 EE 2F 81 1B 99 22 C6 C9 CC C5 CE C1 |990../..."......|
000027E0: CD C5 A0 20 20 D0 C1 D3 D3 D7 CF D2 C4 22 00 02 |... ........"..|
000027F0: 30 82 1B 48 50 B2 30 3A 56 50 B2 36 3A 8D 20 39 |0..HP.0:VP.6:. 9|
00002800: 39 30 00 10 30 8A 1B 4E 43 B2 30 3A 46 46 B2 30 |90..0..NC.0:FF.0|
00002810: 00 18 30 94 1B 58 B2 35 00 27 30 9E 1B 4E 54 B2 |..0..X.5.'0..NT.|
00002820: 31 38 3A 4E 53 B2 31 00 3E 30 A8 1B 98 31 35 2C |18:NS.1.>0...15,|
00002830: 22 55 31 22 3B 33 3B 30 3B 4E 54 3B 4E 53 00 49 |"U1";3;0;NT;NS.I|
00002840: 30 AA 1B 8D 20 35 33 30 30 00 59 30 AB 1B 8B 20 |0... 5300.Y0... |
00002850: 4E 52 20 A7 20 37 30 39 30 00 68 30 AC 1B A0 20 |NR . 7090.h0... |
00002860: 33 3A 8D 20 35 34 30 30 00 73 30 AD 1B 89 20 37 |3:. 5400.s0... 7|
00002870: 37 30 30 00 86 30 B2 1B 98 31 35 2C 22 42 2D 50 |700..0...15,"B-P|
00002880: 3A 22 3B 33 3B 30 00 A6 30 BC 1B A1 23 33 2C 49 |:";3;0..0...#3,I|
00002890: 4E 24 3A 8B 20 49 4E 24 B2 22 22 20 A7 20 49 4E |N$:. IN$."" . IN|
000028A0: 24 B2 C7 28 30 29 00 C1 30 C6 1B 4E 54 B2 C6 28 |$..(0)..0..NT..(|
000028B0: 49 4E 24 29 3A 8F 20 4E 45 58 54 20 54 52 41 43 |IN$):. NEXT TRAC|
000028C0: 4B 00 E1 30 D0 1B A1 23 33 2C 49 4E 24 3A 8B 20 |K..0...#3,IN$:. |
000028D0: 49 4E 24 B2 22 22 20 A7 20 49 4E 24 B2 C7 28 30 |IN$."" . IN$..(0|
000028E0: 29 00 FD 30 DA 1B 4E 53 B2 C6 28 49 4E 24 29 3A |)..0..NS..(IN$):|
000028F0: 8F 20 4E 45 58 54 20 53 45 43 54 4F 52 00 06 31 |. NEXT SECTOR..1|
00002900: E4 1B 42 50 B2 32 00 1A 31 EE 1B 98 31 35 2C 22 |..BP.2..1...15,"|
00002910: 42 2D 50 3A 22 3B 33 3B 42 50 00 25 31 F0 1B 8D |B-P:";3;BP.%1...|
00002920: 20 35 33 30 30 00 35 31 F1 1B 8B 20 4E 52 20 A7 | 5300.51... NR .|
00002930: 20 37 31 36 30 00 44 31 F2 1B A0 20 33 3A 8D 20 | 7160.D1... 3:. |
00002940: 35 34 30 30 00 4F 31 F3 1B 89 20 37 37 30 30 00 |5400.O1... 7700.|
00002950: 6B 31 F8 1B A1 23 33 2C 49 4E 24 3A 8B 20 49 4E |k1...#3,IN$:. IN|
00002960: 24 B2 22 22 20 A7 20 37 33 35 30 00 89 31 02 1C |$."" . 7350..1..|
00002970: 46 54 B2 C6 28 49 4E 24 29 AB 31 32 38 3A 8F 20 |FT..(IN$).128:. |
00002980: 46 49 4C 45 20 54 59 50 45 00 A7 31 16 1C A1 23 |FILE TYPE..1...#|
00002990: 33 2C 49 4E 24 3A A1 23 33 2C 49 4E 24 3A 8F 20 |3,IN$:.#3,IN$:. |
000029A0: 47 41 52 42 41 47 45 00 B2 31 20 1C 4E 46 24 B2 |GARBAGE..1 .NF$.|
000029B0: 22 22 00 C1 31 2A 1C 81 20 49 B2 33 20 A4 20 31 |""..1*.. I.3 . 1|
000029C0: 38 00 CD 31 34 1C A1 23 33 2C 49 4E 24 00 DD 31 |8..14..#3,IN$..1|
000029D0: 3E 1C 4E 46 24 B2 4E 46 24 AA 49 4E 24 00 E5 31 |>.NF$.NF$.IN$..1|
000029E0: 48 1C 82 20 49 00 F8 31 4A 1C 8B 20 46 54 B3 B1 |H.. I..1J.. FT..|
000029F0: 32 20 A7 20 37 33 30 30 00 01 32 4B 1C 46 53 B2 |2 . 7300..2K.FS.|
00002A00: 30 00 21 32 4D 1C 8B 20 CA 28 4E 46 24 2C 31 33 |0.!2M.. .(NF$,13|
00002A10: 2C 31 29 B2 C7 28 31 36 30 29 20 A7 20 37 33 30 |,1)..(160) . 730|
00002A20: 30 00 2C 32 52 1C 8D 20 37 38 30 30 00 51 32 5C |0.,2R.. 7800.Q2\|
00002A30: 1C 99 20 C8 28 4E 46 24 2C 38 29 3B 22 20 20 20 |.. .(NF$,8);" |
00002A40: 22 3B CA 28 4E 46 24 2C 39 2C 35 29 3A 46 46 B2 |";.(NF$,9,5):FF.|
00002A50: 31 00 6C 32 66 1C 4E 43 B2 4E 43 AA 31 3A 8B 20 |1.l2f.NC.NC.1:. |
00002A60: 4E 43 B3 31 35 20 A7 20 37 33 30 30 00 82 32 6B |NC.15 . 7300..2k|
00002A70: 1C 56 50 B2 32 33 3A 48 50 B2 32 38 3A 8D 20 39 |.VP.23:HP.28:. 9|
00002A80: 39 30 00 8C 32 70 1C 8D 20 35 30 30 00 A5 32 72 |90..2p.. 500..2r|
00002A90: 1C 8B 20 49 4E B2 45 58 20 A7 20 A0 20 33 3A 89 |.. IN.EX . . 3:.|
00002AA0: 20 37 37 38 30 00 C2 32 75 1C 8B 20 49 4E B3 B1 | 7780..2u.. IN..|
00002AB0: 53 42 20 A7 20 8D 20 32 37 30 30 3A 89 20 37 32 |SB . . 2700:. 72|
00002AC0: 38 30 00 DD 32 7A 1C 48 50 B2 30 3A 56 50 B2 36 |80..2z.HP.0:VP.6|
00002AD0: 3A 8D 20 37 36 30 30 3A 8D 20 39 39 30 00 E6 32 |:. 7600:. 990..2|
00002AE0: 7F 1C 4E 43 B2 30 00 03 33 84 1C 42 50 B2 42 50 |..NC.0..3..BP.BP|
00002AF0: AA 33 32 3A 8B 20 42 50 B3 32 32 37 20 A7 20 37 |.32:. BP.227 . 7|
00002B00: 31 35 30 00 16 33 8E 1C 8B 20 4E 54 B3 B1 30 20 |150..3... NT..0 |
00002B10: A7 20 37 30 38 30 00 1E 33 B6 1C A0 20 33 00 33 |. 7080..3... 3.3|
00002B20: 33 B8 1C 8B 20 46 46 B3 B1 31 20 A7 20 8D 20 37 |3... FF..1 . . 7|
00002B30: 34 30 30 00 49 33 BA 1C 48 50 B2 32 38 3A 56 50 |400.I3..HP.28:VP|
00002B40: B2 32 33 3A 8D 20 39 39 30 00 53 33 C0 1C 8D 20 |.23:. 990.S3... |
00002B50: 35 30 30 00 7B 33 CA 1C 8B 20 49 4E B3 B1 53 42 |500.{3... IN..SB|
00002B60: 20 AF 20 49 4E 20 B3 B1 20 45 58 20 A7 20 8D 20 | . IN .. EX . . |
00002B70: 32 37 30 30 3A 89 20 37 33 36 30 00 81 33 D4 1C |2700:. 7360..3..|
00002B80: 8E 00 A6 33 E8 1C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...3... ********|
00002B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002BA0: 2A 2A 2A 2A 2A 2A 00 C3 33 F2 1C 8F 20 20 4E 4F |******..3... NO|
00002BB0: 20 57 52 49 54 45 52 20 46 49 4C 45 53 20 46 4F | WRITER FILES FO|
00002BC0: 55 4E 44 00 D8 33 FC 1C 56 50 B2 31 30 3A 48 50 |UND..3..VP.10:HP|
00002BD0: B2 34 3A 8D 20 39 39 30 00 E3 33 06 1D 8D 20 32 |.4:. 990..3... 2|
00002BE0: 37 30 30 00 03 34 1A 1D 99 22 CE 4F 20 57 52 49 |700..4...".O WRI|
00002BF0: 54 45 52 20 46 49 4C 45 53 20 4F 4E 20 44 49 53 |TER FILES ON DIS|
00002C00: 4B 22 3B 00 09 34 24 1D 8E 00 2E 34 4C 1D 8F 20 |K";..4$....4L.. |
00002C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 |**************.F|
00002C30: 34 4D 1D 8F 20 20 20 20 43 41 54 41 4C 4F 47 20 |4M.. CATALOG |
00002C40: 53 43 52 45 45 4E 00 4C 34 4E 1D 8F 00 57 34 56 |SCREEN.L4N...W4V|
00002C50: 1D 99 20 22 93 22 3B 00 6C 34 60 1D 48 50 B2 31 |.. ".";.l4`.HP.1|
00002C60: 30 3A 56 50 B2 31 3A 8D 20 39 39 30 00 8A 34 6A |0:VP.1:. 990..4j|
00002C70: 1D 99 22 12 C3 C1 D4 C1 CC CF C7 A0 C1 CE C4 A0 |..".............|
00002C80: D0 C1 D3 D3 D7 CF D2 C4 D3 22 00 9E 34 74 1D 48 |........."..4t.H|
00002C90: 50 B2 30 3A 56 50 B2 35 3A 8D 20 39 39 30 00 CB |P.0:VP.5:. 990..|
00002CA0: 34 7E 1D 99 22 C9 CE D3 C5 D2 D4 A0 C4 C9 D3 CB |4~.."...........|
00002CB0: A0 C3 CF CE D4 C1 C9 CE C9 CE C7 A0 C6 C9 CC C5 |................|
00002CC0: D3 A0 C9 CE A0 C4 D2 C9 D6 C5 22 00 DF 34 88 1D |.........."..4..|
00002CD0: 48 50 B2 30 3A 56 50 B2 32 33 3A 8D 39 39 30 00 |HP.0:VP.23:.990.|
00002CE0: 02 35 92 1D 99 22 D0 D2 C5 D3 D3 A0 D3 D0 C1 C3 |.5..."..........|
00002CF0: C5 A0 C2 C1 D2 A0 D4 CF A0 C3 CF CE D4 C9 CE D5 |................|
00002D00: C5 22 00 18 35 9C 1D 56 50 B2 32 33 3A 48 50 B2 |."..5..VP.23:HP.|
00002D10: 32 38 3A 8D 20 39 39 30 00 1E 35 A6 1D 8E 00 43 |28:. 990..5....C|
00002D20: 35 B0 1D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |5... ***********|
00002D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D40: 2A 2A 2A 00 60 35 BA 1D 8F 20 20 20 43 4C 45 41 |***.`5... CLEA|
00002D50: 52 20 50 41 52 54 20 4F 46 20 53 43 52 45 45 4E |R PART OF SCREEN|
00002D60: 00 74 35 C4 1D 48 50 B2 30 3A 56 50 B2 58 3A 8D |.t5..HP.0:VP.X:.|
00002D70: 20 39 39 30 00 83 35 CE 1D 81 20 49 B2 31 20 A4 | 990..5... I.1 .|
00002D80: 20 31 36 00 B1 35 D8 1D 99 22 20 20 20 20 20 20 | 16..5..." |
00002D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002DB0: 22 00 B9 35 E2 1D 82 20 49 00 BF 35 EC 1D 8E 00 |"..5... I..5....|
00002DC0: E4 35 14 1E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.5... **********|
00002DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002DE0: 2A 2A 2A 2A 00 07 36 15 1E 8F 20 20 54 52 59 20 |****..6... TRY |
00002DF0: 41 47 41 49 4E 20 4F 52 20 52 45 54 55 52 4E 20 |AGAIN OR RETURN |
00002E00: 54 4F 20 4D 41 49 4E 00 0D 36 16 1E 8F 00 26 36 |TO MAIN..6....&6|
00002E10: 1E 1E 99 22 93 22 3A 56 50 B2 33 3A 48 50 B2 30 |...".":VP.3:HP.0|
00002E20: 3A 8D 20 39 39 30 00 4C 36 28 1E 99 22 D4 29 D2 |:. 990.L6(..".).|
00002E30: D9 A0 C1 C7 C1 C9 CE A0 CF D2 A0 D2 29 C5 D4 D5 |............)...|
00002E40: D2 CE A0 D4 CF A0 CD C5 CE D5 3F 22 00 61 36 32 |..........?".a62|
00002E50: 1E 99 22 28 C5 CE D4 C5 D2 A0 D4 A0 CF D2 A0 D2 |.."(............|
00002E60: 29 00 76 36 37 1E 56 50 B2 33 3A 48 50 B2 33 31 |).v67.VP.3:HP.31|
00002E70: 3A 8D 20 39 39 30 00 80 36 3C 1E 8D 20 35 30 30 |:. 990..6<.. 500|
00002E80: 00 9F 36 46 1E 8B 20 49 4E 24 B2 22 D4 22 20 B0 |..6F.. IN$."." .|
00002E90: 20 49 4E 24 B2 22 54 22 20 A7 20 37 30 30 30 00 | IN$."T" . 7000.|
00002EA0: C0 36 50 1E 8B 20 49 4E 24 B3 B1 22 D2 22 20 AF |.6P.. IN$.."." .|
00002EB0: 20 49 4E 24 B3 B1 22 52 22 20 A7 20 37 37 34 30 | IN$.."R" . 7740|
00002EC0: 00 C6 36 64 1E 8E 00 EB 36 78 1E 8F 20 2A 2A 2A |..6d....6x.. ***|
00002ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 37 79 1E |***********..7y.|
00002EF0: 8F 20 20 44 45 43 4F 44 45 20 50 41 53 53 57 4F |. DECODE PASSWO|
00002F00: 52 44 00 0E 37 82 1E 81 20 49 B2 30 A4 34 00 28 |RD..7... I.0.4.(|
00002F10: 37 84 1E 54 4C B2 C6 28 CA 28 4E 46 24 2C 39 AA |7..TL..(.(NF$,9.|
00002F20: 49 2C 31 29 29 AB 34 38 00 42 37 87 1E 8B 20 54 |I,1)).48.B7... T|
00002F30: 4C B3 31 20 B0 20 54 4C B1 34 32 20 A7 20 37 38 |L.1 . TL.42 . 78|
00002F40: 38 30 00 5E 37 8C 1E 54 4C B2 43 54 28 54 4C 29 |80.^7..TL.CT(TL)|
00002F50: 3A 8B 20 54 4C B2 30 20 A7 20 37 38 38 30 00 6C |:. TL.0 . 7880.l|
00002F60: 37 96 1E 54 4C B2 54 4C AB 34 AC 49 00 84 37 A0 |7..TL.TL.4.I..7.|
00002F70: 1E 8B 20 54 4C B3 31 39 33 20 A7 20 54 4C B2 32 |.. TL.193 . TL.2|
00002F80: 36 AA 54 4C 00 A8 37 B4 1E 4E 46 24 B2 C8 28 4E |6.TL..7..NF$..(N|
00002F90: 46 24 2C 38 AA 49 29 AA C7 28 54 4C 29 AA C9 28 |F$,8.I)..(TL)..(|
00002FA0: 4E 46 24 2C 37 AB 49 29 00 B0 37 C8 1E 82 20 49 |NF$,7.I)..7... I|
00002FB0: 00 B6 37 DC 1E 8E 00 DA 37 10 27 8F 20 2A 2A 2A |..7.....7.'. ***|
00002FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F4 37 1A 27 8F |**********..7.'.|
00002FE0: 20 20 20 20 20 4D 49 53 53 49 4F 4E 20 43 4F 4E | MISSION CON|
00002FF0: 54 52 4F 4C 00 FA 37 24 27 8F 00 1B 38 2E 27 8F |TROL..7$'...8.'.|
00003000: 20 42 41 4E 4B 20 53 54 52 45 45 54 20 57 52 49 | BANK STREET WRI|
00003010: 54 45 52 20 55 54 49 4C 49 54 59 00 21 38 38 27 |TER UTILITY.!88'|
00003020: 8F 00 44 38 42 27 8F 20 52 4F 42 45 52 54 20 53 |..D8B'. ROBERT S|
00003030: 48 41 56 45 52 2F 41 55 47 55 53 54 20 32 36 2C |HAVER/AUGUST 26,|
00003040: 31 39 38 33 00 66 38 4C 27 8F 20 57 49 54 48 20 |1983.f8L'. WITH |
00003050: 41 20 4C 49 54 54 4C 45 20 48 45 4C 50 20 46 52 |A LITTLE HELP FR|
00003060: 4F 4D 20 48 49 53 00 74 38 56 27 8F 20 46 52 49 |OM HIS.t8V'. FRI|
00003070: 45 4E 44 53 00 7A 38 60 27 8F 00 80 38 6A 27 8F |ENDS.z8`'...8j'.|
00003080: 00 8C 38 74 27 8D 20 31 31 30 30 30 00 98 38 7E |..8t'. 11000..8~|
00003090: 27 8D 20 31 32 30 30 30 00 B7 38 88 27 91 20 49 |'. 12000..8.'. I|
000030A0: 4E 20 8D 20 35 30 2C 37 30 30 30 2C 31 33 30 30 |N . 50,7000,1300|
000030B0: 30 2C 31 31 35 30 30 00 C3 38 92 27 89 20 31 30 |0,11500..8.'. 10|
000030C0: 31 30 30 00 E7 38 F8 2A 8F 20 2A 2A 2A 2A 2A 2A |100..8.*. ******|
000030D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000030E0: 2A 2A 2A 2A 2A 2A 2A 00 00 39 02 2B 8F 20 20 20 |*******..9.+. |
000030F0: 50 55 54 20 55 50 20 4D 41 49 4E 20 4D 45 4E 55 |PUT UP MAIN MENU|
00003100: 00 06 39 0C 2B 8F 00 1A 39 11 2B 99 20 22 93 22 |..9.+...9.+. "."|
00003110: 3B 3A 97 35 33 32 36 39 2C 30 00 34 39 16 2B 81 |;:.53269,0.49.+.|
00003120: 20 4A B2 31 20 A4 20 34 30 3A 99 22 12 20 22 3B | J.1 . 40:.". ";|
00003130: 3A 82 20 4A 00 77 39 20 2B 81 20 4A B2 31 20 A4 |:. J.w9 +. J.1 .|
00003140: 20 32 32 3A 99 22 12 20 92 20 20 20 20 20 20 20 | 22:.". . |
00003150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
00003170: 20 22 3B 3A 82 20 4A 00 92 39 2A 2B 81 20 4A B2 | ";:. J..9*+. J.|
00003180: 31 20 A4 20 33 36 3A 99 22 12 20 22 3B 3A 20 82 |1 . 36:.". ";: .|
00003190: 20 4A 00 9F 39 2F 2B 99 22 31 2E 31 20 22 3B 00 | J..9/+."1.1 ";.|
000031A0: A9 39 34 2B 99 22 92 22 3B 00 BD 39 3E 2B 56 50 |.94+.".";..9>+VP|
000031B0: B2 33 3A 48 50 B2 39 3A 8D 20 39 39 30 00 DC 39 |.3:HP.9:. 990..9|
000031C0: 48 2B 99 22 D4 C8 C5 A0 C2 C1 CE CB A0 D3 D4 D2 |H+."............|
000031D0: C5 C5 D4 A0 D7 D2 C9 D4 C5 D2 22 3B 00 F1 39 52 |..........";..9R|
000031E0: 2B 56 50 B2 35 3A 48 50 B2 31 33 3A 8D 20 39 39 |+VP.5:HP.13:. 99|
000031F0: 30 00 09 3A 5C 2B 99 22 D5 D4 C9 CC C9 D4 D9 A0 |0..:\+."........|
00003200: D0 D2 CF C7 D2 C1 CD 22 3B 00 1D 3A 66 2B 56 50 |.......";..:f+VP|
00003210: B2 38 3A 48 50 B2 35 3A 8D 20 39 39 30 00 34 3A |.8:HP.5:. 990.4:|
00003220: 70 2B 99 22 C4 CF A0 D9 CF D5 A0 D7 C1 CE D4 A0 |p+."............|
00003230: D4 CF 3A 22 00 49 3A 7A 2B 56 50 B2 31 30 3A 48 |..:".I:z+VP.10:H|
00003240: 50 B2 39 3A 8D 20 39 39 30 00 66 3A 84 2B 99 22 |P.9:. 990.f:.+."|
00003250: 31 2E 20 C3 C8 C1 CE C7 C5 A0 D3 C5 D4 D5 D0 A0 |1. .............|
00003260: C9 D4 C5 CD D3 22 00 7B 3A 8E 2B 56 50 B2 31 32 |.....".{:.+VP.12|
00003270: 3A 48 50 B2 39 3A 8D 20 39 39 30 00 97 3A 98 2B |:HP.9:. 990..:.+|
00003280: 99 22 32 2E 20 C4 C9 D3 D0 CC C1 D9 A0 D0 C1 D3 |."2. ...........|
00003290: D3 D7 CF D2 C4 D3 22 00 AB 3A A2 2B 56 50 B2 31 |......"..:.+VP.1|
000032A0: 34 3A 48 50 B2 39 3A 8D 39 39 30 00 CA 3A AC 2B |4:HP.9:.990..:.+|
000032B0: 99 22 33 2E 20 C3 C8 C1 CE C7 C5 A0 D3 C3 D2 C5 |."3. ...........|
000032C0: C5 CE A0 C3 CF CC CF D2 D3 22 00 DF 3A B6 2B 56 |........."..:.+V|
000032D0: 50 B2 31 36 3A 48 50 B2 39 3A 8D 20 39 39 30 00 |P.16:HP.9:. 990.|
000032E0: EE 3A C0 2B 99 22 34 2E 20 D1 D5 C9 D4 22 00 03 |.:.+."4. ...."..|
000032F0: 3B CA 2B 56 50 B2 31 39 3A 48 50 B2 35 3A 8D 20 |;.+VP.19:HP.5:. |
00003300: 39 39 30 00 1D 3B D4 2B 99 22 D7 C8 C9 C3 C8 A0 |990..;.+."......|
00003310: CF CE C5 A0 28 31 2D 34 29 3F 20 22 3B 00 23 3B |....(1-4)? ";.#;|
00003320: DE 2B 8E 00 47 3B EC 2C 8F 20 2A 2A 2A 2A 2A 2A |.+..G;.,. ******|
00003330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003340: 2A 2A 2A 2A 2A 2A 2A 00 61 3B ED 2C 8F 20 20 20 |*******.a;.,. |
00003350: 20 52 45 54 55 52 4E 20 54 4F 20 57 52 49 54 45 | RETURN TO WRITE|
00003360: 52 00 73 3B F6 2C 99 22 93 22 3A 97 20 36 34 39 |R.s;.,.".":. 649|
00003370: 2C 31 30 00 91 3B 00 2D 9F 20 33 2C 38 2C 33 2C |,10..;.-. 3,8,3,|
00003380: 22 40 30 3A 55 54 49 4C 44 41 54 41 2C 53 2C 52 |"@0:UTILDATA,S,R|
00003390: 22 00 9C 3B 0A 2D 8D 20 35 33 30 30 00 A4 3B 0F |"..;.-. 5300..;.|
000033A0: 2D A0 20 33 00 B5 3B 14 2D 8B 20 4E 52 20 A7 20 |-. 3..;.-. NR . |
000033B0: 31 31 36 30 30 00 C0 3B 1E 2D 8D 20 35 34 30 30 |11600..;.-. 5400|
000033C0: 00 CC 3B 28 2D 89 20 31 31 35 30 30 00 E3 3B 50 |..;(-. 11500..;P|
000033D0: 2D 42 46 B2 30 3A A0 20 31 35 3A 93 22 42 53 57 |-BF.0:. 15:."BSW|
000033E0: 22 2C 38 00 07 3C E0 2E 8F 20 2A 2A 2A 2A 2A 2A |",8..<... ******|
000033F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003400: 2A 2A 2A 2A 2A 2A 2A 00 25 3C EA 2E 8F 20 20 47 |*******.%<... G|
00003410: 45 54 20 53 49 4E 47 4C 45 20 44 49 47 49 54 20 |ET SINGLE DIGIT |
00003420: 28 31 2D 34 29 00 2B 3C F4 2E 8F 00 35 3C FE 2E |(1-4).+<....5<..|
00003430: 8D 20 35 30 30 00 63 3C 1C 2F 49 4E 20 B2 20 49 |. 500.c<./IN . I|
00003440: 4E AB 34 38 3A 8B 20 49 4E B3 31 20 B0 20 49 4E |N.48:. IN.1 . IN|
00003450: B1 34 20 A7 20 8D 20 32 37 30 30 3A 89 20 31 32 |.4 . . 2700:. 12|
00003460: 30 33 30 00 69 3C 26 2F 8E 00 8D 3C C8 32 8F 20 |030.i<&/...<.2. |
00003470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 3C |*************..<|
00003490: C9 32 8F 20 20 20 43 48 41 4E 47 45 20 43 4F 4C |.2. CHANGE COL|
000034A0: 4F 52 53 00 A9 3C CA 32 8F 00 C7 3C CD 32 43 31 |ORS..<.2...<.2C1|
000034B0: B2 C6 28 43 56 24 28 31 29 29 3A 43 32 B2 C6 28 |..(CV$(1)):C2..(|
000034C0: 43 56 24 28 32 29 29 00 D1 3C D2 32 99 22 93 22 |CV$(2))..<.2."."|
000034D0: 3B 00 E5 3C DC 32 48 50 B2 30 3A 56 50 B2 31 3A |;..<.2HP.0:VP.1:|
000034E0: 8D 20 39 39 30 00 16 3D E6 32 99 22 12 20 20 20 |. 990..=.2.". |
000034F0: 20 20 20 20 20 20 20 20 20 20 C3 C8 C1 CE C7 C5 | ......|
00003500: A0 C3 CF CC CF D2 20 20 20 20 20 20 20 20 20 20 |...... |
00003510: 20 20 20 20 20 22 00 1F 3D F0 32 53 46 B2 30 00 | "..=.2SF.0.|
00003520: 2B 3D FA 32 8D 20 31 33 35 30 30 00 3E 3D 22 33 |+=.2. 13500.>="3|
00003530: 48 50 B2 30 3A 56 50 B2 37 3A 8D 39 39 30 00 6F |HP.0:VP.7:.990.o|
00003540: 3D 2C 33 99 22 12 20 D3 D0 C1 C3 C5 C2 C1 D2 A0 |=,3.". .........|
00003550: 54 4F 20 53 45 4C 45 43 54 20 D3 C3 D2 C5 C5 CE |TO SELECT ......|
00003560: A0 4F 52 20 C3 C8 C1 D2 C1 C3 D4 C5 D2 A0 22 00 |.OR ..........".|
00003570: 84 3D 36 33 48 50 B2 35 3A 56 50 B2 31 33 3A 8D |.=63HP.5:VP.13:.|
00003580: 20 39 39 30 00 A8 3D 40 33 99 22 D5 D3 C5 A0 3C | 990..=@3."....<|
00003590: A0 41 4E 44 20 3E 20 54 4F 20 43 48 41 4E 47 45 |.AND > TO CHANGE|
000035A0: 20 43 4F 4C 4F 52 53 22 00 BE 3D 4A 33 48 50 B2 | COLORS"..=J3HP.|
000035B0: 31 37 3A 56 50 B2 31 35 3A 8D 20 39 39 30 00 CB |17:VP.15:. 990..|
000035C0: 3D 54 33 99 20 22 2D CF D2 2D 22 00 E0 3D 5E 33 |=T3. "-..-"..=^3|
000035D0: 48 50 B2 35 3A 56 50 B2 31 37 3A 8D 20 39 39 30 |HP.5:VP.17:. 990|
000035E0: 00 06 3E 68 33 99 20 22 D0 52 45 53 53 20 27 D3 |..>h3. ".RESS '.|
000035F0: 27 20 46 4F 52 20 D3 54 41 4E 44 41 52 44 20 43 |' FOR .TANDARD C|
00003600: 4F 4C 4F 52 53 22 00 1B 3E 72 33 48 50 B2 30 3A |OLORS"..>r3HP.0:|
00003610: 56 50 B2 32 33 3A 8D 20 39 39 30 00 38 3E 7C 33 |VP.23:. 990.8>|3|
00003620: 99 22 D0 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 54 |.".RESS ...... T|
00003630: 4F 20 47 4F 20 4F 4E 22 00 3E 3E 90 33 8F 00 53 |O GO ON".>>.3..S|
00003640: 3E 9A 33 56 49 24 B2 22 5B 3C 3A 2C 5D 3E 3B 2E |>.3VI$."[<:,]>;.|
00003650: D3 53 22 00 69 3E B8 33 56 50 B2 32 33 3A 48 50 |.S".i>.3VP.23:HP|
00003660: B2 32 32 3A 8D 20 39 39 30 00 73 3E BE 33 8D 20 |.22:. 990.s>.3. |
00003670: 35 30 30 00 87 3E C7 33 8B 20 49 4E B2 45 58 20 |500..>.3. IN.EX |
00003680: A7 20 31 33 37 30 30 00 9B 3E CC 33 8B 20 49 4E |. 13700..>.3. IN|
00003690: B2 52 54 20 A7 20 31 33 36 30 30 00 B9 3E D1 33 |.RT . 13600..>.3|
000036A0: 8B 20 49 4E B2 53 42 20 A7 20 8D 20 31 33 35 30 |. IN.SB . . 1350|
000036B0: 30 3A 89 20 31 33 32 34 30 00 CC 3E D6 33 81 20 |0:. 13240..>.3. |
000036C0: 49 B2 31 20 A4 20 C3 28 56 49 24 29 00 F4 3E DB |I.1 . .(VI$)..>.|
000036D0: 33 8B 20 CA 28 56 49 24 2C 49 2C 31 29 B3 B1 49 |3. .(VI$,I,1)..I|
000036E0: 4E 24 20 A7 20 82 3A 8D 20 32 37 30 30 3A 89 31 |N$ . .:. 2700:.1|
000036F0: 33 32 34 30 00 3A 3F E0 33 91 20 49 20 89 20 31 |3240.:?.3. I . 1|
00003700: 33 34 30 30 2C 31 33 34 30 30 2C 31 33 34 30 30 |3400,13400,13400|
00003710: 2C 31 33 34 30 30 2C 31 33 32 39 30 2C 31 33 32 |,13400,13290,132|
00003720: 39 30 2C 31 33 32 39 30 2C 31 33 32 39 30 2C 31 |90,13290,13290,1|
00003730: 33 38 30 30 2C 31 33 38 30 30 00 4B 3F EA 33 8B |3800,13800.K?.3.|
00003740: 20 53 46 20 A7 20 31 33 33 35 30 00 66 3F F4 33 | SF . 13350.f?.3|
00003750: 43 31 B2 43 31 AA 31 3A 8B 20 43 31 B1 31 35 20 |C1.C1.1:. C1.15 |
00003760: A7 20 43 31 B2 30 00 7A 3F F9 33 8B 20 43 31 B2 |. C1.0.z?.3. C1.|
00003770: 43 32 20 A7 20 31 33 33 30 30 00 87 3F FE 33 97 |C2 . 13300..?.3.|
00003780: 20 32 35 34 2C 43 31 00 93 3F 03 34 9E 20 34 39 | 254,C1..?.4. 49|
00003790: 31 35 32 00 A2 3F 08 34 99 20 43 4F 24 28 43 31 |152..?.4. CO$(C1|
000037A0: 29 3B 00 AE 3F 12 34 89 20 31 33 32 34 30 00 C8 |);..?.4. 13240..|
000037B0: 3F 26 34 43 32 B2 43 32 AA 31 3A 8B 20 43 32 B1 |?&4C2.C2.1:. C2.|
000037C0: 31 35 20 A7 43 32 B2 30 00 DC 3F 2B 34 8B 20 43 |15 .C2.0..?+4. C|
000037D0: 32 B2 43 31 20 A7 20 31 33 33 35 30 00 F6 3F 30 |2.C1 . 13350..?0|
000037E0: 34 97 20 35 33 32 38 30 2C 43 32 3A 97 20 35 33 |4. 53280,C2:. 53|
000037F0: 32 38 31 2C 43 32 00 02 40 3A 34 89 20 31 33 32 |281,C2..@:4. 132|
00003800: 34 30 00 13 40 58 34 8B 20 53 46 20 A7 20 31 33 |40..@X4. SF . 13|
00003810: 34 35 30 00 2E 40 62 34 43 31 B2 43 31 AB 31 3A |450..@b4C1.C1.1:|
00003820: 8B 20 43 31 B3 30 20 A7 20 43 31 B2 31 35 00 42 |. C1.0 . C1.15.B|
00003830: 40 67 34 8B 20 43 31 B2 43 32 20 A7 20 31 33 34 |@g4. C1.C2 . 134|
00003840: 31 30 00 4E 40 6C 34 89 20 31 33 33 31 30 00 69 |10.N@l4. 13310.i|
00003850: 40 8A 34 43 32 B2 43 32 AB 31 3A 8B 20 43 32 B3 |@.4C2.C2.1:. C2.|
00003860: 30 20 A7 20 43 32 B2 31 35 00 7D 40 8F 34 8B 20 |0 . C2.15.}@.4. |
00003870: 43 32 B2 43 31 20 A7 20 31 33 34 35 30 00 89 40 |C2.C1 . 13450..@|
00003880: 94 34 89 20 31 33 33 36 30 00 AC 40 BC 34 8F 2A |.4. 13360..@.4.*|
00003890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000038A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 40 BD |************..@.|
000038B0: 34 8F 00 CC 40 C1 34 53 46 B2 53 46 AA 31 3A 8B |4...@.4SF.SF.1:.|
000038C0: 20 53 46 B2 32 20 A7 20 53 46 B2 30 00 E0 40 C6 | SF.2 . SF.0..@.|
000038D0: 34 48 50 B2 35 3A 56 50 B2 34 3A 8D 20 39 39 30 |4HP.5:VP.4:. 990|
000038E0: 00 F1 40 D0 34 8B 20 53 46 20 A7 20 99 22 12 22 |..@.4. SF . ."."|
000038F0: 3B 00 FF 40 DA 34 99 22 D3 C3 D2 C5 C5 CE 22 00 |;..@.4."......".|
00003900: 0F 41 E4 34 48 50 B2 32 36 3A 8D 20 39 39 30 00 |.A.4HP.26:. 990.|
00003910: 22 41 EE 34 8B 20 53 46 B2 30 20 A7 20 99 22 12 |"A.4. SF.0 . .".|
00003920: 22 3B 00 33 41 F8 34 99 22 C3 C8 C1 D2 C1 C3 D4 |";.3A.4.".......|
00003930: C5 D2 22 00 39 41 02 35 8E 00 5C 41 20 35 8F 2A |..".9A.5..\A 5.*|
00003940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7B 41 21 |************.{A!|
00003960: 35 8F 20 20 53 41 56 45 20 4E 45 57 20 53 43 52 |5. SAVE NEW SCR|
00003970: 45 45 4E 20 43 4F 4C 4F 52 53 3F 00 81 41 22 35 |EEN COLORS?..A"5|
00003980: 8F 00 9D 41 24 35 8B 20 43 31 B3 B1 C6 28 43 56 |...A$5. C1...(CV|
00003990: 24 28 31 29 29 20 A7 20 31 33 36 31 30 00 B9 41 |$(1)) . 13610..A|
000039A0: 26 35 8B 20 43 32 B3 B1 C6 28 43 56 24 28 32 29 |&5. C2...(CV$(2)|
000039B0: 29 20 A7 20 31 33 36 31 30 00 C5 41 29 35 89 20 |) . 13610..A)5. |
000039C0: 31 33 37 33 30 00 D0 41 2A 35 99 20 22 93 22 3B |13730..A*5. ".";|
000039D0: 00 E5 41 34 35 48 50 B2 30 3A 56 50 B2 31 32 3A |..A45HP.0:VP.12:|
000039E0: 8D 20 39 39 30 00 11 42 3E 35 99 22 C4 CF A0 D9 |. 990..B>5."....|
000039F0: CF D5 A0 D7 C1 CE D4 A0 D4 CF A0 D3 C1 D6 C5 A0 |................|
00003A00: D4 C8 C5 D3 C5 A0 CE C5 D7 A0 C3 CF CC CF D2 D3 |................|
00003A10: 22 00 3A 42 43 35 99 22 D4 CF A0 D4 C8 C5 A0 C4 |".:BC5."........|
00003A20: C9 D3 CB A0 C6 CF D2 A0 CC C1 D4 C5 D2 A0 D5 D3 |................|
00003A30: C5 28 D9 2F CE 29 3F A0 22 3B 00 44 42 48 35 8D |.(./.)?.";.DBH5.|
00003A40: 20 35 30 30 00 58 42 5C 35 8B 20 49 4E B2 45 58 | 500.XB\5. IN.EX|
00003A50: 20 A7 20 31 33 37 30 30 00 78 42 66 35 8B 20 49 | . 13700.xBf5. I|
00003A60: 4E 24 B2 22 CE 22 20 B0 20 49 4E 24 B2 22 4E 22 |N$."." . IN$."N"|
00003A70: 20 A7 20 31 33 37 30 30 00 98 42 70 35 8B 20 49 | . 13700..Bp5. I|
00003A80: 4E 24 B2 22 D9 22 20 B0 20 49 4E 24 B2 22 59 22 |N$."." . IN$."Y"|
00003A90: 20 A7 20 31 33 36 38 35 00 AB 42 71 35 8D 20 32 | . 13685..Bq5. 2|
00003AA0: 37 30 30 3A 89 20 31 33 36 34 30 00 C9 42 75 35 |700:. 13640..Bu5|
00003AB0: 43 56 24 28 31 29 B2 C7 28 43 31 29 3A 43 56 24 |CV$(1)..(C1):CV$|
00003AC0: 28 32 29 B2 C7 28 43 32 29 00 D4 42 7A 35 8D 20 |(2)..(C2)..Bz5. |
00003AD0: 35 30 30 30 00 E0 42 7F 35 89 20 31 33 37 33 30 |5000..B.5. 13730|
00003AE0: 00 EA 42 84 35 99 22 93 22 3B 00 00 43 89 35 97 |..B.5.".";..C.5.|
00003AF0: 20 35 33 32 38 30 2C C6 28 43 56 24 28 32 29 29 | 53280,.(CV$(2))|
00003B00: 00 16 43 8E 35 97 20 35 33 32 38 31 2C C6 28 43 |..C.5. 53281,.(C|
00003B10: 56 24 28 32 29 29 00 2C 43 98 35 99 20 43 4F 24 |V$(2)).,C.5. CO$|
00003B20: 28 C6 28 43 56 24 28 31 29 29 29 3B 00 32 43 A2 |(.(CV$(1)));.2C.|
00003B30: 35 8E 00 54 43 E8 35 8F 20 2A 2A 2A 2A 2A 2A 2A |5..TC.5. *******|
00003B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003B50: 2A 2A 2A 2A 00 6F 43 E9 35 8F 20 20 20 20 20 20 |****.oC.5. |
00003B60: 53 54 41 4E 44 41 52 44 20 43 4F 4C 4F 52 53 00 |STANDARD COLORS.|
00003B70: 75 43 EA 35 8F 00 84 43 F2 35 43 31 B2 31 34 3A |uC.5...C.5C1.14:|
00003B80: 43 32 B2 36 00 91 43 FC 35 97 20 32 35 34 2C 43 |C2.6..C.5. 254,C|
00003B90: 31 00 9D 43 06 36 9E 20 34 39 31 35 32 00 AC 43 |1..C.6. 49152..C|
00003BA0: 10 36 99 20 43 4F 24 28 43 31 29 3B 00 C6 43 1A |.6. CO$(C1);..C.|
00003BB0: 36 97 20 35 33 32 38 30 2C 43 32 3A 97 20 35 33 |6. 53280,C2:. 53|
00003BC0: 32 38 31 2C 43 32 00 D2 43 24 36 89 20 31 33 32 |281,C2..C$6. 132|
00003BD0: 34 30 00 00 00 44 5B |40...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.22.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 NUMBER
"...... "PRINTER SECONDARY A
DDRESS "............ J.3 . MX:. S
S$(J):. J...........SB . F(" ").'.D.EX .
F("_").I.N.RT . 13 :. RT = ASC("RETURN"
).Y.X.LV . F("A").I...HV . F("T").....DE
. 20 :. DE = ASC("DELETE").....LA . 157
:. LA =ASC("LEFT ARROW").G...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,1.V.... J.3 . MX:. TY(J):. J...... 8,2
0,2,"Y",8,66,6,9,"N","Y",65,1,"Y","B","N
","Y","N",12,4,7...(.. J.3 . MX:. SV$(J)
:. J...2.. 8, 11.L.3.. 0, 40.X.4.. 1 , 3
...5.. 217, 206...6.. 0, 20...7.. 22, 11
2...8.. 5, 20...9.. 6, 20.(.:.. 217, 206
.7.;.. 217, 206.E.<.. 40, 126.P.=.. 1, 3
._.>.. 217, 206.N.?.. 212, 194.}.@.. 217
, 206...A.. 217, 206...B.. 217, 206...C.
. 0, 255...D.. 4, 5...E.. 0,255.X.F.. J.
3 . MX:. I.1 . 2...K.. DA:AR$(J,I).G(DA)
...P.. I:. J...Z.....D.. CO$(15):. COLOR
TABLE._.I.. 144,5,28,159,156,30,31,158,
129,149,150,151,152,153,154,155.N.X.. J.
0 . 15...... DA:CO$(J).G(DA)...... J....
.. *******SET UP SOUND CHIP ****.....SC.
54272.Z. .. I.SC . SC.24:. I,0:. I......
SC.24,15...... SC.1,100...H.. ******* S
ET UP KEY SPRITE ***.3.R.. 53264,0:.2040
,13.J.... 53277,0:.53271,0.N.... 198,0:.
CLEAR KEYBOARD BUFFER. .... 649,3:. SET
KEYBOARD BUFFER TO 3 CHARACTERS...6...I
.@.. ****************************...A..
POKE IN ASSEMBLY ROUTINE...B.. THAT CH
ANGES CHARACTER...C.. COLOR MEMORY.<.J.
. 169, 0, 133, 251, 169, 216.].T.. 133,
252, 165, 254, 160, 0...^.. 145, 251, 20
0, 208, 251, 230...H.. 252, 165, 252, 20
1, 219, 208.D.R.. 239, 165, 254, 160, 0,
145...|.. 251, 200, 192, 232, 144, 249.
..... 96...... I.0 . 36...... IN...... 4
9152.I,IN.!.... I.F.... ****************
**************.^.... PASSWORD TABLE.K
.B.. CT(42)...L.. 56,68,75,49,50,89,84,7
0,55,83...Q.. 73,66,53,86,80,72,51,88,69
,77.K.V.. 52,81,90,76,67,54...... I.1 .
26:. IN:CT(IN.48).192.I:. I............
******************************.1.... N
EXT ITEMS.7.....S...LO.LO.1: . LO.4 . LO
.13.F.... LO.13 . LO.3.R.&.HI.LO.9.X.0..
...P..".":. ***SET UP SCREEN ***...U..53
287,F(CV$(1)):. SPRITE COLOR.P.Z.HP.0:VP
.2:. 990......". SETUP ITEMS AND CU
RRENT VALUES ".......,.... **********
********************.2.....G...HP.0:VP.1
7:. 990.Y.... ". PRESS SPACE BAR FOR
REST OF LIST ".....HP.0 :VP.21:. 990.
....."ENTER LETTER OF ITEM TO CHANGE (A-
T)".P...HP.0:VP.22:. 990......53248,209:
.53249,226:. KEY SPRITE POSITION.+. .."(
PRESS RETURN FOR ALL, TO QUIT)".9.%.
. 53269,1.?.*...D.4.. ******************
************.Y.5.. PUT UP ITEMS...=.HP
.0:VP.5:. 990...>.. J .LO . HI...D.. G(J
.190);". ";.A.H.. SS$(J);...R.. TY(J) .
2 . . CV$(J):. 2140...W.. F(CV$(J))...\.
VP.VP.1...A.HP.0:. 990...F.. J...Z...2..
.HP.37:VP.21:. 990.<.... 500.U.... IN.12
7 . IN.IN.128.V.... IN .. LV . IN .. HV
. 2295...... IN . SB . 2295. .... IN . E
X . 2295...... IN . RT . 2295...J.. 2700
.K.... 2200.Q.......... ****************
**************...... INDIVIDUAL ITEM
DISPLAY.......)...T.IN.62.=...HP.0:VP.5:
. 990.W.... J.1 .19:. S40$;:. J.E.... 53
269,0.O...MV.20.....VP.5:. 990:.".ITEM".
....HP.7:. 990:. SS$(T).F.... T.5 . T.6
. . 990:."PRINT-DRAFT"...$.. T.9 . T.10
. . 990:."# LINES":. 2600...... T.13 . T
.19 . . 990:."DEFAULT".6.B..".";:.".ALLO
WABLE RANGE.";.B.G.. T.16 . ." TOP OR BO
TTOM (T/B)":. 2390...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).2.J
..".";:.".CURRENT VALUE.";.U.T.. TY(T).2
. ." ";CV$(T):. 2450.E.~.. F(CV$(T)).P.
..."..";......"ENTER NEW VALUE, THEN PRE
SS RETURN".I....".(RETURN ALONE TO ACCEP
T CURRENT VALUE)"......"..
===>"......53248,72:.53249,234.*.
... "PRESS TO RETURN TO MENU";.7....
53269,1.O.D.. TY(T) . 3000,3400.C...HP.0
:VP.5:. 990.~.... J.1 . 19:. S40$;:. J..
....53269,0.........(.. ****************
**************.X.).. LOWER MAX FOR TOP
/BOTTOM?...*.....2.TL . F(CV$(8)).10...<
.. TL..40 . 2650.%.F.. T.9 . MV.TL.F(CV$
(10)).B.P.. T.10 . MV.TL.F(CV$(9)).H.Z..
.L.... *****************************....
.. RING DAT BELL, BOY............ SC.
5,15:. SC.1,17:. SC.4,33.C. .. I.1 . 35:
. I...... SC.4,0:. SC.5,0:. SC.1,100....
.... ... *****************************.+
... GET UP TO 3 DIGIT #.1 ....B B.OT
.F(CV$(T)).P L.OT$.D(OT).` V.ND.C(OT$).1
.T ..OT$.J(OT$,2,ND).. ..HP.26:VP.21:. 9
90.. ..." ";:.990.. ... OT$;:. 990.H
..NU.0:. 3 DIGIT NUMBER.. ..DI.0:. DIGI
TS INPUT SO FAR.. ... **GET NUMBER***..!
... 500..!+.. IN..DE . IN..LA . 3125:. D
ELETE?.B!,.. DI.0 . ." .";.L!-.. DI.0 .
DI.DI.1:. G(DE);:NU..(NU.10).W!... 3100.
.!5.. IN.EX . . 204,1:...!:.. IN.RT . 32
00:. CHECK NUMBER.L!?.. DI.3 . . 2700:.
3100..!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$;" ..";.H"
B.. 3100.M"... *************************
*****.."... VALUE IN RANGE?..".....".
.. 204,1.."... DI.0 . 3300.E"... T..9 .
T.. 10 . 3210.X"... NU.MV . 3220..#... N
U..F(AR$(T,1)) . NU..F(AR$(T,2)) . 3270.
.#..HP.15:VP.20:. 990.9#..."<VALUE OUT O
F RANGE>".D#... 2700.N# .. 990.B#... K.1
. 500:. K..#... "
";..#... 3050..#F.. T..8 . 3290..#P.. 33
10..#Z.CV$(T).G(NU).A#.....#... ********
*******************..$... CHANGE TOP/BO
TTOM MARGINS?..$.....$... NU..50 . 3390.
>$..TM.F(CV$(9)):BM.F(CV$(10)).L$..N10.N
U.10.F$... N10..TM . BM . 3390..$... TM.
N10.5 . BM.N10.6 . 3380..$... TM.BM . CV
$(10).G(N10.TM).F$ .. BM.TM . CV$(9).G(N
10.BM).Z$*.. BM..TM . 3390..$4.TM..(N10.
2):CV$(9).G(TM)..%9.CV$(10).G(N10.TM)..%
>...5%H.. ***************************.W%
I.. GET SINGLE ASCII CHARACTER.]%J...F%
M.OK.0.V%R.HP.26:VP.21..%W.. 990..%\.. C
V$(T);" ";..%A.. 990..%F.. 500.J%P.. IN.
DE . IN.LA . ." .";:. 3430..%Z.. IN.EX .
3500..%... IN.RT . 3490..&... IN.128 .
IN$.G(IN.128).A&... IN$..AR$(T,1) . IN$.
.AR$(T,2) . . 2700:. 3430.C&... 990:. IN
$;".";:OK.1:PV$.IN$.N&... 3430..&... OK
. CV$(T).PV$..&.....&... ***************
*************.Q&... COPY CURRENT VALS TO
OLD VALS.W&.....&... J.3 . MX..&$.OV$(J
).CV$(J)..'... J..'8...R'B.. ***********
****************** 3651 REM COPY OLD VA
LS TO CURRENT VALS.X'D...G'L.. J.3 . MX.
Y'V.CV$(J).OV$(J)..'`.. J..'J....' .. **
***************************.H'... LOA
D CURRENT VALUES.N'.....'... 3,8,3,"@0:U
TILDATA,S,R"..'... 5300..(... NR . 4120.
.(H. 3..(R.. 5400.%(... 4000.4(... I.1
. MX.@("..#3,IN$.K(,.. 5300.[(6.. NR . 4
175.C(@. 3.N(E.. 5400.Y(J.. 4000..(O.CV
$(I).IN$:. IN$."" . CV$(I).G(0).G(P.. TY
(I).2 . CV$(I).G(F(CV$(I)).128).O(T.. I.
W(^. 3..(H....)... ********************
*********..)... SAVE VALUES?..)....
.)... J.3 . MX.J)... OV$(J)..CV$(J) . 46
00.R)... J.X)F...K)... ".":.53269,0.)..
HP.0:VP.8:. 990..)... " DO YOU WANT TO S
AVE THESE NEW VALUES".W)... " TO THE DIS
K FOR LATER USE (Y/N)?"..).....*..."(RET
URN ALONE TO GO BACK TO SETUP ITEMS)"."*
..HP.34:VP.9:. 990.9*... **GET RESPONSE*
*.C*... 500.T*... IN.RT . 70.V* .. IN$ .
"N" . IN$ ."N" . 4685..**.. IN$ . "Y" .
IN$ ."Y". 4660..*+.. 2700:. 4630..*4..
5000..*>.. 4690.J*M.. 3650.P*R....*... *
*****************************..+... SAV
E NEW VALUES TO DISK..+....5+...".";:HP.
0:VP.11:. 990.Q+..."SAVING NEW VALUES...
".O+... 3,8,3,"@0:UTILDATA,S,R".Z+... 53
00..+... NR . 3:. 5015..+... 5035..+..
. 3,8,3,"@0:UTILDATA,S,W".D+... 5300.T+.
.. NR . 5040..+.. 3..+... 5400..+... 50
00..,... I.1 . MX.-,... TY(I).2 . .3,G(F
(CV$(I)). 95);:. 5060.<,...3,CV$(I);.G,D
.. 5300.W,N.. NR . 5100._,X. 3.J,... 54
00.U,... 5000.},... I..,.. 3..,.....,..
. *****************************.N,...
CHECK FOR DISK ERROR.T,.....,..NR.1..,
...15,EN,ED$,EF,ES..-H.. EN..0 . NR.0..-
R.../-... *****************************.
M-... PRINT ERROR MESSAGE.S-....\-..
.".".G-... 2700.|-".VP.11:HP.0:. 992..-,
.. EN.26 . . 5530:. 5440..-1.. EN.62 . .
5560:. 5440..-6.. 5500.O-@.VP.23:. 990.
.-J.."PRESS ANY KEY TO CONTINUE ";..-O..
500...R.."."...T...2.|.."PLEASE CHECK D
ISK AND MAKE SURE".[...."IT IS INSERTED
IN DRIVE PROPERLY.".A.........."UNABLE T
O WRITE TO DISK."......"(DISK MAY BE WRI
TE PROTECTED)"...... "PLEASE CHECK IT.".
E.........."PLEASE MAKE SURE"...B.."PROG
RAM DISK IS IN DRIVE"../L...(/X.. ******
************************.J/Y.. READ A
ND DISPLAY CATALOG.P/Z...[/B.. 7500.E/C.
. 500.X/F.. IN.EX . 7780../G.. IN..SB .
. 2700:. 7011../L.. 3,F(CV$(3)),3,"#"../
Z.X.2../{..7600.S/..HP.0:VP.3:. 990../..
."FILENAME PASSWORD"..0..HP.0:VP.6:. 9
90..0..NC.0:FF.0..0..X.5.'0..NT.18:NS.1.
>0...15,"U1";3;0;NT;NS.I0... 5300.Y0...
NR . 7090.H0.. 3:. 5400.S0... 7700..0..
.15,"B-P:";3;0..0...#3,IN$:. IN$."" . IN
$.G(0).A0F.NT.F(IN$):. NEXT TRACK..0P..#
3,IN$:. IN$."" . IN$.G(0)..0Z.NS.F(IN$):
. NEXT SECTOR..1..BP.2..1...15,"B-P:";3;
BP.%1... 5300.51... NR . 7160.D1.. 3:.
5400.O1... 7700.K1...#3,IN$:. IN$."" . 7
350..1..FT.F(IN$).128:. FILE TYPE..1...#
3,IN$:.#3,IN$:. GARBAGE..1 .NF$."".A1*..
I.3 . 18.M14..#3,IN$..1>.NF$.NF$.IN$..1
H.. I..1J.. FT..2 . 7300..2K.FS.0.!2M..
J(NF$,13,1).G(160) . 7300.,2R.. 7800.Q2\
.. H(NF$,8);" ";J(NF$,9,5):FF.1.L2F.NC
.NC.1:. NC.15 . 7300..2K.VP.23:HP.28:. 9
90..2P.. 500..2R.. IN.EX . 3:. 7780.B2
U.. IN..SB . . 2700:. 7280..2Z.HP.0:VP.6
:. 7600:. 990..2.NC.0..3..BP.BP.32:. BP
.227 . 7150..3... NT..0 . 7080..3.. 3.3
3... FF..1 . . 7400.I3..HP.28:VP.23:. 99
0.S3... 500.{3J.. IN..SB . IN .. EX . .
2700:. 7360..3T....3... ****************
**************.C3... NO WRITER FILES FO
UND.X3..VP.10:HP.4:. 990..3... 2700..4..
."NO WRITER FILES ON DISK";..4$....4L..
******************************.F4M..
CATALOG SCREEN.L4N...W4V.. ".";.L4`.HP.1
0:VP.1:. 990..4J..".CATALOG AND PASSWORD
S"..4T.HP.0:VP.5:. 990.K4~.."INSERT DISK
CONTAINING FILES IN DRIVE"..4..HP.0:VP.
23:.990..5..."PRESS SPACE BAR TO CONTINU
E"..5..VP.23:HP.28:. 990..5....C5... ***
***************************.`5... CLEA
R PART OF SCREEN.T5D.HP.0:VP.X:. 990..5N
.. I.1 . 16..5X.."
"..5... I..5.....5... **
****************************..6... TRY
AGAIN OR RETURN TO MAIN..6....&6...".":V
P.3:HP.0:. 990.L6(.."T)RY AGAIN OR R)ETU
RN TO MENU?".A62.."(ENTER T OR R).V67.VP
.3:HP.31:. 990..6<.. 500..6F.. IN$."T" .
IN$."T" . 7000..6P.. IN$.."R" . IN$.."R
" . 7740.F6D....6X.. *******************
***********..7Y.. DECODE PASSWORD..7...
I.0.4.(7..TL.F(J(NF$,9.I,1)).48.B7... T
L.1 . TL.42 . 7880.^7..TL.CT(TL):. TL.0
. 7880.L7..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....Z7.'. *******************
**********..7.'. MISSION CONTROL..7$
'...8.'. BANK STREET WRITER UTILITY.!88'
..D8B'. ROBERT SHAVER/AUGUST 26,1983.F8L
'. WITH A LITTLE HELP FROM HIS.T8V'. FRI
ENDS.Z8`'...8J'...8T'. 11000..8~'. 12000
..8.'. IN . 50,7000,13000,11500.C8.'. 10
100..8.*. *****************************.
.9.+. PUT UP MAIN MENU..9.+...9.+. "."
;:.53269,0.49.+. J.1 . 40:.". ";:. J.W9
+. J.1 . 22:.". .
. ";:. J..9*+. J.1 . 36:.
". ";: . J..9/+."1.1 ";..94+.".";..9>+VP
.3:HP.9:. 990..9H+."THE BANK STREET WRIT
ER";..9R+VP.5:HP.13:. 990..:\+."UTILITY
PROGRAM";..:F+VP.8:HP.5:. 990.4:P+."DO Y
OU WANT TO:".I:Z+VP.10:HP.9:. 990.F:.+."
1. CHANGE SETUP ITEMS".{:.+VP.12:HP.9:.
990..:.+."2. DISPLAY PASSWORDS"..:.+VP.1
4:HP.9:.990.J:.+."3. CHANGE SCREEN COLOR
S"..:.+VP.16:HP.9:. 990..:.+."4. QUIT"..
;J+VP.19:HP.5:. 990..;T+."WHICH ONE (1-4
)? ";.#;.+..G;.,. **********************
*******.A;.,. RETURN TO WRITER.S;.,."
.":. 649,10..;.-. 3,8,3,"@0:UTILDATA,S,R
"..;.-. 5300..;.- 3..;.-. NR . 11600..;
.-. 5400.L;(-. 11500..;P-BF.0: 15:."BSW
",8..<... *****************************.
%<... GET SINGLE DIGIT (1-4).+<....5<..
. 500.C<./IN . IN.48:. IN.1 . IN.4 . . 2
700:. 12030.I<&/...<H2. ****************
*************..<I2. CHANGE COLORS..<J2
..G<M2C1.F(CV$(1)):C2.F(CV$(2)).Q<R2."."
;..<.2HP.0:VP.1:. 990..=.2.".
CHANGE COLOR "..=.2SF.0.
+=.2. 13500.>="3HP.0:VP.7:.990.O=,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.K
=T3. "-OR-"..=^3HP.5:VP.17:. 990..>H3. "
PRESS 'S' FOR STANDARD COLORS"..>R3HP.0:
VP.23:. 990.8>|3."PRESS RETURN TO GO ON"
.>>.3..S>.3VI$."[<:,]>;.SS".I>.3VP.23:HP
.22:. 990.S>.3. 500..>G3. IN.EX . 13700.
.>L3. IN.RT . 13600..>Q3. IN.SB . . 1350
0:. 13240.L>V3. I.1 . C(VI$)..>.3. J(VI$
,I,1)..IN$ . .:. 2700:.13240.:?.3. I . 1
3400,13400,13400,13400,13290,13290,13290
,13290,13800,13800.K?.3. SF . 13350.F?.3
C1.C1.1:. C1.15 . C1.0.Z?.3. C1.C2 . 133
00..?.3. 254,C1..?.4. 49152..?.4. CO$(C1
);..?.4. 13240.H?&4C2.C2.1:. C2.15 .C2.0
..?+4. C2.C1 . 13350..?04. 53280,C2:. 53
281,C2..@:4. 13240..@X4. SF . 13450..@B4
C1.C1.1:. C1.0 . C1.15.B@G4. C1.C2 . 134
10.N@L4. 13310.I@.4C2.C2.1:. C2.0 . C2.1
5.}@.4. C2.C1 . 13450..@.4. 13360..@.4.*
****************************..@.4..L@A4S
F.SF.1:. SF.2 . SF.0..@F4HP.5:VP.4:. 990
..@P4. SF . .".";..@Z4."SCREEN"..A.4HP.2
6:. 990."A.4. SF.0 . .".";.3A.4."CHARACT
ER".9A.5..\A 5.*************************
****.{A!5. SAVE NEW SCREEN COLORS?..A"5
...A$5. C1..F(CV$(1)) . 13610..A&5. C2..
F(CV$(2)) . 13610.EA)5. 13730.PA*5. ".";
..A45HP.0:VP.12:. 990..B>5."DO YOU WANT
TO SAVE THESE NEW COLORS".:BC5."TO THE D
ISK FOR LATER USE(Y/N)? ";.DBH5. 500.XB\
5. IN.EX . 13700.XBF5. IN$."N" . IN$."N"
. 13700..BP5. IN$."Y" . IN$."Y" . 13685
..BQ5. 2700:. 13640.IBU5CV$(1).G(C1):CV$
(2).G(C2).TBZ5. 5000..B5. 13730..B.5.".
";..C.5. 53280,F(CV$(2))..C.5. 53281,F(C
V$(2)).,C.5. CO$(F(CV$(1)));.2C.5..TC.5.
***************************.OC.5.
STANDARD COLORS.UC.5...C.5C1.14:C2.6..C.
5. 254,C1..C.6. 49152..C.6. CO$(C1);.FC.
6. 53280,C2:. 53281,C2.RC$6. 13240...D[
> CLICK IMAGE PREVIEW FOR FULL MODAL