DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦222bb11f4⟧ TextFile

    Length: 2176 (0x880)
    Types: TextFile
    Names: »ORG.LBL«

Derivation

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

TextFile

*     ORG.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 AFNU TO MQ1:02
  STORE STED TO MQ1:03
  STORE NAVN TO MQ1:04
  STORE CHEF TO MQ1:05
  STORE OVER TO MQ1:06
 ELSE
  SKIP
  LOOP
 ENDIF
SET PRINT ON
 ?  ' '+'RC  ORGANISATIONS PL'+'AN'+'                           '+'DATABASE      BILLED'+' '+'O 4.'
 ?  ' '+'--------------------'+'--------------------'+'--------------------'+'-------------------'
 ? 
 ? 
 ?  ' '+'AFDELINGS NUMMER  ..'+'..........'+'    '+MQ1:02
 ? 
 ? 
 ?  ' '+'LOKATION  ..........'+'..........'+'    '+MQ1:03
 ? 
 ?  ' '+'AFDELINGS NAVN  ....'+'..........'+'    '+MQ1:04
 ? 
 ?  ' '+'CHEF INITIALER  ....'+'..........'+'    '+MQ1:05
 ? 
 ?  ' '+'OVERORDNET AFDELINGS'+' '+'NUMMER ..'+'    '+MQ1:06
 ? 
 ?  '--------------------'+'--------------------'+'--------------------'+'--------------------'
 STORE 0 TO MQ:COUNT
* IF LABEL IS LARGER, SKIP SOME LINES
 IF MQ:LSIZE >   16
  DO WHILE MQ:COUNT < (MQ:LSIZE -   16 )
   ? '   '
   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
  RELEASE MQ1:05
  RELEASE MQ1:06
 «eof»