HOME OFFICE 1
FILE INFORMATION
FILENAME(S): HOME OFFICE 1
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-11-30 19:35:23
APPEARS ON: 1 disk(s)
FILE HASH
18c151d87076bac57d8ffb0a0c0d761c0245adeaeccf49ec67717de83d54474b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FUENFHAUS XV | HOME OFFICE 1 | PRG | Curtcool, bitbear | 25 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 50 4F 4B 45 38 30 38 2C |....... POKE808,|
00000010: 32 32 35 3A 50 4F 4B 45 38 31 38 2C 33 32 00 34 |225:POKE818,32.4|
00000020: 08 1E 00 97 35 33 32 38 30 2C 39 3A 97 35 33 32 |....53280,9:.532|
00000030: 38 31 2C 36 00 7F 08 28 00 56 B2 35 34 32 39 36 |81,6...(.V.54296|
00000040: 3A 57 57 B2 35 34 32 37 36 3A 5A 41 B2 35 34 32 |:WW.54276:ZA.542|
00000050: 37 37 3A 48 46 B2 35 34 32 37 33 3A 4C 46 B2 35 |77:HF.54273:LF.5|
00000060: 34 32 37 32 3A 53 53 B2 35 34 32 37 38 3A 50 48 |4272:SS.54278:PH|
00000070: B2 35 34 32 37 35 3A 50 4C B2 35 34 32 37 34 00 |.54275:PL.54274.|
00000080: 88 08 32 00 51 35 B2 30 00 9A 08 3C 00 5A 5A B2 |..2.Q5.0...<.ZZ.|
00000090: B8 28 58 29 3A 5A 58 B2 39 32 00 C4 08 46 00 99 |.(X):ZX.92...F..|
000000A0: 22 93 11 20 20 20 20 20 20 20 05 1D D5 C0 C0 C0 |".. ......|
000000B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000C0: C0 C0 C9 22 00 EE 08 50 00 99 22 20 20 20 20 20 |..."...P.." |
000000D0: 20 20 05 1D C2 9B 48 4F 4D 45 20 4F 46 46 49 43 | ....HOME OFFIC|
000000E0: 45 20 44 41 54 41 20 42 41 53 45 05 C2 22 00 17 |E DATA BASE.."..|
000000F0: 09 5A 00 99 22 20 20 20 20 20 20 20 05 1D CA C0 |.Z.." ....|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 C0 C0 C0 CB 9B 22 00 65 09 64 00 99 22 11 11 |......".e.d.."..|
00000120: 1D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000130: 20 05 12 45 4E 54 45 52 92 9B 20 20 20 20 20 20 | ..ENTER.. |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 11 1D 20 41 56 45 | .. AVE|
00000160: 52 41 47 45 22 00 8C 09 6E 00 99 22 11 1D 1D 1D |RAGE"...n.."....|
00000170: 1D 1D 20 20 20 20 20 20 20 20 12 9F 20 44 41 54 |.. .. DAT|
00000180: 41 20 52 45 43 4F 52 44 20 92 9B 22 00 B0 09 78 |A RECORD .."...x|
00000190: 00 99 22 11 20 20 20 20 20 20 20 20 20 1D 1D 1D |..". ...|
000001A0: 4F 52 20 50 52 45 53 53 20 52 45 54 55 52 4E 22 |OR PRESS RETURN"|
000001B0: 00 B6 09 82 00 99 00 E5 09 8C 00 99 22 11 11 11 |............"...|
000001C0: 11 9F 20 20 20 20 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 |.. .........|
000001D0: C0 C9 20 20 20 20 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 |.. .........|
000001E0: C0 C0 C0 C9 22 00 10 0A 96 00 99 22 9F 20 20 20 |...."......". |
000001F0: 20 20 C2 53 4F 46 54 57 41 52 45 20 36 34 20 20 | .SOFTWARE 64 |
00000200: 20 20 C2 48 4F 4D 45 20 4F 46 46 49 43 45 C2 22 | .HOME OFFICE."|
00000210: 00 3D 0A A0 00 99 22 9F 20 20 20 20 20 C2 41 55 |.=....". .AU|
00000220: 44 49 4F 47 45 4E 49 43 D5 2A 5F C0 C0 C0 4E 41 |DIOGENIC.*_...NA|
00000230: 56 41 4A 4F 28 43 29 38 33 C0 3C 3C 22 00 69 0A |VAJO(C)83.<<".i.|
00000240: AA 00 99 22 9F 20 20 20 20 20 CA C0 C0 C0 C0 C0 |...". ......|
00000250: C0 C0 C0 C0 C0 CB 20 20 20 20 CA C0 C0 C0 C0 C0 |...... ......|
00000260: C0 C0 C0 C0 C0 C0 CB 9B 22 00 97 0A B4 00 99 22 |........"......"|
00000270: 91 91 91 91 91 91 91 91 20 20 20 20 20 20 20 20 |........ |
00000280: 1D 9C 48 4F 57 20 4D 41 4E 59 20 43 48 41 52 41 |..HOW MANY CHARA|
00000290: 43 54 45 52 53 9B 22 00 C0 0A BE 00 85 22 11 1D |CTERS."......"..|
000002A0: 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |.. "|
000002B0: 3B 5A 58 3A 8B 5A 58 B3 31 30 A7 5A 58 B2 31 30 |;ZX:.ZX.10.ZX.10|
000002C0: 00 CF 0A C8 00 8B 5A 58 B1 39 32 A7 32 31 30 00 |......ZX.92.210.|
000002D0: E2 0A D2 00 5A 5A B2 B5 28 5A 5A AD 5A 58 29 AA |....ZZ..(ZZ.ZX).|
000002E0: 31 30 00 04 0B DC 00 86 20 54 4E 24 28 5A 5A 2C |10...... TN$(ZZ,|
000002F0: 31 29 2C 5A 59 28 32 37 29 3A 54 4E B2 5A 5A 3A |1),ZY(27):TN.ZZ:|
00000300: 41 4E B2 31 00 2B 0B E6 00 97 56 2C 31 35 3A 97 |AN.1.+....V,15:.|
00000310: 5A 41 2C 39 30 3A 97 57 57 2C 31 37 3A 97 48 46 |ZA,90:.WW,17:.HF|
00000320: 2C 36 34 3A 97 4C 46 2C 31 38 38 00 65 0B F0 00 |,64:.LF,188.e...|
00000330: 99 22 91 1D 9C 20 20 20 20 20 20 20 12 20 20 45 |."... . E|
00000340: 4E 54 52 49 45 53 20 41 4C 4C 4F 57 45 44 20 20 |NTRIES ALLOWED |
00000350: 92 05 20 22 54 4E AB 41 4E 3A 81 51 B2 31 A4 31 |.. "TN.AN:.Q.1.1|
00000360: 30 30 30 3A 82 00 81 0B FA 00 97 57 57 2C 30 3A |000:.......WW,0:|
00000370: 97 5A 41 2C 30 3A 97 4C 46 2C 30 3A 97 48 46 2C |.ZA,0:.LF,0:.HF,|
00000380: 30 00 99 0B 04 01 97 35 33 32 38 30 2C 31 34 3A |0......53280,14:|
00000390: 97 35 33 32 38 31 2C 31 35 00 C1 0B 0E 01 99 22 |.53281,15......"|
000003A0: 93 11 20 20 20 20 20 20 20 20 20 20 05 D5 C0 C0 |.. ....|
000003B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 |................|
000003C0: 22 00 F2 0B 18 01 99 22 20 05 D5 C0 C0 C0 C0 C0 |"......" .......|
000003D0: C0 C0 C0 B3 97 20 20 44 41 54 41 42 41 53 45 20 |..... DATABASE |
000003E0: 4D 45 4E 55 20 20 05 AB C0 C0 C0 C0 C0 C0 C0 C0 |MENU ..........|
000003F0: C9 22 00 22 0C 22 01 99 22 05 20 C2 20 20 20 20 |."."."..". . |
00000400: 20 20 20 05 1D CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | .............|
00000410: C0 C0 C0 C0 C0 C0 C0 CB 20 20 20 20 20 20 20 20 |........ |
00000420: C2 22 00 51 0C 2C 01 99 22 05 20 C2 20 20 20 20 |.".Q.,..". . |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 | .|
00000450: 22 00 82 0C 36 01 99 22 05 20 C2 97 20 20 31 2E |"...6..". .. 1.|
00000460: 2E 2E 2E 4C 4F 41 44 20 28 52 45 41 44 29 20 44 |...LOAD (READ) D|
00000470: 49 53 4B 2F 54 41 50 45 20 46 49 4C 45 20 20 05 |ISK/TAPE FILE .|
00000480: C2 22 00 B1 0C 40 01 99 22 05 20 C2 20 20 20 20 |."...@..". . |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 | .|
000004B0: 22 00 E2 0C 4A 01 99 22 05 20 C2 97 20 20 32 2E |"...J..". .. 2.|
000004C0: 2E 2E 2E 53 41 56 45 20 28 57 52 49 54 45 29 20 |...SAVE (WRITE) |
000004D0: 44 49 53 4B 2F 54 41 50 45 20 46 49 4C 45 20 05 |DISK/TAPE FILE .|
000004E0: C2 22 00 11 0D 54 01 99 22 05 20 C2 20 20 20 20 |."...T..". . |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 | .|
00000510: 22 00 46 0D 5E 01 99 22 05 20 C2 97 20 20 33 2E |".F.^..". .. 3.|
00000520: 2E 2E 2E 12 1F 44 41 54 41 20 53 45 41 52 43 48 |.....DATA SEARCH|
00000530: 92 97 20 2F 20 55 50 44 41 54 45 20 20 20 20 20 |.. / UPDATE |
00000540: 20 20 20 05 C2 22 00 75 0D 68 01 99 22 05 20 C2 | ..".u.h..". .|
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 20 20 C2 22 00 AA 0D 72 01 99 22 05 20 C2 97 | ."...r..". ..|
00000580: 20 20 34 2E 2E 2E 2E 12 1E 45 4E 54 45 52 92 97 | 4......ENTER..|
00000590: 20 20 4E 45 57 20 44 41 54 41 20 20 20 20 20 20 | NEW DATA |
000005A0: 20 20 20 20 20 20 20 05 C2 22 00 D9 0D 7C 01 99 | .."...|..|
000005B0: 22 05 20 C2 20 20 20 20 20 20 20 20 20 20 20 20 |". . |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 C2 22 00 0E 0E 86 01 99 22 | ."......"|
000005E0: 05 20 C2 97 20 20 35 2E 2E 2E 2E 1C 12 45 4E 44 |. .. 5......END|
000005F0: 92 97 20 2D 20 43 4C 45 41 52 20 4D 45 4D 4F 52 |.. - CLEAR MEMOR|
00000600: 59 20 20 20 20 20 20 20 20 20 20 05 C2 22 00 3D |Y ..".=|
00000610: 0E 90 01 99 22 05 20 C2 20 20 20 20 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 20 20 20 20 20 20 C2 22 00 6E 0E | .".n.|
00000640: 9A 01 99 22 05 20 C2 97 20 20 36 2E 2E 2E 2E 50 |...". .. 6....P|
00000650: 52 49 4E 54 2D 4F 55 54 20 44 41 54 41 20 4F 4E |RINT-OUT DATA ON|
00000660: 20 46 49 4C 45 20 20 20 20 20 20 05 C2 22 00 9D | FILE .."..|
00000670: 0E A4 01 99 22 05 20 C2 20 20 20 20 20 20 20 20 |....". . |
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000690: 20 20 20 20 20 20 20 20 20 20 20 C2 22 00 CE 0E | ."...|
000006A0: AE 01 99 22 05 20 C2 97 20 20 37 2E 2E 2E 2E 53 |...". .. 7....S|
000006B0: 4F 52 54 49 4E 47 20 52 4F 55 54 49 4E 45 20 20 |ORTING ROUTINE |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 05 C2 22 00 FD | .."..|
000006D0: 0E B8 01 99 22 05 20 C2 20 20 20 20 20 20 20 20 |....". . |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006F0: 20 20 20 20 20 20 20 20 20 20 20 C2 22 00 2E 0F | ."...|
00000700: C2 01 99 22 05 20 C2 97 20 20 38 2E 2E 2E 2E 43 |...". .. 8....C|
00000710: 48 45 43 4B 20 44 41 54 41 20 49 4E 20 4D 45 4D |HECK DATA IN MEM|
00000720: 4F 52 59 20 20 20 20 20 20 20 20 05 C2 22 00 5D |ORY ..".]|
00000730: 0F CC 01 99 22 05 20 C2 20 20 20 20 20 20 20 20 |....". . |
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000750: 20 20 20 20 20 20 20 20 20 20 20 C2 22 00 8E 0F | ."...|
00000760: D6 01 99 22 05 20 C2 20 20 20 20 20 20 20 53 45 |...". . SE|
00000770: 4C 45 43 54 20 41 4E 44 20 4B 45 59 20 4E 55 4D |LECT AND KEY NUM|
00000780: 42 45 52 20 20 20 20 20 20 20 05 C2 97 22 00 BE |BER ..."..|
00000790: 0F E0 01 99 22 20 05 CA C0 C0 C0 C0 C0 C0 C0 C0 |...." ..........|
000007A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 97 22 00 C4 |............."..|
000007C0: 0F EA 01 99 00 D7 0F F4 01 A1 41 24 3A 8B 41 24 |..........A$:.A$|
000007D0: B2 22 22 A7 35 30 30 00 07 10 FE 01 91 C5 28 41 |."".500.......(A|
000007E0: 24 29 89 35 33 30 2C 37 38 30 2C 31 30 32 30 2C |$).530,780,1020,|
000007F0: 31 32 36 30 2C 31 34 33 30 2C 32 33 37 30 2C 31 |1260,1430,2370,1|
00000800: 35 31 30 2C 37 34 30 00 10 10 08 02 89 32 37 30 |510,740......270|
00000810: 00 16 10 12 02 8F 00 43 10 1C 02 99 22 93 11 1D |.......C...."...|
00000820: 1D 1D 1D 1D 1D 12 1F 49 4E 53 45 52 54 20 46 4C |.......INSERT FL|
00000830: 4F 50 50 59 20 44 49 53 4B 20 4F 52 20 54 41 50 |OPPY DISK OR TAP|
00000840: 45 97 22 00 69 10 26 02 99 22 11 1D 1D 1D 20 20 |E.".i.&..".... |
00000850: 20 20 20 20 20 20 12 98 44 49 53 4B 20 44 49 52 | ..DISK DIR|
00000860: 45 43 54 4F 52 59 3F 92 22 00 8C 10 30 02 99 22 |ECTORY?."...0.."|
00000870: 11 97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000880: 20 12 59 92 45 53 2F 12 4E 92 4F 22 00 A1 10 3A | .Y.ES/.N.O"...:|
00000890: 02 A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 89 36 30 |..A$:.A$."N"..60|
000008A0: 30 00 B3 10 44 02 8B 41 24 B3 B1 22 59 22 A7 89 |0...D..A$.."Y"..|
000008B0: 35 37 30 00 C5 10 4E 02 8B 41 24 B2 22 59 22 A7 |570...N..A$."Y".|
000008C0: 89 32 36 39 30 00 FB 10 58 02 99 22 11 1D 1D 1D |.2690...X.."....|
000008D0: 1D 1D 1D 1D 1D 1D 1D 1D 45 4E 54 45 52 20 46 49 |........ENTER FI|
000008E0: 4C 45 20 4E 41 4D 45 22 3A 85 22 11 1D 1D 1D 1D |LE NAME":.".....|
000008F0: 1D 1D 1D 1D 1D 1D 1D 22 3B 5A 24 00 0B 11 62 02 |.......";Z$...b.|
00000900: 8B 5A 24 B2 22 3D 22 A7 32 37 30 00 21 11 6C 02 |.Z$."=".270.!.l.|
00000910: 46 24 B2 22 30 3A 22 AA 5A 24 AA 22 2C 53 2C 52 |F$."0:".Z$.",S,R|
00000920: 22 00 4C 11 76 02 99 22 11 1D 1D 20 20 20 20 20 |".L.v.."... |
00000930: 20 20 20 12 97 44 92 49 53 4B 20 44 52 49 56 45 | ..D.ISK DRIVE|
00000940: 20 4F 52 20 12 54 92 41 50 45 3F 22 00 61 11 80 | OR .T.APE?".a..|
00000950: 02 A1 41 24 3A 8B 41 24 B2 22 54 22 A7 89 36 37 |..A$:.A$."T"..67|
00000960: 30 00 72 11 8A 02 8B 41 24 B3 B1 22 44 22 A7 36 |0.r....A$.."D".6|
00000970: 34 30 00 84 11 94 02 8B 41 24 B2 22 44 22 A7 89 |40......A$."D"..|
00000980: 32 31 35 30 00 92 11 9E 02 9F 31 2C 31 2C 30 2C |2150......1,1,0,|
00000990: 5A 24 00 BA 11 A8 02 99 22 11 1D 1D 20 20 20 20 |Z$......"... |
000009A0: 20 20 20 20 12 1E 4C 4F 41 44 49 4E 47 20 44 41 | ..LOADING DA|
000009B0: 54 41 20 46 49 4C 45 92 97 22 00 C4 11 B2 02 84 |TA FILE.."......|
000009C0: 31 2C 41 4E 00 D2 11 BC 02 81 49 B2 31 A4 41 4E |1,AN......I.1.AN|
000009D0: AB 31 00 FD 11 C6 02 84 31 2C 54 4E 24 28 49 2C |.1......1,TN$(I,|
000009E0: 30 29 2C 54 4E 24 28 49 2C 31 29 3A 5A 5A B2 C6 |0),TN$(I,1):ZZ..|
000009F0: 28 54 4E 24 28 49 2C 30 29 29 AB 36 35 00 14 12 |(TN$(I,0)).65...|
00000A00: D0 02 8B 5A 59 28 5A 5A 29 B2 30 A7 5A 59 28 5A |...ZY(ZZ).0.ZY(Z|
00000A10: 5A 29 B2 49 00 1B 12 DA 02 82 49 00 29 12 E4 02 |Z).I......I.)...|
00000A20: 81 49 B2 31 A4 41 4E AB 31 00 45 12 EE 02 99 20 |.I.1.AN.1.E.... |
00000A30: 54 4E 24 28 49 2C 30 29 2C 54 4E 24 28 49 2C 31 |TN$(I,0),TN$(I,1|
00000A40: 29 3A 82 20 49 00 52 12 F8 02 A0 20 31 3A 46 4C |):. I.R.... 1:FL|
00000A50: B2 31 00 5B 12 02 03 89 32 37 30 00 67 12 0C 03 |.1.[....270.g...|
00000A60: 8F 20 57 52 49 54 45 00 94 12 16 03 99 22 93 11 |. WRITE......"..|
00000A70: 1D 1D 1D 1D 1D 1D 12 1C 49 4E 53 45 52 54 20 46 |........INSERT F|
00000A80: 4C 4F 50 50 59 20 44 49 53 4B 20 4F 52 20 54 41 |LOPPY DISK OR TA|
00000A90: 50 45 97 22 00 BA 12 20 03 99 22 11 1D 1D 1D 20 |PE."... ..".... |
00000AA0: 20 20 20 20 20 20 20 12 98 44 49 53 4B 20 44 49 | ..DISK DI|
00000AB0: 52 45 43 54 4F 52 59 3F 92 22 00 DD 12 2A 03 9A |RECTORY?."...*..|
00000AC0: 22 11 97 20 20 20 20 20 20 20 20 20 20 20 20 20 |".. |
00000AD0: 20 20 12 59 98 00 79 90 F9 00 00 3F 00 88 06 84 | .Y..y....?....|
00000AE0: 0C 90 58 C9 48 A5 00 C9 48 B4 22 4E 22 A7 89 38 |..X.H...H."N"..8|
00000AF0: 35 30 00 04 13 3E 03 8B 41 24 B3 B1 22 59 22 A7 |50...>..A$.."Y".|
00000B00: 89 38 32 30 00 16 13 48 03 8B 41 24 B2 22 59 22 |.820...H..A$."Y"|
00000B10: A7 89 32 36 39 30 00 4C 13 52 03 99 22 11 1D 1D |..2690.L.R.."...|
00000B20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 4E 54 45 52 20 46 |.........ENTER F|
00000B30: 49 4C 45 20 4E 41 4D 45 22 3A 85 22 11 1D 1D 1D |ILE NAME":."....|
00000B40: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 5A 24 00 5C 13 5C |........";Z$.\.\|
00000B50: 03 8B 5A 24 B2 22 3D 22 A7 32 37 30 00 71 13 66 |..Z$."=".270.q.f|
00000B60: 03 46 24 B2 22 30 3A 22 AA 5A 24 AA 22 2C 53 2C |.F$."0:".Z$.",S,|
00000B70: 57 00 9C 13 70 03 99 22 11 1D 1D 20 20 20 20 20 |W...p.."... |
00000B80: 20 20 20 12 97 44 92 49 53 4B 20 44 52 49 56 45 | ..D.ISK DRIVE|
00000B90: 20 4F 52 20 12 54 92 41 50 45 3F 22 00 A2 13 7A | OR .T.APE?"...z|
00000BA0: 03 99 00 B7 13 84 03 A1 41 24 3A 8B 41 24 B2 22 |........A$:.A$."|
00000BB0: 54 22 A7 89 39 33 30 00 C9 13 8E 03 8B 41 24 B3 |T"..930......A$.|
00000BC0: B1 22 44 22 A7 89 39 30 30 00 DB 13 98 03 8B 41 |."D"..900......A|
00000BD0: 24 B2 22 44 22 A7 89 31 38 38 30 00 E9 13 A2 03 |$."D"..1880.....|
00000BE0: 9F 31 2C 31 2C 31 2C 5A 24 00 F3 13 AC 03 98 31 |.1,1,1,Z$......1|
00000BF0: 2C 41 4E 00 FF 13 B6 03 81 49 B2 31 A4 41 4E 00 |,AN......I.1.AN.|
00000C00: 34 14 C0 03 99 22 13 1D 1D 1D 1D 20 20 20 20 20 |4...."..... |
00000C10: 20 20 20 11 11 11 11 11 11 11 11 11 11 11 11 11 | .............|
00000C20: 11 11 1C 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 |...RECORD NUMBER|
00000C30: 97 22 3B 49 00 58 14 CA 03 99 22 1D 1D 1D 1D 1D |.";I.X....".....|
00000C40: 20 20 20 20 20 20 20 20 12 1C 53 41 56 49 4E 47 | ..SAVING|
00000C50: 20 44 41 54 41 92 97 22 00 78 14 D4 03 98 31 2C | DATA..".x....1,|
00000C60: 54 4E 24 28 49 2C 30 29 3A 98 31 2C 54 4E 24 28 |TN$(I,0):.1,TN$(|
00000C70: 49 2C 31 29 3A 82 20 49 00 95 14 DE 03 98 31 2C |I,1):. I......1,|
00000C80: 22 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A |" *******|
00000C90: 2A 2A 2A 2A 22 00 9D 14 E8 03 A0 20 31 00 A6 14 |****"...... 1...|
00000CA0: F2 03 89 32 37 30 00 B3 14 FC 03 8F 20 53 45 41 |...270...... SEA|
00000CB0: 52 43 48 00 DE 14 06 04 99 22 93 11 11 1D 1D 20 |RCH......"..... |
00000CC0: 20 20 20 20 45 4E 54 45 52 20 4B 45 59 20 4F 52 | ENTER KEY OR|
00000CD0: 20 50 52 45 53 53 20 52 45 54 55 52 4E 22 00 EB | PRESS RETURN"..|
00000CE0: 14 10 04 4E 24 B2 C7 28 31 33 29 00 0A 15 1A 04 |...N$..(13).....|
00000CF0: 85 20 22 11 11 1D 1D 20 20 20 20 20 20 12 1F 4B |. ".... ..K|
00000D00: 45 59 92 97 3A 2D 22 3B 4E 24 00 1D 15 24 04 8B |EY..:-";N$...$..|
00000D10: 4E 24 B2 C7 28 31 33 29 A7 89 35 32 30 00 3C 15 |N$..(13)..520.<.|
00000D20: 29 04 4D 4C B2 C6 28 4E 24 29 3A 8B 4D 4C B3 36 |).ML..(N$):.ML.6|
00000D30: 35 B0 4D 4C B1 39 30 A7 31 30 33 30 00 4C 15 2E |5.ML.90.1030.L..|
00000D40: 04 5A 5A B2 C6 28 4E 24 29 AB 36 35 00 5F 15 38 |.ZZ..(N$).65._.8|
00000D50: 04 81 49 B2 5A 59 28 5A 5A 29 A4 41 4E AB 31 00 |..I.ZY(ZZ).AN.1.|
00000D60: 74 15 42 04 81 54 B2 31 A4 C3 28 54 4E 24 28 49 |t.B..T.1..(TN$(I|
00000D70: 2C 30 29 29 00 9B 15 4C 04 8B CA 28 54 4E 24 28 |,0))...L...(TN$(|
00000D80: 49 2C 30 29 2C 54 2C C3 28 4E 24 29 29 B2 4E 24 |I,0),T,.(N$)).N$|
00000D90: A7 99 22 93 22 3A 89 31 31 33 30 00 A4 15 56 04 |..".":.1130...V.|
00000DA0: 82 54 2C 49 00 DE 15 60 04 99 22 11 11 1D 1D 1D |.T,I...`..".....|
00000DB0: 20 20 20 20 20 20 20 20 12 1C 20 44 41 54 41 20 | .. DATA |
00000DC0: 4E 4F 54 20 46 4F 55 4E 44 20 92 97 22 3A 81 50 |NOT FOUND ..":.P|
00000DD0: B2 31 A4 32 30 30 30 3A 82 3A 89 32 37 30 00 F9 |.1.2000:.:.270..|
00000DE0: 15 6A 04 99 22 11 20 12 1F 4B 45 59 92 97 20 22 |.j..". ..KEY.. "|
00000DF0: 3B 54 4E 24 28 49 2C 30 29 00 29 16 6F 04 99 22 |;TN$(I,0).).o.."|
00000E00: 11 1D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------|
00000E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E20: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 46 16 74 04 99 22 |--------".F.t.."|
00000E30: 1D 12 11 11 1F 44 41 54 41 92 97 20 22 3B 54 4E |.....DATA.. ";TN|
00000E40: 24 28 49 2C 31 29 00 76 16 79 04 99 22 11 1D 2D |$(I,1).v.y.."..-|
00000E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E70: 2D 2D 2D 2D 2D 22 00 A3 16 7E 04 99 22 11 1D 20 |-----"...~..".. |
00000E80: 20 20 20 20 20 20 20 20 12 1C 43 4F 4E 54 20 53 | ..CONT S|
00000E90: 45 41 52 43 48 92 97 20 12 59 92 45 53 2F 12 4E |EARCH.. .Y.ES/.N|
00000EA0: 92 4F 22 00 CE 16 88 04 99 22 1D 20 20 20 20 20 |.O"......". |
00000EB0: 20 20 20 20 12 1F 55 50 44 41 54 45 20 44 41 54 | ..UPDATE DAT|
00000EC0: 41 92 97 20 12 43 92 48 41 4E 47 45 92 22 00 EF |A.. .C.HANGE."..|
00000ED0: 16 92 04 99 22 1D 20 20 20 20 20 20 20 20 20 12 |....". .|
00000EE0: 98 48 41 52 44 20 43 4F 50 59 3F 20 92 97 22 00 |.HARD COPY? ..".|
00000EF0: 24 17 9C 04 99 22 11 1D 98 20 20 53 45 4C 45 43 |$...."... SELEC|
00000F00: 54 20 50 52 49 4E 54 45 52 20 20 12 97 53 92 98 |T PRINTER ..S..|
00000F10: 45 52 49 41 4C 2F 12 97 50 92 98 41 52 41 4C 4C |ERIAL/..P..ARALL|
00000F20: 45 4C 97 22 00 4E 17 A6 04 99 22 11 05 20 20 20 |EL.".N....".. |
00000F30: 20 20 20 20 20 50 52 49 4E 54 45 52 20 4D 55 53 | PRINTER MUS|
00000F40: 54 20 42 45 20 4F 4E 20 4C 49 4E 45 97 22 00 62 |T BE ON LINE.".b|
00000F50: 17 B0 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 32 |....A$:.A$."".12|
00000F60: 30 30 00 73 17 BA 04 8B 41 24 B2 22 59 22 A7 31 |00.s....A$."Y".1|
00000F70: 31 31 30 00 84 17 C4 04 8B 41 24 B2 22 53 22 A7 |110......A$."S".|
00000F80: 31 37 33 30 00 95 17 CE 04 8B 41 24 B2 22 43 22 |1730......A$."C"|
00000F90: A7 31 38 37 30 00 A6 17 D8 04 8B 41 24 B2 22 50 |.1870......A$."P|
00000FA0: 22 A7 32 35 31 30 00 AF 17 E2 04 89 32 37 30 00 |".2510......270.|
00000FB0: BC 17 EC 04 8F 20 49 4E 50 55 54 2A 00 E5 17 F6 |..... INPUT*....|
00000FC0: 04 99 22 93 11 11 1D 1D 1D 20 20 20 20 20 20 20 |.."...... |
00000FD0: 20 12 1F 45 4E 54 52 59 20 4E 55 4D 42 45 52 92 | ..ENTRY NUMBER.|
00000FE0: 97 22 3B 41 4E 00 0D 18 00 05 99 22 11 20 20 20 |.";AN......". |
00000FF0: 20 20 20 20 20 97 44 4F 20 4E 4F 54 20 55 53 45 | .DO NOT USE|
00001000: 20 50 55 4E 43 54 55 41 54 49 4F 4E 22 00 4A 18 | PUNCTUATION".J.|
00001010: 0A 05 8B 20 41 4E B1 54 4E A7 99 22 13 11 11 11 |... AN.TN.."....|
00001020: 11 20 20 20 20 20 20 20 20 20 20 1C 20 4E 4F 20 |. . NO |
00001030: 53 50 41 43 45 20 4C 45 46 54 21 22 3A 81 47 B2 |SPACE LEFT!":.G.|
00001040: 31 A4 31 35 30 30 3A 82 3A 8E 00 6A 18 14 05 85 |1.1500:.:..j....|
00001050: 20 22 1D 11 11 20 20 20 12 1F 4B 45 59 92 97 22 | "... ..KEY.."|
00001060: 3B 54 4E 24 28 41 4E 2C 30 29 00 95 18 19 05 4D |;TN$(AN,0).....M|
00001070: 41 B2 C6 28 54 4E 24 28 41 4E 2C 30 29 AA C7 28 |A..(TN$(AN,0)..(|
00001080: 30 29 29 3A 8B 4D 41 B3 36 35 B0 4D 41 B1 39 30 |0)):.MA.65.MA.90|
00001090: A7 31 32 36 30 00 DE 18 1E 05 99 A3 32 29 22 11 |.1260.......2)".|
000010A0: 12 05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010D0: 20 20 20 20 20 20 20 20 20 20 20 92 97 22 00 03 | .."..|
000010E0: 19 28 05 99 A3 31 39 29 22 12 05 91 20 20 20 20 |.(...19)"... |
000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001100: 92 97 22 00 34 19 3C 05 99 22 11 11 11 20 20 20 |..".4.<.."... |
00001110: 20 20 20 20 20 12 05 20 92 97 5F 12 98 20 49 4E | .. .._.. IN|
00001120: 44 49 43 41 54 45 53 20 4D 41 58 20 45 4E 54 52 |DICATES MAX ENTR|
00001130: 59 92 97 22 00 65 19 46 05 99 22 11 05 20 20 55 |Y..".e.F..".. U|
00001140: 53 45 20 43 55 52 53 4F 52 20 4B 45 59 20 54 4F |SE CURSOR KEY TO|
00001150: 20 43 4F 52 52 45 43 54 20 4E 4F 54 20 44 45 4C | CORRECT NOT DEL|
00001160: 45 54 45 97 22 00 79 19 50 05 85 22 91 91 91 91 |ETE.".y.P.."....|
00001170: 91 91 91 91 22 3B 4D 4D 24 00 87 19 5A 05 54 54 |....";MM$...Z.TT|
00001180: B2 C3 28 4D 4D 24 29 00 C6 19 5C 05 8B 54 54 B3 |..(MM$)...\..TT.|
00001190: 31 35 A7 99 22 93 11 20 20 20 20 20 20 20 20 20 |15..".. |
000011A0: 20 20 1C 45 4E 54 52 59 20 49 4E 43 4F 52 52 45 | .ENTRY INCORRE|
000011B0: 43 54 97 22 3A 81 47 B2 31 A4 31 30 30 30 3A 82 |CT.":.G.1.1000:.|
000011C0: 3A 89 31 34 32 30 00 E3 19 64 05 81 4C 4C B2 31 |:.1420...d..LL.1|
000011D0: A4 54 54 3A 4C 4C 24 B2 CA 28 4D 4D 24 2C 4C 4C |.TT:LL$..(MM$,LL|
000011E0: 2C 31 29 00 F5 19 6E 05 8B 4C 4C 24 B3 B1 22 2E |,1)...n..LL$..".|
000011F0: 22 A7 82 4C 4C 00 11 1A 78 05 54 4E 24 28 41 4E |"..LL...x.TN$(AN|
00001200: 2C 31 29 B2 CA 28 4D 4D 24 2C 31 2C 4C 4C AB 31 |,1)..(MM$,1,LL.1|
00001210: 29 00 34 1A 82 05 41 4E B2 41 4E AA 31 3A 46 4C |).4...AN.AN.1:FL|
00001220: B2 31 3A 99 22 11 11 11 11 11 11 11 11 11 22 3A |.1:.".........":|
00001230: 89 32 34 30 00 76 1A 8C 05 99 22 20 20 20 11 12 |.240.v...." ..|
00001240: 9C 20 52 45 44 4F 20 46 52 4F 4D 20 53 54 41 52 |. REDO FROM STAR|
00001250: 54 20 44 41 54 41 20 54 57 4F 20 4C 49 4E 45 53 |T DATA TWO LINES|
00001260: 20 92 97 22 3A 81 53 B2 31 A4 31 30 30 30 3A 82 | ..":.S.1.1000:.|
00001270: 3A 89 31 32 38 30 00 AB 1A 96 05 97 35 33 32 38 |:.1280......5328|
00001280: 30 2C 32 3A 99 22 93 11 11 1D 1D 1C 20 20 20 20 |0,2:."...... |
00001290: 20 20 20 20 12 20 45 58 49 54 20 46 52 4F 4D 20 | . EXIT FROM |
000012A0: 50 52 4F 47 52 41 4D 20 92 97 22 00 D2 1A A0 05 |PROGRAM ..".....|
000012B0: 97 56 2C 31 35 3A 97 5A 41 2C 39 31 3A 97 48 46 |.V,15:.ZA,91:.HF|
000012C0: 2C 33 38 3A 97 4C 46 2C 31 32 36 3A 97 57 57 2C |,38:.LF,126:.WW,|
000012D0: 31 37 00 0B 1B AA 05 8B 20 46 4C B2 31 A7 99 22 |17...... FL.1.."|
000012E0: 11 11 11 20 20 20 20 20 20 20 20 12 05 48 41 56 |... ..HAV|
000012F0: 45 20 59 4F 55 20 53 41 56 45 44 20 44 41 54 41 |E YOU SAVED DATA|
00001300: 20 3F 3F 97 22 3A 89 31 34 36 30 00 35 1B B4 05 | ??.":.1460.5...|
00001310: 99 22 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001320: 20 20 20 20 20 20 20 20 12 1C 59 92 45 53 2F 12 | ..Y.ES/.|
00001330: 4E 92 4F 97 22 00 64 1B BE 05 A1 41 24 3A 8B 41 |N.O.".d....A$:.A|
00001340: 24 B2 22 59 22 A7 97 56 2C 30 3A 97 57 57 2C 30 |$."Y"..V,0:.WW,0|
00001350: 3A 97 5A 41 2C 30 3A 97 4C 46 2C 30 3A 97 48 46 |:.ZA,0:.LF,0:.HF|
00001360: 2C 30 3A 80 00 76 1B C8 05 8B 41 24 B3 B1 22 4E |,0:..v....A$.."N|
00001370: 22 A7 31 34 37 30 00 A6 1B D2 05 97 57 57 2C 30 |".1470......WW,0|
00001380: 3A 97 5A 41 2C 30 3A 97 4C 46 2C 30 3A 97 48 46 |:.ZA,0:.LF,0:.HF|
00001390: 2C 30 3A 97 56 2C 30 3A 97 35 33 32 38 30 2C 31 |,0:.V,0:.53280,1|
000013A0: 34 3A 89 37 38 30 00 D2 1B E6 05 99 22 93 1D 1D |4:.780......"...|
000013B0: 1D 1D 1D 1D 1D 20 20 20 20 20 20 20 20 12 1C 53 |..... ..S|
000013C0: 4F 52 54 49 4E 47 92 97 22 3A 58 B2 30 3A 58 58 |ORTING..":X.0:XX|
000013D0: B2 30 00 F0 1B F0 05 8B 54 4E 24 28 58 AA 31 2C |.0......TN$(X.1,|
000013E0: 30 29 B2 59 59 24 AF 58 58 B2 30 A7 31 36 37 30 |0).YY$.XX.0.1670|
000013F0: 00 0E 1C FA 05 8B 54 4E 24 28 58 AA 31 2C 30 29 |......TN$(X.1,0)|
00001400: B2 59 59 24 AF 58 58 B2 31 A7 31 35 31 30 00 2C |.YY$.XX.1.1510.,|
00001410: 1C 04 06 8B 54 4E 24 28 58 2C 30 29 B1 54 4E 24 |....TN$(X,0).TN$|
00001420: 28 58 AA 31 2C 30 29 A7 31 36 31 30 00 46 1C 0E |(X.1,0).1610.F..|
00001430: 06 58 B2 58 AA 31 3A 8B 58 B2 54 4E AF 58 58 B2 |.X.X.1:.X.TN.XX.|
00001440: 30 A7 31 36 37 30 00 55 1C 18 06 8B 58 B2 54 4E |0.1670.U....X.TN|
00001450: A7 31 35 31 30 00 71 1C 22 06 8B 54 4E 24 28 58 |.1510.q."..TN$(X|
00001460: 2C 30 29 B2 59 59 24 AF 58 58 B2 31 A7 31 35 31 |,0).YY$.XX.1.151|
00001470: 30 00 8E 1C 2C 06 8B 54 4E 24 28 58 2C 30 29 B2 |0...,..TN$(X,0).|
00001480: 59 59 24 AF 58 58 B2 30 A7 20 31 36 37 30 00 AA |YY$.XX.0. 1670..|
00001490: 1C 36 06 8B 54 4E 24 28 58 2C 30 29 B2 59 59 24 |.6..TN$(X,0).YY$|
000014A0: AF 58 58 B2 31 A7 31 35 31 30 00 B4 1C 40 06 89 |.XX.1.1510...@..|
000014B0: 31 35 32 30 00 E7 1C 4A 06 54 41 24 B2 54 4E 24 |1520...J.TA$.TN$|
000014C0: 28 58 2C 30 29 3A 54 42 24 B2 54 4E 24 28 58 2C |(X,0):TB$.TN$(X,|
000014D0: 31 29 3A 99 54 4E 24 28 58 2C 30 29 3B 54 4E 24 |1):.TN$(X,0);TN$|
000014E0: 28 58 AA 31 2C 30 29 00 13 1D 54 06 54 4E 24 28 |(X.1,0)...T.TN$(|
000014F0: 58 2C 30 29 B2 54 4E 24 28 58 AA 31 2C 30 29 3A |X,0).TN$(X.1,0):|
00001500: 54 4E 24 28 58 2C 31 29 B2 54 4E 24 28 58 AA 31 |TN$(X,1).TN$(X.1|
00001510: 2C 31 29 00 35 1D 5E 06 54 4E 24 28 58 AA 31 2C |,1).5.^.TN$(X.1,|
00001520: 30 29 B2 54 41 24 3A 54 4E 24 28 58 AA 31 2C 31 |0).TA$:TN$(X.1,1|
00001530: 29 B2 54 42 24 00 44 1D 68 06 58 B2 58 AA 31 3A |).TB$.D.h.X.X.1:|
00001540: 58 58 B2 31 00 53 1D 72 06 8B 58 B2 54 4E A7 31 |XX.1.S.r..X.TN.1|
00001550: 35 31 30 00 5D 1D 7C 06 89 31 35 32 30 00 74 1D |510.].|..1520.t.|
00001560: 86 06 81 49 B2 30 A4 32 37 3A 5A 59 28 49 29 B2 |...I.0.27:ZY(I).|
00001570: 30 3A 82 49 00 99 1D 90 06 81 49 B2 31 A4 54 4E |0:.I......I.1.TN|
00001580: 3A 8B 54 4E 24 28 49 2C 30 29 B2 59 59 24 A7 5A |:.TN$(I,0).YY$.Z|
00001590: 5A B2 30 3A 89 31 37 31 30 00 AF 1D 9A 06 5A 5A |Z.0:.1710.....ZZ|
000015A0: B2 C6 28 54 4E 24 28 49 2C 30 29 29 AB 36 35 00 |..(TN$(I,0)).65.|
000015B0: C6 1D A4 06 8B 5A 59 28 5A 5A 29 B2 30 A7 5A 59 |.....ZY(ZZ).0.ZY|
000015C0: 28 5A 5A 29 B2 49 00 CD 1D AE 06 82 49 00 D6 1D |(ZZ).I......I...|
000015D0: B8 06 89 32 37 30 00 F0 1D C2 06 9F 34 2C 34 2C |...270......4,4,|
000015E0: 30 3A A0 34 3A 8B 53 54 B3 B1 30 A7 32 39 31 30 |0:.4:.ST..0.2910|
000015F0: 00 17 1E D6 06 9F 34 2C 34 2C 30 3A 98 34 2C C7 |......4,4,0:.4,.|
00001600: 28 31 36 29 30 36 54 4E 24 28 49 2C 30 29 2C 54 |(16)06TN$(I,0),T|
00001610: 4E 24 28 49 2C 31 29 00 1E 1E E0 06 A0 34 00 27 |N$(I,1)......4.'|
00001620: 1E EA 06 89 32 37 30 00 4C 1E F4 06 99 22 93 11 |....270.L...."..|
00001630: 11 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 20 20 12 |....... .|
00001640: 1E 50 52 49 4E 54 49 4E 47 92 97 22 00 66 1E FE |.PRINTING..".f..|
00001650: 06 9F 34 2C 34 2C 30 3A A0 34 3A 8B 53 54 B3 B1 |..4,4,0:.4:.ST..|
00001660: 30 A7 32 39 31 30 00 77 1E 12 07 9F 34 2C 34 2C |0.2910.w....4,4,|
00001670: 30 3A 98 34 2C 41 4E 00 85 1E 1C 07 81 49 B2 31 |0:.4,AN......I.1|
00001680: A4 41 4E AB 31 00 A1 1E 26 07 98 34 2C 54 4E 24 |.AN.1...&..4,TN$|
00001690: 28 49 2C 30 29 2C 54 4E 24 28 49 2C 31 29 3A 82 |(I,0),TN$(I,1):.|
000016A0: 49 00 AD 1E 30 07 A0 34 3A 46 4C B2 31 00 D3 1E |I...0..4:FL.1...|
000016B0: 3A 07 99 22 93 11 11 1D 1D 20 20 20 20 20 20 20 |:.."..... |
000016C0: 20 50 52 49 4E 54 4F 55 54 20 43 4F 4D 50 4C 45 | PRINTOUT COMPLE|
000016D0: 54 45 22 00 DC 1E 44 07 89 32 37 30 00 25 1F 4E |TE"...D..270.%.N|
000016E0: 07 99 A3 32 29 22 11 12 05 20 20 20 20 20 20 20 |...2)"... |
000016F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001720: 20 20 92 97 22 00 4A 1F 50 07 99 A3 31 39 29 22 | ..".J.P...19)"|
00001730: 12 05 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00001740: 20 20 20 20 20 20 20 92 97 22 00 5D 1F 54 07 41 | ..".].T.A|
00001750: 42 B2 C3 28 54 4E 24 28 49 2C 31 29 29 00 66 1F |B..(TN$(I,1)).f.|
00001760: 55 07 41 42 B2 30 00 7E 1F 56 07 85 22 91 91 22 |U.AB.0.~.V..".."|
00001770: 3B 54 4E 24 28 49 2C 31 29 3A 89 32 37 30 00 9D |;TN$(I,1):.270..|
00001780: 1F 58 07 9F 31 35 2C 38 2C 31 35 3A A0 31 35 3A |.X..15,8,15:.15:|
00001790: 8B 53 54 B2 AB 31 32 38 A7 32 39 31 30 00 C3 1F |.ST..128.2910...|
000017A0: 62 07 99 22 93 11 11 1D 1D 1D 20 20 20 20 20 20 |b.."...... |
000017B0: 20 20 97 49 4E 49 54 49 41 4C 49 5A 45 20 44 49 | .INITIALIZE DI|
000017C0: 53 4B 22 00 D5 1F 6C 07 9F 31 35 2C 38 2C 31 35 |SK"...l..15,8,15|
000017D0: 2C 22 49 30 22 00 DF 1F 76 07 8D 32 30 37 30 00 |,"I0"...v..2070.|
000017E0: ED 1F 80 07 43 52 24 B2 C7 28 31 33 29 00 F3 1F |....CR$..(13)...|
000017F0: 8A 07 99 00 1C 20 94 07 99 22 20 11 20 20 20 20 |..... ..." . |
00001800: 20 20 20 20 12 1C 57 52 49 54 45 20 53 45 51 20 | ..WRITE SEQ |
00001810: 44 41 54 41 20 46 49 4C 45 92 97 22 00 22 20 9E |DATA FILE.."." .|
00001820: 07 99 00 32 20 A8 07 8F 20 57 52 49 54 45 20 53 |...2 ... WRITE S|
00001830: 45 51 00 42 20 B2 07 8F 20 44 41 54 41 20 46 49 |EQ.B ... DATA FI|
00001840: 4C 45 00 50 20 BC 07 9F 32 2C 38 2C 32 2C 46 24 |LE.P ...2,8,2,F$|
00001850: 00 5A 20 C6 07 8D 32 30 37 30 00 83 20 D0 07 8B |.Z ...2070.. ...|
00001860: 51 35 B2 32 A7 51 35 B2 30 3A 8D 32 33 32 30 3A |Q5.2.Q5.0:.2320:|
00001870: 8B 51 35 B2 31 A7 51 35 B2 30 3A A0 32 3A 89 32 |.Q5.1.Q5.0:.2:.2|
00001880: 30 36 30 00 8D 20 DA 07 98 32 2C 41 4E 00 99 20 |060.. ...2,AN.. |
00001890: E4 07 81 49 B2 31 A4 41 4E 00 CC 20 EE 07 99 22 |...I.1.AN.. ..."|
000018A0: 13 1D 1D 1D 20 20 20 20 20 20 20 20 11 11 11 11 |.... ....|
000018B0: 11 11 11 11 11 11 11 11 11 11 1C 52 45 43 4F 52 |...........RECOR|
000018C0: 44 20 4E 55 4D 42 45 52 97 22 3B 49 00 EB 20 F8 |D NUMBER.";I.. .|
000018D0: 07 98 32 2C 54 4E 24 28 49 2C 30 29 3A 98 32 2C |..2,TN$(I,0):.2,|
000018E0: 54 4E 24 28 49 2C 31 29 3A 82 49 00 F2 20 02 08 |TN$(I,1):.I.. ..|
000018F0: A0 32 00 05 21 0C 08 8D 32 30 37 30 3A A0 31 35 |.2..!...2070:.15|
00001900: 3A 89 32 34 30 00 19 21 16 08 8F 20 45 52 52 4F |:.240..!... ERRO|
00001910: 52 20 43 48 41 4E 4E 45 4C 00 2F 21 20 08 84 31 |R CHANNEL./! ..1|
00001920: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 00 |5,EN,EM$,ET,ES:.|
00001930: 47 21 2A 08 8B 20 45 4E B2 36 33 AF 51 35 B2 30 |G!*.. EN.63.Q5.0|
00001940: A7 51 35 B2 32 3A 8E 00 56 21 34 08 8B 20 45 4E |.Q5.2:..V!4.. EN|
00001950: B2 30 20 A7 20 8E 00 88 21 3E 08 99 22 11 1D 1D |.0 . ...!>.."...|
00001960: 1D 1D 20 20 20 20 20 20 20 20 12 1C 45 52 52 4F |.. ..ERRO|
00001970: 52 20 4F 4E 20 44 49 53 4B 92 97 22 3A 81 51 B2 |R ON DISK..":.Q.|
00001980: 31 A4 31 35 30 30 3A 82 00 AD 21 48 08 99 22 11 |1.1500:...!H..".|
00001990: 1D 1D 1D 1D 20 20 20 20 20 20 20 20 2A 22 45 4D |.... *"EM|
000019A0: 24 3A 81 51 B2 31 A4 32 35 30 30 3A 82 00 B8 21 |$:.Q.1.2500:...!|
000019B0: 52 08 A0 31 35 3A A0 32 00 C1 21 5C 08 89 32 37 |R..15:.2..!\..27|
000019C0: 30 00 DD 21 66 08 9F 32 2C 38 2C 32 3A A0 32 3A |0..!f..2,8,2:.2:|
000019D0: 8B 53 54 B2 AB 31 32 38 A7 32 39 31 30 00 08 22 |.ST..128.2910.."|
000019E0: 70 08 99 22 20 11 11 1D 20 20 20 20 20 20 12 1F |p.." ... ..|
000019F0: 52 45 41 44 49 4E 47 20 53 45 51 20 44 41 54 41 |READING SEQ DATA|
00001A00: 20 46 49 4C 45 92 97 22 00 0E 22 7A 08 99 00 1C | FILE..".."z....|
00001A10: 22 84 08 9F 32 2C 38 2C 32 2C 46 24 00 29 22 8E |"...2,8,2,F$.)".|
00001A20: 08 9F 31 35 2C 38 2C 31 35 00 33 22 98 08 8D 32 |..15,8,15.3"...2|
00001A30: 30 37 30 00 3D 22 A2 08 84 32 2C 41 4E 00 47 22 |070.="...2,AN.G"|
00001A40: AC 08 8D 32 30 37 30 00 55 22 B6 08 81 49 B2 31 |...2070.U"...I.1|
00001A50: A4 41 4E AB 31 00 93 22 C0 08 84 32 2C 54 4E 24 |.AN.1.."...2,TN$|
00001A60: 28 49 2C 30 29 2C 54 4E 24 28 49 2C 31 29 3A 99 |(I,0),TN$(I,1):.|
00001A70: 54 4E 24 28 49 2C 30 29 2C 54 4E 24 28 49 2C 31 |TN$(I,0),TN$(I,1|
00001A80: 29 3A 5A 5A B2 C6 28 54 4E 24 28 49 2C 30 29 29 |):ZZ..(TN$(I,0))|
00001A90: AB 36 35 00 9D 22 CA 08 8D 32 30 37 30 00 B4 22 |.65.."...2070.."|
00001AA0: D4 08 8B 5A 59 28 5A 5A 29 B2 30 A7 5A 59 28 5A |...ZY(ZZ).0.ZY(Z|
00001AB0: 5A 29 B2 49 00 BB 22 DE 08 82 49 00 C9 22 E8 08 |Z).I.."...I.."..|
00001AC0: 81 49 B2 31 A4 41 4E AB 31 00 D5 22 F2 08 A0 32 |.I.1.AN.1.."...2|
00001AD0: 3A 46 4C B2 31 00 DD 22 FC 08 A0 31 35 00 E6 22 |:FL.1.."...15.."|
00001AE0: 06 09 89 32 37 30 00 2C 23 10 09 99 22 1D 1D 1D |...270.,#..."...|
00001AF0: 1D 1D 1C 20 20 20 20 20 20 20 2A 22 45 4D 24 3A |... *"EM$:|
00001B00: 20 99 22 11 1D 97 20 44 4F 20 59 4F 55 20 57 49 | ."... DO YOU WI|
00001B10: 53 48 20 54 4F 20 4F 56 45 52 20 57 52 49 54 45 |SH TO OVER WRITE|
00001B20: 20 54 48 49 53 20 46 49 4C 45 3F 22 00 4D 23 1A | THIS FILE?".M#.|
00001B30: 09 99 22 11 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 |.."........ |
00001B40: 20 20 20 12 59 92 45 53 2F 12 4E 92 4F 00 6E 23 | .Y.ES/.N.O.n#|
00001B50: 24 09 A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 51 35 |$..A$:.A$."N".Q5|
00001B60: B2 31 3A A0 31 35 3A A0 32 3A 89 38 35 30 00 80 |.1:.15:.2:.850..|
00001B70: 23 2E 09 8B 41 24 B3 B1 22 59 22 A7 32 33 34 30 |#...A$.."Y".2340|
00001B80: 00 9E 23 38 09 A0 32 3A 20 46 24 B2 22 40 22 AA |..#8..2: F$."@".|
00001B90: 46 24 3A 9F 32 2C 38 2C 32 2C 46 24 3A 8E 00 A4 |F$:.2,8,2,F$:...|
00001BA0: 23 42 09 8F 00 D2 23 4C 09 99 22 93 11 1D 20 20 |#B....#L.."... |
00001BB0: 20 20 20 20 20 12 1E 20 53 45 4C 45 43 54 20 4F | .. SELECT O|
00001BC0: 52 27 1F 3D 1E 27 46 4F 52 20 4D 45 4E 55 20 92 |R'.=.'FOR MENU .|
00001BD0: 97 22 00 FC 23 56 09 99 22 11 11 11 1D 20 20 20 |."..#V..".... |
00001BE0: 20 20 20 20 20 1D 12 1C 20 50 52 49 4E 54 45 52 | ... PRINTER|
00001BF0: 20 4F 4E 2D 4C 49 4E 45 3F 20 97 22 00 31 24 60 | ON-LINE? .".1$`|
00001C00: 09 99 22 20 1D 11 11 11 20 20 20 12 46 33 92 2E |.." .... .F3..|
00001C10: 2E 2E 2E 12 98 20 43 45 4E 54 52 4F 4E 49 43 53 |..... CENTRONICS|
00001C20: 20 92 20 20 1C 28 50 41 52 41 4C 4C 45 4C 29 97 | . .(PARALLEL).|
00001C30: 22 00 5C 24 6A 09 99 22 11 1C 20 20 20 20 20 20 |".\$j..".. |
00001C40: 20 20 2A 05 28 43 48 45 43 4B 21 20 50 52 49 4E | *.(CHECK! PRIN|
00001C50: 54 45 52 20 52 45 41 44 59 29 97 22 00 91 24 74 |TER READY)."..$t|
00001C60: 09 99 22 20 20 20 20 1D 11 11 11 12 46 35 92 2E |.." .....F5..|
00001C70: 2E 2E 2E 12 1F 56 49 43 2D 31 35 31 35 20 28 43 |.....VIC-1515 (C|
00001C80: 42 4D 29 92 20 20 1C 28 53 45 52 49 41 4C 29 97 |BM). .(SERIAL).|
00001C90: 22 00 97 24 7E 09 99 00 9D 24 88 09 99 00 B1 24 |"..$~....$.....$|
00001CA0: 92 09 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 34 35 |...A$:.A$."".245|
00001CB0: 30 00 C4 24 9C 09 8B 41 24 B2 C7 28 31 33 33 29 |0..$...A$..(133)|
00001CC0: A7 32 37 30 00 D8 24 A6 09 8B 41 24 B2 C7 28 31 |.270..$...A$..(1|
00001CD0: 33 34 29 A7 32 35 39 30 00 EC 24 B0 09 8B 41 24 |34).2590..$...A$|
00001CE0: B2 C7 28 31 33 35 29 A7 31 37 38 30 00 FF 24 BA |..(135).1780..$.|
00001CF0: 09 8B 41 24 B2 C7 28 31 33 36 29 A7 32 37 30 00 |..A$..(136).270.|
00001D00: 0F 25 C4 09 8B 41 24 B2 22 3D 22 A7 32 37 30 00 |.%...A$."=".270.|
00001D10: 1A 25 CE 09 9E 31 30 37 35 32 00 25 25 D8 09 9F |.%...10752.%%...|
00001D20: 34 2C 34 2C 30 00 49 25 E2 09 98 34 2C C7 28 32 |4,4,0.I%...4,.(2|
00001D30: 37 29 22 44 22 C7 28 33 29 C7 28 30 29 C7 28 32 |7)"D".(3).(0).(2|
00001D40: 37 29 22 2D 22 C7 28 31 29 00 69 25 EC 09 98 34 |7)"-".(1).i%...4|
00001D50: 2C C7 28 39 29 54 4E 24 28 49 2C 30 29 C7 28 32 |,.(9)TN$(I,0).(2|
00001D60: 37 29 22 2D 22 C7 28 30 29 00 76 25 F6 09 98 34 |7)"-".(0).v%...4|
00001D70: 2C C7 28 31 30 29 00 94 25 00 0A 98 34 2C C7 28 |,.(10)..%...4,.(|
00001D80: 39 29 54 4E 24 28 49 2C 31 29 C7 28 31 30 29 C7 |9)TN$(I,1).(10).|
00001D90: 28 31 30 29 00 9B 25 0A 0A A0 34 00 A4 25 14 0A |(10)..%...4..%..|
00001DA0: 89 32 37 30 00 AF 25 1E 0A 9E 31 30 37 35 32 00 |.270..%...10752.|
00001DB0: CB 25 28 0A 9F 34 2C 34 2C 30 3A 98 34 2C C7 28 |.%(..4,4,0:.4,.(|
00001DC0: 32 37 29 22 4E 22 3B C7 28 38 29 00 D9 25 32 0A |27)"N";.(8)..%2.|
00001DD0: 81 49 B2 31 A4 41 4E AB 31 00 FD 25 3C 0A 98 34 |.I.1.AN.1..%<..4|
00001DE0: 2C C7 28 32 37 29 22 44 22 C7 28 33 29 C7 28 30 |,.(27)"D".(3).(0|
00001DF0: 29 C7 28 32 37 29 22 2D 22 C7 28 31 29 00 1D 26 |).(27)"-".(1)..&|
00001E00: 46 0A 98 34 2C C7 28 39 29 54 4E 24 28 49 2C 30 |F..4,.(9)TN$(I,0|
00001E10: 29 C7 28 32 37 29 22 2D 22 C7 28 30 29 00 2A 26 |).(27)"-".(0).*&|
00001E20: 50 0A 98 34 2C C7 28 31 30 29 00 4B 26 5A 0A 98 |P..4,.(10).K&Z..|
00001E30: 34 2C C7 28 39 29 54 4E 24 28 49 2C 31 29 C7 28 |4,.(9)TN$(I,1).(|
00001E40: 31 30 29 C7 28 31 30 29 3A 82 49 00 5B 26 64 0A |10).(10):.I.[&d.|
00001E50: 98 34 2C C7 28 32 37 29 22 4F 22 00 67 26 6E 0A |.4,.(27)"O".g&n.|
00001E60: A0 34 3A 46 4C B2 31 00 70 26 78 0A 89 35 32 30 |.4:FL.1.p&x..520|
00001E70: 00 88 26 7D 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..&}.. *********|
00001E80: 2A 2A 2A 2A 2A 2A 2A 2A 00 C6 26 82 0A 97 35 33 |********..&...53|
00001E90: 32 38 31 2C 31 33 3A 97 35 33 32 38 30 2C 31 32 |281,13:.53280,12|
00001EA0: 3A 99 22 93 13 1F 11 11 1D 1D 1D 1D 1D 1D 1D 1D |:.".............|
00001EB0: 1D 1D 1D 1D 12 44 49 53 4B 20 44 49 52 45 43 54 |.....DISK DIRECT|
00001EC0: 4F 52 59 92 97 22 00 EC 26 8C 0A 99 22 11 1D 1D |ORY.."..&..."...|
00001ED0: 1D 1D 1D 22 3A 9F 31 2C 38 2C 30 3A A0 31 3A 8B |...":.1,8,0:.1:.|
00001EE0: 53 54 B2 AB 31 32 38 A7 32 39 31 30 00 FC 26 96 |ST..128.2910..&.|
00001EF0: 0A 9F 31 2C 38 2C 30 2C 22 24 30 22 00 0A 27 A0 |..1,8,0,"$0"..'.|
00001F00: 0A A1 23 31 2C 41 24 2C 42 24 00 18 27 AA 0A A1 |..#1,A$,B$..'...|
00001F10: 23 31 2C 41 24 2C 42 24 00 26 27 B4 0A A1 23 31 |#1,A$,B$.&'...#1|
00001F20: 2C 41 24 2C 42 24 00 2E 27 BE 0A 4D B2 30 00 45 |,A$,B$..'..M.0.E|
00001F30: 27 C8 0A 8B 20 41 24 B3 B1 22 22 20 A7 20 4D B2 |'... A$.."" . M.|
00001F40: C6 28 41 24 29 00 62 27 D2 0A 8B 20 42 24 B3 B1 |.(A$).b'... B$..|
00001F50: 22 22 20 A7 20 4D B2 4D AA C6 28 42 24 29 AC 32 |"" . M.M..(B$).2|
00001F60: 35 36 00 86 27 DC 0A 99 22 20 1F 12 1D 1D 22 CA |56..'..." ....".|
00001F70: 28 C4 28 4D 29 2C 32 29 3B A3 35 29 3B 22 92 20 |(.(M),2);.5);". |
00001F80: 20 20 20 97 22 3B 00 A0 27 E6 0A A1 23 31 2C 42 | .";..'...#1,B|
00001F90: 24 3A 8B 20 53 54 B3 B1 30 20 A7 20 32 38 37 30 |$:. ST..0 . 2870|
00001FA0: 00 B7 27 F0 0A 8B 20 42 24 B3 B1 C7 28 33 34 29 |..'... B$...(34)|
00001FB0: 20 A7 20 32 37 39 30 00 D9 27 FA 0A A1 23 31 2C | . 2790..'...#1,|
00001FC0: 42 24 3A 8B 20 42 24 B3 B1 C7 28 33 34 29 A7 99 |B$:. B$...(34)..|
00001FD0: 42 24 3B 3A 89 32 38 31 30 00 F6 27 04 0B A1 23 |B$;:.2810..'...#|
00001FE0: 31 2C 42 24 3A 8B 20 42 24 B2 C7 28 33 32 29 20 |1,B$:. B$..(32) |
00001FF0: A7 20 32 38 32 30 00 07 28 0E 0B 99 A3 32 37 29 |. 2820..(....27)|
00002000: 3B 3A 4D 24 B2 22 22 00 2C 28 18 0B 4D 24 B2 4D |;:M$."".,(..M$.M|
00002010: 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B 20 42 24 |$.B$:.#1,B$:. B$|
00002020: B3 B1 22 22 20 20 A7 20 32 38 34 30 00 43 28 22 |.."" . 2840.C("|
00002030: 0B 99 22 20 20 20 20 20 20 1E 12 22 C8 28 4D 24 |.." ..".(M$|
00002040: 2C 33 29 00 55 28 2C 0B 8B 20 53 54 B2 30 20 A7 |,3).U(,.. ST.0 .|
00002050: 20 32 37 33 30 00 69 28 36 0B 99 22 9D 42 4C 4F | 2730.i(6..".BLO|
00002060: 43 4B 53 20 46 52 45 45 22 00 94 28 40 0B 99 22 |CKS FREE"..(@.."|
00002070: 11 05 1D 1D 1D 1D 1D 1D 1D 4B 45 59 20 95 4D 05 |.........KEY .M.|
00002080: 20 46 4F 52 20 52 45 54 55 52 4E 20 54 4F 20 4D | FOR RETURN TO M|
00002090: 45 4E 55 22 00 AA 28 4A 0B A1 48 24 3A 8B 48 24 |ENU"..(J..H$:.H$|
000020A0: B3 B1 22 4D 22 A7 32 38 39 30 00 BE 28 54 0B 8B |.."M".2890..(T..|
000020B0: 48 24 B2 22 4D 22 A7 A0 31 3A 89 32 36 30 00 F1 |H$."M"..1:.260..|
000020C0: 28 5E 0B 99 22 93 11 11 11 11 11 11 11 11 11 1C |(^.."...........|
000020D0: 20 20 20 20 20 20 20 20 20 20 12 44 45 56 49 43 | .DEVIC|
000020E0: 45 20 4E 4F 54 20 50 52 45 53 45 4E 54 21 92 97 |E NOT PRESENT!..|
000020F0: 22 00 08 29 68 0B 81 20 53 45 B2 30 A4 32 30 30 |"..)h.. SE.0.200|
00002100: 30 3A 82 3A 89 32 36 30 00 2D 29 72 0B 8F 20 2A |0:.:.260.-)r.. *|
00002110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 52 29 |*************.R)|
00002130: 7C 0B 8F 20 2A 20 20 4E 41 56 41 4A 4F 20 53 4F ||.. * NAVAJO SO|
00002140: 46 54 57 41 52 45 20 28 43 29 20 31 39 38 33 20 |FTWARE (C) 1983 |
00002150: 20 2A 00 77 29 86 0B 8F 20 2A 2A 2A 2A 2A 2A 2A | *.w)... *******|
00002160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002170: 2A 2A 2A 2A 2A 2A 2A 00 8C 29 90 0B 8F 20 20 20 |*******..)... |
00002180: 20 20 20 20 20 20 20 20 20 20 20 2E 00 00 00 32 | ....2|
00002190: 30 30 30 3A 82 3A 89 32 37 30 00 00 00 44 92 97 |000:.:.270...D..|
000021A0: 22 3A 81 51 B2 31 A4 32 30 30 30 3A 82 3A 89 32 |":.Q.1.2000:.:.2|
000021B0: 37 30 00 00 00 44 92 97 22 3A 81 51 B2 31 A4 32 |70...D..":.Q.1.2|
000021C0: 30 30 30 3A 82 3A 89 32 37 30 00 00 00 AA AA AA |000:.:.270......|
000021D0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000021E0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000021F0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00002200: AA AD 26 03 C9 2F F0 27 8D 34 03 AD 27 03 8D 35 |..&../.'.4..'..5|
00002210: 03 A9 2F 8D 26 03 A9 2A 8D 27 03 A9 A6 8D 1A 03 |../.&..*.'......|
00002220: A9 2A 8D 1B 03 A9 B4 8D 20 03 A9 2A 8D 21 03 60 |.*...... ..*.!.`|
00002230: 8D 0C 03 A5 9A C9 04 F0 06 AD 0C 03 6C 34 03 A9 |............l4..|
00002240: FF 8D 03 DD A9 04 8D 00 DD 8D 02 DD A5 A9 C9 07 |................|
00002250: 08 AD 0C 03 28 D0 16 C9 41 90 12 C9 5B B0 04 09 |....(...A...[...|
00002260: 20 D0 0A C9 C1 90 06 C9 DB B0 02 29 7F 8D 01 DD | ..........)....|
00002270: A9 00 8D 00 DD A9 04 8D 00 DD AD 0D DD 29 10 F0 |.............)..|
00002280: F9 A9 97 8D 00 DD A9 3F 8D 02 DD A9 FF 8D 01 DD |.......?........|
00002290: A9 00 8D 03 DD A9 03 85 9A A9 00 20 CA F1 A9 04 |........... ....|
000022A0: 85 9A AD 0C 03 18 60 E0 04 D0 07 84 A9 A0 FF 84 |......`.........|
000022B0: B9 C8 4C 4A F3 E0 04 F0 03 4C 50 F2 20 0F F3 20 |..LJ.....LP. .. |
000022C0: 1F F3 A5 BA 85 9A 18 60 AA AA AA AA AA AA AA AA |.......`........|
000022D0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000022E0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000022F0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00002300: AA |. |
....... POKE808,225:POKE818,32.4....5328
0,9:.53281,6..(.V.54296:WW.54276:ZA.542
77:HF.54273:LF.54272:SS.54278:PH.54275:P
L.54274...2.Q5.0...<.ZZ..(X):ZX.92.D.F..
".. ..U.....................I"...P
.." ..B.HOME OFFICE DATA BASE.B"..
.Z.." ..J.....................K.".
E.D.."... ..ENTER..
.. AVERAGE"...
N.."...... .. DATA RECORD .."...X
..". ...OR PRESS RETURN"........
...."..... U.........I U........
...I"......". BSOFTWARE 64 BHOME
OFFICEB".=. ..". BAUDIOGENICU*_...NA
VAJO(C)83.<<".I....". J..........K
J...........K."......"........
..HOW MANY CHARACTERS."......"....
";ZX:.ZX.10.ZX.10.O.H..ZX.92.210.
..R.ZZ..(ZZ.ZX).10...... TN$(ZZ,1),ZY(27
):TN.ZZ:AN.1.+....V,15:.ZA,90:.WW,17:.HF
,64:.LF,188.E...."... . ENTRIES A
LLOWED .. "TN.AN:.Q.1.1000:.......WW,0:
.ZA,0:.LF,0:.HF,0......53280,14:.53281,1
5.A....".. .U.................I
"......" .U.......... DATABASE MENU ..
........I"."."..". B ..J..........
.......K B".Q.,..". B
B"...6..". B. 1.
...LOAD (READ) DISK/TAPE FILE .B"...@..
". B B
"...J..". B. 2....SAVE (WRITE) DISK/TAP
E FILE .B"...T..". B
B".F.^..". B. 3......DAT
A SEARCH.. / UPDATE .B".U.H..". B
B"...
R..". B. 4......ENTER.. NEW DATA
.B".Y.|..". B
B"......". B. 5......END
.. - CLEAR MEMORY .B".=....". B
B".N.
...". B. 6....PRINT-OUT DATA ON FILE
.B"......". B
B".N....". B. 7....SORTING R
OUTINE .B"......". B
B"...B..". B.
8....CHECK DATA IN MEMORY .B".]
.L..". B
B"...V..". B SELECT AND KEY NUM
BER .B."......" .J................
...................K.".D.....W....A$:.A$
."".500......E(A$).530,780,1020,1260,143
0,2370,1510,740......270.......C...."...
.......INSERT FLOPPY DISK OR TAPE.".I.&.
.".... ..DISK DIRECTORY?."...0.."
.. .Y.ES/.N.O"...:..A$:.A$
."N"..600...D..A$.."Y"..570.E.N..A$."Y".
.2690...X.."............ENTER FILE NAME"
:."............";Z$...B..Z$."=".270.!.L.
F$."0:".Z$.",S,R".L.V.."... ..D.I
SK DRIVE OR .T.APE?".A....A$:.A$."T"..67
0.R....A$.."D".640......A$."D"..2150....
..1,1,0,Z$......"... ..LOADING DA
TA FILE..".D....1,AN.R....I.1.AN.1...F..
1,TN$(I,0),TN$(I,1):ZZ.F(TN$(I,0)).65...
P..ZY(ZZ).0.ZY(ZZ).I...Z..I.)....I.1.AN.
1.E.... TN$(I,0),TN$(I,1):. I.R... 1:FL
.1.[....270.G.... WRITE......"..........
INSERT FLOPPY DISK OR TAPE."... .."....
..DISK DIRECTORY?."...*.."..
.Y..Y....?......XIH..IH."N"..8
50...>..A$.."Y"..820...H..A$."Y"..2690.L
.R.."............ENTER FILE NAME":."....
........";Z$.\.\..Z$."=".270.Q.F.F$."0:"
.Z$.",S,W...P.."... ..D.ISK DRIVE
OR .T.APE?"...Z........A$:.A$."T"..930.
I....A$.."D"..900......A$."D"..1880.....
.1,1,1,Z$......1,AN......I.1.AN.4...."..
... ................RECORD NUMBER
.";I.X.J.."..... ..SAVING DATA.."
.X.T..1,TN$(I,0):.1,TN$(I,1):. I......1,
" ***********"..... 1......270..
.... SEARCH......"..... ENTER KEY OR
PRESS RETURN".....N$.G(13)...... "....
..KEY..:-";N$...$..N$.G(13)..520.<.
).ML.F(N$):.ML.65.ML.90.1030.L...ZZ.F(N$
).65._.8..I.ZY(ZZ).AN.1.T.B..T.1.C(TN$(I
,0))...L..J(TN$(I,0),T,C(N$)).N$..".":.1
130...V..T,I...`.."..... .. DATA
NOT FOUND ..":.P.1.2000:.:.270...J..". .
.KEY.. ";TN$(I,0).).O.."..--------------
------------------------".F.T..".....DAT
A.. ";TN$(I,1).V.Y.."..-----------------
---------------------"...~.."..
..CONT SEARCH.. .Y.ES/.N.O".N....".
..UPDATE DATA.. .C.HANGE."......".
..HARD COPY? ..".$...."... SELEC
T PRINTER ..S..ERIAL/..P..ARALLEL.".N..
..".. PRINTER MUST BE ON LINE.".B
....A$:.A$."".1200.S....A$."Y".1110...D.
.A$."S".1730...N..A$."C".1870...X..A$."P
".2510......270...... INPUT*......".....
. ..ENTRY NUMBER..";AN......".
.DO NOT USE PUNCTUATION".J.... AN.T
N.."..... . NO SPACE LEFT!":.G.
1.1500:.:..J.... "... ..KEY..";TN$(AN,
0).....MA.F(TN$(AN,0).G(0)):.MA.65.MA.90
.1260.......2)"...
.."..
.(...19)"... ..".4.<.
."... .. .._.. INDICATES MAX ENTR
Y..".E.F..".. USE CURSOR KEY TO CORRECT
NOT DELETE.".Y.P.."........";MM$...Z.TT
.C(MM$).F.\..TT.15..".. .ENTRY
INCORRECT.":.G.1.1000:.:.1420...D..LL.1
.TT:LL$.J(MM$,LL,1)...N..LL$.."."..LL...
X.TN$(AN,1).J(MM$,1,LL.1).4...AN.AN.1:FL
.1:.".........":.240.V...." ... REDO F
ROM START DATA TWO LINES ..":.S.1.1000:.
:.1280......53280,2:."...... . EX
IT FROM PROGRAM ..".R. ..V,15:.ZA,91:.HF
,38:.LF,126:.WW,17...... FL.1.."...
..HAVE YOU SAVED DATA ??.":.1460.5...
.".............. ..Y.ES/.N.O.".D.
...A$:.A$."Y"..V,0:.WW,0:.ZA,0:.LF,0:.HF
,0:..V.H..A$.."N".1470...R..WW,0:.ZA,0:.
LF,0:.HF,0:.V,0:.53280,14:.780.R...."...
..... ..SORTING..":X.0:XX.0......
TN$(X.1,0).YY$.XX.0.1670......TN$(X.1,0)
.YY$.XX.1.1510.,....TN$(X,0).TN$(X.1,0).
1610.F...X.X.1:.X.TN.XX.0.1670.U....X.TN
.1510.Q."..TN$(X,0).YY$.XX.1.1510...,..T
N$(X,0).YY$.XX.0. 1670...6..TN$(X,0).YY$
.XX.1.1510...@..1520...J.TA$.TN$(X,0):TB
$.TN$(X,1):.TN$(X,0);TN$(X.1,0)...T.TN$(
X,0).TN$(X.1,0):TN$(X,1).TN$(X.1,1).5.^.
TN$(X.1,0).TA$:TN$(X.1,1).TB$.D.H.X.X.1:
XX.1.S.R..X.TN.1510.].|..1520.T....I.0.2
7:ZY(I).0:.I......I.1.TN:.TN$(I,0).YY$.Z
Z.0:.1710.....ZZ.F(TN$(I,0)).65.F....ZY(
ZZ).0.ZY(ZZ).I.M....I.V....270...B..4,4,
0: 4:.ST..0.2910...V..4,4,0:.4,G(16)06TN
$(I,0),TN$(I,1)..... 4.'....270.L...."..
....... ..PRINTING..".F....4,4,0:
4:.ST..0.2910.W....4,4,0:.4,AN......I.1
.AN.1...&..4,TN$(I,0),TN$(I,1):.I...0. 4
:FL.1.S.:.."..... PRINTOUT COMPLE
TE"...D..270.%.N...2)"...
..".J.P...19)"... .
.".].T.AB.C(TN$(I,1)).F.U.AB.0.~.V..".."
;TN$(I,1):.270...X..15,8,15: 15:.ST..128
.2910.C.B.."...... .INITIALIZE DI
SK".U.L..15,8,15,"I0"...V..2070.....CR$.
G(13)........ ..." . ..WRITE SEQ
DATA FILE.."." ....2 ... WRITE SEQ.B ...
DATA FILE.P ...2,8,2,F$.Z F..2070.. P..
Q5.2.Q5.0:.2320:.Q5.1.Q5.0: 2:.2060.. Z.
.2,AN.. ...I.1.AN.L ...".... ....
...........RECORD NUMBER.";I.. ...2,TN$(
I,0):.2,TN$(I,1):.I.. .. 2..!...2070: 15
:.240..!... ERROR CHANNEL./! ..15,EN,EM$
,ET,ES:.G!*.. EN.63.Q5.0.Q5.2:..V!4.. EN
.0 . ...!>.."..... ..ERROR ON DIS
K..":.Q.1.1500:...!H.."..... *"EM
$:.Q.1.2500:...!R. 15: 2.A!\..270..!F..2
,8,2: 2:.ST..128.2910.."P.." ... ..
READING SEQ DATA FILE..".."Z...."...2,8,
2,F$.)"...15,8,15.3"...2070.="...2,AN.G"
...2070.U"...I.1.AN.1.."...2,TN$(I,0),TN
$(I,1):.TN$(I,0),TN$(I,1):ZZ.F(TN$(I,0))
.65.."J..2070.."T..ZY(ZZ).0.ZY(ZZ).I..".
..I.I"...I.1.AN.1.U".. 2:FL.1..".. 15.."
...270.,#..."...... *"EM$: ."... D
O YOU WISH TO OVER WRITE THIS FILE?".M#.
.."........ .Y.ES/.N.O.N#$..A$:.A
$."N".Q5.1: 15: 2:.850..#...A$.."Y".2340
..#8. 2: F$."@".F$:.2,8,2,F$:...#B...R#L
.."... .. SELECT OR'.=.'FOR MENU .
."..#V..".... ... PRINTER ON-LINE
? .".1$`.." .... .F3....... CENTRONICS
. .(PARALLEL).".\$J..".. *.(CHE
CK! PRINTER READY)."..$T.." .....F5..
.....VIC-1515 (CBM). .(SERIAL)."..$~...
.$.....$...A$:.A$."".2450.D$...A$.G(133)
.270.X$...A$.G(134).2590..$...A$.G(135).
1780..$...A$.G(136).270..%D..A$."=".270.
.%N..10752.%%X..4,4,0.I%...4,G(27)"D"G(3
)G(0)G(27)"-"G(1).I%...4,G(9)TN$(I,0)G(2
7)"-"G(0).V%...4,G(10)..%...4,G(9)TN$(I,
1)G(10)G(10)..%.. 4..%...270..%...10752.
K%(..4,4,0:.4,G(27)"N";G(8).Y%2..I.1.AN.
1..%<..4,G(27)"D"G(3)G(0)G(27)"-"G(1)..&
F..4,G(9)TN$(I,0)G(27)"-"G(0).*&P..4,G(1
0).K&Z..4,G(9)TN$(I,1)G(10)G(10):.I.[&D.
.4,G(27)"O".G&N. 4:FL.1.P&X..520..&}.. *
****************.F&...53281,13:.53280,12
:."..................DISK DIRECTORY.."..
&..."......":.1,8,0: 1:.ST..128.2910..&.
..1,8,0,"$0"..' ..#1,A$,B$..'...#1,A$,B$
.&'...#1,A$,B$..'..M.0.E'H.. A$.."" . M.
F(A$).B'R.. B$.."" . M.M.F(B$).256..'...
" ...."J(D(M),2);.5);". .";. '...#1,B
$:. ST..0 . 2870..'... B$..G(34) . 2790.
Y'...#1,B$:. B$..G(34)..B$;:.2810..'...#
1,B$:. B$.G(32) . 2820..(....27);:M$."".
,(..M$.M$.B$:.#1,B$:. B$.."" . 2840.C("
.." .."H(M$,3).U(,.. ST.0 . 2730.I(
6..".BLOCKS FREE"..(@..".........KEY .M.
FOR RETURN TO MENU"..(J..H$:.H$.."M".28
90..(T..H$."M". 1:.260..(^.."...........
.DEVICE NOT PRESENT!.."..)H..
SE.0.2000:.:.260.-)R.. *****************
*************.R)|.. * NAVAJO SOFTWARE (
C) 1983 *.W)... ***********************
*******..)... ....2000:.:.2
70...D..":.Q.1.2000:.:.270...D..":.Q.1.2
000:.:.270..............................
..........................&.I/.'.4..'..5
../.&..*.'.......*...... ..*.!.`.....I..
....L4................I.....(P.IA..I[...
P.IA..I...)................).........?
................... J.........`..P... ..
.HLJ.....LP. .. .......`................
........................................
.
> CLICK IMAGE PREVIEW FOR FULL MODAL