erase
?'******************************************'
?'*          FONE BOOK - FBSTRT            *'
?'*                                        *'
?'*  This program was  written and placed  *'
?'*   in the public domain by Don Mankin   *'
?'*  MICRO-BASE  (916-971-1395)  300/1200  *'
?'*   Copyright (c) 1983 Donald L Mankin   *'
?'*    Please do not remove this notice    *'
?'*                                        *'
?'******************************************'
?
wait to q
release q
STORE ' 'TO Q
DO WHILE.NOT.Q='X'
ERASE
?'Will you be using: <1> PC-DOS, MS-DOS or CP/M-86'
?'                   <2> CP/M-80'
?
WAIT TO TYPE
STORE !(TYPE) TO TYPE
IF TYPE='1'
     STORE 'PRG'TO EXT
     STORE 'X'TO Q
ENDIF
IF TYPE='2'
     STORE 'CMD'TO EXT
     STORE 'X'TO Q
ENDIF
ENDDO
ERASE
?'The following files are necessary:'
?
?'FBSTRT                        (this file)'
?'FB0.DOC  becomes FONEBOOK.DOC (documentation)'
?'FB1.CMD  becomes FBINIT.'-ext,'  (initializes structure)'
?'FB2.CMD  becomes FBCONFIG.'-ext,'(configures variables)'
?'FB3.CMD  becomes FBMENU.'-ext,'  (menu program)'
?'FB4.CMD  becomes FBADDREC.'-ext,'(adds records)'
?'FB5.CMD  becomes FBDSPREC.'-ext,'(displays records'
?'FB6.CMD  becomes FBLSTREC.'-ext,'(lists records)'
?'FB7.CMD  becomes FBPRTLBL.'-ext,'(prints labels)'
?'FB8.FRM  becomes FBLPRINT.FRM (report form)'
?
?'If you have all the files on the left,'
?'Press C and the renaming will start.'
?
wait to q
store !(q) to q
if q<>'C'
     release q,on,off,type,prefix,ext,rename
     return
endif
erase
STORE'RENAME FB0.DOC TO FONEBOOK.DOC'TO REN0
STORE'RENAME FB1.CMD TO FBINIT.'TO PREFIX
STORE PREFIX+EXT TO REN1
STORE'RENAME FB2.CMD TO FBCONFIG.'TO PREFIX
STORE PREFIX+EXT TO REN2
STORE'RENAME FB3.CMD TO FBMENU.'TO PREFIX
STORE PREFIX+EXT TO REN3
STORE'RENAME FB4.CMD TO FBADDREC.'TO PREFIX
STORE PREFIX+EXT TO REN4
STORE'RENAME FB5.CMD TO FBDSPREC.'TO PREFIX
STORE PREFIX+EXT TO REN5
STORE'RENAME FB6.CMD TO FBLSTREC.'TO PREFIX
STORE PREFIX+EXT TO REN6
STORE'RENAME FB7.CMD TO FBPRTLBL.'TO PREFIX
STORE PREFIX+EXT TO REN7
STORE'RENAME FB8.FRM TO FBLPRINT.FRM'TO REN8
ERASE
? REN0
&REN0
? REN1
&REN1
? REN2
&REN2
? REN3
&REN3
? REN4
&REN4
? REN5
&REN5
? REN6
&REN6
? REN7
&REN7
? REN8
&REN8
erase
?'If you want ever want to re-initialize,'
?'just kill FBINDEX.NDX and DO FBMENU.'
?
?'You may also change your search variables'
?'by killing VARIABLE.MEM and DO FBMENU.'
?
WAIT TO Q
release all
do fbmenu
?'You may also change