1 '(c)Masahiro Ueno 1995

10 CLS :RANDOMIZE

20 DIM K(14)

30 B=1,C=0,S=0,T=60

40 LINE (1,-1)-(57,9),BF:LINE (3,0)-(55,8),R,BF:LINE (-1,20)-(58,32),B

50 LOCATE 35,0:PRINT "TIME":LOCATE 36,1:PRINT "60"

60 M=0:GOSUB 850

70 I=1,J=0:FOR K=0TO 4:J=5+4*(K=2OR K=3),I$=MID$ ("READY  3  21OPEN!",I,J):WAIT -53*(K<4):BEEP -(K>0AND K<4)*B,68,30:LOCATE ABS (J-4)+1,0:PRINT I$:I=I+J:NEXT

80 BEEP B,0,350:LINE (117,6)-(205,16),B:LINE (116,11)-(99,13)

100 M=0:GOSUB 850:Q=-4:GOSUB 800:Q=0,K=0,L=7,W=310,J=RND 3:IF J=1LET G$="´-Ä "ELSE G$=""

110 F=RND L:RESTORE 1190+10*F:READ I$,P:G$=G$+I$:IF F=7LET K=7,L=3,M=P:GOTO 110

120 F=F+K,K=0,P=P+M,X=5-5*(F>7)-4*(J=1),J=0

200 LOCATE 20,1:PRINT "              ":D=410,E=0,H=0,N=0,M=0:GOSUB 840

210 U=U+7:IF U<208THEN 250

220 U=U-209:T=T-1:LOCATE 36,1:PRINT USING "##";T:IF T<1THEN 700

230 BEEP B,5-63*(T<4),1-29*(T<4)

250 C=C+1:IF C<6THEN 400

260 C=0,A=0,E=0,U=U+2:IF M=1LET M=0:GOSUB 840

300 GOTO W

310 IF J=X LET W=400:GOTO 400

320 J=J+1,I$=MID$ (G$,J,1):LOCATE 16+J,3:PRINT I$

400 I$=INKEY$ :I=ASC I$-65:GOTO D

410 IF I<2OR I>19THEN 210

420 RESTORE 1280+10*I:READ H,K(0),K(1),K(2),K(3),K(4),K(5),K(6),K(7),K(8),K(9),K(10),K(11),K(12),K(13),K(14):IF H LET D=430:GOTO 450ELSE 210

430 IF I=-65OR I=K(N-1)LET U=U+1:GOTO 210

440 IF I=K(N)GOTO 450+10*M ELSE BEEP B*2,99,10:U=U+63:GOTO 200

450 M=1,U=U+37:GOSUB 840:GOTO 470

460 U=U+32:LINE (75,14)-(76,15),X,B

470 LOCATE 20+N,1:PRINT CHR$ (I+65):N=N+1,E=E+1,A=INT (2^(E-4)),C=0

480 LOCATE 1,0:PRINT USING "+ \####.";A:IF K(N)>-1THEN 210

490 LOCATE 1,0:PRINT "   OK   ":Q=Q+A+(X-J)*50:IF H=7LET K=7:GOTO 200

500 H=H+K,K=0,L=-(H=4)-2*(H=5)-3*(H=6)-4*(H>7),I$="00000000"+MID$ ("F0A8A8A8A8A8F0C0A0A0A0A0A0C0FE8C8E8C8E8CFE00F8888E8AFA00FCAAAAAAAAAAFC",1+14*L,14)

510 FOR I=0TO 44STEP 4:GCURSOR (I,19):GPRINT I$:NEXT :I=0

550 N=Q+P:IF F<>H THEN 570

560 S=S+N,M=1:G$="Thankyou! +\":GOTO 580

570 S=S-N,M=2:G$=" Sorry... -\"

580 GOSUB 850:WAIT 12

590 FOR I=1TO 11:LOCATE 1,0:PRINT MID$ (G$+STR$ N+". ",I,8):WAIT 1-3*(I=11):NEXT :WAIT 0

600 RESTORE 1080:READ I$:GCURSOR (-7,19):GPRINT I$+I$:LOCATE 1,0:PRINT USING "\######.";S:LOCATE 17,3:PRINT "               ":Q=2:GOSUB 800:GOTO 100

700 BEEP B,0,350:LOCATE 1,0:PRINT USING "\######.";S:M=2+(S>Z):GOSUB 850

710 LOCATE 17,3:IF M=2PRINT USING "TOP : \######. ";Z:ELSE PRINT "  HI-SCORE!!   ":Z=S

720 LOCATE 0,2:PRINT :END

800 J=ABS Q,H=23+4*J,J=8/J

810 FOR I=1TO J:GCURSOR (203,H+I*Q):GPRINT "80C0E0E0F0F0F8F8F8F8FCFCFCFCFCFCFCFCF8F8F0E0F0F8F8F8F8F8F0F0E0E0C080":NEXT

820 IF Q=-4FOR I=0TO 1:LINE (127,27)-(171,27),X:BEEP B*(1-I),38,17:NEXT

830 LINE (100,22)-(193,32),X,B:LINE (194,27)-(201,28),X:BEEP -B*(Q=-4),83,32:RETURN

840 RESTORE 1120+10*M:FOR L=0TO 1:READ I$:GCURSOR (73,8+8*L):GPRINT I$:NEXT :RETURN

850 RESTORE 1000+40*M:FOR L=0TO 2-(M=0):READ I$:GCURSOR (60,7+8*L):GPRINT I$:NEXT :RETURN

1000 DATA 0080F8EEF5FAFAFDFDFC3EFE8EBE0E023E9EFE5F3FFFFEFEFC780000000000

1010 DATA 00070F1F7F3FEFF7E1C281030300404000290180400F000301000000000000

1020 DATA 804020207050B05BAF5FAB57A54ACA0AEA921927C27CAC54A858A850A0C0

1030 DATA 0F30E00000010203061D6A55AA55AA55AB55AB56AB57BEF5AE5BAA55ADFE013E6080

1040 DATA 00000000C0F0E8ECF6F5F4F4F2FAFAFA7AFAFA7AFA3A1AFAFAFAFAF7FCF0E0

1050 DATA 00000000071F0F7FFFF7FFE383010502430680810028050CC31F0F070F0703

1060 DATA 804020207050B058AF5FAB57A449CA0AEC941C24C47EAE57A958A850A0C0

1070 DATA 0F30E00000010203061D6A55AA55AA55AB55AB56AB57BEF5AE5BAA55ADFE013E6080

1080 DATA 00000000000000000000000000000000000000000000000000000000000000

1090 DATA 000000000000E0F8FCFC9E7E86030303030303030202020604040810608000

1100 DATA 804020207050BF5FAF7FBEFDFAF5F5EAEAEAEAEAEAEAEA6AEAEAFA76BBC7

1110 DATA 0F30E00000010203061D6A55AA55AB55AB57AB56AB57BEF5AE5BAA55ADFE013E6080

1120 DATA 3F07011F6F,0000000024A0

1130 DATA 5F07011FCF,002040601480

1200 DATA ÃØÔ·,330

1210 DATA Á·Ý,310

1220 DATA ̨¯¼­,270

1230 DATA ÄÞ¯¸Þ,260

1240 DATA ÎßÃÄL,240

1250 DATA ¼Þ­-½,150

1260 DATA ÀÞÌÞÙ,100

1300 DATA 2,2,7,8,2,10,4,13,1,20,17,6,4,17,-1

1310 DATA 7,3,14,20,1,11,4,-1

1320 DATA 0

1330 DATA 3,5,8,18,7,1,20,17,6,4,17,-1

1340 DATA 0

1350 DATA 4,7,14,19,3,14,6,-1

1360 DATA 0

1370 DATA 6,9,20,8,2,4,-1

1380 DATA 0

1390 DATA 0

1400 DATA 0

1410 DATA 0

1420 DATA 0

1430 DATA 5,15,14,19,0,19,14,11,-1

1440 DATA 0

1450 DATA 0

1460 DATA 0

1470 DATA 1,19,4,17,8,24,0,10,8,1,20,17,6,4,17,-1

60000 *ALICE CLS :CLEAR :OPEN BTEXT$ FOR INPUT AS #1:D$=INPUT $(&13,&1):DIM A(&2)

60010 A$="/;:KD8aIUoEAPB2DH4LM3U>JR_\bj?\gfMbaKci27gBE8NcTYa\ff^IMW=6;LjI_]2]@dLUK@_Q3CGQ[fppCMW8C/1TG

60020 FOR J=&1TO LEN A$:Y=ASC MID$ (A$,J,&1):FOR I=&TO &2:A(I)=ASC INPUT $(&1,&1):NEXT :A=&1,B=A(&)+A(&1),C=A(&)*256+A(&1):PRINT C;:IF Y<48LET D$=INPUT $(A(&2),1):GOTO "CK"ELSE FOR I=2TO A(&2):Z=ASC INPUT $(1,1),B=B+A*(Z-(Z>95))+1,A=3-A:NEXT

60030 D$=INPUT $(&1,&1):IF Y+(Y>95)<>(B-32768AND 63)+48BEEP 1:WAIT :PRINT "ÀÞÒ!";:WAIT &:M=&1

60040 "CK"PRINT :NEXT :IF M PRINT "µÜØ"ELSE BEEP &3:PRINT "¶ÝÍß·È!"