home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Equalizer BBS
/
equalizer-bbs-collection_2004.zip
/
equalizer-bbs-collection
/
BBS-PCBOARD-STUFF
/
SAC-RD1F.ZIP
/
EXAMPLE.PPS
next >
Wrap
Text File
|
1996-02-18
|
272b
|
24 lines
; This is a very simple example!
*$USEFUNCS
*$INCLUDE:READ.LIB
BEGIN
string text(5)
integer i
; creates a file , with the name given, in non sharable write mode.
NEWLINES 3
text(1)=read(20,23,30,0)
newlines 3
print text(1)
END