ABC problem: Difference between revisions
→{{header|FutureBasic}}: Changed output colors
(→{{header|FutureBasic}}: Changed output colors) |
|||
Line 4,813:
found = instr$( 1, blocks, ch )
select found
case > 3: mid$( blocks, found and -2, 2 ) = "__" : text , , fn
rect fill ( x, y + 5.5, 15, 15 ), fn
case 0: text , , fn
case < 4: blocks=" ,;BOXKDQCPNAGTRETGQDFSJWHUVIANOBERFSLYPCZM": x=3: y+=26: ch=""
end select
Line 4,824:
window 1, @"ABC problem in FutureBasic", ( 0, 0, 300, 300 )
fn blocks( "a baRk booK;treat
handleevents
</syntaxhighlight>
{{output}}
[[File:FB output for ABC--W
=={{header|Gambas}}==
|