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

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

use card
* use b:card
stor spac(15) to compp, fnamep, lnamep, teamp
stor spac(4) to yearp, cardnp
set color to r+
@ 06,20 say 'Company Name.......(A)--> ' get compp pict '!!!!!!!!!!!!!!!'
@ 08,20 say 'Year...............(B)--> ' get yearp
@ 10,20 say 'Player First Name..(C)--> ' get fnamep pict '!!!!!!!!!!!!!!!'
@ 12,20 say 'Playes Last Name...(D)--> ' get lnamep pict '!!!!!!!!!!!!!!!'
@ 14,20 say 'Team Name..........(E)--> ' get teamp pict '!!!!!!!!!!!!!!!'
@ 16,20 say 'Card Number........(F)--> ' get cardnp pict '!!!!'
@ 21,01 say 'Q (Go to MAIN MENU)'
set color to w+
@ 02,29 say 'M O D I F Y   C A R D'
set color to gr+
@ 06,40 say 'A'
@ 08,40 say 'B'
@ 10,40 say 'C'
@ 12,40 say 'D'
@ 14,40 say 'E'
@ 16,40 say 'F'
@ 21,01 say 'Q'
set color to g
stor ' ' to op
@ 22,01 say 'Fill any or all then press letter for ì
search --> '
set color to gr+
read
@ 22,49 say 'SEARCH --> ' get op
set color to w+
read
if uppe(op) = "Q"
    clear gets
    return
endif
if uppe(op) = "A"
    loca for comp=compp
endif
if uppe(op) = "B"
    loca for year=yearp
endif
if uppe(op) = "C"
    loca for fname=fnamep
endif
if uppe(op) = "D"
    loca for lname=lanamep
endif
if uppe(op) = "E"
    loca for team=teamp
endif
if uppe(op) = "F"
    loca for cardn=cardnp
endif
do while .not. eof()
    do modifica
    cont
enddo
return