home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pcmagazi
/
1992
/
12
/
tslist.prg
< prev
next >
Wrap
Text File
|
1992-03-08
|
1KB
|
60 lines
*
* TSLIST.PRG - Try the SLIST function
*
CLEAR
OldColor = SET("COLOR")
SET COLOR TO W+/R
pcmag="PC Magazine Databases PC Magazine Databases PC Magazine Data"+;
"bases PC Magazine "
@ 1, 0, 24, 79 BOX
FOR i = 2 TO 23
@ i, 1 SAY pcmag
ENDFOR
DIMENSION aAvail(14)
aAvail(1)="Apples"
aAvail(2)="Bananas"
aAvail(3)="Cherries"
aAvail(4)="Dates"
aAvail(5)="Elderberries"
aAvail(6)="Figs"
aAvail(7)="Grapes"
aAvail(8)="Honeydew"
aAvail(9)="Kiwis"
aAvail(10)="Lemons"
aAvail(11)="Prunes"
aAvail(12)="Jolt"
aAvail(13)="Coffee"
aAvail(14)="Chocolate"
DIMENSION aSelected(ALEN(aAvail))
nCount = slist( @aAvail, @aSelected, " Select some snacks ")
SET COLOR TO &OldColor
CLEAR
IF nCount > 0
? ALLTRIM(STR(nCount))+" item(s) were selected."
FOR x = 1 TO nCount
? PADL(ALLT(STR(x)),2)+" : "+aSelected(x)
ENDFOR
ELSE
? "No items were selected."
ENDIF
WAIT
FOR i = 1 to ALEN(aAvail)
? "aAvail("+ALLTRIM(STR(i))+") = "
?? aAvail(i)
ENDFOR
WAIT
FOR i = 1 to ALEN(aSelected)
? "aSelected("+ALLTRIM(STR(i))+") = "
?? aSelected(i)
ENDFOR
RETURN