************ resource.cmd **** version 2.0 **** 03/16/1984 *********** 
* 
* 
* author......: james a. gronek 
* notice......: copyright 03/16/1984, ucs inc. all rights reserved 
* 
* called by...: dbaseii 
* 
* call(s).....: n/a 
* 
* uses(.dbf)..: resource.dbf 
* 
* creates.....: author.ndx,title.ndx,subject.ndx 
* 
* interfaces..: n/a 
* 
* notes.......: text data management program 
* 
* 
SET talk OFF
USE resource
SET INDEX TO title,author,subject
DO WHILE t
STORE '?' TO choice
STORE 'LOOKING' TO mode
ERASE
@ 1, 0 SAY "==================================================" 
@ 1,50 SAY "==============================" 
@ 2,11 SAY "TEXT RESOURCE MANAGEMENT SYSTEM Ver 2.0 (C) Mode--" 
@ 2,61 SAY "-->" 
@ 2,65 SAY mode
@ 3, 0 SAY "==================================================" 
@ 3,50 SAY "==============================" 
@ 5, 4 SAY "Title-------------->" 
@ 5,25 SAY title
@ 6, 4 SAY "Author------------->" 
@ 6,25 SAY author
@ 7, 4 SAY "Subject------------>" 
@ 7,25 SAY subject
@ 8, 4 SAY "Reference Keywords->" 
@ 8,25 SAY keywords
@ 9, 4 SAY "Media Type--------->" 
@ 9,25 SAY media
@ 11, 4 SAY "Source------------->" 
@ 11,25 SAY source
@ 12, 4 SAY "Issue-------------->" 
@ 12,25 SAY issue
@ 12,49 SAY "Page--------------->" 
@ 12,70 SAY page
@ 13, 4 SAY "Location----------->" 
@ 13,25 SAY location
@ 16, 0 SAY "==================================================" 
@ 16,50 SAY "==============================" 
@ 17, 4 SAY "A)dd Records            E)dit this Record       D)" 
@ 17,54 SAY "elete this Record" 
@ 18, 4 SAY "F)orward 1 Record       B)ackward 1 Record      2-" 
@ 18,54 SAY "9)Move n Records (F or B)" 
@ 19, 4 SAY "T)op of File            L)ast Record in File    S)" 
@ 19,54 SAY "earch for Record(s)" 
@ 20, 4 SAY "P)rint Record           R)eports Menu           Q)" 
@ 20,54 SAY "uit to CP/M" 
@ 21, 4 SAY "<Return> to DBase           Enter your choice plea" 
@ 21,54 SAY "se---->" 
@ 21,62 GET choice
READ
DO CASE
CASE !(choice)= 'Q' 
QUIT
CASE !(choice)= 'R' 
STORE '?' TO choice 
*
* report form calls go here, forms must be predefined...
*
CASE !(choice)= 'T' 
STORE '?' TO choice
GO TOP
CASE !(choice)= 'L' 
STORE '?' TO choice
GO BOTTOM
CASE !(choice)= 'P' 
STORE '?' TO choice
SET FORMAT TO PRINT
SET MARGIN TO 8
@ 0, 0 SAY chr(30)+chr(28)	
@ 1, 0 SAY "==================================================" 
@ 1,50 SAY "==============================" 
@ 2,11 SAY "              TEXT RESOURCE MANAGEMENT SYSTEM " 
@ 3, 0 SAY "==================================================" 
@ 3,50 SAY "==============================" 
@ 5, 4 SAY "Title-------------->" 
@ 5,25 SAY title
@ 6, 4 SAY "Author------------->" 
@ 6,25 SAY author
@ 7, 4 SAY "Subject------------>" 
@ 7,25 SAY subject
@ 8, 4 SAY "Reference Keywords->" 
@ 8,25 SAY keywords
@ 9, 4 SAY "Media Type--------->" 
@ 9,25 SAY media
@ 11, 4 SAY "Source------------->" 
@ 11,25 SAY source
@ 12, 4 SAY "Issue-------------->" 
@ 12,25 SAY issue
@ 12,49 SAY "Page--------------->" 
@ 12,70 SAY page
@ 13, 4 SAY "Location----------->" 
@ 13,25 SAY location
EJECT
SET FORMAT TO screen
CASE !(choice)= 'B' 
STORE '?' TO choice
SKIP -1
CASE !(choice)= 'F' 
STORE '?' TO choice
SKIP 1
CASE choice>= '1' .AND. choice <= '9' 
STORE ' ' TO bf
@ 17,0 
@ 18,0 
@ 19,0 
@ 20,0 
@ 21,0 
@ 22,0 
@ 20,0 SAY "       B)ackwards or F)orwards ?" 
@ 20,40 GET bf PICTURE "A" 
READ
DO CASE
CASE !(bf)= 'B' 
SKIP -&choice
RELEASE bf
CASE !(bf)= 'F' 
SKIP &choice
RELEASE bf
OTHERWISE
STORE '?' TO choice
RELEASE bf
ENDCASE 
STORE '?' TO choice
CASE !(choice)= 'E' 
STORE '?' TO choice
STORE 'Editing' TO mode
STORE title TO mtitle
STORE author TO mauthor
STORE subject TO msubject
STORE keywords TO mkeywords
STORE media TO mmedia
STORE source TO msource
STORE issue TO missue
STORE page TO mpage
STORE location TO mlocation
ERASE
@ 1, 0 SAY "==================================================" 
@ 1,50 SAY "==============================" 
@ 2,11 SAY "TEXT RESOURCE MANAGEMENT SYSTEM Ver 2.0 (C) Mode--" 
@ 2,61 SAY "-->" 
@ 2,65 SAY mode
@ 3, 0 SAY "==================================================" 
@ 3,50 SAY "==============================" 
@ 5, 4 SAY "Title-------------->" 
@ 5,25 GET mtitle
@ 6, 4 SAY "Author------------->" 
@ 6,25 GET mauthor
@ 7, 4 SAY "Subject------------>" 
@ 7,25 GET msubject
@ 8, 4 SAY "Reference Keywords->" 
@ 8,25 GET mkeywords
@ 9, 4 SAY "Media Type--------->" 
@ 9,25 GET mmedia
@ 11, 4 SAY "Source------------->" 
@ 11,25 GET msource
@ 12, 4 SAY "Issue-------------->" 
@ 12,25 GET missue
@ 12,49 SAY "Page--------------->" 
@ 12,70 GET mpage
@ 13, 4 SAY "Location----------->" 
@ 13,25 GET mlocation
@ 16, 0 SAY "++================================================" 
@ 16,50 SAY "============================++" 
@ 20, 0 SAY "       Edit Record as you please, <Return> to leave unchanged...." 
READ
REPLACE title WITH mtitle
REPLACE author WITH mauthor
REPLACE subject WITH msubject
REPLACE keywords WITH mkeywords
REPLACE media WITH mmedia
REPLACE source WITH msource
REPLACE issue WITH missue
REPLACE page WITH mpage
REPLACE location WITH mlocation
REINDEX
CASE !(choice)= 'A' 
STORE '?' TO choice
STORE 'Adding' TO mode
STORE "Y" TO adding
DO WHILE adding<> "N" 
STORE '                                   ' TO mtitle
STORE '                                   ' TO mauthor
STORE '                                   ' TO msubject
STORE '                                        ' TO mkeywords
STORE '               ' TO mmedia
STORE '                                   ' TO msource
STORE '        ' TO missue
STORE '0000' TO mpage
STORE '                         ' TO mlocation
ERASE
@ 1, 0 SAY "==================================================" 
@ 1,50 SAY "==============================" 
@ 2,11 SAY "TEXT RESOURCE MANAGEMENT SYSTEM Ver 2.0 (C) Mode--" 
@ 2,61 SAY "-->" 
@ 2,65 SAY mode
@ 3, 0 SAY "==================================================" 
@ 3,50 SAY "==============================" 
@ 5, 4 SAY "Title-------------->" 
@ 5,25 GET mtitle
@ 6, 4 SAY "Author------------->" 
@ 6,25 GET mauthor
@ 7, 4 SAY "Subject------------>" 
@ 7,25 GET msubject
@ 8, 4 SAY "Reference Keywords->" 
@ 8,25 GET mkeywords
@ 9, 4 SAY "Media Type--------->" 
@ 9,25 GET mmedia
@ 11, 4 SAY "Source------------->" 
@ 11,25 GET msource
@ 12, 4 SAY "Issue-------------->" 
@ 12,25 GET missue
@ 12,49 SAY "Page--------------->" 
@ 12,70 GET mpage
@ 13, 4 SAY "Location----------->" 
@ 13,25 GET mlocation
@ 16, 0 SAY "++================================================" 
@ 16,50 SAY "============================++" 
@ 20,10 SAY "Enter information in each field, <Return> to skip....." 
READ
APPEND BLANK
REPLACE title WITH mtitle
REPLACE author WITH mauthor
REPLACE subject WITH msubject
REPLACE keywords WITH mkeywords
REPLACE media WITH mmedia
REPLACE source WITH msource
REPLACE issue WITH missue
REPLACE page WITH mpage
REPLACE location WITH mlocation
@ 20,0
@ 20,20 SAY "Do you have more to add (Y/N)?" 
?
WAIT TO adding
ENDDO WHILE adding<> "N" 
REINDEX
CASE !(choice)= 'D' 
STORE '?' TO choice
ERASE
?
? "************** WARNING ************** WARNING ******************" 
?
? "      DELETION WILL PERMANENTLY REMOVE THE RECORD......." 
?
? "              YOU MUST TYPE A '*' TO DELETE...." 
?
? "              ANY OTHER RESPONSE WILL ABORT...." 
?
?
WAIT TO test
IF test= '*' 
DELETE
PACK
REINDEX
RELEASE test
ELSE
RELEASE test
ENDIF test= '*' 	
CASE !(choice)= 'S' 
ERASE
STORE "?" TO what
@ 12,10 SAY "Search by  A)uthor, T)itle, S)ubject or K)eyword ??" GET what PICTURE "A" 
READ
IF !(what)<> 'K' 
DO CASE
CASE !(what)= 'A' 
SET INDEX TO author,title,subject
CASE !(what)= 'T' 
SET INDEX TO title,author,subject
CASE !(what)= 'S' 
SET INDEX TO subject,title,author
OTHERWISE
LOOP
ENDCASE 
RELEASE what
ERASE
STORE '                                   ' TO search
@ 12,10 SAY "Enter Data to Find..." GET search
READ
STORE trim(search) TO search
FIND &search
STORE # TO place
STORE '?' TO choice 
RELEASE search
SET INDEX TO title,author,subject
IF place # 0 
GO place
ELSE 
ERASE
@ 12,20 SAY "NO FIND... RETURNING TO TOP..." 
GO TOP
ENDIF place # 0 
ELSE
SET INDEX TO
STORE '0' TO hwmny
ERASE
@ 12,20 SAY "How many Key Words (1-4)??" GET hwmny PICTURE "9" 	
READ
DO CASE
CASE hwmny= '1' 
STORE '               ' TO kw1
ERASE
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 ;
PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
ERASE
DISPLAY FOR "&TKW1" $keywords title, keywords OFF
WAIT
STORE '?' TO choice 
CASE hwmny= '2' 
ERASE
STORE '               ' TO kw1
STORE '               ' TO kw2
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 ;
PICTURE 'XXXXXXXXXXXXXXX' 
@ 13,10 SAY "Enter KEYWORD for search" GET kw2 ;
PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
STORE trim(kw2) TO tkw2
ERASE
DISPLAY FOR "&TKW1" $keywords .AND. "&TKW2" $keywords ;
title, keywords OFF
WAIT
STORE '?' TO choice 
CASE hwmny= '3' 
ERASE
STORE '               ' TO kw1
STORE '               ' TO kw2
STORE '               ' TO kw3
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 ;
PICTURE 'XXXXXXXXXXXXXXX' 
@ 13,10 SAY "Enter KEYWORD for search" GET kw2 ;
PICTURE 'XXXXXXXXXXXXXXX' 
@ 14,10 SAY "Enter KEYWORD for search" GET kw3 ;
PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
STORE trim(kw2) TO tkw2
STORE trim(kw3) TO tkw3
ERASE
DISPLAY FOR "&TKW1" $keywords .AND. "&TKW2" $keywords .AND. ;
"&TKW3" $keywords title, keywords OFF
WAIT
STORE '?' TO choice 
CASE hwmny= '4' 
ERASE
STORE '               ' TO kw1
STORE '               ' TO kw2
STORE '               ' TO kw3
STORE '               ' TO kw4
@ 12,10 SAY "Enter KEYWORD for search" GET kw1 ;
PICTURE 'XXXXXXXXXXXXXXX' 
@ 13,10 SAY "Enter KEYWORD for search" GET kw2 ;
PICTURE 'XXXXXXXXXXXXXXX' 
@ 14,10 SAY "Enter KEYWORD for search" GET kw3 ;
PICTURE 'XXXXXXXXXXXXXXX' 
@ 15,10 SAY "Enter KEYWORD for search" GET kw4 ;
PICTURE 'XXXXXXXXXXXXXXX' 
READ
STORE trim(kw1) TO tkw1
STORE trim(kw2) TO tkw2
STORE trim(kw3) TO tkw3
STORE trim(kw4) TO tkw4
ERASE
DISPLAY FOR "&TKW1" $keywords .AND. "&TKW2" $keywords .AND. ;
"&TKW3" $keywords .AND. "&TKW4" $keywords title, ;
keywords OFF
WAIT
STORE '?' TO choice 
OTHERWISE
STORE '?' TO choice
ENDCASE 
ENDIF 
OTHERWISE
RETURN
ENDCASE 
ENDDO 
QUIT TO "d" 
RETURN