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

⟦565cb5a8c⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »BRUKAT.VAL«

Derivation

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

TextFile

*     brukat.VAL     -VALIDATION PROGRAM SET EXACT ON
* VALIDATE  MMANR
STORE T TO MQ:VMORE
DO WHILE MQ:VMORE
IF  MMANR   >=  '0001'  .AND.  MMANR <= '6000'
 STORE F TO MQ:VMORE
 ELSE
 @ 23,0 SAY  '                                                                '
 @ 23,0 SAY  ' MEDARBEJDERNR -MUST BE: >=0001 AND <=6000 '
@ 05,037 GET MMANR
READ
ENDIF
ENDDO  MMANR
* VALIDATE  MAFNU
STORE T TO MQ:VMORE
DO WHILE MQ:VMORE
IF  MAFNU   >=  '01'  .AND.  MAFNU <= '98'
 STORE F TO MQ:VMORE
 ELSE
 @ 23,0 SAY  '                                                                '
 @ 23,0 SAY  ' AFDELINGS NR. -MUST BE: >=01 AND <=98 '
@ 10,037 GET MAFNU
READ
ENDIF
ENDDO  MAFNU
RELEASE MQ:VMORE
SET EXACT OFF
 «eof»