home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
librdb2.zip
/
SUBS.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
384b
|
23 lines
* SUBS.CMD - subprogram to list all SUBJECTS in SUBJECTS.DBF
ERASE
SELE SECO
GOTO TOP
STORE " " TO SAME
STORE 0 TO COLCOUNT
DO WHILE .NOT. EOF
IF SUBJECT <> SAME
STORE SUBJECT TO SAME
?? SUBJECT
STORE COLCOUNT+1 TO COLCOUNT
IF COLCOUNT = 3
STORE 0 TO COLCOUNT
?
ENDIF
ENDIF
SKIP
ENDDO
? "Hit any key to continue"
wait
RETURN
F