Pete's QBASIC Site

Code: Select all

CLS
PRINT "GBE-BASIC,"
PRINT "THE EXTENDED TINY BASIC TO C TRANSLATOR FOR THE GAME BOY."
PRINT
PRINT "GEEK BASIC SOFTWARE"
PRINT

LINE INPUT "SOURCE *.BAS : "; source$
LINE INPUT "OUTPUT *.C   : "; output$

OPEN source$ + ".BAS" FOR INPUT AS #1
OPEN output$ + ".C" FOR OUTPUT AS #2

PRINT #2, "#include <gb>"
PRINT #2, "#include <stdio>"
PRINT #2, "int main(){"

DO UNTIL EOF(1)

LINE INPUT #1, in$
LET in$ = LTRIM$(RTRIM$(in$))

IF LEFT$(in$, 3) = "REM" THEN
PRINT #2, "//" + MID$(in$, 4, LEN(in$) - 3)
END IF

IF LEFT$(in$, 4) = "DEF " THEN
PRINT #2, "int "; MID$(in$, 5, LEN(in$) - 4); ";"
END IF

IF LEFT$(in$, 6) = "PRINT " THEN
PRINT #2, "printf(" + MID$(in$, 7, LEN(in$) - 6) + ");"
END IF

IF LEFT$(in$, 6) = "INPUT " THEN
PRINT #2, MID$(in$, 7, LEN(in$) - 6) + "=joypad();"
END IF

IF LEFT$(in$, 4) = "LET " THEN
PRINT #2, MID$(in$, 5, LEN(in$) - 4) + ";"
END IF

IF LEFT$(in$, 3) = "IF " THEN
PRINT #2, "if ("; MID$(in$, 4, INSTR(in$, " THEN") - 4) + "){"
END IF

IF in$ = "ENDIF" THEN
PRINT #2, "}"
END IF

IF LEFT$(in$, 6) = "WHILE " THEN
PRINT #2, "while (" + MID$(in$, 7, LEN(in$) - 6) + "){"
END IF

IF in$ = "WEND" THEN
PRINT #2, "}"
END IF

IF in$ = "EXIT" THEN
PRINT #2, "break;"
END IF

IF in$ = "END" THEN
PRINT #2, "printf(" + CHR$(34) + "\n---END OF PROGRAM---" + CHR$(34) + ");"
PRINT #2, "while (1){}"
END IF

LOOP

PRINT #2, "}"

CLOSE #1
CLOSE #2

PRINT "DONE!"
SLEEP
END

Code: Select all

REM 99 BOTTLES OF BEER!!!

DEF beer
DEF k

LET beer=99
LET k=0

PRINT "PRESS START TO START...\n"

WHILE 1
INPUT k
IF k&J_START THEN
EXIT
ENDIF
WEND

WHILE beer>1
PRINT "%d",beer
PRINT " BOTTLES OF BEER ON THE WALL!\n"
PRINT "%d",beer
PRINT " BOTTLES OF BEER!\n"
PRINT "TAKE ONE DOWN AND PASS IT AROUND...\n"
LET beer=beer-1
WEND

PRINT "AWWW.... NO MORE BEER!"
END