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

⟦52dc07262⟧ TextFile

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

Derivation

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

TextFile

STORE 0 TO PRINT
STORE "1" TO FKT
DO WHILE FKT<>"0"
?
?
?
?
?
?
?
?
?
?
?
?
?'		SØGNING PÅ FKTNUMMER'
?
?
?
?
?
?
?'INDTAST FKTNUMMER'
?'FKTNUMMER INDTASTES SÅLEDES:   EKS. FKTNUMMER="2230-300"'
?
?'AFSLUT DENNE FUNKTION MED FKTNUMMER="0"'
?
INPUT "INDTAST FKTNUMMER  " TO FKT
IF FKT="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 FKTNR=FKT.AND.ANTAL<>0
IF PRINT=1
	SET PRINT OFF
ENDIF
?'TRYK PÅ EN TAST FOR AT FORTSÆTTE'
WAIT TO ACTION

ENDDO
«eof»