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 - download

⟦fb65ad61a⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »VMEN.CMD«

Derivation

└─⟦5b35a3f8b⟧ Bits:30002866 MicroPro WordStar release 3.00 for JET80
    └─ ⟦this⟧ »VMEN.CMD«

TextFile

SET TALK OFF
USE B:VOGNSORT
STORE 9 TO JOB
DO WHILE JOB<>0
?
?'		LINIEAFDELINGENS DRIFTSSEKTION'
?
?'		VOGNLAGER FOR FEJLRETTERVOGNE'
?'		     (C) COPYRIGHT LDT'
?
?
?
?'		0 - AFSLUT VOGNLAGERSYSTEM'
?
?'		1 - VOGNLAGER FOR ENKELT BIL'
?'		2 - VOGNLAGER FOR DISTRIKT'
?
?'		3 - SØGNING PÅ FKTNUMMER'
?
?'		4 - EDITERING AF RECORD'
?
?'		5 - OPGØRELSE AF ANTAL, EFTER FKTNR.'
?
?
?
?
?'INDTAST CIFFER FOR ØNSKET FUNKTION'
WAIT TO ACTION
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
IF ACTION='0'
	DO SLUTVSYS
	SET TALK ON
	QUIT
ENDIF
IF ACTION='1'
	DO BIL
ENDIF
IF ACTION='2'
	DO DIST
ENDIF
IF ACTION='3'
	DO FKTNUM
ENDIF
IF ACTION='4'
	DO INDTAST
ENDIF
IF ACTION='5'
	DO APPTAL
ENDIF
ENDDO	
RETURN
«eof»