5000 "K"CLEAR :CLS :WAIT 0
5005 DIM K(11),K$(1)*16:LINE -(98,31),B:LINE (98,0)-(149,22),B
5006 CURSOR 88:PRINT "Po:0"
5007 K$(0)="303040F0806030":K$(1)="302040F0206060"
5010 GOSUB 5060:FOR N=0 TO 200
5015 A=RND 10:K(A)=K(A)+1:IF K(A)>7 GOTO 5050
5020 GCURSOR (A*8+2,35-K(A)*4):GPRINT K$(RND 2-1)
5030 IF INKEY$ GOSUB 5060
5040 NEXT N:P=P+500:GOSUB 5090
5050 WAIT :CURSOR 95:PRINT " Kraj !":GOTO 5000
5060 IF INKEY$ ="Z" GOSUB 5070
5062 X=(INKEY$ =",")-(INKEY$ ="+")+X
5065 GCURSOR (X*8+2,3):GPRINT "101010101010101070F0F0F0F0701010101010101010":RETURN 
5070 FOR I=11 TO 36 STEP 8:GCURSOR (X*8+9,I):GPRINT "040A11A44A11A040":NEXT I
5075 FOR I=11 TO 36 STEP 8:GCURSOR (X*8+9,I):GPRINT "0000000000000000":NEXT I
5080 P=P+K(X+1):K(X+1)=0
5090 CURSOR 91:PRINT STR$ P:RETURN