DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦4f0f8c029⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »E'BYNMBR.NDX«

Derivation

└─⟦96695c514⟧ Bits:30005859 DBase II og SuperCalc2
    └─⟦this⟧ »E'BYNMBR.NDX«

TextFile

▶01◀▶02◀▶08◀
2▶03◀emp:nmbrrst)) +' '+ !(trim(last))
      *  test the hire date for validity
      STORE hiredate TEY <> " "
          SET INDE TO RT/ZIP,RT/SER,RT/COMP
          FIND &ZIPKEY

       CASE COMPKEY <> " "▶04◀▶01◀@ ▶02◀@0▶03◀@@▶04◀@`        ▶03◀TIM MONIHAN          ▶02◀TERRY BRADSHAW       ▶07◀JOE STEGMAN            2Bradshaw  Terry                         dallas              -    232-3232 12/31/80  /  /  fot1234.0001234.000bal @ 14,10 SAY "Hire date"
          @ 14,28 GET Mea:	▶01◀@ ▶02◀@0▶03◀@@▶04◀@`▶05◀@p▶06◀@▶80◀▶07◀@▶90◀▶08◀A▶10◀	A▶11◀W       ▶07◀JOE STEGMAN            2Bradshaw  Terry                         dallas              -    232-3232 12/31/80  /  /  fot1234.0001234.000bal @ 14,10 SAY "Hire date"
          @ 14,28 GET Mea:date PICTURE '99/99/99'
          READ
          STORE T TO Mea:nodate
        ENDIF
      ENDDO
      SET colon OFF
      @ 22,0 SAY "Is the employee data correct (Y/N)? " GET Mea:ok
      READ
      SET colon