home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dba1286.zip
/
IFTEST.SC
< prev
next >
Wrap
Text File
|
1986-11-04
|
415b
|
18 lines
;--------------------------------- IfTest.SC
;---- Test IF...THEN...ELSE...ENDIF commands.
CLEAR
@ 10,1
;------------------------ Get a number from the user.
?? "Enter a whole number "
ACCEPT "N" TO X
;------------------ Display one message or the other.
IF MOD(X,5) = 0 THEN
@ 15,1
?? X, " is evenly divisible by 5"
ELSE
@ 15,1
?? X, " is NOT evenly divisible by 5"
ENDIF
SLEEP 5000