34 lines
442 B
Plaintext
34 lines
442 B
Plaintext
DEFINE DATA
|
|
LOCAL
|
|
1 #I (I4)
|
|
1 #MODULO (I4)
|
|
1 #DIVISOR (I4)
|
|
1 #OUT (A10)
|
|
END-DEFINE
|
|
*
|
|
FOR #I := 1 TO 100
|
|
#DIVISOR := 15
|
|
#OUT := 'FizzBuzz'
|
|
PERFORM MODULO
|
|
*
|
|
#DIVISOR := 5
|
|
#OUT := 'Buzz'
|
|
PERFORM MODULO
|
|
*
|
|
#DIVISOR := 3
|
|
#OUT := 'Fizz'
|
|
PERFORM MODULO
|
|
*
|
|
WRITE #I
|
|
END-FOR
|
|
*
|
|
DEFINE SUBROUTINE MODULO
|
|
#MODULO := #I - (#I / #DIVISOR) * #DIVISOR
|
|
IF #MODULO = 0
|
|
WRITE NOTITLE #OUT
|
|
ESCAPE TOP
|
|
END-IF
|
|
END-SUBROUTINE
|
|
*
|
|
END
|