|
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: »EMPSCRN.FMT«
└─⟦96695c514⟧ Bits:30005859 DBase II og SuperCalc2 └─⟦this⟧ »EMPSCRN.FMT«
* EMPSCRN.FMT @ 2,20 SAY 'Employee Entry Screen' @ 4,10 SAY "Employee number" @ 4,26 SAY emp:nmbr @ 5,10 SAY "First " GET first PICTURE '!XXXXXXXXX' @ 6,10 SAY "Last " GET last PICTURE '!XXXXXXXXX' @ 7,10 SAY "Address " GET addr @ 8,10 SAY "City " GET city @ 9,10 SAY "zip code " GET zip:code PICTURE '99999-9999' @ 10,10 SAY "Phone " GET phone PICTURE '999-9999' @ 12,10 SAY 'Soc. Sec. no ' GET ssn PICT '999-99-9999' @ 14,10 SAY "Hire date " GET hiredate PICTURE '99/99/99' @ 16,10 SAY "Classification" GET class PICT '!!!' @ 17,10 SAY "Department " GET dept PICT '!!!' @ 18,10 SAY "Starting pay rate" GET start:pay PICTURE '9999.999' «eof»