home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
d_b_a
/
86_12
/
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