INVENTORY
FILE INFORMATION
FILENAME(S): INVENTORY
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-11-30 17:31:30
APPEARS ON: 1 disk(s)
FILE HASH
0c570fbe3c09f92f5944246d4f83dde2c207f0183a25ee20e7d7744bb0a92758
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ARCADIAN | INVENTORY | PRG | UK CD | 24 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 05 00 86 20 50 28 32 30 2C 32 29 2C |....... P(20,2),| 00000010: 44 24 28 32 30 29 00 1E 08 07 00 4C B2 31 00 27 |D$(20).....L.1.'| 00000020: 08 0A 00 99 22 93 22 00 47 08 14 00 99 22 20 20 |....".".G...." | 00000030: 20 20 20 20 20 20 20 20 20 49 4E 56 45 4E 54 4F | INVENTO| 00000040: 52 59 20 4D 45 4E 55 00 67 08 1E 00 99 22 20 20 |RY MENU.g...." | 00000050: 20 20 20 20 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 | .......| 00000060: A3 A3 A3 A3 A3 A3 A3 00 6D 08 28 00 99 00 90 08 |........m.(.....| 00000070: 32 00 99 22 54 4F 3A 20 20 20 20 20 20 20 20 20 |2.."TO: | 00000080: 20 20 20 20 20 20 20 20 20 20 50 52 45 53 53 3A | PRESS:| 00000090: 00 B4 08 3C 00 99 22 20 20 20 53 48 4F 57 20 41 |...<.." SHOW A| 000000A0: 4C 4C 20 49 54 45 4D 53 20 20 20 20 20 20 20 20 |LL ITEMS | 000000B0: 20 20 20 53 00 D8 08 46 00 99 22 20 20 20 41 44 | S...F.." AD| 000000C0: 44 20 41 4E 20 49 54 45 4D 20 54 4F 20 4C 49 53 |D AN ITEM TO LIS| 000000D0: 54 20 20 20 20 20 20 41 00 FC 08 50 00 99 22 20 |T A...P.." | 000000E0: 20 20 44 45 4C 45 54 45 20 41 4E 20 49 54 45 4D | DELETE AN ITEM| 000000F0: 20 46 52 4F 4D 20 4C 49 53 54 20 44 00 20 09 5A | FROM LIST D. .Z| 00000100: 00 99 22 20 20 20 52 45 50 4C 45 4E 49 53 48 20 |.." REPLENISH | 00000110: 53 54 4F 43 4B 20 20 20 20 20 20 20 20 20 20 52 |STOCK R| 00000120: 00 44 09 64 00 99 22 20 20 20 57 49 54 48 44 52 |.D.d.." WITHDR| 00000130: 41 57 20 46 52 4F 4D 20 53 54 4F 43 4B 20 20 20 |AW FROM STOCK | 00000140: 20 20 20 57 00 68 09 67 00 99 22 20 20 20 50 55 | W.h.g.." PU| 00000150: 54 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 20 20 |T FILE ON DISK | 00000160: 20 20 20 20 20 20 20 50 00 8C 09 68 00 99 22 20 | P...h.." | 00000170: 20 20 42 52 49 4E 47 20 46 49 4C 45 20 46 52 4F | BRING FILE FRO| 00000180: 4D 20 44 49 53 4B 20 20 20 20 20 42 00 B0 09 69 |M DISK B...i| 00000190: 00 99 22 20 20 20 54 45 52 4D 49 4E 41 54 45 20 |.." TERMINATE | 000001A0: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 20 20 54 |PROGRAM T| 000001B0: 00 B6 09 6E 00 99 00 CD 09 78 00 A1 20 41 24 3A |...n.....x.. A$:| 000001C0: 8B 20 41 24 B2 22 22 20 A7 20 31 32 30 00 D6 09 |. A$."" . 120...| 000001D0: 7D 00 99 20 41 24 00 E9 09 82 00 8B 20 41 24 B2 |}.. A$...... A$.| 000001E0: 22 53 22 20 A7 20 32 30 30 00 FC 09 8C 00 8B 20 |"S" . 200...... | 000001F0: 41 24 B2 22 41 22 20 A7 20 34 30 30 00 0F 0A 96 |A$."A" . 400....| 00000200: 00 8B 20 41 24 B2 22 44 22 20 A7 20 36 30 30 00 |.. A$."D" . 600.| 00000210: 22 0A A0 00 8B 20 41 24 B2 22 52 22 20 A7 20 38 |".... A$."R" . 8| 00000220: 30 30 00 35 0A AA 00 8B 20 41 24 B2 22 57 22 20 |00.5.... A$."W" | 00000230: A7 20 33 30 30 00 49 0A AC 00 8B 20 41 24 B2 22 |. 300.I.... A$."| 00000240: 50 22 20 A7 20 31 32 30 30 00 5D 0A AE 00 8B 20 |P" . 1200.].... | 00000250: 41 24 B2 22 42 22 20 A7 20 31 33 30 30 00 6E 0A |A$."B" . 1300.n.| 00000260: AF 00 8B 20 41 24 B2 22 54 22 20 A7 20 80 00 78 |... A$."T" . ..x| 00000270: 0A B4 00 89 20 31 32 30 00 9E 0A C8 00 8B 20 4C |.... 120...... L| 00000280: B2 31 20 A7 20 99 22 4E 4F 20 49 54 45 4D 53 20 |.1 . ."NO ITEMS | 00000290: 49 4E 20 4C 49 53 54 22 3A 89 20 32 36 30 00 A7 |IN LIST":. 260..| 000002A0: 0A CD 00 99 22 93 22 00 D8 0A D2 00 99 22 50 41 |...."."......"PA| 000002B0: 52 54 20 4E 55 4D 42 45 52 20 20 50 41 52 54 20 |RT NUMBER PART | 000002C0: 44 45 53 43 52 49 50 54 49 4F 4E 20 20 20 51 55 |DESCRIPTION QU| 000002D0: 41 4E 54 49 54 59 22 3B 00 08 0B DC 00 99 22 A3 |ANTITY";......".| 000002E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A0 A0 A3 A3 A3 A3 |................| 000002F0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A0 A0 A0 A3 |................| 00000300: A3 A3 A3 A3 A3 A3 A3 22 00 18 0B E6 00 81 20 4E |......."...... N| 00000310: B2 31 20 A4 20 4C AB 31 00 42 0B F0 00 99 20 20 |.1 . L.1.B.... | 00000320: 20 20 20 20 20 50 28 4E 2C 31 29 3B A3 31 33 29 | P(N,1);.13)| 00000330: 3B 44 24 28 4E 29 3B A3 33 32 29 3B 50 28 4E 2C |;D$(N);.32);P(N,| 00000340: 32 29 00 4A 0B FA 00 82 20 4E 00 6E 0B 04 01 99 |2).J.... N.n....| 00000350: 22 50 52 45 53 53 20 27 4D 27 20 54 4F 20 52 45 |"PRESS 'M' TO RE| 00000360: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 2E 22 00 86 |TURN TO MENU."..| 00000370: 0B 0E 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 4D |.... A$: . A$."M| 00000380: 22 20 A7 20 31 30 00 8F 0B 18 01 89 32 37 30 00 |" . 10......270.| 00000390: B2 0B 2C 01 99 22 54 59 50 45 20 49 4E 20 33 2D |..,.."TYPE IN 3-| 000003A0: 44 49 47 49 54 20 50 41 52 54 20 4E 55 4D 42 45 |DIGIT PART NUMBE| 000003B0: 52 22 00 BA 0B 36 01 85 20 50 00 CA 0B 40 01 81 |R"...6.. P...@..| 000003C0: 20 4E B2 31 20 A4 20 4C AB 31 00 DF 0B 4A 01 8B | N.1 . L.1...J..| 000003D0: 20 50 B2 50 28 4E 2C 31 29 20 A7 20 33 35 33 00 | P.P(N,1) . 353.| 000003E0: E7 0B 54 01 82 20 4E 00 04 0C 5E 01 99 22 4E 4F |..T.. N...^.."NO| 000003F0: 20 53 55 43 48 20 4E 55 4D 42 45 52 21 22 3A 89 | SUCH NUMBER!":.| 00000400: 20 33 36 32 00 2D 0C 61 01 99 22 54 48 45 52 45 | 362.-.a.."THERE| 00000410: 20 41 52 45 20 4E 4F 57 22 3B 50 28 4E 2C 32 29 | ARE NOW";P(N,2)| 00000420: 3B 22 20 49 4E 20 53 54 4F 43 4B 2E 22 00 50 0C |;" IN STOCK.".P.| 00000430: 64 01 99 22 54 59 50 45 20 49 4E 20 51 55 41 4E |d.."TYPE IN QUAN| 00000440: 54 49 54 59 20 53 55 42 54 52 41 43 54 45 44 22 |TITY SUBTRACTED"| 00000450: 00 69 0C 66 01 85 20 51 3A 20 50 28 4E 2C 32 29 |.i.f.. Q: P(N,2)| 00000460: B2 50 28 4E 2C 32 29 AB 51 00 92 0C 68 01 99 22 |.P(N,2).Q...h.."| 00000470: 54 48 45 52 45 20 41 52 45 20 4E 4F 57 22 3B 50 |THERE ARE NOW";P| 00000480: 28 4E 2C 32 29 3B 22 20 49 4E 20 53 54 4F 43 4B |(N,2);" IN STOCK| 00000490: 2E 22 00 B0 0C 6A 01 99 22 41 4E 4F 54 48 45 52 |."...j.."ANOTHER| 000004A0: 20 49 54 45 4D 3F 20 59 3F 20 4F 52 20 4E 3F 22 | ITEM? Y? OR N?"| 000004B0: 00 C7 0C 6B 01 A1 20 41 24 3A 8B 20 41 24 B2 22 |...k.. A$:. A$."| 000004C0: 22 20 A7 20 33 36 33 00 D9 0C 6D 01 8B 20 41 24 |" . 363...m.. A$| 000004D0: B2 22 59 22 A7 20 33 30 30 00 EB 0C 6F 01 8B 20 |."Y". 300...o.. | 000004E0: 41 24 B2 22 4E 22 20 A7 20 31 30 00 F5 0C 72 01 |A$."N" . 10...r.| 000004F0: 89 20 33 36 32 00 1A 0D 90 01 99 22 54 59 50 45 |. 362......"TYPE| 00000500: 20 49 4E 20 33 2D 44 49 47 49 54 20 50 41 52 54 | IN 3-DIGIT PART| 00000510: 20 4E 55 4D 42 45 52 2E 22 3B 00 27 0D 9A 01 85 | NUMBER.";.'....| 00000520: 20 50 28 4C 2C 31 29 00 60 0D A4 01 99 20 22 54 | P(L,1).`.... "T| 00000530: 59 50 45 20 49 4E 20 50 41 52 54 20 44 45 53 43 |YPE IN PART DESC| 00000540: 52 49 50 54 49 4F 4E 20 28 32 30 2D 43 48 41 52 |RIPTION (20-CHAR| 00000550: 41 43 54 45 52 20 4D 41 58 49 4D 55 4D 29 22 3B |ACTER MAXIMUM)";| 00000560: 00 6C 0D AE 01 85 20 44 24 28 4C 29 00 86 0D B8 |.l.... D$(L)....| 00000570: 01 99 20 22 54 59 50 45 20 49 4E 20 51 55 41 4E |.. "TYPE IN QUAN| 00000580: 54 49 54 59 22 3B 00 93 0D C2 01 85 20 50 28 4C |TITY";...... P(L| 00000590: 2C 32 29 00 9D 0D CC 01 4C B2 4C AA 31 00 BD 0D |,2).....L.L.1...| 000005A0: D6 01 99 20 22 41 4E 4F 54 48 45 52 20 49 54 45 |... "ANOTHER ITE| 000005B0: 4D 3F 20 59 3F 20 4F 52 20 4E 3F 22 3B 00 D5 0D |M? Y? OR N?";...| 000005C0: E0 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 |... A$: . A$."" | 000005D0: A7 20 34 38 30 00 DE 0D E5 01 99 20 41 24 00 F2 |. 480...... A$..| 000005E0: 0D EA 01 8B 20 41 24 20 B2 22 59 22 20 A7 20 34 |.... A$ ."Y" . 4| 000005F0: 30 30 00 06 0E F4 01 8B 20 41 24 B3 B1 22 4E 22 |00...... A$.."N"| 00000600: 20 A7 20 34 37 30 00 10 0E FE 01 8D 31 30 30 30 | . 470......1000| 00000610: 00 19 0E 08 02 89 20 31 30 00 3D 0E 58 02 99 22 |...... 10.=.X.."| 00000620: 54 59 50 45 20 49 4E 20 33 2D 44 49 47 49 54 20 |TYPE IN 3-DIGIT | 00000630: 50 41 52 54 20 4E 55 4D 42 45 52 2E 22 00 45 0E |PART NUMBER.".E.| 00000640: 62 02 85 20 50 00 55 0E 6C 02 81 20 4E B2 31 20 |b.. P.U.l.. N.1 | 00000650: A4 20 4C AB 31 00 6A 0E 76 02 8B 20 50 B2 50 28 |. L.1.j.v.. P.P(| 00000660: 4E 2C 31 29 20 A7 20 36 36 30 00 72 0E 80 02 82 |N,1) . 660.r....| 00000670: 20 4E 00 90 0E 8A 02 99 22 4E 4F 20 53 55 43 48 | N......"NO SUCH| 00000680: 20 4E 55 4D 42 45 52 21 22 3A 20 89 20 37 31 30 | NUMBER!": . 710| 00000690: 00 9A 0E 94 02 4C B2 4C AB 31 00 AC 0E 9E 02 50 |.....L.L.1.....P| 000006A0: 28 4E 2C 31 29 B2 50 28 4C 2C 31 29 00 BE 0E A8 |(N,1).P(L,1)....| 000006B0: 02 50 28 4E 2C 32 29 B2 50 28 4C 2C 32 29 00 CE |.P(N,2).P(L,2)..| 000006C0: 0E B2 02 44 24 28 4E 29 B2 44 24 28 4C 29 00 D9 |...D$(N).D$(L)..| 000006D0: 0E BC 02 8D 20 31 30 30 30 00 F9 0E C6 02 99 20 |.... 1000...... | 000006E0: 22 41 4E 4F 54 48 45 52 20 49 54 45 4D 3F 20 59 |"ANOTHER ITEM? Y| 000006F0: 3F 20 4F 52 20 4E 3F 22 3B 00 11 0F D0 02 A1 20 |? OR N?";...... | 00000700: 41 24 3A 20 8B 20 41 24 B2 22 22 20 A7 20 37 32 |A$: . A$."" . 72| 00000710: 30 00 1A 0F DA 02 99 20 41 24 00 2D 0F E4 02 8B |0...... A$.-....| 00000720: 20 41 24 B2 22 59 22 20 A7 20 36 30 30 00 3F 0F | A$."Y" . 600.?.| 00000730: EE 02 8B 20 41 24 B2 22 4E 22 20 A7 20 31 30 00 |... A$."N" . 10.| 00000740: 48 0F 02 03 89 37 31 30 00 6B 0F 20 03 99 22 54 |H....710.k. .."T| 00000750: 59 50 45 20 49 4E 20 33 2D 44 49 47 49 54 20 50 |YPE IN 3-DIGIT P| 00000760: 41 52 54 20 4E 55 4D 42 45 52 22 00 73 0F 2A 03 |ART NUMBER".s.*.| 00000770: 85 20 50 00 83 0F 34 03 81 20 4E B2 31 20 A4 20 |. P...4.. N.1 . | 00000780: 4C AB 31 00 98 0F 3E 03 8B 20 50 B2 50 28 4E 2C |L.1...>.. P.P(N,| 00000790: 31 29 20 A7 20 38 36 30 00 A0 0F 48 03 82 20 4E |1) . 860...H.. N| 000007A0: 00 BE 0F 52 03 99 22 4E 4F 20 53 55 43 48 20 4E |...R.."NO SUCH N| 000007B0: 55 4D 42 45 52 21 22 3A 20 89 20 39 31 30 00 E8 |UMBER!": . 910..| 000007C0: 0F 5C 03 99 22 54 48 45 52 45 20 41 52 45 20 4E |.\.."THERE ARE N| 000007D0: 4F 57 22 3B 20 50 28 4E 2C 32 29 3B 22 20 49 4E |OW"; P(N,2);" IN| 000007E0: 20 53 54 4F 43 4B 2E 22 00 0A 10 66 03 99 22 54 | STOCK."...f.."T| 000007F0: 59 50 45 20 49 4E 20 54 48 45 20 51 55 41 4E 54 |YPE IN THE QUANT| 00000800: 49 54 59 20 41 44 44 45 44 22 00 12 10 70 03 85 |ITY ADDED"...p..| 00000810: 20 51 00 26 10 7A 03 50 28 4E 2C 32 29 B2 50 28 | Q.&.z.P(N,2).P(| 00000820: 4E 2C 32 29 AA 51 00 4F 10 84 03 99 22 54 48 45 |N,2).Q.O...."THE| 00000830: 52 45 20 41 52 45 20 4E 4F 57 22 3B 50 28 4E 2C |RE ARE NOW";P(N,| 00000840: 32 29 3B 22 20 49 4E 20 53 54 4F 43 4B 2E 22 00 |2);" IN STOCK.".| 00000850: 6D 10 8E 03 99 22 41 4E 4F 54 48 45 52 20 49 54 |m...."ANOTHER IT| 00000860: 45 4D 3F 20 59 3F 20 4F 52 20 4E 3F 22 00 84 10 |EM? Y? OR N?"...| 00000870: 98 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |... A$:. A$."" .| 00000880: 20 39 32 30 00 97 10 A2 03 8B 20 41 24 B2 22 59 | 920...... A$."Y| 00000890: 22 20 A7 20 38 30 30 00 A9 10 AC 03 8B 20 41 24 |" . 800...... A$| 000008A0: B2 22 4E 22 20 A7 20 31 30 00 B3 10 B6 03 89 20 |."N" . 10...... | 000008B0: 39 31 30 00 C4 10 E8 03 8B 20 4C B3 33 20 A7 20 |910...... L.3 . | 000008C0: 31 31 34 30 00 D4 10 ED 03 81 20 52 B2 31 20 A4 |1140...... R.1 .| 000008D0: 20 4C AB 32 00 E6 10 F2 03 81 20 53 B2 52 AA 31 | L.2...... S.R.1| 000008E0: 20 A4 20 4C AB 31 00 02 11 FC 03 8B 20 50 28 52 | . L.1...... P(R| 000008F0: 2C 31 29 B3 B2 50 28 53 2C 31 29 20 A7 20 31 31 |,1)..P(S,1) . 11| 00000900: 32 30 00 0F 11 06 04 4B B2 50 28 52 2C 31 29 00 |20.....K.P(R,1).| 00000910: 1C 11 10 04 4A B2 50 28 52 2C 32 29 00 29 11 1A |....J.P(R,2).)..| 00000920: 04 49 24 B2 44 24 28 52 29 00 3B 11 24 04 50 28 |.I$.D$(R).;.$.P(| 00000930: 52 2C 31 29 B2 50 28 53 2C 31 29 00 4D 11 2E 04 |R,1).P(S,1).M...| 00000940: 50 28 52 2C 32 29 B2 50 28 53 2C 32 29 00 5D 11 |P(R,2).P(S,2).].| 00000950: 38 04 44 24 28 52 29 B2 44 24 28 53 29 00 6A 11 |8.D$(R).D$(S).j.| 00000960: 42 04 50 28 53 2C 31 29 B2 4B 00 77 11 4C 04 50 |B.P(S,1).K.w.L.P| 00000970: 28 53 2C 32 29 B2 4A 00 84 11 56 04 44 24 28 53 |(S,2).J...V.D$(S| 00000980: 29 B2 49 24 00 8C 11 60 04 82 20 53 00 94 11 6A |).I$...`.. S...j| 00000990: 04 82 20 52 00 9A 11 74 04 8E 00 CB 11 B0 04 9F |.. R...t........| 000009A0: 31 35 2C 38 2C 31 35 3A 9F 31 2C 38 2C 32 2C 22 |15,8,15:.1,8,2,"| 000009B0: 30 3A 49 4E 56 45 4E 54 4F 52 59 20 46 49 4C 45 |0:INVENTORY FILE| 000009C0: 2C 53 2C 57 22 3A 8D 31 35 30 30 00 D5 11 BA 04 |,S,W":.1500.....| 000009D0: 98 31 2C 20 4C 00 E4 11 C4 04 81 20 4E B2 31 A4 |.1, L...... N.1.| 000009E0: 20 4C AB 31 00 F2 11 CE 04 98 31 2C 50 28 4E 2C | L.1......1,P(N,| 000009F0: 31 29 00 FF 11 D0 04 98 31 2C 44 24 28 4E 29 00 |1)......1,D$(N).| 00000A00: 0D 12 D2 04 98 31 2C 50 28 4E 2C 32 29 00 15 12 |.....1,P(N,2)...| 00000A10: D8 04 82 20 4E 00 1D 12 E2 04 A0 20 31 00 39 12 |... N...... 1.9.| 00000A20: EC 04 99 20 22 44 49 53 4B 20 46 49 4C 45 20 43 |... "DISK FILE C| 00000A30: 4F 4D 50 4C 45 54 45 44 22 00 43 12 F6 04 89 20 |OMPLETED".C.... | 00000A40: 32 36 30 00 74 12 14 05 9F 31 35 2C 38 2C 31 35 |260.t....15,8,15| 00000A50: 3A 9F 31 2C 38 2C 32 2C 22 30 3A 49 4E 56 45 4E |:.1,8,2,"0:INVEN| 00000A60: 54 4F 52 59 20 46 49 4C 45 2C 53 2C 52 22 3A 8D |TORY FILE,S,R":.| 00000A70: 31 35 30 30 00 7D 12 1E 05 84 31 2C 4C 00 8D 12 |1500.}....1,L...| 00000A80: 28 05 81 20 4E B2 31 20 A4 20 4C AB 31 00 9B 12 |(.. N.1 . L.1...| 00000A90: 2A 05 84 31 2C 50 28 4E 2C 31 29 00 A8 12 2C 05 |*..1,P(N,1)...,.| 00000AA0: 84 31 2C 44 24 28 4E 29 00 B6 12 2E 05 84 31 2C |.1,D$(N)......1,| 00000AB0: 50 28 4E 2C 32 29 00 BD 12 32 05 82 4E 00 C5 12 |P(N,2)...2..N...| 00000AC0: 3C 05 A0 20 31 00 D0 12 46 05 89 20 31 32 36 30 |<.. 1...F.. 1260| 00000AD0: 00 EC 12 DC 05 84 31 35 2C 45 31 2C 45 24 2C 45 |......15,E1,E$,E| 00000AE0: 32 2C 45 33 3A 8B 45 31 B2 30 A7 8E 00 0E 13 E6 |2,E3:.E1.0......| 00000AF0: 05 99 22 11 11 44 49 53 4B 20 45 52 52 4F 52 21 |.."..DISK ERROR!| 00000B00: 22 3A 99 45 31 3B 45 24 3B 45 32 3B 45 33 00 2B |":.E1;E$;E2;E3.+| 00000B10: 13 F0 05 81 4A 43 B2 31 A4 34 30 30 30 3A 82 3A |....JC.1.4000:.:| 00000B20: A0 31 3A A0 31 35 3A 89 32 36 30 00 00 00 24 |.1:.15:.260...$ |
....... P(20,2),D$(20).....L.1.'....".".
G...." INVENTORY MENU.G...."
...............M.(.....2.."TO:
PRESS:...<.." SHOW A
LL ITEMS S.X.F.." ADD AN ITE
M TO LIST A...P.." DELETE AN ITEM
FROM LIST D. .Z.." REPLENISH STOCK
R.D.D.." WITHDRAW FROM STOCK
W.H.G.." PUT FILE ON DISK P
...H.." BRING FILE FROM DISK B...I
.." TERMINATE PROGRAM T...N...M
.X.. A$:. A$."" . 120.V.}.. A$...... A$.
"S" . 200...... A$."A" . 400...... A$."D
" . 600.". .. A$."R" . 800.5.... A$."W"
. 300.I.... A$."P" . 1200.].... A$."B" .
1300.N.... A$."T" . ..X.... 120...H.. L
.1 . ."NO ITEMS IN LIST":. 260...M..".".
X.R.."PART NUMBER PART DESCRIPTION QU
ANTITY";......"........... ............
.... ........"...... N.1 . L.1.B....
P(N,1);.13);D$(N);.32);P(N,2).J....
N.N...."PRESS 'M' TO RETURN TO MENU."..
.... A$: . A$."M" . 10......270...,.."TY
PE IN 3-DIGIT PART NUMBER"...6.. P.J.@..
N.1 . L.1...J.. P.P(N,1) . 353...T.. N.
..^.."NO SUCH NUMBER!":. 362.-.A.."THERE
ARE NOW";P(N,2);" IN STOCK.".P.D.."TYPE
IN QUANTITY SUBTRACTED".I.F.. Q: P(N,2)
.P(N,2).Q...H.."THERE ARE NOW";P(N,2);"
IN STOCK."...J.."ANOTHER ITEM? Y? OR N?"
.G.K.. A$:. A$."" . 363.Y.M.. A$."Y". 30
0...O.. A$."N" . 10...R.. 362......"TYPE
IN 3-DIGIT PART NUMBER.";.'.... P(L,1).
`.... "TYPE IN PART DESCRIPTION (20-CHAR
ACTER MAXIMUM)";.L.... D$(L)...... "TYPE
IN QUANTITY";...B.. P(L,2)...L.L.L.1...
V.. "ANOTHER ITEM? Y? OR N?";.U.... A$:
. A$."" . 480...... A$...... A$ ."Y" . 4
00...... A$.."N" . 470......1000...... 1
0.=.X.."TYPE IN 3-DIGIT PART NUMBER.".E.
B.. P.U.L.. N.1 . L.1.J.V.. P.P(N,1) . 6
60.R.... N......"NO SUCH NUMBER!": . 710
.....L.L.1.....P(N,1).P(L,1).....P(N,2).
P(L,2).N...D$(N).D$(L).Y.... 1000...F..
"ANOTHER ITEM? Y? OR N?";...P.. A$: . A$
."" . 720...Z.. A$.-.... A$."Y" . 600.?.
... A$."N" . 10.H....710.K. .."TYPE IN 3
-DIGIT PART NUMBER".S.*.. P...4.. N.1 .
L.1...>.. P.P(N,1) . 860. .H.. N...R.."N
O SUCH NUMBER!": . 910...\.."THERE ARE N
OW"; P(N,2);" IN STOCK."...F.."TYPE IN T
HE QUANTITY ADDED"...P.. Q.&.Z.P(N,2).P(
N,2).Q.O...."THERE ARE NOW";P(N,2);" IN
STOCK.".M...."ANOTHER ITEM? Y? OR N?"...
... A$:. A$."" . 920...... A$."Y" . 800.
..... A$."N" . 10...... 910.D.... L.3 .
1140.T.... R.1 . L.2...... S.R.1 . L.1..
.... P(R,1)..P(S,1) . 1120.....K.P(R,1).
....J.P(R,2).)...I$.D$(R).;.$.P(R,1).P(S
,1).M...P(R,2).P(S,2).].8.D$(R).D$(S).J.
B.P(S,1).K.W.L.P(S,2).J...V.D$(S).I$...`
.. S...J.. R...T...K....15,8,15:.1,8,2,"
0:INVENTORY FILE,S,W":.1500.U....1, L...
D.. N.1. L.1...N..1,P(N,1)...P..1,D$(N).
..R..1,P(N,2)...X.. N..... 1.9.... "DIS
K FILE COMPLETED".C.... 260.T....15,8,15
:.1,8,2,"0:INVENTORY FILE,S,R":.1500.}..
..1,L...(.. N.1 . L.1...*..1,P(N,1)...,.
.1,D$(N)......1,P(N,2)...2..N.E.<. 1.P.
F.. 1260......15,E1,E$,E2,E3:.E1.0......
.."..DISK ERROR!":.E1;E$;E2;E3.+....JC.1
.4000:.: 1: 15:.260...$
> CLICK IMAGE PREVIEW FOR FULL MODAL