fill the code cards so that the "1"s be as many as poseble
error :
it does not work
i get only a black screen
card :
1 : what gets on tape [ b , 0 , 1 ]
2 : move on tape
3 : goto other card set
Code: Select all
'' bluatigro 1 apr 2020
'' program puzle
const as integer max = 50
dim as string code( 3 , 2 )
dim as string mem( max )
dim as integer i , j , plek
for i = 1 to 3
for j = 0 to 2
read code( i , j )
next j
next i
'' b 0 1
data "1r2" , "br3" , "0l2"
data "1r3" , "1l1" , "bl3"
data "1l1" , "stop" , "1r1"
plek = int( max / 2 )
i = 0
while mem( plek ) <> "stop"
j = instr( "b01" , mem( plek ) )
print code( i , j )
mem( plek ) = left( code( i , j ) , 1 )
if mid( code( i , j ) , 2 , 1 ) = "r" then
plek = ( plek + 1 ) mod max
end if
if mid( code( i , j ) , 2 , 1 ) = "l" then
plek = ( plek - 1 ) mod max
end if
i = val( right( code( i , j ) , 1 ) )
wend
for i = 0 to max
print mem( i ) ;
next i
print
sleep