languages/BASIC has been broken for almost two years, and after multiple
followups, nobody has claimed responsibility for the language
implementation or a fix.
this ticket has been marked 'stalled'.
# New Ticket Created by Simon Cozens
# Please include the string: [perl #17562]
# in the subject line of all future correspondence about this issue.
# URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17562
(gdb) run basic.pbc
Starting program: /home/simon/cvs/parrot/parrot basic.pbc
The problem is much smaller than that, actually.
10 LET T$=CHR(65)+CHR(66)+CHR(67)
20 PRINT T$
30 LET A$=RIGHT(T$, 1)
40 QUIT
The problem vanishes if any of the following happen:
* T$ is constructed with a string assignment (LET T$=ABC)
* The PRINT statement is removed
* The LET A$=
