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 - download

⟦d0d81bc36⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »E'BYNAME.NDX«

Derivation

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

TextFile

▶01◀▶02◀▶17◀▶19◀▶14◀!(trim(first)) +' '+ !(trim(last))
      *  test the hire date for validity
      STORE hiredate TEY <> " "
          SET INDE TO RT/ZIP,RT/SER,RT/COMP
          FIND &ZIPKEY

       CASE COMPKEY <> " "▶03◀▶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:	▶08◀                     	                     ▶06◀AAAAAAAAA AAAAAAA    ▶02◀BETH HEMERYICK       ▶05◀DALE THOMAS          ▶03◀JIM TAYLOR           ▶04◀JOE JOHNSON          ▶01◀JOE STEGMAN          ▶07◀TOM TERRIFIC         001234.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 oyee records
        3     List the employee data
        4     Terminate an employee or two


   Enter the menu selection here
  ENDTEXT
  WAIT TO Mselect

  *   erase the error messa   7Stegman   Joe       9929 w jefferson    culver city    90230-    204-5570 01/28/83        a1   10.000  10.000pm ployee file, release all variables and return to dBASE II
      USE
      RELEASE ALL
      RETURN

    CASE Mselect = "1"
     *   enter some ne employees
      DO emp-entr

    CASE Mselect =