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

⟦5afc86684⟧ TextFile

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

Derivation

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

TextFile

STORE 0 TO PRINT
STORE "1" TO APPA
DO WHILE APPA<>"0"
?
?
?
?
?
?
?
?
?
?'OPGØRELSE AF ANTAL ENHEDER FOR ET FKTNUMMER'
?
?
?
?
?
?
?'INDTAST FKTNUMMER DER ØNSKES OPGØRELSE FOR'
?'FKTNUMMER INDTASTES SÅLEDES:   EKS. FKTNUMMER="2017-525"'
?
?
?'DENNE FUNKTION AFSLUTTES MED FKTNUMMER="0"'
?
?
INPUT 'INDTAST FKTNUMMER' TO APPA
?
IF APPA="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
REPORT FORM APPSTAT FOR FKTNR=APPA .AND. ANTAL<>0
IF PRINT=1
	SET PRINT OFF
ENDIF
?'TRYK PÅ EN TAST FOR AT FORTSÆTTE'
WAIT TO ACTION

ENDDO
«eof»