Modified the BASIC interpreter to support comments using #
and sol whitespace support (eg tabs or spaces for indentation)
This commit is contained in:
16
data/fb.bas
16
data/fb.bas
@@ -1,9 +1,11 @@
|
||||
FOR A = 1 TO 100
|
||||
PRINT A ;
|
||||
B = A % 3
|
||||
C = A % 5
|
||||
IF B = 0 then PRINT "Fizz" ;
|
||||
IF C = 0 then PRINT "Buzz" ;
|
||||
PRINT ""
|
||||
# A cool fizzbuzz program
|
||||
PRINT "FizzBuzz!"
|
||||
FOR A = 1 TO 16
|
||||
PRINT A ; # Prints the number
|
||||
B = A % 3
|
||||
C = A % 5
|
||||
IF B = 0 then PRINT "Fizz" ;
|
||||
IF C = 0 then PRINT "Buzz" ;
|
||||
PRINT ""
|
||||
NEXT A
|
||||
END
|
||||
|
||||
@@ -1,17 +1,17 @@
|
||||
$1 = "_________"
|
||||
A = & $1
|
||||
FOR X = 1 TO 9
|
||||
FOR Y = 1 TO 9
|
||||
PEEK B A
|
||||
IF B = 95 THEN PRINT "_" ;
|
||||
IF B = 88 THEN PRINT "X" ;
|
||||
IF B = 79 THEN PRINT "O" ;
|
||||
C = A % 3
|
||||
IF C = 0 THEN PRINT " "
|
||||
A = A + 1
|
||||
NEXT Y
|
||||
Z = X % 2
|
||||
IF Z = 0 THEN PRINT "You are X"
|
||||
IF Z = 1 THEN PRINT "You are O"
|
||||
FOR Y = 1 TO 9
|
||||
PEEK B A
|
||||
IF B = 95 THEN PRINT "_" ;
|
||||
IF B = 88 THEN PRINT "X" ;
|
||||
IF B = 79 THEN PRINT "O" ;
|
||||
C = A % 3
|
||||
IF C = 0 THEN PRINT " "
|
||||
A = A + 1
|
||||
NEXT Y
|
||||
Z = X % 2
|
||||
IF Z = 0 THEN PRINT "You are X"
|
||||
IF Z = 1 THEN PRINT "You are O"
|
||||
NEXT X
|
||||
END
|
||||
|
||||
Reference in New Issue
Block a user