Execute Brain****: Difference between revisions
Content added Content deleted
(add gwbasic) |
m (fix) |
||
| Line 3,875: | Line 3,875: | ||
<pre>Hello World!</pre> |
<pre>Hello World!</pre> |
||
=={{header|GW-BASIC}} |
=={{header|GW-BASIC}}== |
||
<lang gwbasic>10 REM BRAINFK INTERPRETER FOR GW-BASIC |
<lang gwbasic>10 REM BRAINFK INTERPRETER FOR GW-BASIC |
||
20 INPUT "File to open? ",INFILE$ |
20 INPUT "File to open? ",INFILE$ |
||
| Line 3,928: | Line 3,928: | ||
510 G$ = INKEY$ |
510 G$ = INKEY$ |
||
520 IF G$ = "" THEN GOTO 510 |
520 IF G$ = "" THEN GOTO 510 |
||
530 TAPE(P) = G$ |
530 TAPE(P) = ASC(G$) |
||
540 RETURN |
540 RETURN |
||
550 REM the ] instruction |
550 REM the ] instruction |
||