SDN¹ Plus/SDN1_.cdr/sdn/other/hemshare.sdn/HEMDEMO.PRG

Text File | 1990-01-16 | 18KB | 509 lines

*...............................................................................
*                    (c) Copyright 1989 Compu-Needs, Inc.
*                      4411 Bee Ridge Road, Suite 299
*                         Sarasota, Florida 34233
*                           All Rights Reserved
*...............................................................................
* Author       : W.Howard Powell
* Program      : The Home Entertainment Manager
* File name    : HEMDEMO.PRG
* Date written : 12/30/88
* Notes        : shareware main menu program, shows many data screens and
*                prints a order form.

CLEAR ALL
SET TALK OFF
SET ESCAPE OFF
SET BELL OFF
SET SAFETY OFF
SET SCOREBOARD OFF
SET CURSOR OFF
*shareware info screens
SET COLOR TO GR+/RB
CLEAR SCREEN
@ 1,2 SAY '  Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes'
SET COLOR TO N/RB
@ 2,2 SAY 's \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Records \ Casset'
SET COLOR TO B/RB
@ 3,2 SAY 'scs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Records \ Cass'
SET COLOR TO G/RB
@ 4,2 SAY 'Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Records \ Ca'
SET COLOR TO BG/RB
@ 5,2 SAY '  Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Records  '
SET COLOR TO R/RB
@ 6,2 SAY 'act Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Records'
SET COLOR TO GR/RB
@ 7,2 SAY 'mpact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Record'
SET COLOR TO W/RB
@ 8,2 SAY 'Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Reco'
SET COLOR TO N+/RB
@ 9,2 SAY '  Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies \ Re'
SET COLOR TO B+/RB
@ 10,2 SAY 's \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies  '
SET COLOR TO BG+/RB
@ 11,2 SAY 'ttes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movies'
SET COLOR TO R+/RB
@ 12,2 SAY 'settes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Movie'
SET COLOR TO GR+/RB
@ 13,2 SAY 'assettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ Mov'
SET COLOR TO  W+/RB
@ 14,2 SAY ' Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs \ M'
SET COLOR TO N/RB
@ 15,2 SAY ' \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs .'
SET COLOR TO B/RB
@ 16,2 SAY 'ds \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Discs'
SET COLOR TO G/RB
@ 17,2 SAY 'ords \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact Dis'
SET COLOR TO BG/RB
@ 18,2 SAY 'ecords \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact D'
SET COLOR TO R/RB
@ 19,2 SAY ' Records \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compact'
SET COLOR TO  GR/RB
@ 20,2 SAY ' \ Records \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Compa'
SET COLOR TO W/RB
@ 21,2 SAY 'es \ Records \ Cassettes \ Compact Discs \ Movies \ Records \ Cassettes \ Com'
SET COLOR TO GR+/RB
@ 0,0 TO 22,79 DOUBLE
DO MOVE
STORE CHR(13) TO mn1
STORE CHR(14) TO mn2
STORE CHR(15) TO mm1
STORE SPACE(30) TO msp
SET COLOR TO B/B
CLEAR
SET COLOR TO GR+/B
@ 1,32 SAY 'W E L C O M E'
@ 3,37 SAY 'T O'
@ 5,36 SAY 'T H E'
SET COLOR TO N/N
@  8,25 SAY MSP
@  9,25 SAY MSP
@ 10,25 SAY MSP
@ 11,25 SAY MSP
@ 12,25 SAY MSP
@ 13,25 SAY MSP
@ 14,25 SAY MSP
SET COLOR TO R/R
@  7,24 SAY MSP
@  8,24 SAY MSP
@  9,24 SAY MSP
@ 10,24 SAY MSP
@ 11,24 SAY MSP
@ 12,24 SAY MSP
@ 13,24 SAY MSP
SET COLOR TO GR+/R
@ 7,24 TO 13,53 DOUBLE
@  8,36 SAY 'H O M E'
@ 10,28 SAY 'E N T E R T A I M E N T'
@ 12,32 SAY ' M A N A G E R'
@ 22, 0 TO 24,79 DOUBLE
@ 23,1 SAY SPACE(78)
DO MOVE
SET COLOR TO GR+/B
@ 16,31 SAY 'Brought To You By'
@ 18,33 SAY 'Compu-Needs'
@ 20,31 SAY 'Sarasota, Florida'
SET COLOR TO BG+/B
@ 23,1 SAY SPACE(78)
DO MOVE
SET COLOR TO B/B
CLEAR
SET COLOR TO N/N
@  2,25 SAY MSP
@  3,25 SAY MSP
@  4,25 SAY MSP
@  5,25 SAY MSP
@  6,25 SAY MSP
@  7,25 SAY MSP
@  8,25 SAY MSP
SET COLOR TO R/R
@  1,24 SAY MSP
@  2,24 SAY MSP
@  3,24 SAY MSP
@  4,24 SAY MSP
@  5,24 SAY MSP
@  6,24 SAY MSP
@  7,24 SAY MSP
SET COLOR TO GR+/R
@ 1,24 TO  7,53 DOUBLE
@  2,36 SAY 'H O M E'
@  4,28 SAY 'E N T E R T A I M E N T'
@  6,32 SAY ' M A N A G E R'
SET COLOR TO GR+/B
@ 9,0 CLEAR
TEXT
          The Home Entertainment Manager is a shareware software
          product that will organize and maintain records for a home
          music or video library.  It will track four different types
          of entertainment mediums; video movies, records, cassettes
          and compact discs.  This shareware version is being
          distributed for demonstration purposes, but all of the main
          features of the program have been implemented in its
          release.  Any data files that you create will be used by the
          registered version, no data will need to be re-entered and the
          work you do on this version will not have to be duplicated.
ENDTEXT
DO MOVE
@ 9,0 CLEAR
TEXT
         Movies
                      Records
                                    Cassettes
                                                     Compact Discs

          They all entertain, and they all can be maintained with the
          Home Entertainment Manager from Compu-Needs.  All of your
          titles for each type of entertainment medium can be tracked
          from the main menu of the Home Entertainment Manager.  You
          can generate your own catalog for each type within the
          program and have the listings sorted by many different
          methods.
ENDTEXT
DO MOVE
@ 9,0 CLEAR
TEXT
          The Home Entertainment Manager will help you organize all of
          your home entertainment needs with one concise program.  If
          you collect only one type of the entertainment mediums
          listed, you can still use the Home Entertainment Manager.
          It is flexible enough to not require entries for each type.

          All collections have several items in common; some type of
          reference system to find each item, a title for the item,
          and a category to catalog the item.   The Home Entertainment
          Manager has all these features and they all relate to your
          home entertainment library.
ENDTEXT
DO MOVE
@ 9,0 CLEAR
TEXT
         Even with all these features, the Home Entertainment Manager
         is not for everyone.  If your entertainment library contains
         a small collection of titles, the Home Entertainment Manager
         may not be that helpful.  But, if you have a large number of
         titles --or hope to have-- you will see the benefits of the
         Home Entertainment Manager after only a few minutes of use.

         The data required for each title entry is as follows:
               Type of entertainment medium -> by menu option,
                         A reference number -> user determined,
                                  The title -> user determined,
                         Category for title -> by menu option,
            Artists name (music types only) -> user determined.
ENDTEXT
DO MOVE
@ 9,0 CLEAR
TEXT
         The Home Entertainment Manager works entirely from menu
         selections.  Menu options are selected by pressing one key
         out of a range of valid keys.  Pressing ENTER is not required
         for menu selections.  User determined data for each
         reference number, title and artists are free form --upper and
         lower case letters, numbers or symbols-- which allows total
         control of data entry.  The category is selected by menu
         option from a list of pre-defined categories.
ENDTEXT
DO MOVE
@ 9,0 CLEAR
TEXT
         The free form entry of the reference number makes the Home
         Entertainment Manager a very useful tool for any type of
         existing music or video collection.  The reference number
         allows six characters to be entered in any form determined
         by the user.  An existing library will not have to be
         renumbered to accommodate strict reference numbering
         required by the program.  If a six character reference
         number is not sufficient for your needs please contact us for
         a customized version of the Home Entertainment Manager.
ENDTEXT
DO MOVE
@ 9,0 CLEAR
TEXT

         Please use the Home Entertainment Manager to its fullest
         extent  If you are pleased with its operation you may obtain
         the registered version by completing the registration form
         and mailing it to Compu-Needs in Sarasota Florida.  The
         registered version does not contain these information
         screens and entitles you to any updates to the program.
ENDTEXT
STORE ' ' TO m
@ 19,10 SAY 'Do you want to print the registration form ? (Y/N)'
@ 20,32 SAY 'Press Y or N [ ]'
@ 20,46 GET m VALID ( m $ 'YyNn')
READ
IF UPPER(m) = 'Y'
   SET DEVICE TO PRINT
   @ 2,17 SAY 'R E G I S T R A T I O N     F O R M'
   @ 6,6 SAY 'Name:_____________________________________________________'
   @ 8,6 SAY 'Address:__________________________________________________'
   @ 10,6 SAY 'City, State, Zip :________________________________________'
   @ 12,6 SAY 'Home Phone:_______________________________________________'
   @ 16,13 SAY 'I would like _________ copies of the HOME'
   @ 18,13 SAY 'ENTERTAINMENT MANAGER. Enclosed please find'
   @ 20,13 SAY '$24.95 plus 6% sales tax, if ordering in Floida,'
   @ 22,13 SAY 'per registered version.'
   @ 24,13 SAY '3 1/2" Format ______  or  5 1/4" Format ______'
   @ 27,6 SAY 'We also offer minor programming changes for a small fee.'
   @ 28,6 SAY 'This service is for registered users only.  If you have'
   @ 29,6 SAY 'a particular program you need to have written, please'
   @ 30,6 SAY 'send us a line describing your needs.'
   @ 32,7 SAY 'Comments:_______________________________________________'
   @ 34,16 SAY '_______________________________________________'
   @ 36,16 SAY '_______________________________________________'
   @ 40,7 SAY 'Thank you,'
   @ 42,7 SAY 'Rick L. Smith, pres.'
   @ 46,19 SAY 'C O M P U - N E E D S, I n c.'
   @ 48,18 SAY  '4411 Bee Ridge Road, Suite # 299'
   @ 50,22 SAY 'Sarasota, Florida  34233'
   @ 52,23 SAY 'Phone: [phone]'
   EJECT
   SET DEVICE TO SCREEN
ENDIF
DO MOVE

* check for index files
IF !FILE('HEMIA.NTX') .OR. !FILE('HEMIC.NTX') .OR. !FILE('HEMIR.NTX') .OR. !FILE('HEMIT.NTX')
   DO RENTX  && rebuild indexes
ENDIF
SET KEY 28 TO HELP  && enable F1 key

STORE CHR(27)+' '+' '+CHR(26) TO mcur_keys
STORE CHR(17)+CHR(205)+CHR(190) TO menter
STORE 'Type information and end each block by pressing ENTER ' TO mess1
STORE CHR(201) + CHR(205) + CHR(16) TO mbra  && big right arrow
STORE CHR(17) + CHR(205) + CHR(187) TO mbla  && big left arrow
STORE CHR(205) TO mconn  && horizontal line
STORE CHR(200) TO mright  && right bend
STORE CHR(188) TO mleft  && left bend
STORE CHR(201) TO mdown  && down turn
STORE 'A-Adult          B-Adventure      C-Animated       '+;
'D-Biblical       '+'E-Childrens      '+'F-Comedy         '+;
'G-Disney         '+'H-Documentary    '+'I-Drama          '+;
'J-Eductional     '+'K-Epic           '+'L-Fantasy        ' TO mvideo1
STORE 'M-Horror         '+'N-Musical        '+'O-Mystery        '+;
'P-Romance        '+'Q-Science Fiction'+'R-Self Help      '+;
'S-Western        ' TO mvideo2
STORE 'A-Big Band       '+'B-Blue Grass     '+'C-Classical      '+;
'D-Country        '+'E-Folk           '+'F-Golden Oldies  '+;
'G-Hard Rock      '+'H-Jazz           '+'I-Opera          '+;
'J-Rock & Roll    '+'K-Rhythm & Blues '+'L-Spiritual      ' TO maudio
STORE 'BG+/B,B/W,B' TO mcnormal    && normal color
STORE 'GR+/B,B/W,B' TO mcinverse   && inverse color
STORE 'G+/B,B/W,B' TO mchelp       && help color
STORE 'B/W,W/B,B' TO mcblock       && inverse block color
STORE 'R' TO mcwarn                && warning message color
STORE 'N+/G,B/W,B' TO mcview        && view help screen colors
STORE 'Unregistered Version' TO lname
STORE .T. TO helpflag
SET COLOR TO &mcnormal
CLEAR SCREEN
SET CURSOR ON
@  0, 0 TO  5,79 DOUBLE
@  1,(34-(LEN(lname)/2)) SAY lname + ' of the'
@  2,24 SAY 'Home Entertainment Manager'
@  4, 3 SAY CDOW(DATE()) + ', ' + CMONTH(DATE())+ ' ' +;
   LTRIM(STR(DAY(DATE()),2))+ ', ' +  STR(YEAR(DATE()),4)
@  4,51 SAY 'Screen help prompts are'
* select correct helpflag
IF helpflag
   @  4,75 SAY 'on. '
ELSE
   @  4,75 SAY 'off.'
ENDIF
DO WHILE .T.
   SET COLOR TO &mcinverse
   @  6, 0 CLEAR
   @  8,26 SAY 'A'
   @ 10,26 SAY 'C'
   @ 12,26 SAY 'D'
   @ 14,26 SAY 'V'
   @ 16,26 SAY 'T'
   @ 18,26 SAY 'Q'
   @ 20,29 SAY 'A  C  D  V  T     Q'
   SET COLOR TO &mcnormal
   @  8,27 SAY 'dd new titles.'
   @ 10,27 SAY 'hange/delete existing titles.'
   @ 12,27 SAY 'isplay title list.'
   @ 14,27 SAY 'iew helpful information.'
   @ 16,27 SAY 'oggle screen help prompts.'
   @ 18,27 SAY 'uit.'
   @ 20,23 SAY 'Press'
   @ 20,30 SAY ','
   @ 20,33 SAY ','
   @ 20,36 SAY ','
   @ 20,39 SAY ','
   @ 20,42 SAY ','
   @ 20,44 SAY 'or'
   @ 20,49 SAY '[ ]'
   IF helpflag
      SET COLOR TO &mchelp
      @ 22,23 SAY 'Choose one of the above program options by pressing'
      @ 23,23 SAY 'the first letter of the option.  The function will'
      @ 24,23 SAY 'start automatically.'
      @ 20,20 SAY mbra
      @ 21,20 TO 22,20 DOUBLE
      @ 22,20 SAY mright
      @ 22,21 SAY mconn
      SET COLOR TO &mcnormal
   ENDIF
   STORE ' ' TO msel
   SET COLOR TO &mcread
   @ 20,50 GET msel PICT "!" VALID( msel $ "ACDVTQacdvtq")
   READ
   SET COLOR TO &mcnormal
   STORE UPPER(msel) TO mopt

   DO CASE
     CASE mopt ='A'
        DO GETTYPE WITH 'add'
        STORE UPPER(msel) TO mtype
        DO AHEM
     CASE mopt='C'
        DO GETTYPE WITH 'change'
        STORE UPPER(msel) TO mtype
        DO CHEM
     CASE mopt='D'
        STORE .T. TO mscreen
        @ 6, 0 CLEAR
        @ 12,21 SAY 'Do you want screen or printer output ?'
        @ 14,31 SAY 'Press S or P [ ]'
        SET COLOR TO &mcinverse
        @ 12,33 SAY 'S'
        @ 12,43 SAY 'P'
        @ 14,37 SAY 'S'
        @ 14,42 SAY 'P'
        STORE " " TO msel
        SET COLOR TO &mcread
        @ 14,45 GET msel PICT "!" VALID( msel $ "SPsp")
        READ
        STORE UPPER(msel) TO mprt
        SET COLOR TO &mcnormal
        DO GETTYPE WITH 'display'
        STORE UPPER(msel) TO mtype
        IF mprt = 'S'
           DO DHEM
        ELSE
           DO PHEM
        ENDIF
     CASE mopt='V'
        DO VHEM
     CASE mopt='T'
        IF helpflag
          helpflag = .F.
          @  4,75 SAY 'off.'
        ELSE
          helpflag = .T.
          @  4,75 SAY 'on. '
        ENDIF
     CASE mopt='Q'
        CLOSE DATABASES
        SET TALK ON
        SET ESCAPE ON
        SET BELL ON
        SET SAFETY ON
        CLEAR ALL
        CLEAR SCREEN
        RETURN
   ENDCASE
ENDDO while .t.
********************************* >> procedures << *******************

PROCEDURE GETTYPE
PARAMETERS mlabel
* determines type of media to use

STORE UPPER(msel) TO mopt
@  6, 0 CLEAR
@  8,25 SAY 'Entertainment types to '+ mlabel + '.'
SET COLOR TO &mcinverse
@ 10,31 SAY 'C'
@ 12,39 SAY 'D'
@ 14,31 SAY 'R'
@ 16,31 SAY 'V'
@ 19,32 SAY 'C  D  R     V'
SET COLOR TO &mcnormal
@ 10,32 SAY 'assettes'
@ 12,31 SAY 'Compact'
@ 12,40 SAY 'iscs'
@ 14,32 SAY 'ecords'
@ 16,32 SAY 'ideo Cassettes'
@ 19,26 SAY 'Press'
@ 19,33 SAY ','
@ 19,36 SAY ','
@ 19,39 SAY ','
@ 19,41 SAY 'or'
@ 19,46 SAY '[ ]'
IF helpflag
   SET COLOR TO &mchelp
   @ 21,26 SAY 'Select the entertainment type to ' + mlabel
   @ 22,26 SAY 'by pressing the highlighted letter.'
   @ 19,23 SAY mbra
   @ 20,23 TO 21,23 DOUBLE
   @ 21,23 SAY mright
   @ 21,24 SAY mconn
   SET COLOR TO &mcnormal
ENDIF
STORE " " TO msel
SET COLOR TO &mcread
@ 19,47 GET msel PICT "!" VALID( msel $ "CDRVcdrv")
READ
SET COLOR TO &mcnormal
RETURN

************************************
PROCEDURE HELP
PARAMETERS p, l, v
SET KEY 28 TO  && disable the F1 key
tempcolor = SETCOLOR()   && save screen colors
SAVE SCREEN              && and screen
* print message
SET COLOR TO &mcwarn
SET CURSOR OFF
@  5,25 CLEAR TO 22,75
@  5,25 TO 22,75 DOUBLE
@  7,29 SAY "Active program helps are not available"
@  8,29 SAY "in this program."
@ 11,29 SAY "To get on screen help use the T option"
@ 12,29 SAY "at the main menu, this will toggle the"
@ 13,29 SAY "screen help prompts."
@ 16,29 SAY "For helpful information on general"
@ 17,29 SAY "program operation select the V option"
@ 18,29 SAY "from the main menu."
INKEY(20)                && wait 20 seconds
SET KEY 28 TO HELP       && enable F1 key
SET COLOR TO &tempcolor  && return to orginial color
RESTORE SCREEN
SET CURSOR ON
RETURN
****************************************************

PROCEDURE RENTX
* will rebuild index files if missing
USE HEM
IF .NOT. FILE('HEMIA.NTX')
   INDEX ON Artists + Title TO HEMIA
ENDIF

IF .NOT. FILE('HEMIC.NTX')
   INDEX ON Cat + Title TO HEMIC
ENDIF

IF .NOT. FILE('HEMIR.NTX')
   INDEX ON Refnum TO HEMIR
ENDIF

IF .NOT. FILE('HEMIT.NTX')
   INDEX ON Title TO HEMIT
ENDIF
USE
RETURN

PROCEDURE MOVE

@ 23,28 SAY 'Press C to continue........'
STORE " " TO msel
@ 23,55 GET msel VALID( msel $ "Cc")
READ