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

⟦e0aa35c8f⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »WORK.PAS«

Derivation

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

TextFile

form Hmenu
   at 3,30 put "HovedMenu" with "R"
   at 8,25 put "1. Vedligeholdelse af ansatte"
   at 10,25 put "2. Vedligeholdelse af afdelinger"
   at 12,25 put "3. Uudskriv etiketter"
   at 14,25 put "4. Afslut Kman"
   at 16,25 put "   Indtast valg  ( )"
   at 16,43 get valg num using "d"
endform



/*  Programnavn: Hmenu  */
e.lstr =20    !tekster må være 20 bogst.
local valg = 0 !initier valg

while valg<>4 do
   clear
   putform hmenu
   getform hmenu
   
   test valg
      case 1: perform ansatmen
              break
      case 2: perform afdmenu
              break
      case 3: perform etikette; perform udskriv
              break
      case 4: clear; at 12,30 output "Nu afsluttes Kman" 
              stop
      otherwise: at 23,10 output "Valg kun fra 1-4"  
              wait;break
      
   endtest
endwhile

               
                 «eof»