DataMuseum.dk

top - metrics - download

    Length: 4096 (0x1000)
    Types: TextFile
    Names: »GESTART.BAK«, »GESTART.CMD«

└─⟦ae6bd3087⟧ Bits:30005879 RC Register-system generering
    └─⟦this⟧ »GESTART.BAK« 
    └─⟦this⟧ »GESTART.CMD« 

TextFile

CLEAR
ERASE
if .not. file('sysfil.mem')
   DO SYSINIT
ELSE
   RESTORE FROM SYSFIL
ENDIF
SET ALTERNATE OFF
SET BELL ON
SET CARRY OFF
SET COLON ON
SET CONFIRM OFF
SET CONSOLE ON
SET DEBUG OFF
SET DELETE ON
SET ECHO OFF
SET EJECT OFF
SET ESCAPE OFF
SET EXACT OFF
SET INTENSITY OFF
SET LINKAGE OFF
SET PRINT OFF
SET RAW OFF
SET STEP OFF
SET TALK OFF
STORE 0 TO XAKTIV
STORE "@ 0,0 SAY 'RC                             REGISTER-SYSTEM'" TO XLIN0
STORE "@ 2,30 SAY CHR(133)+XSYSNAVN+CHR(128)" TO XLIN2
STORE "'Funktions-valg O(pret), R(et), S(let), V(is), " TO XLIN18
STORE XLIN18+"H(op til menu) ' GET XFUNK PICTURE '!'" TO XLIN18
STORE "@ 18,0 SAY "+XLIN18 TO XLIN18
IF FILE(XFILNAVN)
   USE &XFILNAVN
ELSE
   ERASE
   ? 'BRUGERENS DATAFIL EKSISTERER IKKE .. UNDERSØG DET NÆRMERE ...'
   ? '*** VI STOPPER HER ***'
   ? 'FILNAVNET VAR : '+XFILNAVN
   QUIT
ENDIF
STORE '     ' TO IDENT
STORE T TO XALTID
erase
if rank(XPASSWORD)=32 .AND. LEN(XPASSWORD)=1
ELSE
?  'HVEM er DU, tast din IDENT '
SET CONSOLE OFF
ACCEPT TO IDENT
SET CONSOLE ON
IF TRIM(IDENT)<>TRIM(XPASSWORD)
   ? 'BEKLAGER, DU HAR INGEN ADGANG TIL DENNE DISKETTE !!!!'
   DO WHILE XALTID
   ENDDO
ENDIF
ENDIF
ERASE
DO WHILE XALTID
  STORE ' ' TO XVALG
  STORE 15 TO xpos
  &XLIN0
  &XLIN2
  @  9,xpos SAY '0.   STOP'
  @ 11,xpos SAY '1.   Register-vedligeholdelse (Opret,Ret,Slet,Vis)'
  @ 12,xpos SAY '2.   Udskriv lister'
  @ 13,xpos SAY '3.   Vejledning'
  @ 15,xpos SAY '4.   Sikkerheds-kopiering af registeret'
  @ 16,xpos SAY '5.   Udskift registeret med sikkerheds-kopien'
  @ 18,xpos SAY '6.   Print af skærmbilled'
  @ 20,0
  STORE T TO XNOTOK
  DO WHILE XNOTOK
    STORE F TO XNOTOK
    @ 20,50   SAY 'MENU-VALG ' GET XVALG PICTURE 'X'
    READ
    IF XVALG='-'
       SET ESCAPE ON
    ENDIF
    IF XVALG='6'
       SET PRINT ON
    ENDIF
    IF XVALG='7'
       SET PRINT OFF
    ENDIF

    IF @(XVALG,'012345')=0
       @ 24,0 SAY '*** UKENDT MENUVALG, - prøv igen'+CHR(7)
       STORE T TO XNOTOK
    ENDIF
  ENDDO
  SET ESCAPE OFF
  IF XVALG = '0'
     CLEAR
     ERASE
     @ 12,20 SAY 'OK, VI STOPPER HER - Tag disketten ud ......!'
     SET CONSOLE OFF
     STORE T TO EVIGHED
     DO WHILE EVIGHED
     ENDDO
  ENDIF
  IF XVALG = '3'
     DO VEJLED
  ENDIF
  IF XVALG = '1'
     DO REGVEDLH
  ENDIF
  IF XVALG = '2'
     DO UDSKRIV
  ENDIF
  IF XVALG = '4'
     @ 20,0 SAY 'NU UDFØRES SIKKERHEDS-KOPIERINGEN'
     COPY TO REGKOPI
     @ 20,0
     STORE 0 TO XAKTIV
  ENDIF
  IF XVALG = '5' .AND. XAKTIV=0
     IF FILE('REGKOPI.DBF')
        @ 20,0 SAY 'NU SKIFTES REGISTER ..'
        USE
        RENAME REGISTER.DBF TO OLDREG.DBF
        RENAME REGKOPI.DBF TO REGISTER.DBF
        IF .NOT. FILE('REGISTER.DBF')
           ERASE
           ? 'REGISTER-SKIFTET LYKKEDES IKKE ** KONTAKT EDB-AFDELINGEN STRAKS'
           STORE T TO EVIGHED
           DO WHILE EVIGHED
           ENDDO
        ELSE
           DELETE FILE OLDREG.DBF
        ENDIF
        USE REGISTER INDEX REGISTER
        REINDEX
        @ 20,0
     ELSE
        @ 20,0
        @ 20,0 SAY 'DER FINDES INGEN SIKKERHEDSKOPI ....'
        STORE 0 TO PAUSE
        DO WHILE PAUSE<50
           STORE PAUSE+1 TO PAUSE
        ENDDO
        @ 20,0
     ENDIF
  ENDIF
  IF XVALG = '5' .AND. XAKTIV>0
   @ 20,0 SAY 'TAG FØRST EN SIKKERHEDSKOPI -  (DU HAR UDFØRT VEDLIGEHOLDELSE.)'
     store 0 to pause
     do while pause<50
        store pause+1 to pause
     enddo
  ENDIF
  ERASE
  LOOP
ENDDO

«eof»