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

Text File | 1994-07-23 | 1KB | 44 lines

* use b:card
use card
stor spac(15) to compp
stor spac(4) to yearp
stor spac(4) to cardnp
set color to r+
@ 06,20 say 'Company Name..........--> ' get compp pict '!!!!!!!!!!!!!!!'
@ 08,20 say 'Year..................--> ' get yearp
@ 10,20 say 'Player First Name.....--> '
@ 12,20 say 'Playes Last Name......--> '
@ 14,20 say 'Team Name.............--> '
@ 16,20 say 'Card Number...........--> ' get cardnp pict '!!!!'
set color to w+
@ 02,30 say 'D E L E T E   C A R D'
set color to gr+
stor ' ' to op
@ 22,01 say 'You must fill Comp/Year/card#'
read
set color to w
loca for comp=compp .and. year=yearp .and. cardn=cardnp
if .not. eof()
    do apagaz
endif
if eof()
    stor ' ' to nao
    do limpat
    set color to rb+
    @ 21,05 say 'Card not found, Press any key' get nao
    set color to w
    read
    clear gets
    return
endif
set color to w+
@ 22,01 say 'confirm delete (YES) or any other key to cancel '
stor spac(3) to ok2
clear gets
@ 22,49 get ok2 pict '!!!'
read
if uppe(ok2) = 'YES'
    dele
    pack
endif
return