
set default to B:
set escape off
set delete off
set talk off
erase
text



               ************************************************
               *                                              *
               *                  dbase II                    *
               *              SOFTWARE DATABASE               *
               *                     by                       *
               *              M.Pugh G4VPD 1988               *
               *                                              *
               ************************************************


endtext
clear
store 0 to count
do while count <70
store count +1 to count
enddo
erase
do while t
store ' ' to option
text



               ************************************************
               *                   * MENU *                   *
               *                                              *
               *       1 : LIST IN ALPHA ORDER                *
               *       2 : LIST IN TYPE ORDER                 *
               *       3 : LIST ALL INFORMATION               *
               *       4 : LIST DISK CONTENTS                 *
               *       5 : EDIT RECORDS                       *
               *       6 : ENTER NEW RECORDS                  *
               *       Q : QUIT dBASE II                      *
               *       X : EXIT TO (.) PROMPT                 *
               *                                              *
               ************************************************


endtext
@ 18,15 say 'Enter your choice ' get option ;
picture '!'
read
do case
case option = "X"
erase
set talk on
use
clear
cancel
case option = "Q"
erase
@ 12,12 say 'Bye Mick...'
?
?
quit
case option = "1"
use software index title
do print
list title,size,type,disk
text

           ***********************************
           *      End of software listing    *
           ***********************************


endtext
set print off
set format to screen
text
              Hit any key to return to Menu
endtext
wait
erase
loop
case option = "2"
use software index type
do print
list title,size,type,disk
text

           **********************************
           *     End of software listing    *
           **********************************


endtext
set print off
set format to screen
text
              Hit any key to return to Menu
endtext
wait
erase
loop
case option = "3"
use software index type
do print
list title,size,type,disk,notes
text

            **********************************
            *     End of software listing    *
            **********************************


endtext
set print off
set format to screen
text
              Hit any key to return to Menu
endtext
wait
erase
loop
case option = "4"
use software index disk
do print
list title,size,type,disk
text

            ************************************
            *      End of software listing     *
            ************************************


endtext
set print off
set format to screen
text
               Hit any key to return to Menu
endtext
wait
erase
loop
case option = "5"
use software index disk,title
edit
use
erase
loop
case option = "6"
use software index title,type,disk
erase
append
use
erase
loop
other
@ 23,10 say 'Invalid entry please retry'
store 0 to count
do while count <70
store count+1 to count
enddo
loop











































































                                                                                               *
               *                  dbase II                    *
               *              SOFTWARE DATABASE               *
               *                     by                       *
               *              M.Pugh G4VPD 1988               *
               *