64'er 1989 Janurary/64er_Magazin_89-01_1989_Markt__Technik_de_Side_B.d64/zahlen

Commodore BASIC | 1989-01-01 | 1.1 KB | 21 lines

1 clr:print"":input"[194]itte [218]iffernfolge eingeben:";u$
2 forx=1to9:w$(x,3)="und":w$(x,5)="hundert":w$(x,1)="ig":nextx:j=2.5
3 l=int((len(u$)+j)/3):iflen(u$)<l*3thenw=1:fori=len(u$)+1tol*3:u$="0"+u$:nexti
4 restore:fori=1to28:reada$:next:fori=lto1step-1:readp$(i):next
5 forx=1tol:d$(x)=left$(u$,3):u$=right$(u$,(l*3)-(3*x)):next
6 forx=1tol:ifval(d$(x))=0thenw$(x,1)="":w$(x,3)="":w$(x,5)="":p$(x)="":goto16
7 a1$=left$(d$(x),1):ifa1$="0"thenw$(x,6)="":w$(x,5)="":goto9
8 restore:foru=1toval(a1$):readw$(x,6):next
9 a3$=right$(d$(x),1):if a3$="0"then w$(x,4)="":w$(x,3)="":goto11
10 restore:foru=1toval(a3$):readw$(x,4):next
11 a2$=mid$(d$(x),2,1):ifa2$="0"ora2$="1"thenw$(x,1)="":w$(x,3)=""
12 ifa2$="1"thenrestore:foru=1toval(a3$)+19:readw$(x,2):next:w$(x,4)="":goto14
13 restore:foru=1toval(a2$)+9:readw$(x,2):next:ifa2$="0"then w$(x,2)=""
14 ifa2$="0"anda3$="0"ora2$="0"anda1$="0"then w$(x,2)=""
15 if a2$="0"anda3$="1"anda1$<>"0"then w$(x,4)=w$(x,4)+"s"
16 nextx:forx=1tol:fory=6to1step-1:printw$(x,y);:nexty:printp$(x);:nextx:goto1
17 data ein,zwei,drei,vier,fuenf,sechs,sieben,acht,neun,zehn,zwanz,dreiss,vierz
18 data fuenfz,sechz,siebz,achtz,neunz,zehn,elf,zwoelf,dreizehn,vierzehn
19 datafuenfzehn,sechzehn,siebzehn,achtzehn,neunzehn,,tausend,millionen
20 data milliarden,billionen,billiarden,trillionen,trilliarden,quadrillionen