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,Gub,c,2,ben,c,2,' No',e,2,ack,d,2,' gub',d,2,ben 12 DATA d,2,' No',f,2,ack,p,1,' ' 13 DATA e,2,'var',e,2,' en',d,2,' hed',d,2,ers,c,3,' man',p,3,'. ' 14 DATA e,2,'N{r',e,2,' han',e,2,' steg',e,2,' ur',g,4,' ar',f,3,ken,p,1,' ' 15 DATA d,2,'plante',d,2,ra,d,2,' han' 16 DATA d,2,' p}',f,4,' mar',e,2,ken,p,1,'. ' 17 DATA c,2,Gub,c,2,ben,c,2,' No',e,2,ack,d,2,' gub',d,2,ben 18 DATA d,2,' No',f,2,ack,p,1,' ' 19 DATA e,2,'var',e,2,' en',d,2,' hed',d,2,ers,c,3,' man',p,1,'. ' 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