The Pier Shareware 6/The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso/012/card_ce.zip/CARD.PRG

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