@cromwellryan/

OfficialCloudyCockerspaniel

QBasic

No description

fork
loading
main.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CURRENT% = 1

PRINTIT:
IF (CURRENT% MOD 3) = (CURRENT% MOD 5) = 0 THEN 
PRINT "FizzBuzz"
END IF

IF (CURRENT% MOD 3) = 0 THEN 
PRINT "Fizz"
END IF

IF (CURRENT% MOD 5) = 0 THEN
PRINT "Buzz"
END IF

PRINT CURRENT%

NEXT:
CURRENT% = CURRENT% + 1
IF CURRENT% = 100 THEN END

GOTO PRINTIT
QBasic (qb.js) Copyright (c) 2010 Steve Hanov