Fixed an issue with the input where you can't backspace properly

This commit is contained in:
deadvey
2026-02-14 16:04:57 +00:00
parent 26ee45eb88
commit cfe570c531
3 changed files with 28 additions and 7 deletions

9
data/fb.bas Normal file
View File

@@ -0,0 +1,9 @@
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 ""
NEXT A
END

View File

@@ -1,5 +1,17 @@
PRINT "What's your name?"
INPUT $1
PRINT "Hello " ;
PRINT $1
$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"
NEXT X
END