2 ! **********************************************************************
3 ! Program          GUBBENOA.BAS     Utg}va  1.0      1986-11-23
4 ! av Curt Rehnborg, <1121>
5 ! Ins{nd av Curt Rehnborg
6 ! **********************************************************************
8 INTEGER : EXTEND 
10 REM ******************H. Richter 1979*************************
20 ; CHR$(12) ""
30 DIM A$(19),A(19) : FOR I=1 TO 19 : READ A$(I),A(I) : NEXT I 
40 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
50 READ A$,T,B$ : IF A$="" THEN 230
60 ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 
70 FOR I=1 TO 18 : IF A$<>A$(I) THEN NEXT I ELSE A=A(I) : GOSUB 190 : GOTO 50
80 ; : ; : ; "Undefined symbol: ";A$ : GOTO 230
90 DATA c,2,Gub,c,2,ben,c,2,' No',e,2,ack,d,2,' gub',d,2,ben
100 DATA d,2,' No',f,2,ack,p,1,' '
110 DATA e,2,'var',e,2,' en',d,2,' hed',d,2,ers,c,3,' man',p,3,'. '
120 DATA e,2,'N{r',e,2,' han',e,2,' steg',e,2,' ur',g,4,' ar',f,3,ken,p,1,' '
130 DATA d,2,'plante',d,2,ra,d,2,' han'
140 DATA d,2,' p}',f,4,' mar',e,2,ken,p,1,'. '
150 DATA c,2,Gub,c,2,ben,c,2,' No',e,2,ack,d,2,' gub',d,2,ben
160 DATA d,2,' No',f,2,ack,p,1,' '
170 DATA e,2,'var',e,2,' en',d,2,' hed',d,2,ers,c,3,' man',p,1,'. '
180 DATA ,0,ende
190 IF MID$(B$,LEN(B$),1)=" " THEN FOR I=1 TO 100 : NEXT I : RETURN 
195 O=121 : IF A=0 THEN O=0 ELSE T1=50/SQR(A)
200 FOR I=1 TO T1*T*2.4
210   Q=INP(5) : FOR T=0 TO A : NEXT T 
220 Q=INP(5) : NEXT I : RETURN 
230 END