Atari 8-bit Source code

0 CLS:​POSITION 8,​8:​PRINT "K1NDERC0MP":​POSITION 8,​9:​PRINT "1-NUMBER,​2-DRAW":​GET A:​IF A=50 THEN X=2:​Y=2:​CLS:​GOTO 5
1 IF A=49 THEN CLS:​C=4:​D=4:​INPUT "WHY NOT ENTER A THREE-DIGIT NUMBER AND PRESS ENTER";B
2 POSITION C,​D:​PRINT B:​E=E+1:​IF E>20 THEN E=0:​D=D+1:​C=D:​SOUND 1,​F,​10,​12:​IF D>20 THEN DSOUND:​GOTO 0
3 F=D+10:​GOTO 2
4 IF STRIG(0)=0 THEN GOTO 0
5 REPEAT:​I=I+1:​POSITION X,​Y:​PRINT " ":​UNTIL I>10:​I=0:​POSITION X,​Y:​PUT 160:​S=STICK(0):​IF S=7 AND X<37 THEN X=X+1
6 IF S=11 AND X>2 THEN X=X-1:​IF STRIG(0)=0 THEN GOTO 0
7 IF S=14 AND Y>2 THEN Y=Y-1:​IF X>-1 THEN POSITION X,​Y:​PUT 155
8 IF S=13 AND Y<20 THEN Y=Y+1
9 GOTO 4