home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
log
/
usqslman.prg
< prev
Wrap
Text File
|
1987-03-10
|
774b
|
37 lines
* USQSLMAN.PRG
* CALLED BY HAM.CMD
* REV 10/01/83
* REV 03/08/87 FOR USE ON PC
SET TALK OFF
USE USQSLMAN INDEX USQSLMAN
SET INDEX TO USQSLMAN
DO WHILE .T.
CLEAR
@ 0,0 SAY 'ENTER [END] TO EXIT'
@ 0,30 SAY '**** US QSL MANAGERS LIST ****'
ACCEPT 'CALL: ' TO MCALL
STORE UPPER(MCALL) TO MCALL
IF MCALL='END'
SET TALK ON
CLEAR
RETURN
ENDIF
FIND &MCALL
IF (EOF() .OR. BOF())
@ 12,40 SAY 'CALL NOT FOUND'
WAIT
LOOP
CLEAR
ENDIF
DO WHILE CALL = MCALL
@ 5,0 SAY 'CALL'
@ 5,15 SAY 'QSL MANAGER'
DISPLAY OFF
@ 8,0 SAY ' '
WAIT
SKIP
ENDDO
RELEASE MCALL
CLEAR
ENDDO