Category : Files from Magazines
Archive   : VOL11N12.ZIP
Filename : TSLIST.PRG

 
Output of file : TSLIST.PRG contained in archive : VOL11N12.ZIP
*
* 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


  3 Responses to “Category : Files from Magazines
Archive   : VOL11N12.ZIP
Filename : TSLIST.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/