|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Types: TextFile
Names: »MENU.CMD«
└─⟦8808ef982⟧ Bits:30005860 DBase II 2.4 & QUICKCODE
└─⟦this⟧ »MENU.CMD«
* menu.cmd
store ' ' to valg
store t to altid
do while altid
erase
text
D I S K E T T E - M E N U
---------------------------
1. SALGS-ORDRE-STYRING
2. SIKKERHEDSKOPIERING
3. FILE OVERFØRSEL TIL RC8000
ENDTEXT
ACCEPT 'Tast menu-valg : ' to valg
if valg='1'
quit to 'b:vips b:sa','a:dbase'
endif
if valg='2'
erase
? 'gør klar til back-up'
endif
if valg='3'
erase
? 'Klar til fil-transport '
endif
? '**** beklager menu-valget findes ikke pt.'
accept 'Tast return' to valg
loop
enddo
«eof»