10 ; CHR$(12%)"H{r {r masken Max som {r ute och g}r"
20 FOR K%=0% TO 38%
30 ; CUR(K%-27%,39%)" ";
40 ; CUR(K%-26%,39%)".";
50 ; CUR(12%,K%)" ."; : GOSUB 100
60 ; CUR(12%,K%)" _"; : GOSUB 100
70 OUT 6,0 : OUT 6,121
80 NEXT K% : OUT 6,137%
90 ; : ; "Nu dog han" : END 
100 FOR I=0 TO 100 : NEXT I : RETURN