DataMuseum.dk

Presents historical artifacts from the history of:

Jet Computer Jet80

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

See our Wiki for more about Jet Computer Jet80

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦96e849a53⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »DIST.CMD«

Derivation

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

TextFile

STORE 0 TO PRINT
STORE "1" TO DISTR
DO WHILE DISTR<>"0"
?
?
?
?
?
?
?
?
?
?
?
?
?'		VOGNLAGER FOR DISTRIKT'
?
?
?
?
?
?
?'BRUG FORKORTELSER FOR DISTRIKT F.EKS. OLV - AC - MD OSV.'
?'INDTAST DISTRIKT SÅLEDES:  EKS. DISTRIKT="OLV"'
?
?'DENNE FUNKTION AFSLUTTES MED DISTRIKT="0"'
?
INPUT "INDTAST DISTRIKT  " TO DISTR
IF DISTR="0"
	STORE 0 TO PRINT
	RETURN
ENDIF
?
?
?
?
?
?
?
?
?'		ØNSKES UDSKRIFT PÅ PRINTER'
?
?
?
?
?'		0 - INGEN UDSKRIFT PÅ PRINTER'
?'		1 - UDSKRIFT PÅ PRINTER'
?
?
?
?
?
INPUT "INDTAST CIFFER FOR ØNSKET FUNKTION  " TO PRINT

IF PRINT=1
	SET PRINT ON
ENDIF
LIST FOR TEKST<>" ".AND.DISTRIKT=DISTR
IF PRINT=1
	SET PRINT OFF
ENDIF
?'TRYK PÅ EN TAST FOR AT FORTSÆTTE'
WAIT TO ACTION

ENDDO
«eof»