*

* install-prog 

*

* (C) Hado Hein 1991

*

*

* alle rechte bleiben bei mir !

*

* keine unerlaubte benutzung von ideen oder

* programm-text

*

*

***********************************************************

* 

* Dieses Programm ist nur daf€r da,

* die Dateien

* - system.mem

* - print.mem

* - display.mem

* zu editieren. Damit ist dann die Lauff€higkeit von

* fbe gew€hrleistet.

*

***********************************************************

* sv_lna = lizenzname

* sv_lad = lizenzadresse

* sv_path = programmpfad

* sv_drive= programmdrive

* sv_datacheck = netzwerk oder nicht

* sv_shliz = lizenz (.t.) oder share (.f.)

set path to dirname()

set echo off

set alternate off

set bell on

setcancel=.f.

readexit=.f.

set confirm off

set console on

set cursor on

set century off

set date german

set decimals to 2

set deleted on

set delimiters to"|"

set delimiters off

set device to screen

set escape on

set intensity on

set softseek off

set typeahead to 20

set wrap on

set scoreboard off

set procedure to procfunc

***************************************

* Bevor eine Ausgabe kommt, testen wir mal

* den Display-Modus

* zum umschalten gibts dann die proc's

* hell,inv,blink und norm

*

if iscolor()

  c_n="+g/n"

  c_i="+r/w"

  c_b="*w/n"

  c_h="+bg/n"

   set color to g+/n,+b/w,,,g/n

 else

  c_n="w/n"

  c_i="n/w"

  c_b="*w/n"

  c_h="+w/n"

   set color to w/n,n/w

endif

***************************************

* jetzt geht der ernst des lebens los

***************************************

masterbed=.t.

netz=.f.

bedienername="SETUP"

progteil="SETUP"

lizenz=.t.

running=.t.

*

if file("system.mem")

   restore from system additive

else

   sv_lna="DAS IST EINE TESTVERSION--------"

   sv_lad="Hado Hein 0161-XXXoutdatedXXX----------"

   sv_path="\fdb\--------------------------"

   sv_pass="1234567890"

   sv_drucker="lpt1"

   sv_datacheck=.f.

   sv_shliz=.f.

   sv_kldisp=.f.

endif

if file("display.mem")

   restore from display additive

endif

if file("print.mem")

   restore from print additive

endif

*

do while running

*

wahl=0

do norm

do frame

do ssc

 @ 06,30 prompt "Systemvorgaben €ndern"

 @ 07,30 prompt "Druckercodes €ndern  "

 @ 08,30 prompt "Displaycodes €ndern  "



 @ 10,30 prompt "     ENDE            "

 menu to wahl

   do case

      case wahl=1

	do sv_edit

      case wahl=2

	do pr_edit

      case wahl=3

	do col_edit

      case wahl=4

       running = .f.

   endcase

enddo

quit

*

*

*

*

procedure sv_edit



do ssc

@ 6,10 say "Lizenzname    :"

@ 7,10 say "Lizenzadresse :"

@ 8,10 say "Pfadangabe    :"

@10,10 say "Kennwort      :"

@12,10 say "Druckerport   :"

@13,10 say "Lizenz    (j) :"

@14,10 say "Netzwerk  (j) :"

@15,10 say "EGA / VGA 43Z.:"

@ 6,30 get sv_lna picture "@K"

@ 7,30 get sv_lad picture "@K"

@ 8,30 get sv_path picture "@K"

@10,30 get sv_pass picture "@K"

@12,30 get sv_drucker picture "@K"

@13,30 get sv_shliz picture "y"

@14,30 get sv_datacheck picture "y"

@15,30 get sv_kldisp picture "y"

read

do ssc

do hell

@ 6,10 say "Lizenzname    : "+sv_lna

@ 7,10 say "Lizenzadresse : "+sv_lad

@ 8,10 say "Pfadangabe    : "+sv_path

@10,10 say "Kennwort      : "+sv_pass

@12,10 say "Druckerport   : "+sv_drucker

@13,10 say iif(sv_shliz,"LIZENSIERT","SHAREWARE")

@14,10 say iif(sv_datacheck,"NETZWERK","EINZELPLATZ")

@15,10 say iif(sv_kldisp,"EGA/VGA 43 Zeilen","Normal 25 Zeilen")

do norm

@18,35 prompt "SPEICHERN"

@19,35 prompt "VERWERFEN"

menu to save

if save = 1

        save to system all like sv_*

endif

return

*

*

*

*

*

*

procedure pr_edit

do ssc

  do hell

  dr_name=left(dr_name+space(30),30)

  @ 6,3 say "Drucker"

  @ 6,34 get dr_name pict "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"

  read

  do drget with 7,dr_init,"Initialisierung"

  do drget with 8,dr_fett1,"Fettdruck ein"

  do drget with 9,dr_fett0,"          aus"

  do drget with 10,dr_breit,"Breitdruck"

  do drget with 11,dr_eng,"Engschrift"

  do drget with 12,dr_norm,"Normale Breite"

  do drget with 13,dr_dh1,"Doppelthoch ein"

  do drget with 14,dr_dh0,"            aus"

  do drget with 15,dr_elite,"ELITE 12 cpi."

  do drget with 16,dr_pica,"PICA 10 cpi."

  ok=.f.

  do hell

  @ 20,3 say "Steuerzeichen speichern? (J/N) " get ok pict "y"

  read

  if ok

    save to print all like dr_*

  endif

  clea typeahead

return

*

*

*

*

*

*

procedure col_edit

private ende

do ssc



nc_n=c_n+space(9)

nc_i=c_i+space(9)

nc_b=c_b+space(9)

nc_h=c_h+space(9)

nc_ge=c_ge+space(9)

nc_ng=c_ng+space(9)

nc_r=c_r+space(9)



nc_n=left(nc_n,9)

nc_i=left(nc_i,9)

nc_b=left(nc_b,9)

nc_h=left(nc_h,9)

nc_ge=left(nc_ge,9)

nc_ng=left(nc_ng,9)

nc_r=left(nc_r,9)



ende=1

do while ende <> 3

 @ 08,20 say "Normal :"

 @ 09,20 say "Invers :"

 @ 10,20 say "Blinken:"

 @ 11,20 say "Hell   :"

 @ 12,20 say "GET's  :"

 @ 13,20 say "N/A    :"

 @ 14,20 say "Rahmen :"

 @ 08,30 get nc_n picture "@K"

 @ 09,30 get nc_i picture "@K"

 @ 10,30 get nc_b picture "@K"

 @ 11,30 get nc_h picture "@K"

 @ 12,30 get nc_ge picture "@K"

 @ 13,30 get nc_ng picture "@K"

 @ 14,30 get nc_r picture "@K"

 READ

 set color to w/n

 @ 15,01 clear to 17,78

 set color to &nc_n,&c_i,&nc_r

 @ 16,10 say "  NORMAL  "

 set color to &nc_i

 @ 16,20 say "  INVERS  "

 set color to &nc_b

 @ 16,30 say "  BLINKEN "

 set color to &nc_h

 @ 16,40 say "   HELL   "

 set color to &nc_ge

 @ 16,50 say "   GETs   "

 set color to &nc_ng

 @ 16,60 say "N. GEW€HLT"

 do norm

 @ 18,30 prompt "  €ndern "

 @ 19,30 prompt "Speichern"

 @ 20,30 prompt "  ENDE   "

 menu to ende



 if ende = 2

   c_n=alltrim(nc_n)

   c_i=alltrim(nc_i)

   c_b=alltrim(nc_b)

   c_h=alltrim(nc_h)

   c_ge=alltrim(nc_ge)

   c_ng=alltrim(nc_ng)

   c_r=alltrim(nc_r)

   save to display all like c_*

   ende=3

 endif

enddo€