1 DATA,10,ZEHN,EIN,11,ELF,ZWEI,12,ZWOELF,DREI,16,SECHZEHN,VIER,17:DATASIEBZEHN,FUENF,20,ZWANZIG,SECHS,30,DREISSIG,SIEBEN:DATA60,SECHZIG,ACHT,70,SIEBZIG,NEUN,,:A$="":B$="":C$="":G$="":B=0:M=0:X=0:I=0:GOTO5
2 FORV=0TO8:IFVAL(C$)=W(V)THENE$(2)=W$(V):M=1
3 NEXTV:RETURN
4 A$=RIGHT$(A$,B):FORI=B+1TO7:A$="0"+A$:NEXTI:RETURN
5 INPUTA$:FORX=0TO9:READV$(X),W(X),W$(X):NEXTX:A$=STR$(INT(VAL(A$))):B=(LEN(A$))-1:GOSUB4:A$=RIGHT$(A$,6):IFA$="000000"ORB>6THENCLR:GOTO5
6 FORX=1TO4STEP3:B$=MID$(A$,X,3):FORI=3TO1STEP-1:E(I)=VAL(MID$(B$,I,1)):E$(I)=V$(E(I)):NEXTI:C$=MID$(B$,2):IFE(2)=0ORE(2)=4ORE(2)=5ORE(2)=8ORE(2)=9GOTO10
7 GOSUB2:IFM<>1THENC$=LEFT$(C$,1)+"0":GOSUB2
8 IFC$="11"ORC$="12"ORC$="16"ORC$="17"THENE$(3)=""
9 GOTO13
10 IFE(2)>0THENIFM<>1THENE$(2)=E$(2)+"ZIG"
11 IFE(3)=1THENIFE(2)=0THENIFE(1)>0THENIFX=1THENE$(3)="EINS"
12 IFE(3)=1THENIFE(2)=0THENIFX>1THENE$(3)="EINS"
13 IFE(2)>1THENIFE(3)>0THENE$(3)=E$(3)+"UND"
14 IFE$(1)<>""THENE$(1)=E$(1)+"HUNDERT"
15 G$=G$+E$(1)+E$(3)+E$(2):IFX=1THENIFB$<>"000"THENG$=G$+"TAUSEND"
16 M=0:NEXTX:PRINTG$