> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 0A 00 8F 20 43 4F 4D 50 55 54 45 52 |....... COMPUTER|
00000010: 20 49 4E 56 45 4E 54 4F 52 59 00 44 08 14 00 43 | INVENTORY.D...C|
00000020: 24 28 31 29 B2 22 43 4F 4D 4D 4F 44 4F 52 45 22 |$(1)."COMMODORE"|
00000030: 3A 43 24 28 32 29 B2 22 52 41 44 49 4F 20 53 48 |:C$(2)."RADIO SH|
00000040: 41 43 4B 22 00 62 08 1E 00 43 24 28 33 29 B2 22 |ACK".b...C$(3)."|
00000050: 54 45 58 41 53 20 49 4E 53 54 52 55 4D 45 4E 54 |TEXAS INSTRUMENT|
00000060: 53 22 00 9D 08 28 00 44 24 28 31 29 B2 22 43 4F |S"...(.D$(1)."CO|
00000070: 4D 50 55 54 45 52 53 22 3A 44 24 28 32 29 B2 22 |MPUTERS":D$(2)."|
00000080: 50 45 52 49 50 48 45 52 41 4C 53 22 3A 44 24 28 |PERIPHERALS":D$(|
00000090: 33 29 B2 22 53 4F 46 54 57 41 52 45 22 00 A7 08 |3)."SOFTWARE"...|
000000A0: 32 00 99 20 22 93 22 00 C3 08 3C 00 99 20 22 20 |2.. "."...<.. " |
000000B0: 20 20 20 2A 2A 20 49 4E 56 45 4E 54 4F 52 59 20 | ** INVENTORY |
000000C0: 2A 2A 22 00 D6 08 46 00 99 20 22 11 11 43 48 4F |**"...F.. "..CHO|
000000D0: 4F 53 45 3A 11 22 00 F0 08 50 00 81 20 49 B2 31 |OSE:."...P.. I.1|
000000E0: 20 A4 20 33 3A 99 20 49 3B 43 24 28 49 29 3A 82 | . 3:. I;C$(I):.|
000000F0: 00 06 09 5A 00 99 20 22 20 30 20 45 56 45 52 59 |...Z.. " 0 EVERY|
00000100: 54 48 49 4E 47 22 00 27 09 64 00 A1 20 41 24 3A |THING".'.d.. A$:|
00000110: 8B 20 41 24 B3 22 30 22 20 B0 20 41 24 B1 22 33 |. A$."0" . A$."3|
00000120: 22 20 A7 20 31 30 30 00 34 09 6E 00 43 43 B2 C5 |" . 100.4.n.CC..|
00000130: 28 41 24 29 00 47 09 78 00 99 20 22 11 11 43 48 |(A$).G.x.. "..CH|
00000140: 4F 4F 53 45 3A 11 22 00 61 09 82 00 81 20 49 B2 |OOSE:.".a.... I.|
00000150: 31 20 A4 20 33 3A 99 20 49 3B 44 24 28 49 29 3A |1 . 3:. I;D$(I):|
00000160: 82 00 7F 09 8C 00 99 20 22 20 30 20 45 56 45 52 |....... " 0 EVER|
00000170: 59 54 48 49 4E 47 22 3A 97 20 31 39 38 2C 30 00 |YTHING":. 198,0.|
00000180: A0 09 96 00 A1 20 41 24 3A 8B 20 41 24 B3 22 30 |..... A$:. A$."0|
00000190: 22 20 B0 20 41 24 B1 22 33 22 20 A7 20 31 35 30 |" . A$."3" . 150|
000001A0: 00 AD 09 A0 00 44 44 B2 C5 28 41 24 29 00 B7 09 |.....DD..(A$)...|
000001B0: AA 00 99 20 22 93 22 00 C0 09 B4 00 54 54 B2 30 |... ".".....TT.0|
000001C0: 00 D8 09 BE 00 99 20 43 24 28 43 43 29 2C 44 24 |...... C$(CC),D$|
000001D0: 28 44 44 29 3B 22 11 22 00 DE 09 C8 00 8C 00 FC |(DD);"."........|
000001E0: 09 D2 00 87 20 43 2C 44 2C 49 54 45 4D 24 2C 53 |.... C,D,ITEM$,S|
000001F0: 4E 24 2C 44 41 54 45 24 2C 43 53 54 00 0D 0A DC |N$,DATE$,CST....|
00000200: 00 8B 20 43 B2 31 30 20 A7 20 33 31 30 00 1E 0A |.. C.10 . 310...|
00000210: E6 00 8B 20 43 43 B2 30 20 A7 20 32 35 30 00 30 |... CC.0 . 250.0|
00000220: 0A F0 00 8B 20 43 43 B3 B1 43 20 A7 20 32 31 30 |.... CC..C . 210|
00000230: 00 41 0A FA 00 8B 20 44 44 B2 30 20 A7 20 32 37 |.A.... DD.0 . 27|
00000240: 30 00 53 0A 04 01 8B 20 44 44 B3 B1 44 20 A7 20 |0.S.... DD..D . |
00000250: 32 31 30 00 61 0A 0E 01 43 24 B2 C4 28 43 53 54 |210.a...C$..(CST|
00000260: 29 00 88 0A 18 01 99 20 49 54 45 4D 24 2C 53 4E |)...... ITEM$,SN|
00000270: 24 2C 44 41 54 45 24 3B A3 32 30 AB C3 28 43 24 |$,DATE$;.20..(C$|
00000280: 29 29 3B 43 24 22 11 22 00 96 0A 22 01 54 54 B2 |));C$"."...".TT.|
00000290: 54 54 AA 43 53 54 00 A0 0A 2C 01 89 20 32 31 30 |TT.CST...,.. 210|
000002A0: 00 AD 0A 36 01 54 24 B2 C4 28 54 54 29 00 CA 0A |...6.T$..(TT)...|
000002B0: 40 01 99 20 22 11 54 4F 54 41 4C 22 3B A3 32 30 |@.. ".TOTAL";.20|
000002C0: AB C3 28 54 24 29 29 3B 54 24 00 F0 0A 4A 01 99 |..(T$));T$...J..|
000002D0: 20 22 11 44 49 46 46 45 52 45 4E 54 20 43 41 54 | ".DIFFERENT CAT|
000002E0: 45 47 4F 52 59 3F 20 20 20 28 59 2F 4E 29 22 3B |EGORY? (Y/N)";|
000002F0: 00 07 0B 54 01 A1 20 41 24 3A 8B 20 41 24 B2 22 |...T.. A$:. A$."|
00000300: 59 22 20 A7 20 35 30 00 1A 0B 5E 01 8B 20 41 24 |Y" . 50...^.. A$|
00000310: B2 22 4E 22 20 A7 20 35 35 30 00 24 0B 68 01 89 |."N" . 550.$.h..|
00000320: 20 33 34 30 00 3A 0B 72 01 8F 20 49 4E 56 45 4E | 340.:.r.. INVEN|
00000330: 54 4F 52 59 20 49 54 45 4D 53 00 5C 0B 7C 01 83 |TORY ITEMS.\.|..|
00000340: 20 31 2C 31 2C 56 49 43 2D 32 30 2C 56 30 32 39 | 1,1,VIC-20,V029|
00000350: 39 37 32 2C 31 39 38 32 2C 32 32 35 00 7F 0B 86 |972,1982,225....|
00000360: 01 83 20 31 2C 32 2C 44 41 54 41 53 45 54 54 45 |.. 1,2,DATASETTE|
00000370: 2C 32 38 32 37 35 34 2C 31 39 38 32 2C 37 30 00 |,282754,1982,70.|
00000380: 99 0B 90 01 83 20 31 2C 33 2C 56 49 43 4D 4F 4E |..... 1,3,VICMON|
00000390: 2C 2C 31 39 38 32 2C 36 30 00 BB 0B 9A 01 83 20 |,,1982,60...... |
000003A0: 31 2C 31 2C 43 2D 36 34 2C 50 30 30 31 34 34 36 |1,1,C-64,P001446|
000003B0: 30 37 2C 31 39 38 33 2C 33 34 35 00 E2 0B A4 01 |07,1983,345.....|
000003C0: 83 20 31 2C 32 2C 31 35 34 31 20 44 52 49 56 45 |. 1,2,1541 DRIVE|
000003D0: 2C 4B 30 31 37 37 39 35 38 2C 31 39 38 34 2C 32 |,K0177958,1984,2|
000003E0: 35 30 00 0A 0C AE 01 83 20 31 2C 32 2C 31 35 32 |50...... 1,2,152|
000003F0: 35 20 50 52 49 4E 54 45 52 2C 35 30 31 36 32 32 |5 PRINTER,501622|
00000400: 33 2C 31 39 38 34 2C 32 35 30 00 27 0C B8 01 83 |3,1984,250.'....|
00000410: 20 31 2C 33 2C 52 41 44 41 52 20 52 41 54 2C 2C | 1,3,RADAR RAT,,|
00000420: 31 39 38 33 2C 33 30 00 4C 0C C2 01 83 20 32 2C |1983,30.L.... 2,|
00000430: 31 2C 31 36 4B 20 43 4F 4C 4F 52 2C 30 30 32 34 |1,16K COLOR,0024|
00000440: 30 32 33 2C 31 39 38 32 2C 36 32 30 00 68 0C CC |023,1982,620.h..|
00000450: 01 83 20 32 2C 32 2C 52 45 43 4F 52 44 45 52 2C |.. 2,2,RECORDER,|
00000460: 2C 31 39 38 32 2C 35 36 00 86 0C D6 01 83 20 32 |,1982,56...... 2|
00000470: 2C 33 2C 43 4F 4C 4F 52 20 4C 4F 47 4F 2C 2C 31 |,3,COLOR LOGO,,1|
00000480: 39 38 33 2C 35 35 00 A2 0C E0 01 83 20 32 2C 33 |983,55...... 2,3|
00000490: 2C 56 49 44 45 4F 54 45 58 2C 2C 31 39 38 33 2C |,VIDEOTEX,,1983,|
000004A0: 34 30 00 C2 0C EA 01 83 20 33 2C 31 2C 54 49 2D |40...... 3,1,TI-|
000004B0: 39 2F 34 2C 36 31 32 30 35 2C 31 39 38 30 2C 36 |9/4,61205,1980,6|
000004C0: 33 35 00 E7 0C F4 01 83 20 33 2C 31 2C 54 49 2D |35...... 3,1,TI-|
000004D0: 39 39 2F 34 41 2C 34 30 31 30 32 35 34 35 2C 31 |99/4A,40102545,1|
000004E0: 39 38 32 2C 34 32 35 00 0C 0D FE 01 83 20 33 2C |982,425...... 3,|
000004F0: 32 2C 54 49 20 52 45 43 4F 52 44 45 52 2C 30 32 |2,TI RECORDER,02|
00000500: 35 34 32 36 2C 31 39 38 33 2C 36 30 00 2D 0D 08 |5426,1983,60.-..|
00000510: 02 83 20 33 2C 33 2C 41 54 54 41 43 4B 2C 35 31 |.. 3,3,ATTACK,51|
00000520: 35 39 39 39 32 2C 31 39 38 33 2C 33 35 00 50 0D |59992,1983,35.P.|
00000530: 12 02 83 20 33 2C 33 2C 4D 55 4E 43 48 4D 41 4E |... 3,3,MUNCHMAN|
00000540: 2C 39 39 37 36 32 37 33 2C 31 39 38 32 2C 33 35 |,9976273,1982,35|
00000550: 00 60 0D 1C 02 83 20 31 30 2C 30 2C 2C 2C 2C 30 |.`.... 10,0,,,,0|
00000560: 00 66 0D 26 02 80 00 00 00 |.f.&..... |
....... COMPUTER INVENTORY.D...C$(1)."CO
MMODORE":C$(2)."RADIO SHACK".B...C$(3)."
TEXAS INSTRUMENTS"...(.D$(1)."COMPUTERS"
:D$(2)."PERIPHERALS":D$(3)."SOFTWARE"...
2.. ".".C.<.. " ** INVENTORY **".V.F.
. "..CHOOSE:."...P.. I.1 . 3:. I;C$(I):.
...Z.. " 0 EVERYTHING".'.D.. A$:. A$."0"
. A$."3" . 100.4.N.CC.E(A$).G.X.. "..CH
OOSE:.".A.... I.1 . 3:. I;D$(I):......
" 0 EVERYTHING":. 198,0. .... A$:. A$."0
" . A$."3" . 150... .DD.E(A$)...... ".".
....TT.0.X.... C$(CC),D$(DD);"."...H....
.R.. C,D,ITEM$,SN$,DATE$,CST...... C.10
. 310...... CC.0 . 250.0.... CC..C . 210
.A.... DD.0 . 270.S.... DD..D . 210.A...
C$.D(CST)...... ITEM$,SN$,DATE$;.20.C(C$
));C$"."...".TT.TT.CST. .,.. 210...6.T$.
D(TT).J.@.. ".TOTAL";.20.C(T$));T$...J..
".DIFFERENT CATEGORY? (Y/N)";...T.. A
$:. A$."Y" . 50...^.. A$."N" . 550.$.H..
340.:.R.. INVENTORY ITEMS.\.|.. 1,1,VIC
-20,V029972,1982,225..... 1,2,DATASETTE
,282754,1982,70...... 1,3,VICMON,,1982,6
0...... 1,1,C-64,P00144607,1983,345.....
. 1,2,1541 DRIVE,K0177958,1984,250......
1,2,1525 PRINTER,5016223,1984,250.'....
1,3,RADAR RAT,,1983,30.L.B.. 2,1,16K CO
LOR,0024023,1982,620.H.L.. 2,2,RECORDER,
,1982,56...V.. 2,3,COLOR LOGO,,1983,55..
.... 2,3,VIDEOTEX,,1983,40.B.... 3,1,TI-
9/4,61205,1980,635...... 3,1,TI-99/4A,40
102545,1982,425...... 3,2,TI RECORDER,02
5426,1983,60.-.... 3,3,ATTACK,5159992,19
83,35.P.... 3,3,MUNCHMAN,9976273,1982,35
.`.... 10,0,,,,0.F.&.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL