|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »BIL.CMD«
└─⟦5b35a3f8b⟧ Bits:30002866 MicroPro WordStar release 3.00 for JET80
└─ ⟦this⟧ »BIL.CMD«
STORE 0 TO PRINT STORE 1 TO BILNR DO WHILE BILNR<>0 ? ? ? ? ? ? ? ? ? ? ? ? ?' VOGNLAGER FOR ENKELT BIL' ? ? ? ? ? ? ?'INDTAST VOGNNUMMER' ?'VOGNNUMMER INDTASTES SÅLEDES: EKS. VOGNNUMMER=1415' ? ?'AFSLUT DENNE FUNKTION MED VOGNNUMMER=0' ? INPUT "INDTAST VOGNNUMMER " TO BILNR IF BILNR=0 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.VOGNNR=BILNR IF PRINT=1 SET PRINT OFF ENDIF ?'TRYK PÅ EN TAST FOR AT FORTSÆTTE' WAIT TO ACTION ENDDO «eof»