Sound Sensations!/sound_sensations.iso/miscprog/tunes/tunes.prg

Text File | 1985-08-23 | 5.5 KB | 231 lines

* TUNES.PRG v1.0a......created by Brad Karthauser 7/16/85
CLEAR
SET TALK OFF
SET ECHO OFF
SET COLOR TO 14
@ 2,5 SAY "                               TUNES"
STORE '          ' TO your_name
SET COLOR TO 7
@ 6,15 SAY your_name
SET COLOR TO 143
@ 6,25 SAY '..............What is your name?'
@ 6,15 GET your_name
READ
SET COLOR TO 7
USE tunes
*STORE ''TO MAB_ART
*STORE ''TO MAB_TIT
*STORE ''TO MAB_TYP
*STORE ''TO MAB_QUA
*STORE ''TO MAB_AQU
CLEAR
DO WHILE .T.
@ 1,0 SAY "╔══════════════════════════════════════════════════════"
@ 1,55 SAY "════════════════════════╗"
@ 2,0 SAY "║                                   TUNES"
@ 2,79 SAY "║"
@ 3,0 SAY "║"
@ 3,79 SAY "║"
@ 4,0 SAY "──────────────────────────────────────────────────────"
@ 4,55 SAY "────────────────────────"
@ 5,0 SAY "│    ┌─────────────────────────────────────────────────"
@ 5,55 SAY "───────────────────┐    │"
@ 6,0 SAY "│    │  Artist"
@ 6,16 SAY artist
@ 6,39 SAY "Title"
@ 6,46 SAY title
@ 6,74 SAY "│    │"
@ 7,0 SAY "│    └─────────────────────────────────────────────────"
@ 7,55 SAY "───────────────────┘    │"
@ 8,0 SAY "│         ┌────────────────────────────────────────────"
@ 8,55 SAY "───────────────────┐    │"
@ 9,0 SAY "│         │  Type"
@ 9,19 SAY TYPE
@ 9,31 SAY "Quality"
@ 9,40 SAY quality
@ 9,49 SAY "Aquired"
@ 9,58 SAY aqdate
@ 9,74 SAY "│    │"
@ 10,0 SAY "│         └────────────────────────────────────────────"
@ 10,55 SAY "───────────────────┘    │"
@ 11,0 SAY "│"
@ 11,79 SAY "│"
@ 12,0 SAY "│         ┌────────────────────────────────────────────"
@ 12,55 SAY "──────────────┐         │"
@ 13,0 SAY "│         │   Artist    Title     Type      Quality   Aq"
@ 13,56 SAY "uired        │         │"
@ 14,0 SAY "│         │"
@ 14,69 SAY "│         │"
@ 15,0 SAY "│         └────────────────────────────────────────────"
@ 15,55 SAY "──────────────┘         │"
@ 16,0 SAY "│"
@ 16,79 SAY "│"
@ 17,0 SAY "│"
@ 17,79 SAY "│"
@ 18,0 SAY "│"
@ 18,79 SAY "│"
@ 19,0 SAY "│"
@ 19,79 SAY "│"
@ 20,0 SAY "│"
@ 20,79 SAY "│"
@ 21,0 SAY "│"
@ 21,79 SAY "│"
@ 22,0 SAY "│"
@ 22,79 SAY "│"
@ 23,0 SAY "└──────────────────────────────────────────────────────"
@ 23,55 SAY "────────────────────────┘"
@ 24,55 SAY "Hit <H> for help."
@ 24,1 SAY RECNO()
*READ
SET CONSOLE OFF
WAIT TO sel
sel = UPPER(sel)
SET CONSOLE ON
DO CASE
  CASE sel = '+'
   IF EOF()
    GO TOP
   ELSE
    SKIP+1
   ENDIF
*    CLEAR
  CASE sel = '-'
   IF BOF()
    GO BOTTOM
   ELSE
    SKIP-1
   ENDIF
*    CLEAR
  CASE sel = 'Q'
    clos data
    CLEAR
    RETURN
  CASE sel = 'L'
    GO TOP
    STORE '       'TO mab_art
    STORE '       'TO mab_tit
    STORE '    'TO mab_typ
    STORE '        'TO mab_qua
    STORE CTOD('  /  /  ')TO mab_aqu
*    READ
    @ 14,14 GET mab_art
    @ 14,24 GET mab_tit
    @ 14,34 GET mab_typ
    @ 14,44 GET mab_qua
    @ 14,54 GET mab_aqu
     READ
    SET EXACT OFF

        IF mab_art <> ' '

            SET FILTER TO TRIM(UPPER(artist))=TRIM(UPPER(mab_art))
            GO TOP

              IF EOF()
              @24,1 SAY 'NO RECORDS'
              GO TOP
              ENDIF
        ELSE
         IF mab_tit <> ' '
             SET FILTER TO TRIM(UPPER(title))=TRIM(UPPER(mab_tit))
             GO TOP
               IF EOF()
               @24,1 SAY 'NO RECORDS'
               GO TOP
               ENDIF

         ELSE
          IF mab_typ <> ' '
              SET FILTER TO TRIM(UPPER(TYPE))=TRIM(UPPER(mab_typ))
              GO TOP
                IF EOF()
                @24,1 SAY 'NO RECORDS'
                GO TOP
                ENDIF
          ELSE
           IF mab_qua <> ' '
               SET FILTER TO TRIM(UPPER(quality))=TRIM(UPPER(mab_qua))
               GO TOP
                 IF EOF()
                 @24,1 SAY 'NO RECORDS'
                 GO TOP
                 ENDIF

           ELSE
            IF DTOC(mab_aqu) <> DTOC(CTOD('  /  /  '))
                SET FILTER TO DTOC(aqdate)<DTOC(mab_aqu)


                GO TOP
                  IF EOF()
                  @24,1 SAY 'NO RECORDS'
                  GO TOP
                  ENDIF

              IF EOF()
                 @24,1 SAY 'NO RECORDS'
                  GO TOP
  CASE sel = 'B'
    BROWSE
  CASE sel = 'E'
    EDIT
    CLEAR
  CASE sel = 'H'
    CLEAR
     @2,5 SAY UPPER(your_name) - TRIM(' do you need help again?')
    TEXT

            b = BROWSE (look AT many records)
            + = plus (ahead one RECORD)
            - = minus (back one RECORD)
            e = EDIT (full SCREEN EDIT)
            l = LOCATE (FIND a RECORD)
            o = OFF (turn LOCATE OFF)
            a = APPEND (add a RECORD)
            s = SORT (resort the database)
            d = DISPLAY (RECORD matching criteria)
            p = printout (records matching criteria)
            q = QUIT

    ENDTEXT
    WAIT TO help_var
    CLEAR
  CASE sel = 'A'
    CLEAR
    APPEND
    CLEAR
  CASE sel = 'S'
    CLEAR
    SET TALK ON
    SET FILTER TO
    SORT TO temp ON artist
    SET SAFETY OFF
    ZAP
    SET SAFETY ON
    appe FROM temp
    SET TALK OFF
    ERASE temp.dbf
    WAIT
    CLEAR
  CASE sel = 'O'
    SET FILTER TO
    CLEAR
  CASE sel = 'D'
    CLEAR
    DISPLAY ALL
    WAIT
    CLEAR
  CASE sel = 'P'
    CLEAR
    repo FORM tunes TO PRINT NOEJECT
    CLEAR

             ENDIF
            ENDIF
           ENDIF
          ENDIF
         ENDIF
        ENDIF
  ENDCASE sel
ENDDO