1 REM ******************H. Richter 1979*************************
2 ; CHR$(12)""
4 DIM A$(19),A%(19) : FOR I%=1% TO 19% : READ A$(I%),A%(I%) : NEXT I%
5 DATA p,0,c,45,e,34,d#,37,f,31,g,27,a,23,h,20,c',18,d',15,c'#,16,d'#,14,d,40,f#,29,a#,21,c#,42,g#,25,c#',16,d#',14
6 READ A$,T%,B$ : IF A$="" THEN END 
7 ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 
8 FOR I%=1% TO 18% : IF A$<>A$(I%) THEN NEXT I% ELSE A%=A%(I%) : GOSUB 52 : GOTO 6
9 ; : ; : ; "Undefined symbol: ";A$ : END 
11 DATA c,2,Blin,c,2,ka,g,2,' lil',g,2,la,a,2,' stj{r',a,2,na
12 DATA g,4,' d{r'
13 DATA f,2,' hur',f,2,' jag',e,2,' und',e,2,rar
14 DATA d,2,' var',d,2,' du',c,4,' {r'
15 DATA p,0,'. ',g,2,'Fj{r',g,2,ran,f,2,' lock',f,2,ar,e,2,' du',e,2,' min',d,4,' syn'
16 DATA p,0,'. ',g,2,'Likt',g,2,' en',f,2,' di',f,2,a,e,2,' mant',e,2,' i',d,4,' skyn. '
17 DATA c,2,Blin,c,2,ka,g,2,' lil',g,2,la,a,2,' stj{r',a,2,na
18 DATA g,4,' d{r'
19 DATA f,2,' hur',f,2,' jag',e,2,' und',e,2,rar
20 DATA d,2,' var',d,2,' du',c,4,' {r '
51 DATA ,0,ende
52 O%=121% : IF A%=0% THEN O%=0% ELSE T1%=50%/SQR(A%)
53 FOR I%=1% TO T1%*T%*2.4
54 OUT 6%,O% : FOR T%=0% TO A% : NEXT T%
55 OUT 6%,0% : NEXT I% : RETURN