\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\name=FIZZBUZZ
ClrHome
0\->\A
.3\->\B
.7\->\F
Lbl 6
Disp "BUZZ FOR?-(0 NOT"
Input "T0 BUZZ):",C
Disp "FIZZ FOR?-(0 NOT"
Input "TO FIZZ):",D
If (C<0)+(C>9)+(D<0)+(D>9)>0
Goto 6
ClrHome
If C\!=\0
Disp "B FOR BUZZ"
If D\!=\0
Disp "F FOR FIZZ"
Disp "START COUNTING","GO!"
Lbl 1
A+1\->\A
Input E
0\->\G
If C=0
Goto 3
If A/C=int((A/C)
B\->\G
A/10\->\H
Lbl 2
If fPart(H=C/10
B\->\G
iPart(H\->\I
If I=0
Goto 3
I/10\->\H
Goto 2
Lbl 3
0\->\H
If D=0
Goto 5
If A/D=int((A/D)
F\->\H
A/10\->\I
Lbl 4
If fPart(I=D/10
F\->\H
iPart(I\->\J
If J=0
Goto 5
J/10\->\I
Goto 4
Lbl 5
A\->\I
If G=B
G\->\I
If H=F
H\->\I
If GH=BF
GH\->\I
If I=E
Goto 1
Disp "WRONG!","YOU LOSE!"
Stop
COPYRIGHT STEPHEN OSTERMILLER 1996

\stop83P\