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

⟦ba303ed4c⟧ TextFile

    Length: 1152 (0x480)
    Types: TextFile
    Names: »ANSATMEN.BAK«

Derivation

└─⟦65142c8de⟧ Bits:30004652 KnowledgeMan vers. 1.07h
    └─ ⟦this⟧ »ANSATMEN.BAK«

TextFile

form ansatmenu
     at  3,30 put "AnsatMenu" with "R"
     at  8,25 put "1. Oprettelse af nye ansatte"
     at 10,25 put "2. Rettelse af eksisterende ansatte"
     at 12,25 put "3. Retur til hovedmenuen"
     at 15,25 put "   Indtast valg  ( )"
     at 15,43 get valg num using "d"
endform
form ansatnr
   at 17,25 put "  Indtast rekordnr = 
   at 17,47 get recnr num using "dd"
endform
   

/*  Progtramnavn: ansatmenu  */

e.lstr = 20  !tekster må være 20 bogst.
local valg = 0


   while valg <> 3 do
      valg = 0
      clear
      putform ansatmenu
      getform ansatmenu
      
      test valg
         case 1: create records for ansat
                 break
                 
         case 2: putform ansatnr
                 getform ansatnr
                 browse ansat for recnr = currec(ansat)
                 break
         case 3: clear
                 return
         otherwise: at 23,10 output "Valg kun fra 1-3"
                    wait; break
      endtest
   endwhile
   
   
                                           «eof»