1 DEFINT a-s:INK 0,0:BORDER 0:MODE 0:PEN 5:PRINT"CrocoFest":FOR a=1 TO 9:FOR l=1 TO 7:FOR c=0 TO 6:i=TEST(a*32+c*4-32,401-l*2):WHILE i:MOVE a*(a>6)+c*12+a*70-66,409-l*26:DRAWR 4,-30,a-(a>4):DRAWR 8,4:DRAWR -4,28:i=0:WEND:NEXT c,l,a:v=&BC00:w=&BD00:z=&BD19
2 t=34:u=t:WHILE u>12:WHILE t>12:CALL z:OUT v,7:OUT w,t:t=t-2:WEND:u=u/1.1:SOUND 3,450,4,15:WHILE t<u:CALL z:OUT v,7:OUT w,t:t=t+1:WEND:WEND:FOR a=14 TO 36:OUT v,7:OUT w,a:SOUND 3,a*29,2:NEXT:WHILE INKEY(47):SOUND 3,99+RND*99,1+RND,RND*11:WEND:GOTO 2