... und ein konkreter Figurenvorschlag (für Menschen mit guten Augen )
Code
var brett$=\
" 32,255,255, 97, 98, 99,100,101,102,103,104,255,255, 32, 10, 13,"+\
" 32,255,255, 95, 95, 95, 95, 95, 95, 95, 95,255,255, 32, 10, 13,"+\
" 32, 56,255,254, 16, 4, 3, 5, 4, 16,254,255, 56, 32, 10, 13,"+\
" 32, 55,255, 9, 9, 9, 9, 9, 9, 9, 9,255, 55, 32, 10, 13,"+\
" 32, 54,255, 32,176, 32,176, 32,176, 32,176,255, 54, 32, 10, 13,"+\
" 32, 53,255,176, 32,176, 32,176, 32,176, 32,255, 53, 32, 10, 13,"+\
" 32, 52,255, 32,176, 32,176, 32,176, 32,176,255, 52, 32, 10, 13,"+\
" 32, 51,255,176, 32,176, 32,176, 32,176, 32,255, 51, 32, 10, 13,"+\
" 32, 50,255,155,155,155,155,155,155,155,155,255, 50, 32, 10, 13,"+\
" 32, 49,255, 64,156, 24, 15, 11, 24,156, 64,255, 49, 32, 10, 13,"+\
" 32,255,255,238,238,238,238,238,238,238,238,255,255, 32, 10, 13,"+\
" 32,255,255, 97, 98, 99,100,101,102,103,104,255,255, 32"
WindowTitle "µBrett":WindowStyle 24:Window 300,200-120,190
font 1:cls rgb(255,255,200):color 4,15
Whileloop 190:print chr$(val(substr$(brett$,&Loop,",")));
endwhile:waitinput
Alles anzeigen