\START82\
\COMMENT=Program file dated 04/10/96, 18:39
\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
\STOP82\