home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 January
/
SOFM_Jan1996.bin
/
pc
/
os2
/
zoc
/
install.fil
/
SCRIPT
/
RXSAMPLE
/
MISC
/
3_LOOP
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1995-09-08
|
323 b
|
21 lines
/* REXX */
/* THIS SCRIPT SHOWS HOW TO LOOP COMMANDS */
'CLS'
/* a simple loop (running three times) */
DO 3
'WRITE "ZOC!"'
END
/* a loop running until the user answers YES */
DO UNTIL ANSWER="YES"
'REQUEST "Do you like ZOC?" "YES" "NO"'
ANSWER= ZOCRESULT()
END
'WRITE "Glad to hear this!"'