fizzbuzz.bas

1 REM FOR SHARP PC-G801
2 REM DELETE LINE 14 AND IGNROE ERROR TO RUN ON https://yohan.es/swbasic/
3 REM NO ERROR ON POCKET COMPUTER
10 FOR N = 1 TO 100
14 WAIT 10
15 IF  N>100 THEN 500
20 D=N-(3*INT(N/3))
30 C=N-(5*INT(N/5))
35 IF D=0 AND C=0 THEN 300
40 IF D = 0 THEN 100
50 IF C = 0 THEN 200
60 PRINT N
70 NEXT N
75 END
100 PRINT "FIZZ"
105 NEXT N
200 PRINT "BUZZ"
205 NEXT N
300 PRINT "FIZZBUZZ"
304 IF  N>100 THEN 500
305 NEXT N
500 END