60000 DIM W(6)
60010 PRINT"EINGABE:";
60020 PRINT"000000[157]";:A$="[157]^[145][157]":S=6
60030 A=PEEK(56321)
60040 IFA=254ANDW(S)<9THENW(S)=W(S)+1
60050 IFA=253ANDW(S)>0THENW(S)=W(S)-1
60060 IFA=251ANDS>1THENS=S-1:PRINT" [145][157][157]";
60070 IFA=247ANDS<6THENS=S+1:PRINT" [145]";
60080 IFA=239THEN60110
60090 PRINTRIGHT$(STR$(W(S)),1)A$;
60100 GOTO60030
60110 W=W(6)+W(5)*10+W(4)*100+W(3)*1000+W(2)*10000+W(1)*100000
60120 PRINT:PRINT
60130 PRINT"WERT:"W
60140 POKE198,0