5 ! Maxen.800
6 ! Konv. B M}rtensson Word & Music 1985
7 INTEGER : NO EXTEND 
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   Z=FNL(10,50)
80 NEXT K 
85 Z=FNL(200,1)
90 ; : ; "Nu dog han." : GOTO 110
100 FOR I.=0. TO 100. : NEXT I. : RETURN 
110 ; CUR(22,70) "Return"; : GET S$
111 END 
120 DEF FNL(L1,F1)
130   FOR I=1 TO L1
140     Z=INP(5)
150     FOR J=1 TO F1
160     NEXT J 
170   NEXT I 
180   RETURN O
190 FNEND