DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC850

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

See our Wiki for more about RegneCentralen RC850

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦9acfb1037⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »GEMENU.CMD«

Derivation

└─⟦8808ef982⟧ Bits:30005860 DBase II 2.4 & QUICKCODE
    └─⟦this⟧ »GEMENU.CMD«

TextFile

* GEMENU.CMD
*-----------
* kaldes af : STARTINI.CMD
*-------------------------
STORE T TO XALTID
DO WHILE XALTID
STORE '     ' TO XIDENT
STORE '     ' TO XNGL
STORE ' ' TO XVALG
STORE 15 TO xpos
@ 0,0 SAY 'RC                         REGISTER-SYSTEM                       P0'
@ 2,25 SAY CHR(133)+XSYSNAVN+CHR(128)
@ 10,xpos SAY '1.   Register-vedligeholdelse (Opret,Ret,Slet,Vis)'
@ 12,xpos SAY '2.   Udskriv lister'
@ 14,xpos SAY '3.   Vejledning'

STORE T TO NOTOK
DO WHILE NOTOK
STORE F TO NOTOK
*@ 20,0    SAY 'Tast Ident ' GET XIDENT PICTURE  '!!!!!'
*@ 20,24   SAY 'Nøgle ' GET XNGL PICTURE  '!!!!!'
@ 20,50   SAY 'MENU-VALG ' GET XVALG PICTURE 'X'
READ

IF @(XVALG,'0123')=0
   @ 24,0 SAY '*** UKENDT MENUVALG, - prøv igen'+CHR(7)
   STORE T TO NOTOK
ENDIF
ENDDO

IF XVALG = '0'
   USE
   ERASE
   @ 12,20 SAY CHR(172)+' OK, VI STOPPER HER - FARVEL OG TAK'+CHR(128)
   accept '' to XSLUT
   QUIT TO 'DO STARTINI'
ENDIF

IF XVALG = '3'
   DO VEJLED
ENDIF

IF XVALG = '1'
   DO REGVEDLH
ENDIF

IF XVALG = '2'
   DO UDSKRIV
ENDIF

ERASE
LOOP
ENDDO

«eof»