60000 PRINT"[147][144]":Z1=48:Z2=48:Z3=48:Z4=48:Z5=48:Z6=48:AZ=0
60005 IF PEEK(56321)<>254 THEN60005
60010 BA=1520:ZC=48:POKEBA,ZC:POKEBA+1,ZC:POKEBA+2,ZC:POKEBA+3,ZC:POKEBA+4,ZC
60011 POKEBA+5,ZC:FORS=1TO100:NEXT
60020 IF PEEK(56321)<>255 THEN 60025:
60021 GOTO 60020
60025 POKEBA+40,32:IF PEEK(56321)=254 THENPOKEBA,Z1:Z1=Z1+1:IF Z1>57THENZ1=48
60026 GOTO 60032
60032 IF PEEK(56321)=247 THEN60037
60033 GOTO 60039
60037 IF PEEK(56321)=254 THENPOKEBA+1,Z2:Z2=Z2+1:IF Z2>57 THEN Z2=48
60038 BA=BA+1:IF BA>1525THENBA=1520
60039 IF PEEK(56321)=251 THEN 60041
60040 GOTO60045
60041 IF PEEK(56321)=254 THEN POKEBA-1,Z2:Z2=Z2+1:IF Z2>57THENZ2=48:
60042 BA=BA-1:IF BA<1520 THENBA=1525
60045 IF PEEK(56321)=247 THEN60050
60047 GOTO60055
60050 IF PEEK(56321)=254 THEN POKEBA+2,Z3:Z3=Z3+1:IF Z3>57 THEN Z3=48
60051 BA=BA+1:IF BA>1525 THEN BA=1520
60055 IF PEEK(56321)=247 THEN 60060
60057 GOTO60065
60060 IF PEEK(56321)=254 THEN POKEBA+3,Z4:Z4=Z4+1:IF Z4>57 THENZ4=48
60061 BA=BA+3:IF BA>1525 THEN BA=1520
60065 IFPEEK(56321)=247 THEN 60070
60067 GOTO60075
60070 IF PEEK(56321)=254 THENPOKEBA+4,Z5:Z5=Z5+1:IF Z5>57 THEN Z4=48
60071 BA=BA+4:IF BA>1525 THEN BA=1520
60075 IF PEEK(56321)=247 THEN60080
60077 GOTO 60085
60080 IF PEEK(56321)=254 THEN POKEBA+5,Z6:Z6=Z6+1
60081 BA=BA+5:IF BA>1525 THEN BA=1520
60085 POKEBA+40,30
60089 IF PEEK(56321)=239 THEN 60091
60090 GOTO 60020
60091 IF PEEK(56321)<>239 THEN GOTO 60020
60092 FORS=1TO45:NEXT:IF PEEK(56321)<>239 THEN 60020
60097 Z1=PEEK(1520)-48:Z2=PEEK(1521)-48:Z3=PEEK(1522)-48:Z4=PEEK(1523)-48
60098 Z5=PEEK(1524)-48:Z6=PEEK(1525)-48
60099 AZ=(Z1*100000)+(Z2*10000)+(Z3*1000)+(Z4*100)+(Z5*10)+Z6
60100 PRINT"[147][154]DIE ZAHL HEISST: ";AZ
60110 GETA$:IF A$=""THEN60110
60120 IF PEEK(56321)<>255 THEN60110