100 CLEAR:DIM I(6)
110 DEFCHR$(255)="545454545400"
120 DIM A$(3):A$(1)="-":A$(2)="=":A$(3)=CHR$(255)
130 DIM D$(12):RESTORE:FORI=1TO12:READ D$(I):NEXT
140 DATA 0,1,2,3,4,5,6,7,8,9,n," "
150 U=11:Z=12
200 CLS
210 LOCATE0,0:PRINT".:Change number";
220 LOCATE0,1:PRINT"E:Fire";
230 LOCATE0,2:PRINT"PUSH [EXE] TO START";
240 IF INKEY$<>CHR$(13) GOTO 220
300 CLS
310 SC=0:ST=0:AR=3
320 DI=0:MI=16
330 FORI=1TO6:I(I)=Z:NEXT
340 WT=30-(ST*3):W=WT:KP$=""
350 AM=1:NA=30:SUM=0:UF=0:NI=DI
400 LOCATE 0,0:PRINT D$(AM);A$(AR);
500 W=W-1
510 IF W=1 THEN GOSUB 1000:GOTO 500
520 IF W=0 THEN GOSUB 1200:GOTO 500
530 K$=INKEY$:IF K$=KP$ GOTO 500
540 KP$=K$
550 IF K$="." THEN GOSUB 600:GOTO 500
560 IF K$="E" THEN GOSUB 700:GOTO 500
570 GOTO 500
600 AM=AM MOD 11+1
610 LOCATE 0,0:PRINT D$(AM);
620 RETURN
700 NA=NA-1:IF NA<=0 GOTO 2200
710 D=0:FORI=1TO6
720 IF AM=I(I) THEN D=I:I=6
730 NEXT
740 IF D=0 THEN RETURN
750 IF AM>=U THEN 780
760 SC=SC+D*10:SUM=SUM+(AM-1):UF=1:DI=DI+1
770 GOTO 790
780 SC=SC+300
790 '
800 IF DI>=MI THEN RETURN 2000
810 IF D=1 GOTO 830
820 FOR I=D TO 2 STEP -1:I(I)=I(I-1):LOCATE I+1,0:PRINT D$(I(I));:NEXT
830 I(1)=Z:LOCATE 2,0:PRINT " ";
840 RETURN
1000 '
1010 IF I(1)<>Z THEN RETURN 2100
1020 IF NI>=MI THEN V=Z:GOTO 1070
1030 IF UF=1 AND (SUM MOD 10)=0 THEN V=U:UF=0:GOTO 1070
1040 V=FIX(RAN#*10)+1
1050 NI=NI+1
1070 RETURN
1200'
1210 FORN=1TO5:I(N)=I(N+1):LOCATE N+1,0:PRINT D$(I(N));
1220 K$=INKEY$
1230 IF K$="." THEN GOSUB 600
1240 IF K$="E" THEN GOSUB 700
1250 NEXT
1260 I(6)=V:LOCATE 7,0:PRINT D$(V);
1270 W=WT
1280 '
1290 RETURN
2000 M$="Stage clear!":GOSUB 3000
2010 ST=ST+1
2020 IF ST>9 THEN ST=0
2030 CLS:GOTO 320
2100 AR=AR-1:IF AR<=0 GOTO 2200
2110 M$="Failed!":GOSUB 3000
2120 CLS:GOTO 330
2200 M$="Game over!":GOSUB 3000
2210 GOTO 200
3000 LOCATE0,1:PRINT USING "#-######";ST;SC;
3010 LOCATE0,3:PRINT "Push [EXE] key";
3020 LOCATE0,2:PRINT M$;
3030 K=0
3040 FORI=1TO25
3050 IF INKEY$=CHR$(13) THEN K=1:I=25
3060 NEXT
3070 IF K<>0 GOTO 3110
3080 LOCATE0,2:FORI=1TOLEN(M$):PRINT " ";:NEXT
3090 '
3100 GOTO 3020
3110 RETURN