1 DIMA$(26)
2 FORI=1TO26:READA$(I):NEXT
10 INPUT"";A$
40 PRINT""CHR$(13)
60 FORI=1TOLEN(A$)
70 A=ASC(MID$(A$,I,1))−64
80 PRINTA$(A)"";:IFI=LEN(A$)−1THENPRINT"";
90 NEXT
91 GETB$:IFB$=""THEN91
92 GOTO10
100 DATAANFAENGER,BORSTENSCHWEINE,CHROMOSOMEN,DEPPEN,ERPEL,FADENMOELCHE
101 DATAGRINGOS,HILFEBEDUERFTIGE,IDIOTEN,JOGGER,KIFFER,LABBERSAECKE,MUGGER
102 DATANILPE,OBDACHLOSE,PFEIFEN,QUERULANTEN,RADIKALE,STUEMPER
103 DATATROTTEL,UNFAEHIGE,VERSAGER,WANDERER,XENON,YNDER,ZOMBIES
READY.
