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

⟦8bb731a28⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »ANSATMEN.PAS«

Derivation

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

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


/*  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: browse ansat
                 break
         case 3: clear
                 return
         otherwise: at 23,10 output "Valg kun fra 1-3"
                    wait; break
      endtest
   endwhile
   
   
                                           «eof»