home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
pssst.zip
/
PSCONFIG.PRG
< prev
next >
Wrap
Text File
|
1986-07-17
|
6KB
|
201 lines
* PSCONFIG.PRG
*
* A DBASE II 16BIT COMMAND FILE that allows the user to configure for
* single user operation, printer codes, backup drive selection, and
* IBM compatability.
*
*
* Version 1
* By LTC Denny Hugg
* ANGSC/DOS Andrews AFB MD 16 Jul 1985
*
* Version 2
* modified by Maj Jim McMurry
* ANGSC/DOSC Truax Field, WI 15 Jun 1986
*
ERASE
SET TALK OFF
SET ECHO OFF
SET BELL OFF
SET COLON OFF
USE PSCONFIG.MEM
GO TOP
STORE ' ' TO flag
IF *
RECALL
STORE 'Y' TO flag
ENDIF
STORE $(STR(1,81),1,80) TO gclearline
IF model = ' '
@ 2,13 SAY 'p S S S t C O N F I G U R A T I O N P R O G R A M'
ELSE
STORE model TO gmodel
STORE 'p S S S t C O N F I G U R A T I O N P R O G R A M' TO heading
DO PSHEADING
ENDIF
STORE 8 TO line
STORE ' ' TO environ
DO WHILE .NOT. environ$('SM')
@ 22, 5 SAY 'Do You Want To Configure For A (S)ingle Or (M)ulti-User ';
+ 'Environment? ';
GET environ PICTURE '!'
READ NOUPDATE
ENDDO
IF environ = 'S'
@ 22, 0 SAY gclearline
@ line,10 SAY 'Single User Configuration.'
STORE line + 1 TO line
REPLACE firstname WITH ' '
@ 21,26 SAY 'Change To Lower Case Letters'
@ 22,25 SAY 'Enter Your First Name ';
GET firstname PICTURE '!AAAAAAAAA'
READ
@ 21, 0 SAY gclearline
@ 22, 0 SAY gclearline
STORE ' ' TO mfilename
@ 22,24 SAY 'Enter Your Last Name ';
GET mfilename PICTURE '!!!!!!!!!!!'
READ
STORE TRIM(mfilename) TO mfilename
* --- create a standard length filename for the guy
IF LEN(mfilename) < 6
STORE '000000' TO msixblnks
STORE $(mfilename,1,LEN(mfilename));
+ $(msixblnks,1,6-LEN(mfilename)) TO mfilename
STORE $(mfilename,1,6) TO gaddstring
ELSE
STORE $(mfilename,1,6) TO gaddstring
ENDIF
REPLACE namestring WITH gaddstring
@ 22, 0 SAY gclearline
@ line,10 SAY 'Your Files Will Be Stored With The ' + gaddstring + ;
+ ' Prefix, ' + TRIM(firstname)
STORE line + 1 TO line
ELSE
REPLACE firstname WITH ' '
REPLACE namestring WITH ' '
@ 22, 0 SAY gclearline
@ line,10 SAY 'Configured For Mulit-Users.'
STORE line + 1 TO line
ENDIF
STORE ' ' TO select
@ 22,15 SAY 'What Drive Do You Normally Use To Back-Up Data? ';
GET select PICTURE '!'
READ
REPLACE back:drive WITH select
@ 22, 0 SAY gclearline
IF select = ' '
@ line,10 SAY 'Backup Drive Not Specified.'
ELSE
@ line,10 SAY 'Your Data Will Be Copied To Drive ' + back:drive + ' When ';
+ 'Backup Is Desired.'
ENDIF
STORE line + 1 TO line
STORE ' ' TO printer
DO WHILE .NOT. printer$('OMGU')
@ 22, 9 SAY 'Select (O)kidata, (M)pi, (G)enicom, (U)ser Defined ';
+ 'Printer :';
GET printer PICTURE '!'
READ
@ 22, 0 SAY gclearline
ENDDO
DO CASE
CASE printer = "O"
@ line,10 SAY 'Configured For An Okidata 83A Printer.'
STORE line + 1 TO line
REPLACE condensed WITH 'CHR(29)'
REPLACE norm:print WITH 'CHR(30)'
CASE printer = "M"
@ line,10 SAY 'Configured For An MPI Printer.'
STORE line + 1 TO line
REPLACE condensed WITH "CHR(27)+CHR(65)+CHR(48)+CHR(55)"
REPLACE norm:print WITH "CHR(27)+CHR(65)+CHR(48)+CHR(48)"
CASE printer = 'G'
@ line,10 SAY 'Configured For A Genicom 3184 Printer.'
STORE line + 1 TO line
REPLACE condensed WITH 'CHR(15)'
REPLACE norm:print WITH 'CHR(64)'
CASE printer = "U"
@ line ,10 SAY 'User Defined Printer.'
STORE line + 1 TO line
STORE ' ' TO select
@ 21, 5 SAY 'Enter Decimal Code For Condensed Print ';
GET select PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 22,45 SAY 'Example : CHR(15)'
READ
REPLACE condensed WITH TRIM(select)
@ 21, 0 SAY gclearline
@ 22, 0 SAY gclearline
@ line ,10 SAY 'Your Condensed Print Code Is '+Trim(select)+'.'
STORE line + 1 TO line
STORE ' ' TO select
@ 21, 1 SAY 'Enter Code For Reset To Initial Power On State ';
GET select PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 22,49 SAY 'Example : CHR(64)'
READ
REPLACE norm:print WITH TRIM(select)
@ 21, 0 SAY gclearline
@ 22, 0 SAY gclearline
@ line ,10 SAY 'Your Code For Back To Normal Print Is '+;
TRIM(select)+'.'
STORE line + 1 TO line
ENDCASE
STORE ' ' TO select
DO WHILE .NOT. select$('ZIO')
@ 22, 3 SAY 'Are You Using A (Z)enith Z-100, an (I)BM Compatable or ';
+'(O)ther Computer? ';
GET select PICTURE '!'
READ
ENDDO
REPLACE model WITH select
@ 22, 0 SAY gclearline
DO CASE
CASE select = 'Z'
@ line,10 SAY 'Zenith Z-100 Computer.'
CASE select = 'I'
@ line,10 SAY 'IBM Or Other Zenith PC Compatable Computer.'
CASE select = 'O'
@ line,10 SAY 'Graphics Not Available.'
ENDCASE
STORE line + 1 TO line
REPLACE model WITH select
REPLACE delays WITH ' '
DO WHILE .NOT. delays $('SML')
@ 22, 9 SAY 'Do You Want (S)hort, (M)edium, Or (L)ong Delays On Messages? ';
GET delays PICTURE '!'
READ
ENDDO
@ 22, 0 SAY gclearline
DO CASE
CASE delays = 'S'
@ line,10 SAY 'Message Delays Will Be Short.'
CASE delays = 'M'
@ line,10 SAY 'Message Delays Will Be Medium.'
CASE delays = 'L'
@ line,10 SAY 'Message Delays Will Be Long.'
ENDCASE
@ 21,21 SAY "You Now Are Configured For pSSSt ... "
@ 22,12 SAY 'You May Re-Run This Program At Any Time To Re-Configure'
STORE 0 TO timer
DO WHILE timer < 100
STORE timer + 1 TO timer
ENDDO
ERASE
* --- we're using the delete flag to see if we were sent from another module
IF flag = 'Y'
USE
RETURN
ELSE
USE
QUIT
ENDIF
* EOF PSCONFIG.PRG
T ECHO OFF
SET BELL OFF
SET COLON OFF
USE PSCONFIG.MEM
STORE $(STR(1,81),1,80) TO gclearline
IF model = ' '
@ 2,13 SAY 'p S S