DataMuseum.dk

top - metrics - download

    Length: 1920 (0x780)
    Types: TextFile
    Names: »BRUKAT.LBL«

└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
    └─⟦this⟧ »BRUKAT.LBL« 

TextFile

*     brukat.LBL     -LABEL/FORM PROGRAM
STORE '       '  TO MQ:MODE
STORE 10 TO MQ:LSIZE
STORE  '                                                                  '  TO MQ:SLCT
STORE 'Y' TO MQ:ANS
@ 21,10 SAY 'DO YOU WISH TO dSCAN? (Y/N)'  GET MQ:ANS
READ
@ 21,10
IF !(MQ:ANS)='Y'
 @ 21,10 SAY 'PLEASE ENTER SELECTION CRITERIA'
 @ 23,10 GET MQ:SLCT
 READ
 @ 21,10
 @ 23,10
ELSE
 STORE 'T' TO MQ:SLCT
ENDIF
@ 21,10 SAY  ' HOW MANY LINES PER LABEL/FORM?  '
@ 22,10 SAY  ' (ENTER 0 TO GET PAGE EJECTS) '
@ 23,10 SAY  ' PLEASE COUNT THE SPACE BETWEEN LABELS  '  GET MQ:LSIZE
READ
GOTO TOP
@ 23,10 SAY  ' PLEASE SET UP YOUR PRINTER                          '
SET CONSOLE OFF
WAIT
SET CONSOLE ON
* REPEAT UNTIL FILE ENDS
DO WHILE .NOT. EOF
 IF &MQ:SLCT
  STORE MQ:MODE TO MQ1:01
  STORE MANR TO MQ1:02
  STORE INIT TO MQ1:03
  STORE AFNU TO MQ1:04
 ELSE
  SKIP
  LOOP
 ENDIF
SET PRINT ON
 ?  '  '+'RC  SAMMENLIGN MEDAR'+'BEJDERE I BRUGERKATA'+'LOGER OG PERSONALE S'+'YSTEM'
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 ? 
 ?  '  '+'MEDARBEJDER NUMMER .'+'.............'+'   '+MQ1:02
 ? 
 ? 
 ?  '  '+'INITIALER ..........'+'.............'+'   '+MQ1:03
 ? 
 ?  '  '+'AFDELINGS NUMMER ...'+'.............'+'   '+MQ1:04
 ? 
 ? 
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 STORE 0 TO MQ:COUNT
* IF LABEL IS LARGER, SKIP SOME LINES
 IF MQ:LSIZE >   12
  DO WHILE MQ:COUNT < (MQ:LSIZE -   12 )
   ? '   '
   STORE MQ:COUNT + 1 TO MQ:COUNT
  ENDDO  MQ:COUNT
 ELSE
 IF MQ:LSIZE = 0
  EJECT
 ENDIF  0
 ENDIF  >
 SKIP
ENDDO   NOT EOF
SET PRINT OFF
SET CONSOLE ON
RELEASE MQ:LSIZE,MQ:COUNT,MQ:ANS,MQ:SLCT
  RELEASE MQ1:01
  RELEASE MQ1:02
  RELEASE MQ1:03
  RELEASE MQ1:04
 «eof»