home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
pcboard
/
cookppe.zip
/
COOKIES.PPS
< prev
next >
Wrap
Text File
|
1993-05-12
|
349b
|
25 lines
; Cookies.PPE 05-12-93 (C)1993 S.G. Systems, Modify this file to suit
; your needs!
STRING buffer
INTEGER numquotes
INTEGER chosenquote
INTEGER i
fopen 1,"cookies",O_RD,S_DN
fget 1,buffer
numquotes=buffer
chosenquote=random(numquotes)
frewind 1
for I=1 to chosenquote
fget 1,buffer
endfor
color 11
println buffer
END