DAY 7

Finalize Toy Hack:

Franken Chicken LIVES!!!!

Here's my initial program attempt:

main:

serout 0, N2400, (10,13)

serout 0,N2400, ("Press a key...")

serin 4,N2400,b1

serout 0,N2400,(b1)

if b1="a" then hot

goto main

hot:

serout 0, N2400, (10,13,"A is the Hot Key!")

high 1

pause 2000

low 1

pause 500

play 0,0

sound 2,(50,100)

sound 2,(100,100)

sound 2,(120,100)

pause 1000

goto main