home *** CD-ROM | disk | FTP | other *** search
- INVENTORY PROGRAM FOR PRECIOUS MOMENTS
-
- This program is used to keep a up-to-date inventory of
- the ENESCO PRECIOUS MOMENTS COLLECTION. In case you are not
- sure what that is, they are ceramic figurines, plates and
- other items, something like HUMMELS. My sister is quite a
- avid collector and needed this to create reports for
- insurance purposes and to separate the items that were her
- personal collection and the ones she had for trade or
- selling. Reports can be generated in many different ways,
- such as by type, item#, member year, marked symbol and
- others. It will also give a report on how much you spent in
- any given year and how much your collection has appreciated,
- if you keep up the files when a piece increases in value. The
- program has a automatic sort, after you enter new items and
- answer the prompt that [N]o more files are to be written.
- This way your key file is always up to date. It also has a
- menu selection to -SORT MAIN FILES- that does the same
- thing. The reason for this is when your are in data entry and
- for some reason you decide to stop, you can enter a [Q] at
- any line to quit, it's a quick way out. But if you use this
- option the files are not automatically sorted, so before you
- do your reports it's a good idea to -SORT MAIN FILES-. The
- sort works fairly fast in basic, about 2 min for 300 files,
- but the compiled version only takes a few seconds. It sorts
- on the first field, the item number, using a ascending sort.
- All reports give you the choice of displaying on the screen
- or a hard copy, and all screen displays on the screen can be
- paused by hitting any key. To restart the display just hit
- any key again or hit [Q] to quit and return to the main menu.
- The search routines allow you to search in any one of 7
- fields and call personal, trade or all files.
-
- All basic programs are saved in the ascii format. The
- program is written in sanyo color basic [PM-COLOR.BAS] and
- basica [PC-PM.BAS] so everyone with MS-DOS and any basic
- should be able to use it. The program [PM.EXE] is a compiled
- version of basica. It has been tested on IBM's, ZENITH, TANDY
- and AT&T 6300.
-
- A note here to you programmers. In line 100 the data
- statements are the entry prompts and can be changed to suit
- your personal needs if you dont care for mine. Just remember
- not to make them any longer then the longest one I have used
- or your display may overwrite them, and dont change the
- number of data statements or the read loops will give you an
- error.
-
- READY TO START
-
- First off you are asked if you have a color monitor
- (y/n). If you try color on a monochrome you'll lose prompts
- and information displayed in red. The PC versions do not ask
- this question.
-
- Next you are instructed to set the cap's lock, please
- do this, the prompts require a upper case input. Then enter
- the drive your data disk will be in, such as `B' or `D'. You
- can store up to 2000 files on a blank 360K disk, but if you
- have a single drive and use `A' as the data drive the ammount
- of files will depend on how much space you have left on the
- disk in drive `A'.
-
-
- Next is the main menu with your choices;
-
- (1)=ADD NEW FILE
- (2)=SEARCH AND HARDCOPYS
- (3)=INSURANCE REPORT
- (4)=REVIEW FILES
- (S)=SORT MAIN FILES
- (Q)=END PROGRAM
-
- (1) ADD NEW FILES Takes you to the data entry display
- where you have 12 entrys to make. You can enter a [Q] +
- return at any line to quit data entry and go back to the
- main menu. If you make a mistake and have hit a return dont
- worry, at the end you are asked if this is correct. If you
- answer [N] you will go into the edit routine and be asked for
- the line number to change. Enter the line number and a
- return, the cursor will go to that field and let you re-enter
- that data. After a return it will ask you again for the line
- number to change or a [Q] to quit the edit routine. If you
- have made other mistakes simply enter the number and make the
- change, when your thru with the mistakes enter a [Q] and it
- will again ask you if the data is correct (Y or N). Enter a
- [Y] and the file is written to the data disk, a [N] takes you
- back to editing and a [Q] takes you back to the main menu
- without a file write or an automatic sort. After the file is
- written you will be asked if you want to write another file,
- a [Y] takes you back to data entry for the next record, a [N]
- takes you thru the auto sort and then back to the main menu.
- Your last file used will be automatically updated each time
- you make an entry.
-
- (2) SEARCH AND HARDCOPYS Takes you to a SEARCH MENU
- where you can searh using one of seven fields. You can choose
- a hardcopy [Y or N], and select if you want personal files,
- trade files or all files. During the search you can hit any
- key to pause the display to read a file then any key to
- continue or a [Q] to quit and return to the search menu. If
- you continue to the end of the files you will get a report on
- it's cost, it's present value, the dollar amount of
- appreciation and the percent of appreciation. Let me say that
- all reports give you this display and pause functions. It
- also displays the number of pieces found during the search.
- Print all files will give you a sorted listing of all
- the data in all the files and also the file number it is
- stored in for use with the CHANGE FILE routine.
-
- (3) INSURANCE REPORT Gives you a report to file with
- your insurance company to declare the value of your
- collection. A prompt will remind you to check your printer
- then it will produce a hardcopy automatically, so make sure
- your printer is ready. It will print and total the value
- factor only because in collections this is usually a higher
- replacement price. It will not print what you paid for it,
- thats usually lower. Be sure you enter a price in the value
- field when you do data entry or you get a zero value here.
- Using CHANGE FILE you can update this value as prices
- increase and keep your collection current.
-
- (4) CHANGE EXISTING FILE Will let you change any of
- the data in any file. It asks for the file number to change,
- you can get this from any of the reports, just enter the
- number of the file and a return. The edit routine works the
- same as in data entry by asking for the line number to change
- or a [Q] to quit edit. Then it asks if it's correct or not, a
- [Y] writes the file, a [N] goes back to edit, and a [Q] quits
- with no file change or write to disk.
-
- (5) REVIEW FILES Simpley pages thru the files starting
- at file number 1 to the end of files, not sorted. You have
- the pause and continue or quit feature here too. The compiled
- version runs quite fast here so be prepared to hit any key
- fast. If you are running the basic version, at line number
- 5180 you can change the timing loop to make it faster or
- slower. It's set at 1 to 1200 now.
-
- (S) SORT MAIN FILES This runs the sort on the main
- files in case you feel you may have messed up on the [Q]
- routine in the data entry section. Since all the reports use
- the KEY FILE the sort creates, it will not show files if the
- sort has not functioned after you have entered several files.
- Yes, the files are their if you entered them so don't panic,
- just use this routine and they will be displayed from then
- on. If you want to be sure before you sort that the missing
- files are their, the REVIEW FILES does not use the KEY FILE
- so you use it to check it out.
-
- (Q) END PROGRAM Don't need to say much about this. Try
- it. --NOTE-- If you are making program changes be sure to do
- a -save- before you run the program. When the program ends it
- goes back to the system so any batch files in operation can
- be finished. If you do a -run- before -save- and then a [Q]
- to quit you'll lose your changes. Thats experience talking.
-
- I think everything is covered, but if you need help
- feel free to contact me and I'll do my best to help you out.
- At first you should enter test data for 20 or 30 files to get
- hang of it, and to try the various functions. When your used
- to the program start fresh on the real data.
-
- ED KRUSE
- 4122 S.W. 102 COURT
- MIAMI, FLORIDA 33165
- 305-221-3786