100 'Smile! my Goddess!

110 '(c)2000/02/17 Masahiro Ueno

115 'OPAS,OMP/Ochame Soft

120 CLS :OPEN "SCRN:"FOR OUTPUT AS #1

130 RANDOMIZE :C=1,P=0:DIM B(1),C(1),K(1),L(1),M(1),S(1)

135 LINE (80,5)-(160,20),BF:LINE (78,6)-(78,19):LINE (162,6)-(162,19)

140 RESTORE 560:FOR I=0TO 1:GCURSOR (50+120*I,23):GPRINT "4C203F4C017D277D40000C7F027C4369526E417C"

150 LOCATE 11+20*I,3:PRINT "%":FOR J=0TO 1:READ I$:GCURSOR (44+123*I,4+8*J):GPRINT I$:NEXT :NEXT

155 GCURSOR (156,30):GPRINT "10D0B0008070C080":LOCATE 25,3:PRINT "0":GCURSOR (147,19):GPRINT "BF5FEFFF2F8F3FBFFF1F3FDF3F"

160 POKE &BFCA1,64:LOCATE 24,1:PRINT USING "##";C:POKE &BFCA1,0:M(0)=3*RND 4:K=0:GOSUB 430:F=0,B=0

170 M(1)=3*RND 4:IF M(0)-M(1)LET M(1)=M(1)+15ELSE 160

180 J=-20*(C<9)+INT (RND (SQR (RCP C))*10)*2:FOR I=0TO 1:GCURSOR (17+I*186,34):GPRINT "0609090909090909090909090909090909090906":L=I,K=M(I),L(I)=0,C(I)=0,S(I)=0:GOSUB 400

190 K(I)=RND 3:NEXT :I=RND 2-1:IF C>28LET K=28ELSE K=C

200 B(I)=-10*(C>9)+2*RND (5+K),B(-(I-1))=B(I)+J:GCURSOR (110,32):GPRINT "043E4444545E0410080810100038444232024438":G=0,M$="$8:5Y1Z":GOSUB 380

210 FOR I=0TO 2:FOR J=0TO 24:FOR K=0TO 1:IF S(K)THEN 230ELSE IF B(K)-G THEN LOCATE 9+20*K,3:PRINT USING "##";G:GOTO 230

220 S(K)=1:IF K<>F-1RESTORE 520+10*K(K):READ I$:GCURSOR (53+116*K,9):GPRINT I$:L(K)=K(K)

230 A=ASC INKEY$ :A=A-241:IF A<0THEN 260

240 IF A=0OR A=4IF F=0GCURSOR (17+A*46.5,34):BEEP 1,12,8:GPRINT "0609090D0D0F0F0F0F0F0F0F0F0F0F0F0F0F0F06":F=1-(A=4),L(F-1)=0,K=(F-1):GOSUB 370:GOTO 260ELSE 260

250 IF F>0IF L(F-1)=0RESTORE 520+10*A:READ I$:BEEP 1,20,4:BEEP 1,194,10:GCURSOR (53+116*(F-1),9):GPRINT I$:L(F-1)=A

260 NEXT :G=G+2:NEXT :B=-3*(B=0),K=B:GOSUB 430:RESTORE 500+10*I:READ I$:GCURSOR (110,32):GPRINT I$:BEEP 1,84,3:BEEP 1,173,5:NEXT

270 FOR L=0TO 1:IF L(L)=0LET L(L)=K(L):RESTORE 520+10*K(L):READ I$:GCURSOR (53+116*L,9):GPRINT I$

280 K=L(L)-1+15*L:GOSUB 400:NEXT :M$="$70:1BABABABABABABA":GOSUB 380

290 A=L(0)-L(1),J=ABS (A):IF A=0LET D=2ELSE IF J=1IF A<0LET D=0ELSE D=1ELSE IF J=2IF A>0LET D=0ELSE D=1

300 FOR L=0TO 1:K=M(L)+2+(L=D):GOSUB 400:NEXT

310 IF B(0)=B(1)LET W=2ELSE IF B(0)<B(1)LET W=0ELSE W=1

320 IF W-D LET K=2:GOSUB 430:LOCATE 11,3:PRINT " ]GAME OVER[":M$="$9:1JQOM3LH8J":GOSUB 380:END

330 J=P+1,P=J:IF F>0AND F=W+1LET L=1:GOSUB 360:P=P+1,M$="$50:1VXYZ3[":GOSUB 380

340 C=C+1,K=1:GOSUB 430:M$="$28:2JMQ4R2QO8M":GOSUB 380:WAIT 8:FOR I=J TO P:BEEP 1,20,2:LOCATE 23,3:PRINT USING "###";I:NEXT :WAIT 0

350 FOR K=0TO 1:GOSUB 370:NEXT :L=0:GOSUB 360:IF C<100THEN 160ELSE LOCATE 11,3:PRINT " ]GOOD JOB![":M$="$10:2QQ4V2QQ4X2QQYX8V":GOSUB 380:END

360 RESTORE 990+10*L:READ I$:GCURSOR (80,31):GPRINT I$:RETURN

370 RESTORE 990:READ I$:GCURSOR (53+116*K,9):GPRINT I$:RETURN

380 FOR R=&1TO LEN M$:Z=ASC MID$ (M$,R,1):IF Z>64LET X=6.13*TEN (0.02508*Z):BEEP 1,64000/X-22,X*Y/T ELSE IF Z>47LET Y=Z-48ELSE IF Z=36LET T=VAL RIGHT$ (M$,LEN M$-R)ELSE IF Z=42FOR Q=&1TO 730*Y/T+20:NEXT

390 NEXT :RETURN

400 LINE (11+L*186,7)-(42+L*186,24),B:LINE (12+L*186,8)-(43+L*186,25),B

410 Z=&BE900+60*K,X=Z-102,R=INT (X/65536),Y=X-R*65536,Q=INT (Y/256),K=Y-Q*256

420 POKE &BFC93,K,Q,R:LOCATE 2+L*31,1:PRINT #1,"±²³´µ¶·¸¹º":RETURN

430 Z=&BF008+126*K,X=Z-102,R=INT (X/65536),Y=X-R*65536,Q=INT (Y/256),K=Y-Q*256

440 POKE &BFC93,K,Q,R:LOCATE 16,0:PRINT #1,"±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅ":RETURN

450 *DAT:CLS :K=29,L=0,M=0,N=68:RESTORE 600

460 FOR J=0TO 38:LOCATE 0,0:PRINT USING "##";N:IF J-30THEN ELSE IF L LET K=41,L=0ELSE L=1,J=0:RESTORE 600

470 READ I$:FOR I=0TO K:POKE &BE900+M+I,VAL ("&"+MID$ (I$,60*L+(1-2*L)*(I*2+1),2)):NEXT

480 M=M+K+1,N=N-1:NEXT :RESTORE 900:FOR J=0TO 2:READ I$:FOR I=0TO 41:POKE &BF182+I+42*J,VAL ("&"+MID$ (I$,83-2*I,2)):NEXT :NEXT :BEEP 1:I=0

490 *R:RESTORE 560+10*I:READ I$:J$=STR$ (580+10*I)+"DA.":FOR J=0TO 29:J$=J$+MID$ (I$,59-2*J,2):NEXT :I=I+1:KEY 0,CHR$ 0+CHR$ 5+"J$"+CHR$ 13:END

500 DATA 0A4A4A4040201B00133848180002424440402018

510 DATA 000004434242423E020000024244404020180000

520 DATA 320A02027F04046B030002424440402018401E0F

530 DATA 00084642424222221C0300031010101010100000

540 DATA 24444545453F05244054683A020111117F110900

550 DATA 00700C020000000B730000001010101010100000

560 DATA 000000000000F008080808080808080808080808080808080808080808F0

570 DATA 0040A040182427182020202020202020202020202020202020202020201F

580 DATA F008080808080808080808080808080808080808080808F0000000000000

590 DATA 1F2020202020202020202020202020202020202020201827241840A04000

600 DATA 55AA552A050200F0080E0949C9494E7AC2C23C0808F81110E10A052A15AA

610 DATA 55AA55A2508800000304E8B03020000000014341A1E222120F0040A255AA

620 DATA 55AA55AA552A954A4160B08C0300301C8B84C221110946A050AA55AA55AA

630 DATA 550A05C0202F70000004081889898699682824271C00018845AA55AA55AA

640 DATA 552A0500619211224542C1B00C0300301C0B044261312916908A49320502

650 DATA 55AA55220080C32C7040800001071A84808080404022128B498945A552A0

660 DATA 00000000F8FEE7C3C6E7E3FB3B5D5547C3C2410303256313C63800000000

670 DATA 0000000080C1C1C3CFBC180100000041C0C1504028100804010000000000

680 DATA 000000000038E663450303113128280501030E7E3C3DF9F5FE3C00000000

690 DATA 000000000000070810284840C044000000001088FE8F8301000000000000

700 DATA 000080808070FE1F9F0F09381B2F3737376F4FDF9F9F1F1D87CF7E000000

710 DATA F9F1E0DCF0E0C79E34499A202024242424A4A5517B373B8F83C1C26204C4

720 DATA 00003E7BFDFC86053E0E0703010202020C040004030100190FFB1F0E0000

730 DATA 000080C0437F5F8701000000000000814042424220100804020000000000

740 DATA 0070FCFAF5D82C34F278041613113010000807031804F90F060000000000

750 DATA 000080414347BE8C0400000000008ED2524A462108020000000000000000

760 DATA 3CFEFBF5382834781C060301020A8A8D84838084530BF91F0E0000000000

770 DATA 008041477E4C8080000000001C1391D05050402008020000000000000000

780 DATA 000000F0FCEEC3C1C0C0E6E7733D0E339F0701000107E307FF0608000000

790 DATA 0000C0C3373F0F9FF9B111030000000043C0C05040281008030000000000

800 DATA 00007CFFFD383C7C1E0E0723101433010000004021630EC1773F9F7E0000

810 DATA C0F03E8F632E3C40800000000E41C1C141480622100C0300000000000000

820 DATA 000000380C3E7ECF830100079E2C1C183878F0707070F0F9FEFC70000000

830 DATA 00000000000000010E1930506041C3C1400000008446232F131616785880

840 DATA 008040E0F8FEFBFD1C0E0A57772F031D07030341C3C77E4C9DFCFBFEF800

850 DATA 00007EBFFFFF7FFF38102004444048C0C0C0E0E17138FC7E0F0305030000

860 DATA 0000F0FEFFF9FAFDF4FAFC3E1F573FEF6B0F06000001371BFF7F3F1E0000

870 DATA 00001F7FFFFFFFFFBF7F78E08000000040C8C8C8C0643008030000000000

880 DATA 0078FC7EFEFD9E56AFE74101005EC75F7F4F5F471E79F3F3F0F9FFFEF800

890 DATA 0000000000037FFEB870E0D0C0E0C0414101000080C0F0FF7FBFFF7F1F00

900 DATA 00FCC682818180C0E0E0C0C0E0F8FEF2040006E2FEFCE0C0C0C0E0F8F8F870F0F0F9FFFFFEFDF73FFF00

910 DATA 003F7F5FBF3F7F7FEF5FBF1F773F79FB740000030708030D1F3F9E1BC50B010003FFCB231F4F3D1F2700

920 DATA 00000000000000000142351E080016042280C046D450404040410020B0D0681C36E04947808080000000

930 DATA 00FE3FF7FDF6E1E0E0E0F0F0F8FCFCF8F878F8BC7E020600E4FE3C70E060C0C0E0F1E2E6FCFCF8E80400

940 DATA 004F3F1D778F3F4FAFBFC102012516031644C280006030008009640D491309633BBD7F1F0F170F030000

950 DATA 0000000080808444C2231172CC800810102020202220E0A10010000804020F1A21000000000000000000

960 DATA 00FF1FF7FDC681C0E0E0F0F0E0E0E0E0F0F0BACE3FF8000301793FDE78F0F0F070F9FFFFFFFEFEFC0800

970 DATA 003F7EF7DF3F7FFFFF7F6F9F3F0F031A3D3FBE1A44800100000000163F0D220111FF63DF070307010000

980 DATA 00000403000100000102050505060C98E8981504202020202C2860E4A680100804010000010100000000

990 DATA 0000000000000000000000000000000000000000

1000 DATA 788482A2622CC0A060C0A060C0A0E29C0080381E

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

60010 A$="///i74QFnME7aV[KWC^=>\SlpMY>nc=7OEI?QZUc9PMYcQgVfG1[E6JmZ9UaclBGPRKR6mJHV?a]:M86g3aS0P[pm5g16@C/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 "¶ÝÍß·È!"