NAME/NUMBER FILE
FILE INFORMATION
FILENAME(S): NAME/NUMBER FILE
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-12-02 00:17:31
APPEARS ON: 1 disk(s)
FILE HASH
efb98eb784c96a08253a23b130583b932fc201398c2810870727869f4d135048
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK020B | NAME/NUMBER FILE | PRG | Maestro | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 F8 2A 8F 23 22 B8 B8 B8 B8 B8 B8 B8 |..%..*.#".......|
00000010: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000020: B8 B8 B8 B8 B8 00 49 08 02 2B 8F 20 20 20 20 20 |......I..+. |
00000030: 20 20 20 20 20 20 20 4D 45 4E 55 20 20 20 20 20 | MENU |
00000040: 20 20 20 20 20 20 20 43 48 00 6D 08 0C 2B 8F 22 | CH.m..+."|
00000050: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000060: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 00 A1 08 |................|
00000070: 16 2B 97 20 35 33 32 38 31 2C 31 33 3A 99 20 22 |.+. 53281,13:. "|
00000080: 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 |................|
00000090: 4E 41 4D 45 20 41 4E 44 20 4E 55 4D 42 45 52 92 |NAME AND NUMBER.|
000000A0: 22 00 C0 08 20 2B 99 20 22 11 11 1F 43 4F 4D 4D |"... +. "...COMM|
000000B0: 41 4E 44 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 |ANDS AVAILABLE:"|
000000C0: 00 E5 08 2A 2B 99 20 22 1E 11 11 20 20 20 31 29 |...*+. "... 1)|
000000D0: 44 49 53 50 4C 41 59 20 43 55 52 52 45 4E 54 20 |DISPLAY CURRENT |
000000E0: 4C 49 53 54 22 00 08 09 34 2B 99 20 22 20 20 20 |LIST"...4+. " |
000000F0: 32 29 49 4E 50 55 54 20 54 4F 20 43 55 52 52 45 |2)INPUT TO CURRE|
00000100: 4E 54 20 4C 49 53 54 22 00 26 09 3E 2B 99 20 22 |NT LIST".&.>+. "|
00000110: 20 20 20 33 29 53 54 41 52 54 20 46 52 45 53 48 | 3)START FRESH|
00000120: 20 4C 49 53 54 22 00 4C 09 48 2B 99 20 22 20 20 | LIST".L.H+. " |
00000130: 20 34 29 44 45 4C 45 54 45 20 46 52 4F 4D 20 43 | 4)DELETE FROM C|
00000140: 55 52 52 45 4E 54 20 4C 49 53 54 22 00 6B 09 52 |URRENT LIST".k.R|
00000150: 2B 99 20 22 20 20 20 35 29 45 58 54 45 4E 44 20 |+. " 5)EXTEND |
00000160: 44 49 43 54 49 4F 4E 41 52 59 22 00 8B 09 5C 2B |DICTIONARY"...\+|
00000170: 99 20 22 20 20 20 36 29 44 49 53 50 4C 41 59 20 |. " 6)DISPLAY |
00000180: 44 49 43 54 49 4F 4E 41 52 59 22 00 A3 09 66 2B |DICTIONARY"...f+|
00000190: 99 20 22 20 20 20 37 29 44 41 54 41 20 46 49 4C |. " 7)DATA FIL|
000001A0: 45 53 22 00 BB 09 70 2B 99 20 22 20 20 20 38 29 |ES"...p+. " 8)|
000001B0: 49 4E 49 54 49 41 4C 49 53 45 22 00 CD 09 7A 2B |INITIALISE"...z+|
000001C0: 99 20 22 20 20 20 39 29 53 54 4F 50 22 00 F6 09 |. " 9)STOP"...|
000001D0: 84 2B 85 20 22 11 1F 57 48 49 43 48 20 44 4F 20 |.+. "..WHICH DO |
000001E0: 59 4F 55 20 52 45 51 55 49 52 45 3A 22 3B 5A 3A |YOU REQUIRE:";Z:|
000001F0: 99 20 22 93 22 3B 00 18 0A 8E 2B 8B 20 49 4E B3 |. ".";....+. IN.|
00000200: B1 30 20 B0 20 5A B2 38 20 B0 20 5A B2 39 20 A7 |.0 . Z.8 . Z.9 .|
00000210: 20 89 20 31 31 31 38 30 00 4A 0A 98 2B 99 20 22 | . 11180.J..+. "|
00000220: 93 1C 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |................|
00000230: 1D 1D 1D 1D 1D 1D 4E 4F 54 20 49 4E 49 54 49 41 |......NOT INITIA|
00000240: 4C 49 53 45 44 20 59 45 54 22 00 65 0A A2 2B 81 |LISED YET".e..+.|
00000250: 20 49 B2 31 20 A4 20 32 30 30 30 3A 82 3A 89 20 | I.1 . 2000:.:. |
00000260: 31 31 30 30 30 00 9C 0A AC 2B 8B 20 49 54 B1 30 |11000....+. IT.0|
00000270: 20 B0 20 5A B2 32 20 B0 20 5A B2 33 20 B0 20 5A | . Z.2 . Z.3 . Z|
00000280: B2 35 20 B0 20 5A B2 37 20 B0 20 5A B2 38 20 B0 |.5 . Z.7 . Z.8 .|
00000290: 20 5A B2 39 20 A7 20 31 31 32 31 30 00 C9 0A B6 | Z.9 . 11210....|
000002A0: 2B 99 20 22 93 1C 11 11 11 11 11 11 11 11 11 11 |+. "............|
000002B0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F 20 |.............NO |
000002C0: 44 41 54 41 20 59 45 54 22 00 E4 0A C0 2B 81 20 |DATA YET"....+. |
000002D0: 49 B2 31 20 A4 20 32 30 30 30 3A 82 3A 89 20 31 |I.1 . 2000:.:. 1|
000002E0: 31 30 30 30 00 24 0B CA 2B 91 20 5A 20 8D 20 31 |1000.$..+. Z . 1|
000002F0: 33 30 30 30 2C 31 34 30 30 30 2C 31 34 31 32 30 |3000,14000,14120|
00000300: 2C 31 39 30 30 30 2C 31 35 30 30 30 2C 31 38 30 |,19000,15000,180|
00000310: 30 30 2C 32 30 30 30 30 2C 31 32 30 30 30 2C 31 |00,20000,12000,1|
00000320: 31 32 33 30 00 30 0B D4 2B 89 20 31 31 30 30 30 |1230.0..+. 11000|
00000330: 00 61 0B DE 2B 99 20 22 93 11 11 11 11 11 11 11 |.a..+. "........|
00000340: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000350: 1C 4E 41 4D 45 20 41 4E 44 20 4E 55 4D 42 45 52 |.NAME AND NUMBER|
00000360: 22 00 8C 0B E8 2B 99 20 22 11 11 1D 1D 1D 1D 1D |"....+. ".......|
00000370: 1D 1D 1D 1D 1D 1D 1E 50 52 4F 47 52 41 4D 20 54 |.......PROGRAM T|
00000380: 45 52 4D 49 4E 41 54 45 44 22 3A 80 00 B0 0B E0 |ERMINATED":.....|
00000390: 2E 8F 23 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..#"............|
000003A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000003B0: 00 D4 0B EA 2E 8F 20 20 20 20 20 20 20 20 20 20 |...... |
000003C0: 20 49 4E 49 54 49 41 4C 49 53 45 20 20 20 20 20 | INITIALISE |
000003D0: 20 20 43 48 00 F8 0B F4 2E 8F 22 B9 B9 B9 B9 B9 | CH......".....|
000003E0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
000003F0: B9 B9 B9 B9 B9 B9 B9 B9 00 3A 0C FE 2E 9C 3A 86 |.........:....:.|
00000400: 20 41 24 28 34 39 39 2C 31 29 2C 43 28 34 39 39 | A$(499,1),C(499|
00000410: 29 2C 54 24 28 34 39 2C 31 29 2C 54 28 34 39 29 |),T$(49,1),T(49)|
00000420: 3A 43 55 52 52 B2 30 3A 49 54 B2 30 3A 49 4E B2 |:CURR.0:IT.0:IN.|
00000430: 31 3A 52 24 B2 C7 28 31 33 29 00 79 0C 03 2F 85 |1:R$..(13).y../.|
00000440: 20 22 11 1C 4C 4F 41 44 49 4E 47 20 46 52 4F 4D | "..LOADING FROM|
00000450: 20 54 41 50 45 20 4F 52 20 44 49 53 4B 20 28 59 | TAPE OR DISK (Y|
00000460: 2F 4E 29 3A 22 3B 51 24 3A 8B 20 51 24 B2 22 59 |/N):";Q$:. Q$."Y|
00000470: 22 20 A7 20 31 31 30 30 30 00 97 0C 08 2F 85 20 |" . 11000..../. |
00000480: 22 11 1F 4E 41 4D 45 20 46 4F 52 20 49 54 45 4D |"..NAME FOR ITEM|
00000490: 53 3A 22 3B 4E 4E 24 00 CA 0C 12 2F 85 20 22 11 |S:";NN$..../. ".|
000004A0: 4E 41 4D 45 20 46 4F 52 20 41 53 53 4F 43 49 41 |NAME FOR ASSOCIA|
000004B0: 54 45 44 20 51 55 41 4E 54 49 54 59 3A 22 3B 51 |TED QUANTITY:";Q|
000004C0: 51 24 3A 89 20 31 31 30 30 30 00 EE 0C C8 32 8F |Q$:. 11000....2.|
000004D0: 23 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |#"..............|
000004E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 12 |................|
000004F0: 0D D2 32 8F 20 20 20 20 20 20 44 49 53 50 4C 41 |..2. DISPLA|
00000500: 59 20 43 55 52 52 45 4E 54 20 4C 49 53 54 20 20 |Y CURRENT LIST |
00000510: 43 48 00 36 0D DC 32 8F 22 B9 B9 B9 B9 B9 B9 B9 |CH.6..2.".......|
00000520: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000530: B9 B9 B9 B9 B9 B9 00 45 0D E6 32 8B 20 43 55 B2 |.......E..2. CU.|
00000540: 30 20 A7 20 8E 00 77 0D F0 32 99 22 93 22 3A 43 |0 . ..w..2.".":C|
00000550: 54 B2 30 3A 81 20 49 B2 30 20 A4 20 43 55 AB 31 |T.0:. I.0 . CU.1|
00000560: 3A 99 20 22 11 1F 22 3B 4E 4E 24 3B 22 3A 22 3B |:. "..";NN$;":";|
00000570: 54 24 28 49 2C 30 29 00 A5 0D FA 32 99 20 22 11 |T$(I,0)....2. ".|
00000580: 22 3B 51 51 24 3B 22 3A 22 3B 54 24 28 49 2C 31 |";QQ$;":";T$(I,1|
00000590: 29 3A 99 20 22 11 51 55 41 4E 54 49 54 59 3A 22 |):. ".QUANTITY:"|
000005A0: 3B 54 28 49 29 00 D8 0D 04 33 99 20 22 11 1E D7 |;T(I)....3. "...|
000005B0: D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 |................|
000005C0: D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 D7 |................|
000005D0: D7 D7 D7 D7 D7 D7 D7 22 00 08 0E 0E 33 85 20 22 |......."....3. "|
000005E0: 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 46 |PRESS .RETURN. F|
000005F0: 4F 52 20 4E 45 58 54 20 49 54 45 4D 3A 22 3B 51 |OR NEXT ITEM:";Q|
00000600: 24 3A 99 20 22 91 91 22 00 3C 0E 18 33 99 20 22 |$:. "..".<..3. "|
00000610: 20 20 20 20 20 20 20 20 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 91 91 91 22 00 4F 0E 22 | ...".O."|
00000640: 33 43 54 B2 43 54 AA 54 28 49 29 3A 82 20 49 00 |3CT.CT.T(I):. I.|
00000650: 64 0E 2C 33 99 20 22 9C 11 54 4F 54 41 4C 3A 90 |d.,3. "..TOTAL:.|
00000660: 22 3B 43 54 00 95 0E 36 33 85 20 22 11 1E 50 52 |";CT...63. "..PR|
00000670: 45 53 53 20 12 52 45 54 55 52 4E 92 20 54 4F 20 |ESS .RETURN. TO |
00000680: 47 4F 20 42 41 43 4B 20 54 4F 20 4D 45 4E 55 22 |GO BACK TO MENU"|
00000690: 3B 51 24 3A 8E 00 B9 0E B0 36 8F 23 22 B8 B8 B8 |;Q$:.....6.#"...|
000006A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000006B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 DD 0E BA 36 8F 20 |.............6. |
000006C0: 20 20 20 20 45 58 54 45 4E 44 20 43 55 52 52 45 | EXTEND CURRE|
000006D0: 4E 54 20 4C 49 53 54 20 20 20 20 43 48 00 01 0F |NT LIST CH...|
000006E0: C4 36 8F 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |.6."............|
000006F0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000700: B9 00 3D 0F CE 36 8B 20 43 55 B2 35 30 20 A7 20 |..=..6. CU.50 . |
00000710: 99 20 22 93 1C 11 11 11 11 11 11 1D 1D 1D 1D 1D |. ".............|
00000720: 1D 1D 1D 1D 43 55 52 52 45 4E 54 20 4C 49 53 54 |....CURRENT LIST|
00000730: 20 4E 4F 57 20 46 55 4C 4C 2E 22 3A 8E 00 6A 0F | NOW FULL.":..j.|
00000740: D8 36 99 20 22 93 11 1D 1D 1D 1D 1D 1D 1C 12 41 |.6. "..........A|
00000750: 44 44 49 54 49 4F 4E 53 20 54 4F 20 43 55 52 52 |DDITIONS TO CURR|
00000760: 45 4E 54 20 4C 49 53 54 92 22 00 A5 0F E2 36 99 |ENT LIST."....6.|
00000770: 20 22 11 11 1E 22 3B 4E 4E 24 3B 22 20 28 27 5A | "...";NN$;" ('Z|
00000780: 5A 5A 27 20 54 4F 20 51 55 49 54 29 3A 22 3B 3A |ZZ' TO QUIT):";:|
00000790: 85 20 54 31 24 3A 8B 20 54 31 24 B2 22 5A 5A 5A |. T1$:. T1$."ZZZ|
000007A0: 22 20 A7 20 8E 00 CA 0F EC 36 8D 20 31 36 30 30 |" . .....6. 1600|
000007B0: 30 3A 8B 20 41 24 28 53 53 2C 30 29 B2 54 31 24 |0:. A$(SS,0).T1$|
000007C0: 20 A7 20 89 20 31 34 30 38 30 00 02 10 F6 36 99 | . . 14080....6.|
000007D0: 20 22 11 11 1F 57 4F 52 44 20 55 4E 4B 4E 4F 57 | "...WORD UNKNOW|
000007E0: 4E 2C 20 50 4C 45 41 53 45 20 43 48 45 43 4B 2E |N, PLEASE CHECK.|
000007F0: 22 3A 81 20 49 B2 31 20 A4 20 32 30 30 30 3A 82 |":. I.1 . 2000:.|
00000800: 3A 8E 00 2E 10 00 37 99 20 22 11 22 3B 51 51 24 |:.....7. ".";QQ$|
00000810: 3B 22 3A 22 3B 41 24 28 53 53 2C 31 29 3A 85 20 |;":";A$(SS,1):. |
00000820: 22 11 51 55 41 4E 54 49 54 59 3A 22 3B 51 00 66 |".QUANTITY:";Q.f|
00000830: 10 0A 37 85 20 22 11 11 9C 41 52 45 20 54 48 45 |..7. "...ARE THE|
00000840: 53 45 20 43 4F 52 52 45 43 54 20 28 59 2F 4E 29 |SE CORRECT (Y/N)|
00000850: 3A 22 3B 51 24 3A 8B 20 51 24 B2 22 4E 22 20 A7 |:";Q$:. Q$."N" .|
00000860: 20 31 34 30 30 30 00 AD 10 14 37 54 24 28 43 55 | 14000....7T$(CU|
00000870: 2C 30 29 B2 41 24 28 53 53 2C 30 29 3A 54 24 28 |,0).A$(SS,0):T$(|
00000880: 43 55 2C 31 29 B2 C4 28 51 29 AA 22 20 22 AA 41 |CU,1)..(Q)." ".A|
00000890: 24 28 53 53 2C 31 29 3A 54 28 43 55 29 B2 51 AC |$(SS,1):T(CU).Q.|
000008A0: 43 28 53 53 29 3A 43 55 B2 43 55 AA 31 00 B9 10 |C(SS):CU.CU.1...|
000008B0: 1E 37 89 20 31 34 30 30 30 00 DD 10 28 37 8F 23 |.7. 14000...(7.#|
000008C0: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |"...............|
000008D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 01 11 |................|
000008E0: 32 37 8F 20 20 20 49 4E 49 54 49 41 4C 49 53 45 |27. INITIALISE|
000008F0: 20 43 55 52 52 45 4E 54 20 4C 49 53 54 20 20 43 | CURRENT LIST C|
00000900: 48 00 25 11 3C 37 8F 22 B9 B9 B9 B9 B9 B9 B9 B9 |H.%.<7."........|
00000910: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000920: B9 B9 B9 B9 B9 00 58 11 46 37 81 20 49 B2 31 20 |......X.F7. I.1 |
00000930: A4 20 35 30 3A 54 24 28 49 2C 30 29 B2 22 22 3A |. 50:T$(I,0)."":|
00000940: 54 24 28 49 2C 31 29 B2 22 22 3A 54 28 49 29 B2 |T$(I,1)."":T(I).|
00000950: 30 3A 43 55 B2 30 3A 8E 00 7C 11 98 3A 8F 23 22 |0:CU.0:..|..:.#"|
00000960: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000970: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 A0 11 A2 |................|
00000980: 3A 8F 20 20 20 20 20 20 20 45 58 54 45 4E 44 20 |:. EXTEND |
00000990: 44 49 43 54 49 4F 4E 41 52 59 20 20 20 20 43 48 |DICTIONARY CH|
000009A0: 00 C4 11 AC 3A 8F 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 |....:.".........|
000009B0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
000009C0: B9 B9 B9 B9 00 DC 11 B6 3A 8B 20 49 54 45 4D 53 |........:. ITEMS|
000009D0: B3 35 30 30 20 A7 20 31 35 30 35 30 00 15 12 C0 |.500 . 15050....|
000009E0: 3A 99 20 22 11 1C 1D 1D 1D 4E 4F 20 4D 4F 52 45 |:. ".....NO MORE|
000009F0: 20 52 4F 4F 4D 20 49 4E 20 44 49 43 54 49 4F 4E | ROOM IN DICTION|
00000A00: 41 52 59 22 3A 81 20 49 B2 31 20 A4 20 32 30 30 |ARY":. I.1 . 200|
00000A10: 30 3A 82 3A 8E 00 42 12 CA 3A 99 20 22 93 11 1D |0:.:..B..:. "...|
00000A20: 1D 1D 1D 1D 1D 1D 12 95 4E 45 57 20 49 54 45 4D |........NEW ITEM|
00000A30: 53 20 46 4F 52 20 44 49 43 54 49 4F 4E 41 52 59 |S FOR DICTIONARY|
00000A40: 92 22 00 75 12 D4 3A 99 20 22 11 11 1C 22 3B 4E |.".u..:. "...";N|
00000A50: 4E 24 3B 3A 85 20 22 3A 28 4E 41 4D 45 20 4F 52 |N$;:. ":(NAME OR|
00000A60: 20 27 5A 5A 5A 27 20 54 4F 20 51 55 49 54 29 3A | 'ZZZ' TO QUIT):|
00000A70: 22 3B 54 31 24 00 89 12 DE 3A 8B 20 54 31 24 B2 |";T1$....:. T1$.|
00000A80: 22 5A 5A 5A 22 20 A7 20 8E 00 A2 12 E8 3A 99 20 |"ZZZ" . .....:. |
00000A90: 22 11 22 3B 51 51 24 3B 3A 85 20 22 3A 22 3B 54 |".";QQ$;:. ":";T|
00000AA0: 32 24 00 C3 12 F2 3A 99 20 22 11 51 55 41 4E 54 |2$....:. ".QUANT|
00000AB0: 49 54 59 20 50 45 52 20 22 3B 54 32 24 3B 3A 85 |ITY PER ";T2$;:.|
00000AC0: 20 4E 4E 00 FC 12 FC 3A 85 20 22 11 1F 41 52 45 | NN....:. "..ARE|
00000AD0: 20 54 48 45 53 45 20 43 4F 52 52 45 43 54 20 28 | THESE CORRECT (|
00000AE0: 59 2F 4E 29 3A 22 3B 51 24 3A 8B 20 51 24 B2 22 |Y/N):";Q$:. Q$."|
00000AF0: 4E 22 20 A7 20 89 20 31 35 30 35 30 00 20 13 06 |N" . . 15050. ..|
00000B00: 3B 8D 20 31 36 30 30 30 3A 8D 20 31 37 30 30 30 |;. 16000:. 17000|
00000B10: 3A 49 54 B2 49 54 AA 31 3A 89 20 31 35 30 35 30 |:IT.IT.1:. 15050|
00000B20: 00 44 13 80 3E 8F 23 22 B8 B8 B8 B8 B8 B8 B8 B8 |.D..>.#"........|
00000B30: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000B40: B8 B8 B8 B8 00 68 13 8A 3E 8F 20 20 20 20 20 20 |.....h..>. |
00000B50: 20 20 20 42 49 4E 41 52 59 20 53 45 41 52 43 48 | BINARY SEARCH|
00000B60: 20 20 20 20 20 20 43 48 00 8C 13 94 3E 8F 22 B9 | CH....>.".|
00000B70: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000B80: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 00 A0 13 9E |................|
00000B90: 3E 8B 20 49 54 B2 30 20 A7 20 53 53 B2 30 3A 8E |>. IT.0 . SS.0:.|
00000BA0: 00 BF 13 A8 3E 50 4F B2 B5 28 BC 28 49 54 29 AD |....>PO..(.(IT).|
00000BB0: BC 28 32 29 29 3A 53 53 B2 32 AE 50 4F AB 31 00 |.(2)):SS.2.PO.1.|
00000BC0: D3 13 B2 3E 81 20 49 B2 50 4F 20 A4 20 30 20 A9 |...>. I.PO . 0 .|
00000BD0: 20 AB 31 00 F2 13 BC 3E 8B 20 41 24 28 53 53 2C | .1....>. A$(SS,|
00000BE0: 30 29 B3 54 31 24 20 A7 20 53 53 B2 53 53 AA 32 |0).T1$ . SS.SS.2|
00000BF0: AE 49 00 11 14 C6 3E 8B 20 41 24 28 53 53 2C 30 |.I....>. A$(SS,0|
00000C00: 29 B1 54 31 24 20 A7 20 53 53 B2 53 53 AB 32 AE |).T1$ . SS.SS.2.|
00000C10: 49 00 23 14 D0 3E 8B 20 53 53 B3 30 20 A7 20 53 |I.#..>. SS.0 . S|
00000C20: 53 B2 30 00 3B 14 DA 3E 8B 20 53 53 B1 49 54 AB |S.0.;..>. SS.IT.|
00000C30: 31 20 A7 20 53 53 B2 49 54 AB 31 00 43 14 E4 3E |1 . SS.IT.1.C..>|
00000C40: 82 20 49 00 60 14 EE 3E 8B 20 41 24 28 53 53 2C |. I.`..>. A$(SS,|
00000C50: 30 29 B3 54 49 24 20 A7 20 53 53 B2 53 53 AA 31 |0).TI$ . SS.SS.1|
00000C60: 00 66 14 F8 3E 8E 00 8A 14 68 42 8F 23 22 B8 B8 |.f..>....hB.#"..|
00000C70: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000C80: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 AE 14 72 42 8F |.............rB.|
00000C90: 20 20 20 20 20 20 20 20 20 20 49 4E 53 45 52 54 | INSERT|
00000CA0: 20 49 54 45 4D 20 20 20 20 20 20 20 43 48 00 D2 | ITEM CH..|
00000CB0: 14 7C 42 8F 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |.|B."...........|
00000CC0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000CD0: B9 B9 00 E7 14 86 42 8B 20 49 54 B2 30 20 A7 20 |......B. IT.0 . |
00000CE0: 89 20 31 37 30 36 30 00 21 15 90 42 81 20 49 B2 |. 17060.!..B. I.|
00000CF0: 49 54 20 A4 20 53 53 AA 31 20 A9 AB 31 3A 41 24 |IT . SS.1 ..1:A$|
00000D00: 28 49 2C 30 29 B2 41 24 28 49 AB 31 2C 30 29 3A |(I,0).A$(I.1,0):|
00000D10: 41 24 28 49 2C 31 29 B2 41 24 28 49 AB 31 2C 31 |A$(I,1).A$(I.1,1|
00000D20: 29 00 33 15 9A 42 43 28 49 29 B2 43 28 49 AB 31 |).3..BC(I).C(I.1|
00000D30: 29 3A 82 00 5C 15 A4 42 41 24 28 53 53 2C 30 29 |):..\..BA$(SS,0)|
00000D40: B2 54 31 24 3A 41 24 28 53 53 2C 31 29 B2 54 32 |.T1$:A$(SS,1).T2|
00000D50: 24 3A 43 28 53 53 29 B2 4E 4E 3A 8E 00 80 15 50 |$:C(SS).NN:....P|
00000D60: 46 8F 23 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |F.#"............|
00000D70: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000D80: 00 A4 15 5A 46 8F 20 20 20 20 20 20 20 20 20 20 |...ZF. |
00000D90: 55 53 45 52 20 53 45 41 52 43 48 20 20 20 20 20 |USER SEARCH |
00000DA0: 20 20 43 48 00 C8 15 64 46 8F 22 B9 B9 B9 B9 B9 | CH...dF.".....|
00000DB0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000DC0: B9 B9 B9 B9 B9 B9 B9 B9 00 DA 15 6E 46 53 53 B2 |...........nFSS.|
00000DD0: 30 3A 54 31 24 B2 22 2A 31 22 00 FC 15 78 46 99 |0:T1$."*1"...xF.|
00000DE0: 20 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D | "..............|
00000DF0: 1D 1D 12 1C 53 45 41 52 43 48 92 22 00 18 16 82 |....SEARCH."....|
00000E00: 46 99 20 22 1F 11 49 54 45 4D 20 4E 55 4D 42 45 |F. "..ITEM NUMBE|
00000E10: 52 3A 22 3B 53 53 AA 31 00 34 16 8C 46 99 20 22 |R:";SS.1.4..F. "|
00000E20: 11 1C 22 3B 4E 4E 24 3B 22 3A 22 3B 41 24 28 53 |..";NN$;":";A$(S|
00000E30: 53 2C 30 29 00 4F 16 96 46 99 20 22 11 22 3B 51 |S,0).O..F. ".";Q|
00000E40: 51 24 3B 22 3A 22 3B 41 24 28 53 53 2C 31 29 00 |Q$;":";A$(SS,1).|
00000E50: 79 16 A0 46 99 20 22 11 51 55 41 4E 54 49 54 59 |y..F. ".QUANTITY|
00000E60: 20 50 45 52 20 22 3B 41 24 28 53 53 2C 31 29 3B | PER ";A$(SS,1);|
00000E70: 22 3A 22 3B 43 28 53 53 29 00 AC 16 AA 46 99 20 |":";C(SS)....F. |
00000E80: 22 11 1E D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |"...............|
00000E90: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................|
00000EA0: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 22 00 C9 16 B4 |..........."....|
00000EB0: 46 99 20 22 90 43 4F 4D 4D 41 4E 44 53 20 41 56 |F. ".COMMANDS AV|
00000EC0: 41 49 4C 41 42 4C 45 3A 22 00 EF 16 BE 46 99 20 |AILABLE:"....F. |
00000ED0: 22 11 1E 20 20 20 3E 49 54 45 4D 20 54 4F 20 42 |".. >ITEM TO B|
00000EE0: 45 20 53 45 41 52 43 48 45 44 20 46 4F 52 22 00 |E SEARCHED FOR".|
00000EF0: 1B 17 C8 46 99 20 22 20 20 20 3E 27 2A 27 20 54 |...F. " >'*' T|
00000F00: 48 45 4E 20 4E 55 4D 42 45 52 20 54 4F 20 4D 4F |HEN NUMBER TO MO|
00000F10: 56 45 20 50 4F 49 4E 54 45 52 22 00 3C 17 D2 46 |VE POINTER".<..F|
00000F20: 99 20 22 20 20 20 3E 27 44 44 44 27 20 54 4F 20 |. " >'DDD' TO |
00000F30: 44 45 4C 45 54 45 20 49 54 45 4D 22 00 56 17 DC |DELETE ITEM".V..|
00000F40: 46 99 20 22 20 20 20 3E 27 5A 5A 5A 27 20 54 4F |F. " >'ZZZ' TO|
00000F50: 20 51 55 49 54 22 00 81 17 E6 46 54 31 24 B2 22 | QUIT"....FT1$."|
00000F60: 22 3A 85 20 22 11 9C 57 48 49 43 48 20 44 4F 20 |":. "..WHICH DO |
00000F70: 59 4F 55 20 52 45 51 55 49 52 45 3A 22 3B 54 31 |YOU REQUIRE:";T1|
00000F80: 24 00 9A 17 F0 46 8B 20 54 31 24 B3 B1 22 44 44 |$....F. T1$.."DD|
00000F90: 44 22 20 A7 20 31 38 31 39 30 00 DE 17 FA 46 81 |D" . 18190....F.|
00000FA0: 20 49 B2 53 53 20 A4 20 49 54 AB 31 3A 41 24 28 | I.SS . IT.1:A$(|
00000FB0: 49 2C 30 29 B2 41 24 28 49 AA 31 2C 30 29 3A 41 |I,0).A$(I.1,0):A|
00000FC0: 24 28 49 2C 31 29 B2 41 24 28 49 AA 31 2C 31 29 |$(I,1).A$(I.1,1)|
00000FD0: 3A 43 28 49 29 B2 43 28 49 AA 31 29 3A 82 00 F2 |:C(I).C(I.1):...|
00000FE0: 17 04 47 49 54 B2 49 54 AB 31 3A 89 20 31 38 30 |..GIT.IT.1:. 180|
00000FF0: 34 30 00 06 18 0E 47 8B 20 54 31 24 B2 22 5A 5A |40....G. T1$."ZZ|
00001000: 5A 22 20 A7 20 8E 00 2C 18 18 47 8B 20 C8 28 54 |Z" . ..,..G. .(T|
00001010: 31 24 2C 31 29 B3 B1 22 2A 22 20 A7 20 8D 20 31 |1$,1).."*" . . 1|
00001020: 36 30 30 30 3A 89 20 31 38 32 32 30 00 42 18 22 |6000:. 18220.B."|
00001030: 47 53 53 B2 53 53 AA C5 28 CA 28 54 31 24 2C 32 |GSS.SS..(.(T1$,2|
00001040: 29 29 00 5A 18 2C 47 8B 20 53 53 B1 49 54 AB 31 |)).Z.,G. SS.IT.1|
00001050: 20 A7 20 53 53 B2 49 54 AB 31 00 6C 18 36 47 8B | . SS.IT.1.l.6G.|
00001060: 20 53 53 B3 30 20 A7 20 53 53 B2 30 00 78 18 40 | SS.0 . SS.0.x.@|
00001070: 47 89 20 31 38 30 34 30 00 9C 18 38 4A 8F 23 22 |G. 18040...8J.#"|
00001080: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00001090: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 C0 18 42 |...............B|
000010A0: 4A 8F 20 20 20 20 43 55 52 52 45 4E 54 20 4C 49 |J. CURRENT LI|
000010B0: 53 54 20 44 45 4C 45 54 49 4F 4E 53 20 20 43 48 |ST DELETIONS CH|
000010C0: 00 E4 18 4C 4A 8F 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 |...LJ.".........|
000010D0: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
000010E0: B9 B9 B9 B9 00 F3 18 56 4A 8B 20 43 55 B2 30 20 |.......VJ. CU.0 |
000010F0: A7 20 8E 00 27 19 60 4A 81 20 49 B2 30 20 A4 20 |. ..'.`J. I.0 . |
00001100: 43 55 AB 31 3A 51 24 B2 22 22 3A 99 20 22 1F 11 |CU.1:Q$."":. "..|
00001110: 22 3B 54 24 28 49 2C 30 29 3A 99 20 22 11 22 3B |";T$(I,0):. ".";|
00001120: 54 24 28 49 2C 31 29 00 68 19 6A 4A 85 20 22 1E |T$(I,1).h.jJ. ".|
00001130: 11 44 44 44 3D 44 45 4C 45 54 45 12 20 92 52 45 |.DDD=DELETE. .RE|
00001140: 54 55 52 4E 3D 4E 45 58 54 12 20 92 5A 5A 5A 3D |TURN=NEXT. .ZZZ=|
00001150: 51 55 49 54 3A 22 3B 51 24 3A 8B 20 51 24 B2 22 |QUIT:";Q$:. Q$."|
00001160: 5A 5A 5A 22 20 A7 20 8E 00 80 19 74 4A 8B 20 51 |ZZZ" . ....tJ. Q|
00001170: 24 B3 B1 22 44 44 44 22 20 A7 20 82 20 49 3A 8E |$.."DDD" . . I:.|
00001180: 00 C3 19 7E 4A 81 20 4A B2 49 20 A4 20 43 55 AB |...~J. J.I . CU.|
00001190: 31 3A 54 24 28 4A 2C 30 29 B2 54 24 28 4A AA 31 |1:T$(J,0).T$(J.1|
000011A0: 2C 30 29 3A 54 24 28 4A 2C 31 29 B2 54 24 28 4A |,0):T$(J,1).T$(J|
000011B0: AA 31 2C 31 29 3A 54 28 4A 29 B2 54 28 4A AA 31 |.1,1):T(J).T(J.1|
000011C0: 29 3A 82 00 D1 19 88 4A 43 55 B2 43 55 AB 31 3A |):.....JCU.CU.1:|
000011D0: 8E 00 D7 19 92 4A 90 00 FB 19 20 4E 8F 23 22 B8 |.....J.... N.#".|
000011E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000011F0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 1F 1A 2A 4E |..............*N|
00001200: 8F 20 20 20 20 20 20 20 20 20 20 20 44 41 54 41 |. DATA|
00001210: 20 46 49 4C 45 53 20 20 20 20 20 20 20 43 48 00 | FILES CH.|
00001220: 43 1A 34 4E 8F 22 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |C.4N."..........|
00001230: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00001240: B9 B9 B9 00 7C 1A 3E 4E 85 20 22 11 1C 41 52 45 |....|.>N. "..ARE|
00001250: 20 59 4F 55 20 55 53 49 4E 47 20 44 49 53 4B 53 | YOU USING DISKS|
00001260: 20 28 59 2F 4E 29 3A 22 3B 51 24 3A 8B 20 51 24 | (Y/N):";Q$:. Q$|
00001270: B2 22 59 22 20 A7 20 32 30 32 31 30 00 B0 1A 48 |."Y" . 20210...H|
00001280: 4E 99 20 22 93 11 1C 50 4F 53 49 54 49 4F 4E 20 |N. "...POSITION |
00001290: 54 41 50 45 20 43 4F 52 52 45 43 54 4C 59 2C 20 |TAPE CORRECTLY, |
000012A0: 54 48 45 4E 20 12 52 45 54 55 52 4E 92 2D 2D 22 |THEN .RETURN.--"|
000012B0: 00 E9 1A 52 4E 85 20 22 4D 4F 54 4F 52 20 57 49 |...RN. "MOTOR WI|
000012C0: 4C 4C 20 53 54 4F 50 20 41 55 54 4F 4D 41 54 49 |LL STOP AUTOMATI|
000012D0: 43 41 4C 4C 59 3A 22 3B 51 24 3A 97 20 31 39 32 |CALLY:";Q$:. 192|
000012E0: 2C 37 3A 97 20 31 2C 33 39 00 2A 1B 5C 4E 99 20 |,7:. 1,39.*.\N. |
000012F0: 22 11 90 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 |"..COMMANDS AVAI|
00001300: 4C 41 42 4C 45 3A 22 3A 99 20 22 11 9C 31 29 53 |LABLE:":. "..1)S|
00001310: 41 56 45 20 44 41 54 41 22 3A 99 20 22 11 32 29 |AVE DATA":. ".2)|
00001320: 4C 4F 41 44 20 44 41 54 41 22 00 61 1B 66 4E 85 |LOAD DATA".a.fN.|
00001330: 20 22 11 90 57 48 49 43 48 20 44 4F 20 59 4F 55 | "..WHICH DO YOU|
00001340: 20 52 45 51 55 49 52 45 3A 22 3B 51 3A 20 91 20 | REQUIRE:";Q: . |
00001350: 51 20 89 20 32 30 30 38 30 2C 32 30 31 35 30 3A |Q . 20080,20150:|
00001360: 8E 00 7A 1B 70 4E 97 20 31 2C 37 3A 81 20 49 B2 |..z.pN. 1,7:. I.|
00001370: 31 20 A4 20 32 30 30 30 3A 82 00 AA 1B 7A 4E 9F |1 . 2000:....zN.|
00001380: 20 31 2C 31 2C 32 2C 22 4E 4E 55 4D 42 45 52 22 | 1,1,2,"NNUMBER"|
00001390: 3A 98 31 2C 4E 4E 24 2C 52 24 2C 51 51 24 2C 52 |:.1,NN$,R$,QQ$,R|
000013A0: 24 2C 43 55 2C 52 24 2C 49 54 00 BD 1B 84 4E 8B |$,CU,R$,IT....N.|
000013B0: 20 43 55 B2 30 20 A7 20 32 30 31 32 30 00 EE 1B | CU.0 . 20120...|
000013C0: 8E 4E 81 20 49 B2 30 20 A4 20 43 55 AB 31 3A 98 |.N. I.0 . CU.1:.|
000013D0: 31 2C 54 24 28 49 2C 30 29 2C 52 24 2C 54 24 28 |1,T$(I,0),R$,T$(|
000013E0: 49 2C 31 29 2C 52 24 2C 54 28 49 29 3A 82 00 01 |I,1),R$,T(I):...|
000013F0: 1C 98 4E 8B 20 49 54 B2 30 20 A7 20 32 30 31 34 |..N. IT.0 . 2014|
00001400: 30 00 32 1C A2 4E 81 20 49 B2 30 20 A4 20 49 54 |0.2..N. I.0 . IT|
00001410: AB 31 3A 98 31 2C 41 24 28 49 2C 30 29 2C 52 24 |.1:.1,A$(I,0),R$|
00001420: 2C 41 24 28 49 2C 31 29 2C 52 24 2C 43 28 49 29 |,A$(I,1),R$,C(I)|
00001430: 3A 82 00 3B 1C AC 4E A0 31 3A 8E 00 62 1C B6 4E |:..;..N.1:..b..N|
00001440: 9F 20 31 2C 31 2C 30 2C 22 4E 4E 55 4D 42 45 52 |. 1,1,0,"NNUMBER|
00001450: 22 3A 84 31 2C 4E 4E 24 2C 51 51 24 2C 43 55 2C |":.1,NN$,QQ$,CU,|
00001460: 49 54 00 75 1C C0 4E 8B 20 43 55 B2 30 20 A7 20 |IT.u..N. CU.0 . |
00001470: 32 30 31 38 30 00 A0 1C CA 4E 81 20 49 B2 30 20 |20180....N. I.0 |
00001480: A4 20 43 55 AB 31 3A 84 31 2C 54 24 28 49 2C 30 |. CU.1:.1,T$(I,0|
00001490: 29 2C 54 24 28 49 2C 31 29 2C 54 28 49 29 3A 82 |),T$(I,1),T(I):.|
000014A0: 00 B3 1C D4 4E 8B 20 49 54 B2 30 20 A7 20 32 30 |....N. IT.0 . 20|
000014B0: 32 30 30 00 BC 1C DE 4E A0 52 3A 8E 00 C5 1C E8 |200....N.R:.....|
000014C0: 4E A0 31 3A 8E 00 F5 1C F2 4E 85 20 22 93 11 1C |N.1:.....N. "...|
000014D0: 49 4E 53 45 52 54 20 44 41 54 41 20 44 49 53 4B |INSERT DATA DISK|
000014E0: 2C 20 54 48 45 4E 20 12 52 45 54 55 52 4E 92 2D |, THEN .RETURN.-|
000014F0: 2D 22 3B 51 24 00 36 1D FC 4E 99 20 22 11 90 43 |-";Q$.6..N. "..C|
00001500: 4F 4D 4D 41 4E 44 53 20 41 56 41 49 4C 41 42 4C |OMMANDS AVAILABL|
00001510: 45 3A 22 3A 99 20 22 11 9C 31 29 53 41 56 45 20 |E:":. "..1)SAVE |
00001520: 44 41 54 41 22 3A 99 20 22 11 32 29 4C 4F 41 44 |DATA":. ".2)LOAD|
00001530: 20 44 41 54 41 22 00 6D 1D 06 4F 85 20 22 11 90 | DATA".m..O. "..|
00001540: 57 48 49 43 48 20 44 4F 20 59 4F 55 20 52 45 51 |WHICH DO YOU REQ|
00001550: 55 49 52 45 3A 22 3B 51 3A 20 91 20 51 20 89 20 |UIRE:";Q: . Q . |
00001560: 32 30 32 34 30 2C 32 30 33 33 30 3A 8E 00 A7 1D |20240,20330:....|
00001570: 10 4F 51 24 B2 22 22 3A 85 20 22 93 1C 11 53 41 |.OQ$."":. "...SA|
00001580: 56 45 20 41 53 20 28 46 49 4C 45 20 4E 41 4D 45 |VE AS (FILE NAME|
00001590: 29 3A 20 22 3B 51 24 3A 8B 20 51 24 B2 22 22 20 |): ";Q$:. Q$."" |
000015A0: A7 20 32 30 32 34 30 00 E2 1D 1A 4F 52 B2 30 3A |. 20240....OR.0:|
000015B0: 85 20 22 11 46 49 4C 45 20 4E 55 4D 42 45 52 20 |. ".FILE NUMBER |
000015C0: 28 31 2D 31 32 35 29 3A 20 22 3B 52 3A 8B 20 52 |(1-125): ";R:. R|
000015D0: B3 31 20 B0 20 52 B1 31 32 35 20 A7 20 32 30 32 |.1 . R.125 . 202|
000015E0: 35 30 00 FC 1D 24 4F 9F 20 52 2C 31 2C 31 35 2C |50...$O. R,1,15,|
000015F0: 22 30 3A 22 51 24 22 2C 53 2C 57 22 00 1A 1E 2E |"0:"Q$",S,W"....|
00001600: 4F 98 52 2C 4E 4E 24 2C 52 24 2C 51 51 24 2C 52 |O.R,NN$,R$,QQ$,R|
00001610: 24 2C 43 55 2C 52 24 2C 49 54 00 2D 1E 38 4F 8B |$,CU,R$,IT.-.8O.|
00001620: 20 43 55 B2 30 20 A7 20 32 30 33 30 30 00 5E 1E | CU.0 . 20300.^.|
00001630: 42 4F 81 20 49 B2 30 20 A4 20 43 55 AB 31 3A 98 |BO. I.0 . CU.1:.|
00001640: 52 2C 54 24 28 49 2C 30 29 2C 52 24 2C 54 24 28 |R,T$(I,0),R$,T$(|
00001650: 49 2C 31 29 2C 52 24 2C 54 28 49 29 3A 82 00 71 |I,1),R$,T(I):..q|
00001660: 1E 4C 4F 8B 20 49 54 B2 30 20 A7 20 32 30 33 32 |.LO. IT.0 . 2032|
00001670: 30 00 A2 1E 56 4F 81 20 49 B2 30 20 A4 20 49 54 |0...VO. I.0 . IT|
00001680: AB 31 3A 98 52 2C 41 24 28 49 2C 30 29 2C 52 24 |.1:.R,A$(I,0),R$|
00001690: 2C 41 24 28 49 2C 31 29 2C 52 24 2C 43 28 49 29 |,A$(I,1),R$,C(I)|
000016A0: 3A 82 00 AB 1E 60 4F A0 52 3A 8E 00 E2 1E 6A 4F |:....`O.R:....jO|
000016B0: 51 24 B2 22 22 3A 85 20 22 93 1C 11 4C 4F 41 44 |Q$."":. "...LOAD|
000016C0: 20 57 48 49 43 48 20 46 49 4C 45 20 4E 41 4D 45 | WHICH FILE NAME|
000016D0: 3A 20 22 3B 51 24 3A 8B 20 51 24 B2 22 22 20 A7 |: ";Q$:. Q$."" .|
000016E0: 20 8E 00 1D 1F 74 4F 52 B2 30 3A 85 20 22 11 46 | ....tOR.0:. ".F|
000016F0: 49 4C 45 20 4E 55 4D 42 45 52 20 28 31 2D 31 32 |ILE NUMBER (1-12|
00001700: 35 29 3A 20 22 3B 52 3A 8B 20 52 B3 31 20 B0 20 |5): ";R:. R.1 . |
00001710: 52 B1 31 32 35 20 A7 20 32 30 33 34 30 00 30 1F |R.125 . 20340.0.|
00001720: 7E 4F 9F 20 52 2C 38 2C 38 2C 22 30 3A 22 51 24 |~O. R,8,8,"0:"Q$|
00001730: 00 45 1F 88 4F 84 52 2C 4E 4E 24 2C 51 51 24 2C |.E..O.R,NN$,QQ$,|
00001740: 43 55 2C 49 54 00 58 1F 92 4F 8B 20 43 55 B2 30 |CU,IT.X..O. CU.0|
00001750: 20 A7 20 32 30 33 39 30 00 83 1F 9C 4F 81 20 49 | . 20390....O. I|
00001760: B2 30 20 A4 20 43 55 AB 31 3A 84 52 2C 54 24 28 |.0 . CU.1:.R,T$(|
00001770: 49 2C 30 29 2C 54 24 28 49 2C 31 29 2C 54 28 49 |I,0),T$(I,1),T(I|
00001780: 29 3A 82 00 96 1F A6 4F 8B 20 49 54 B2 30 20 A7 |):.....O. IT.0 .|
00001790: 20 32 30 34 31 30 00 C1 1F B0 4F 81 20 49 B2 30 | 20410....O. I.0|
000017A0: 20 A4 20 49 54 AB 31 3A 84 52 2C 41 24 28 49 2C | . IT.1:.R,A$(I,|
000017B0: 30 29 2C 41 24 28 49 2C 31 29 2C 43 28 49 29 3A |0),A$(I,1),C(I):|
000017C0: 82 00 00 00 |.... |
..%..*.#".............................I.
.+. MENU CH.M..+."
.................................+. 5328
1,13:. "................NAME AND NUMBER.
"... +. "...COMMANDS AVAILABLE:"...*+. "
... 1)DISPLAY CURRENT LIST"...4+. "
2)INPUT TO CURRENT LIST".&.>+. " 3)STA
RT FRESH LIST".L.H+. " 4)DELETE FROM C
URRENT LIST".K.R+. " 5)EXTEND DICTIONA
RY"...\+. " 6)DISPLAY DICTIONARY"...F+
. " 7)DATA FILES"...P+. " 8)INITIALI
SE".M.Z+. " 9)STOP"....+. "..WHICH DO
YOU REQUIRE:";Z:. ".";....+. IN..0 . Z.8
. Z.9 . . 11180.J..+. "................
......NOT INITIALISED YET".E..+. I.1 . 2
000:.:. 11000....+. IT.0 . Z.2 . Z.3 . Z
.5 . Z.7 . Z.8 . Z.9 . 11210.I..+. "....
.....................NO DATA YET"....+.
I.1 . 2000:.:. 11000.$.J+. Z . 13000,140
00,14120,19000,15000,18000,20000,12000,1
1230.0.T+. 11000.A..+. "................
.........NAME AND NUMBER"....+. ".......
.......PROGRAM TERMINATED":.......#"....
.........................T....
INITIALISE CH......".............
.................:....:. A$(499,1),C(499
),T$(49,1),T(49):CURR.0:IT.0:IN.1:R$.G(1
3).Y../. "..LOADING FROM TAPE OR DISK (Y
/N):";Q$:. Q$."Y" . 11000..../. "..NAME
FOR ITEMS:";NN$.J../. ".NAME FOR ASSOCIA
TED QUANTITY:";QQ$:. 11000...H2.#"......
.........................R2. DISPLA
Y CURRENT LIST CH.6..2."...............
...............E..2. CU.0 . ..W..2.".":C
T.0:. I.0 . CU.1:. "..";NN$;":";T$(I,0).
...2. ".";QQ$;":";T$(I,1):. ".QUANTITY:"
;T(I).X..3. "..WWWWWWWWWWWWWWWWWWWWWWWWW
WWWWWWWWWWWWWWW"....3. "PRESS .RETURN. F
OR NEXT ITEM:";Q$:. "..".<..3. "
...".O."
3CT.CT.T(I):. I.D.,3. "..TOTAL:.";CT...6
3. "..PRESS .RETURN. TO GO BACK TO MENU"
;Q$:.....6.#"...........................
.....6. EXTEND CURRENT LIST CH...
D6."..............................=.N6.
CU.50 . . ".................CURRENT LIST
NOW FULL.":..J.X6. "..........ADDITIONS
TO CURRENT LIST."....6. "...";NN$;" ('Z
ZZ' TO QUIT):";:. T1$:. T1$."ZZZ" . ..J.
.6. 16000:. A$(SS,0).T1$ . . 14080....6.
"...WORD UNKNOWN, PLEASE CHECK.":. I.1
. 2000:.:.....7. ".";QQ$;":";A$(SS,1):.
".QUANTITY:";Q.F..7. "...ARE THESE CORRE
CT (Y/N):";Q$:. Q$."N" . 14000....7T$(CU
,0).A$(SS,0):T$(CU,1).D(Q)." ".A$(SS,1):
T(CU).Q.C(SS):CU.CU.1....7. 14000...(7.#
"...............................27. IN
ITIALISE CURRENT LIST CH.%.<7."........
......................X.F7. I.1 . 50:T$(
I,0)."":T$(I,1)."":T(I).0:CU.0:..|..:.#"
............................. ..:.
EXTEND DICTIONARY CH.D..:.".........
........................:. ITEMS.500 . 1
5050....:. ".....NO MORE ROOM IN DICTION
ARY":. I.1 . 2000:.:..B.J:. "...........
NEW ITEMS FOR DICTIONARY.".U.T:. "...";N
N$;:. ":(NAME OR 'ZZZ' TO QUIT):";T1$...
.:. T1$."ZZZ" . .....:. ".";QQ$;:. ":";T
2$.C..:. ".QUANTITY PER ";T2$;:. NN....:
. "..ARE THESE CORRECT (Y/N):";Q$:. Q$."
N" . . 15050. ..;. 16000:. 17000:IT.IT.1
:. 15050.D..>.#"........................
.....H..>. BINARY SEARCH CH
....>.".............................. ..
>. IT.0 . SS.0:.....>PO..(.(IT)..(2)):SS
.2.PO.1.S..>. I.PO . 0 . .1....>. A$(SS,
0).T1$ . SS.SS.2.I...F>. A$(SS,0).T1$ .
SS.SS.2.I.#.P>. SS.0 . SS.0.;.Z>. SS.IT.
1 . SS.IT.1.C..>. I.`..>. A$(SS,0).TI$ .
SS.SS.1.F..>....HB.#"..................
.............RB. INSERT ITEM
CH.R.|B."...........................
......B. IT.0 . . 17060.!..B. I.IT . SS.
1 ..1:A$(I,0).A$(I.1,0):A$(I,1).A$(I.1,1
).3..BC(I).C(I.1):..\..BA$(SS,0).T1$:A$(
SS,1).T2$:C(SS).NN:....PF.#"............
...................ZF. USER SEA
RCH CH.H.DF.".....................
.........Z.NFSS.0:T1$."*1"...XF. "......
............SEARCH."....F. "..ITEM NUMBE
R:";SS.1.4..F. "..";NN$;":";A$(SS,0).O..
F. ".";QQ$;":";A$(SS,1).Y. F. ".QUANTITY
PER ";A$(SS,1);":";C(SS)....F. "..QQQQQ
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ".I..
F. ".COMMANDS AVAILABLE:"....F. ".. >I
TEM TO BE SEARCHED FOR"...HF. " >'*' T
HEN NUMBER TO MOVE POINTER".<.RF. " >'
DDD' TO DELETE ITEM".V..F. " >'ZZZ' TO
QUIT"....FT1$."":. "..WHICH DO YOU REQU
IRE:";T1$....F. T1$.."DDD" . 18190....F.
I.SS . IT.1:A$(I,0).A$(I.1,0):A$(I,1).A
$(I.1,1):C(I).C(I.1):.....GIT.IT.1:. 180
40....G. T1$."ZZZ" . ..,..G. H(T1$,1).."
*" . . 16000:. 18220.B."GSS.SS.E(J(T1$,2
)).Z.,G. SS.IT.1 . SS.IT.1.L.6G. SS.0 .
SS.0.X.@G. 18040...8J.#"................
...............BJ. CURRENT LIST DELET
IONS CH...LJ.".........................
.......VJ. CU.0 . ..'.`J. I.0 . CU.1:Q$.
"":. "..";T$(I,0):. ".";T$(I,1).H.JJ. ".
.DDD=DELETE. .RETURN=NEXT. .ZZZ=QUIT:";Q
$:. Q$."ZZZ" . ....TJ. Q$.."DDD" . . I:.
.C.~J. J.I . CU.1:T$(J,0).T$(J.1,0):T$(J
,1).T$(J.1,1):T(J).T(J.1):..Q..JCU.CU.1:
..W..J.... N.#".........................
......*N. DATA FILES CH.
C.4N."..............................|.>N
. "..ARE YOU USING DISKS (Y/N):";Q$:. Q$
."Y" . 20210...HN. "...POSITION TAPE COR
RECTLY, THEN .RETURN.--"...RN. "MOTOR WI
LL STOP AUTOMATICALLY:";Q$:. 192,7:. 1,3
9.*.\N. "..COMMANDS AVAILABLE:":. "..1)S
AVE DATA":. ".2)LOAD DATA".A.FN. "..WHIC
H DO YOU REQUIRE:";Q: . Q . 20080,20150:
..Z.PN. 1,7:. I.1 . 2000:....ZN. 1,1,2,"
NNUMBER":.1,NN$,R$,QQ$,R$,CU,R$,IT....N.
CU.0 . 20120....N. I.0 . CU.1:.1,T$(I,0
),R$,T$(I,1),R$,T(I):.....N. IT.0 . 2014
0.2..N. I.0 . IT.1:.1,A$(I,0),R$,A$(I,1)
,R$,C(I):..;..N 1:..B..N. 1,1,0,"NNUMBER
":.1,NN$,QQ$,CU,IT.U..N. CU.0 . 20180. .
JN. I.0 . CU.1:.1,T$(I,0),T$(I,1),T(I):.
...TN. IT.0 . 20200....N R:..E..N 1:....
.N. "...INSERT DATA DISK, THEN .RETURN.-
-";Q$.6..N. "..COMMANDS AVAILABLE:":. ".
.1)SAVE DATA":. ".2)LOAD DATA".M..O. "..
WHICH DO YOU REQUIRE:";Q: . Q . 20240,20
330:.....OQ$."":. "...SAVE AS (FILE NAME
): ";Q$:. Q$."" . 20240....OR.0:. ".FILE
NUMBER (1-125): ";R:. R.1 . R.125 . 202
50...$O. R,1,15,"0:"Q$",S,W"....O.R,NN$,
R$,QQ$,R$,CU,R$,IT.-.8O. CU.0 . 20300.^.
BO. I.0 . CU.1:.R,T$(I,0),R$,T$(I,1),R$,
T(I):..Q.LO. IT.0 . 20320...VO. I.0 . IT
.1:.R,A$(I,0),R$,A$(I,1),R$,C(I):....`O
R:....JOQ$."":. "...LOAD WHICH FILE NAME
: ";Q$:. Q$."" . ....TOR.0:. ".FILE NUMB
ER (1-125): ";R:. R.1 . R.125 . 20340.0.
~O. R,8,8,"0:"Q$.E..O.R,NN$,QQ$,CU,IT.X.
.O. CU.0 . 20390....O. I.0 . CU.1:.R,T$(
I,0),T$(I,1),T(I):.....O. IT.0 . 20410.A
..O. I.0 . IT.1:.R,A$(I,0),A$(I,1),C(I):
....
> CLICK IMAGE PREVIEW FOR FULL MODAL