home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
vrac
/
card_ce.zip
/
CARD.PRG
< prev
next >
Wrap
Text File
|
1994-08-13
|
1KB
|
58 lines
set deli to '{}'
set deli on
set inte off
set scor off
set stat off
set help off
set menu off
set func 10 to 'Q'
stor ' ' to sai
do while uppe(sai) <> 'E'
do telamenu
set color to r+
@ 01,33 say 'Card collection'
set color to w+
@ 02,32 say 'M A I N M E N U'
set color to b+
@ 07,34 say 'Input Card'
@ 09,37 say 'Find'
@ 11,34 say 'Modify Card'
@ 13,34 say 'Delete Card'
@ 15,37 say 'List'
@ 17,38 say 'End'
set color to gr+
@ 21,01 say 'Enter the letter of your option --> ' get sai
@ 07,34 say "I"
@ 09,37 say "F"
@ 11,34 say "M"
@ 13,34 say "D"
@ 15,37 say "L"
@ 17,38 say "E"
set color to bg
read
if uppe(sai) = 'I'
do limpat
do entra
endif
if uppe(sai) = 'F'
do limpat
do procura
endif
if uppe(sai) = 'M'
do limpat
do fix
endif
if uppe(sai) = 'D'
do limpat
do apaga
endif
if uppe(sai) = 'L'
do limpat
do lista
endif
do limpat
enddo
clear
set color to w+
quit