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

⟦3145506a5⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »ORG.VAL«

Derivation

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

TextFile

*     ORG.VAL     -VALIDATION PROGRAM SET EXACT ON
* VALIDATE  MAFNU
STORE T TO MQ:VMORE
DO WHILE MQ:VMORE
IF  MAFNU   MAFNU <= '99'
 STORE F TO MQ:VMORE
 ELSE
 @ 23,0 SAY  '                                                                '
 @ 23,0 SAY  ' AFDELINGS NR -MUST BE: <=99 '
@ 06,034 GET MAFNU
READ
ENDIF
ENDDO  MAFNU
* VALIDATE  MSTED
STORE T TO MQ:VMORE
DO WHILE MQ:VMORE
IF  MSTED   >=  '01'  .AND.  MSTED <= '08'
 STORE F TO MQ:VMORE
 ELSE
 @ 23,0 SAY  '                                                                '
 @ 23,0 SAY  ' LOKATION -MUST BE: >=01 AND <=08 '
@ 09,034 GET MSTED
READ
ENDIF
ENDDO  MSTED
* VALIDATE  MOVER
STORE T TO MQ:VMORE
DO WHILE MQ:VMORE
IF  MOVER   MOVER <= '99'
 STORE F TO MQ:VMORE
 ELSE
 @ 23,0 SAY  '                                                                '
 @ 23,0 SAY  ' ET AFD. NR. -MUST BE: <=99 '
@ 15,034 GET MOVER
READ
ENDIF
ENDDO  MOVER
RELEASE MQ:VMORE
SET EXACT OFF
 «eof»