this is my program - which works in simulation
symbol counter = b1
main:
b0= 0
gosub intro
gosub flash
gosub flash
gosub stay
gosub change
intro:
'untitled
tune B.7, 4,($29,$00)
return
flash:
counter = 0
do until counter > 5
high counter
pause 30
inc counter
loop
counter = 0
do until counter > 5
low counter
pause 30
inc counter
loop
counter = 0
return
stay:
do until counter > 5
high counter
pause 30
inc counter
loop
return
counter = 0
insert:
do ; start loop
if b0 = 2 then
exit
loop
else
for counter = 1 to 2
toggle 5
pause 30
toggle 4
pause 30
toggle 3
pause 30
toggle 2
pause 30
toggle 1
pause 30
toggle 0
pause 30
next counter
endif
if b0 = 0 then
b0 = 1
'smb
tune B.7, 6,($44,$44,$7C,$04,$40,$44,$47,$7C,$67,$6C,$40,$7C,$67,$6C,$64,$6C,$69,$6B,$6A,$69,$67,$44,$47,$49,$45,$47,$44,$40,$42,$6B,$7C,$40,$7C,$67,$6C,$64,$6C,$69,$6B,$6A,$69,$67,$44,$47,$49,$45,$47,$44,$40,$42,$6B,$7C,$47,$46,$45,$43,$7C,$44,$7C,$68,$69,$40,$7C,$69,$40,$42,$7C,$47,$46,$45,$43,$7C,$44,$7C,$50,$7C,$50,$50,$3C,$47,$46,$45,$43,$7C,$44,$7C,$68,$69,$40,$7C,$69,$40,$42,$7C,$43,$7C,$42,$7C,$40)
else if b0 = 1 then
b0 = 2
'TakeOnMe
tune B.7, 5, %00000000,($66,$66,$66,$62,$7C,$6B,$7C,$64,$7C,$64,$7C,$64,$68,$68,$69,$6B,$69,$69,$69,$64,$7C,$62,$7C,$66,$7C,$66,$7C,$66,$64,$64,$66,$64,$66,$66,$66,$62,$7C,$6B,$7C,$64,$7C,$64,$7C,$64,$68,$68,$69,$6B,$69,$69,$69,$64,$7C,$62,$7C,$66,$7C,$66,$7C,$66,$64,$64)
endif
goto change
change:
if input2 = on then
goto insert
endif
if input5 = on then
goto main
endif
goto change