10 MODE 0:PEN 4:h=1:i=5:CALL &BC02:t$="01b00001fc00024a0002da0003f9001c008014008020008020088020710c2783341804440702880081080081100100100d0e10120920111120f9f3ff860c01bbba5d8aab51baabdda2bac5abaa5dbbaa5d800001ffffff":PRINT"  STP-DESSINE MOI     UN CROCO !"
20 FOR l=0 TO 28:FOR c=0 TO 2:b$=BIN$(VAL("&"+MID$(t$,1+l*6+c*2,2)),8):FOR x=1 TO 8:p=VAL(MID$(b$,x,1)):WHILE p=h:FOR y=1 TO 5:MOVE 8+x*24+192*c,364-l*10-(l+y)*2:DRAWR 16,0,i:NEXT:p=9:WEND:NEXT x,c,l:h=1+-h:i=RND*15:LOCATE 6,25:PRINT"AMSTRAD.EU":GOTO 20