1 'NAPOLEON L Compact Ver.1 2 '(C)Masahiro Ueno 1999 10 OPEN "SCRN:"FOR OUTPUT AS #1 20 RANDOMIZE :B=1,HP=2 30 DIM A(4),G(4),C(53),D(4,10),F(4,5),H(4,5),HJ(4),N(4),L(4) 40 DIM N$(4) 200 RESTORE 15000:FOR I=0TO 4:READ I$:N$(I)=I$:NEXT 210 CLS :R=1,Z=0,X=91,Y=HP,W=1:GOSUB 9070:LOCATE 22,0:PRINT "Now shuffling..." 220 LINE (171,8)-(198,12),B:J=1:FOR I=0TO 53:C(I)=100*INT ((I+13)/13)+J,J=J+1:IF J-14THEN ELSE J=1 230 NEXT :R=0:GOSUB 9270:FOR I=0TO 53:J=RND 54-1,M=C(I),C(I)=C(J),C(J)=M:NEXT :GOSUB 9270 240 M=0:FOR J=0TO 9:FOR I=0TO 4:D(I,J)=C(M),M=M+1:NEXT :NEXT :GOSUB 9270 250 FOR I=0TO 9:C(I+40)=D(2,I):NEXT :FOR W=0TO 4:GOSUB 9080:GOSUB 9270:NEXT 260 HM=8,H1=8,H2=8,HJ(1)=8,HJ(2)=8,HJ(3)=8,HJ(4)=8:FOR W=0TO 4:GOSUB 9290:GOSUB 9270:L(W)=13+11*(W=4),A(W)=0 270 NEXT :LINE (171,8)-(198,12),R,BF 280 GOSUB 9390:LOCATE 22,0:PRINT "¶-ÄÞ ¦ ¸ÊÞØϽ...":X=130:FOR Y=1TO 10:V=C(39+Y):GOSUB 9040:GOSUB 9050:NEXT 290 GOSUB 9390:LOCATE 22,0:PRINT "Å×ÍÞ¶´Ï½...":LINE (140,15)-(239,31),R,BF 300 X=130:FOR Y=1TO 10:V=D(2,Y-1):GOSUB 9040:GOSUB 9050:NEXT 310 GOSUB 9390:GOSUB 9280:QT=4,TC=0,NP=-1,T=10:LOCATE 22,0:PRINT "ÀÞÚ¶Þ µÔÆÅÙ?" 320 N=0,T=T-1:RESTORE 10680+T*10:READ I$:GCURSOR (103,32):GPRINT I$:BEEP B,162,4:FOR C=0TO 3 330 I=ASC INKEY$ :IF I-32THEN 420ELSE IF N THEN 420ELSE IF NP+1LET P=NP:GOSUB 9220 340 BEEP B,240,8:BEEP B,54,6:N=2,NP=2,X=91,Y=2,W=0:GOSUB 9070:P=2:GOSUB 9220 350 WAIT 0:GOSUB 9390:LOCATE 27,0:PRINT "·ØÌÀÞ Ê?":RESTORE 10650:READ I$:GCURSOR (219,7):GPRINT I$:WAIT 6:U=0,W=2:GOSUB 9130:TC=W,Y=W-1:GOSUB 9240 360 WAIT 0:J=QT+1:GOSUB 9390:LOCATE 27,0:PRINT "ÅÝϲ ÃÞ?":WAIT 4:GOTO 400 370 I=ASC INKEY$ :IF I THEN ELSE 370 380 IF I-54IF I-52IF I-32IF I-13THEN ELSE BEEP B*2,236,3:GOTO 350ELSE 410ELSE J=J-1ELSE J=J+1 390 BEEP B,36,4:IF J12LET J=12 400 V=J+10:GOSUB 9260:GCURSOR (216,7):GPRINT I$+"00"+J$:GOTO 370 410 WAIT 0:BEEP B,240,8:BEEP B,54,6:N=1,QT=J 420 C(C)=0,C(4+C)=0,K=C-(C>1),L=-(C=3):IF NP-K THEN ELSE 450 430 FOR I=1TO 4:J=H(K,I)+(10-T)*(2+L)-(QT-4)*10+20*(TC=I)+15*(TC=I+1+2*(I=2OR I=4)):IF J>C(C)LET C(C)=J,C(4+C)=I 440 NEXT 450 NEXT :IF N OR C=0THEN 510 460 D=0,M=C(4):FOR C=1TO 3:IF C(D)1),QT=QT+1-(J>59),TC=M:IF NP+1LET P=NP:GOSUB 9220 490 P=K,NP=K:GOSUB 9220:X=91,Y=K,W=1-(J<50)+(J>59):GOSUB 9070:RESTORE 10620+10*TC:READ I$ 500 GOSUB 9390:Y=TC-1:GOSUB 9240:GCURSOR (140,7):GPRINT I$:LOCATE 25,0:PRINT USING "ÃÞ ## !";QT+10 510 IF QT<12IF T THEN 320 520 IF NP+1THEN ELSE GOSUB 9390:LOCATE 22,0:PRINT "Ó³²ÁÄÞ ¸ÊÞØŵ¼Ï½...":Y=13:GOSUB 9240:GOTO 210 530 IF NP-2GOSUB 9230ELSE GOSUB 9390 540 BEEP B,14,8:LOCATE 22,0:PRINT N$(NP)+"¶Þ µÔÃÞ½":BC=TC+1+2*(TC=2OR TC=4):IF NP-2THEN 620 550 A=0,X=15:FOR Y=1TO 4:V=C(49+Y):GOSUB 9040:GOSUB 9050:NEXT 560 GOSUB 9390:LOCATE 22,0:PRINT "¶-ÄÞ¦ ²Ú¶´Ï½¶?" 570 I=ASC INKEY$ :IF I THEN ELSE 570 580 IF I-32THEN 750 590 A=1:LOCATE 22,0:PRINT "¶-ÄÞ¦ ²Ú¶´Ã ¸ÀÞ»²":W=3,X=26:GOSUB 9160 600 N=Q,W=9,X=141:GOSUB 9160:M=C(50+N),C(50+N)=D(2,Q),D(2,Q)=M,X=15,P=N+1:GOSUB 9200:X=130,P=Q+1,M=Q:GOSUB 9200 610 X=15,Y=N+1,V=C(50+N):GOSUB 9040:GOSUB 9050:X=130,Y=M+1,V=D(2,M):GOSUB 9040:GOSUB 9050:GOTO 560 620 R=0:LINE (171,8)-(208,12),B:FOR I=50TO 53:J=INT (C(I)/100),F(NP,J)=F(NP,J)+1:NEXT :GOSUB 9270 630 FOR I=0TO 13:IF I>9LET K=C(40+I)ELSE K=D(NP,I) 640 M=INT (K/100),L=K-M*100,C(I)=L-27*(K=113)-10*((TC=M)AND (L=10))-30*((BC=M)AND (L=10))-37*(M=5)-(7-10*(NP=3))*(L>8)-(14-10*(NP=0))*(L=1) 650 IF M=1AND NP<4IF HM=8OR HM=D LET C(I)=C(I)+4:GOTO 680 660 IF M=TC LET C(I)=C(I)+20:GOTO 680ELSE IF M=BC AND NP<4 IF HJ(BC)=8OR HJ(BC)=NP LET C(I)=C(I)+4 670 IF F(NP,M)<4AND M<5LET C(I)=C(I)-6+5*(NP=1) 680 C(40+I)=K,C(14+I)=0:GOSUB 9270:NEXT 690 FOR I=1TO 4:M=50,L=13:FOR J=13TO 0STEP -1:IF C(14+J)THEN 710 700 IF C(J)8)-(K=5):NEXT :GOSUB 9390:LOCATE 22,0:PRINT "´ÌÀÞ¦"+STR$ (C(23))+"ϲ ·ØϼÀ" 760 GOSUB 9380:IF NP-2THEN 870 770 W=2:IF A GOSUB 9080 780 GOSUB 9370:GOSUB 9390:LOCATE 25,0:PRINT "¼Þ®¼­ Ê?":RESTORE 10650:READ I$:GCURSOR (219,7):GPRINT I$:W=2 790 WAIT 6:U=1:GOSUB 9130:BEEP B,240,8:BEEP B,54,6:M=W,N=-(M<5),J=1+12*N:WAIT 3:GOTO 830 800 I=ASC INKEY$ :IF I THEN ELSE 800 810 IF I-54IF I-52IF I-32IF I-13THEN ELSE BEEP B*2,236,3:LINE (228,0)-(237,7),R,BF:W=M-1:GOTO 790 ELSE 840ELSE J=J-1ELSE J=J+1 820 BEEP B,36,4:IF J<1LET J=2+N*11ELSE IF J>2+N*11LET J=1 830 RESTORE 10820-130*N+10*J:READ I$:GCURSOR (228,7):GPRINT I$:GOTO 800 840 WAIT 0:BEEP B,240,8:BEEP B,54,6:HP=M*100+J,K=0:FOR I=0TO 13:IF I<10IF HP-D(2,I)THEN ELSE K=1ELSE IF HP-C(40+I)THEN ELSE K=1 850 NEXT :IF K=1LET GOSUB 9390:LOCATE 22,0:PRINT "¿É ¶-ÄÞÊ Ó¯Ã²Ï½!"ELSE 940 860 GOSUB 9380:GOTO 780 870 GOSUB 9370:IF HM-NP LET HP=113:GOTO 930 880 IF HJ(TC)-NP LET HP=TC*100+10:GOTO 930 890 IF HJ(BC)-NP LET HP=BC*100+10:GOTO 930 900 IF H1-NP LET HP=501:GOTO 930 910 IF H2-NP LET HP=502:GOTO 930ELSE I=C(24+NP*5+TC),I=I+(I=10),J=TC*100+13 920 IF D(NP,I)-J LET HP=J ELSE I=I+(I>0),J=J-1:GOTO 920 930 V=HP:GOSUB 9040:GOSUB 9390:BEEP B,14,8:GCURSOR (132,7):GPRINT I$+"00"+J$:LOCATE 27,0:PRINT "¶Þ ¼Þ®¼­ ÃÞ½":GOSUB 9380 940 FOR I=0TO 4:FOR J=0TO 9:IF HP=D(I,J)LET C(22)=I 950 NEXT :NEXT 960 CLS :RESTORE 10850:FOR I=0TO 3:READ I$:GCURSOR (94,7+8*I):GPRINT I$:NEXT 970 LOCATE 18,0:PRINT N$(NP):V=HP:GOSUB 9040:GCURSOR (113,15):GPRINT I$+"00"+J$ 980 RESTORE 10620+10*TC:READ I$:GCURSOR (122,23):GPRINT I$:V=QT+10:GOSUB 9260:GCURSOR (113,31):GPRINT I$+"00"+J$:GOSUB 9280 990 A=NP,T=10,C(21)=0 1000 S=A,E=0,H=0,C(11)=1:FOR I=0TO 4:GCURSOR (-15*(I>1)-55*(I>2),7-15*(I>0AND I<4)-9*(I=2)):GPRINT "FFBDFFFFFF9FDFDBABB1BDBFB7CFFFFFFFBDFF":NEXT 1010 FOR I=12TO 20:C(I)=0:NEXT :FOR C=0TO 4:P=S:GOSUB 9220:GOSUB 9230:FOR I=1TO 5:J=C(23+I+5*S):IF J-10LET J=D(S,C(23+I+5*S)+F(S,I)-1)-I*100ELSE J=0 1020 H(S,I)=J:NEXT :IF S-2LET X=142,Y=S,W=1,Z=5:GOSUB 9070:Z=0:GOTO 1070 1030 L=0,X=130:FOR Y=1TO T:V=D(2,Y-1):GOSUB 9040:GOSUB 9050:NEXT 1040 :GOSUB 9390:LOCATE 22,0:PRINT "ÄÞÚƼϽ¶?":W=T-1,X=141:GOSUB 9160 1050 G=Q,K=D(2,G),M=INT (K/100),N=K-M*100:IF E=0 OR E=M OR M=5OR F(2,E)=0LET P=G,X=140:GOSUB 9200:GOTO 1190 1060 GOSUB 9390:RESTORE 10620+10*E:READ I$:GCURSOR (140,7):GPRINT I$:BEEP B,16,5:LOCATE 27,0:PRINT "¶Þ ÏÀÞ±ØϽ!":GOSUB 9380:LINE (141+G*10,16)-(148+G*10,31),X,BF:GOTO 1040 1070 LINE (191,8)-(194+2*T,12),B:R=10,J=0:IF C THEN 1090 1080 I=(NP=S OR C(22)=S):IF 22-C(23)+A(0)+A(1)+A(2)+A(3)+A(4)>2AND L(4)>0LET L=2:GOTO 1130ELSE L=2-2*I:GOTO 1130 1090 J=-(F(S,E)>0):IF C-4THEN 1110ELSE IF (J=0AND F(S,TC)>0)OR (J=1AND H(S,E)>C(20)AND C(20)>1)LET L=3:GOTO 1130 1100 IF H=NP OR H=HP LET L=2+(S=NP OR S=C(22)):GOTO 1130ELSE L=1-(S=NP OR S=C(22)):GOTO 1130 1110 IF J=1LET L=2:GOTO 1130 ELSE IF C(21)<2+(T<6)LET L=2-(T<6):GOTO 1130 1120 IF H=NP OR H=HP LET L=2+(S=NP OR S=C(22))ELSE L=1-(S=NP OR S=C(22)) 1130 GOSUB 9270:IF T-1=F(S,5)AND F(S,5)>0AND (S=NP OR S=C(22))THEN 1195ELSE D=-50,G=0:FOR I=0TO T-1:K=D(S,I),M=INT (K/100),N=K-M*100,P=(L=3)-(L<>3) 1140 C(I)=N-7*(N>8)-3*(N=1)-17*(M=TC)-F(S,M),O=(K=TC*100+10),Q=(K=BC*100+10),V=(K=113) 1150 W=3*(4-T)*((HM<5AND HM<>S)*(O OR Q)+(HJ(TC)<5)*Q)*(T<4),C(I)=C(I)-(27*(K=113)+12*O+27*Q+37*(M=5))*P-W 1160 IF L<3LET C(I)=70-C(I)+23*(M<>TC AND N>8)*(L-2)-W*8 1170 C(I)=C(I)+60*J*(M<>E)+20*(HM<5):IF D0AND L=2THEN ELSE 1200 1195 G=C(28+5*S),K=D(S,G),M=5,N=K-500 1200 IF HP-D(S,G) THEN ELSE L=5 1205 IF S-2LET X=142,Y=S,Z=5:RESTORE 14490+S*50+10*L:READ J$,W:GOSUB 9070:Z=0:WAIT 8:LOCATE 25,0:PRINT J$:WAIT 0 1207 V=K:GOSUB 9040:GCURSOR (1-15*(S>1)-55*(S>2),8-15*(S>0AND S<4)-9*(S=2)):GPRINT I$+"00"+J$:BEEP B,233,6:BEEP B,12,2 1208 IF C THEN 1250ELSE IF M<5LET E=M:GOTO 1240 1210 IF S=2GOSUB 9390:LOCATE 27,0:PRINT "Ï-¸ Ê?":RESTORE 10650:READ I$:GCURSOR (219,7):GPRINT I$:U=0,W=2:WAIT 4:GOSUB 9130:E=W:WAIT 0:GOTO 1235 1220 K=-30:FOR I=1TO 4:IF S=NP LET J=(HP>4AND INT (HP/100)<>I)ELSE IF S=C(22)LET J=(F(NP,I)=0)ELSE J=(INT (HP/100)=I) 1230 C(I)=L(I)-5*J+8*(TC=I):IF KM AND C(11)=1LET C(11)=0:IF C(17)LET H=C(50),C(18)=C(51),C(19)=C(52),C(20)=C(53) 1260 K=D(S,G):IF K-113THEN 1290ELSE C(12)=S+1,HM=9:BEEP B,69,87:FOR I=1TO 119:IF I=28OR I=74BEEP B,8,2 1270 NEXT :BEEP B,55,116:BEEP B,46,131:FOR I=1TO 134:IF I=39OR I=87BEEP B,8,2 1280 NEXT :BEEP B,80,82:BEEP B,69,94:GOTO 1320 1290 IF (M=TC OR M=BC)AND N=10LET C(13-(M=BC))=S+1,HJ(M)=9,Y=7:GOSUB 9240:GOTO 1320 1300 IF M=5LET C(14+N)=S+1,Y=6:GOSUB 9240:IF N-1LET H2=9:GOTO 1320ELSE H1=9:GOTO 1320 1310 IF M=E AND C(11)=1AND N=1LET C(17)=S+1:IF C LET C(50)=H,C(51)=C(18),C(52)=C(19),C(53)=C(20)ELSE C(50)=S,C(51)=K,C(52)=M,C(53)=1 1320 IF L-5 THEN ELSE HP=S,Y=11:LOCATE 20,1:PRINT N$(S):GOSUB 9240 1325 IF C LET I=12ELSE 1370 1330 IF C(I)>0IF C(I)<>S+1THEN 1380ELSE 1370 1340 I=I+1:IF I-17THEN 1330ELSE IF C(17)>0IF C(11)IF C(17)-S-1THEN ELSE 1370ELSE 1350ELSE 1350 1345 IF N>C(53)LET C(50)=S,C(51)=K,C(52)=M,C(53)=N:GOTO 1380ELSE 1380 1350 IF C(11)=1THEN ELSE IF M-TC THEN IF C(19)-TC THEN ELSE 1380ELSE IF C(19)-TC THEN 1370 1360 IF N>C(20)THEN ELSE 1380 1370 H=S,C(18)=K,C(19)=M,C(20)=N 1380 IF N>8OR M=5LET C(21)=C(21)+1 1385 F(S,M)=F(S,M)-1,L(M-1)=L(M-1)-1:GOSUB 9390:FOR I=G TO T-2:D(S,I)=D(S,I+1):NEXT :P=S:GOSUB 9220:S=-(S+1)*(S<4):NEXT 1390 GOSUB 9230:P=H:GOSUB 9220:I=-(C(21)>3)-(C(21)>0),X=142,Y=H,W=2-I,Z=5:GOSUB 9070:RESTORE 14800+H*30+10*I:READ M$:LOCATE 25,0:PRINT M$:Z=0 1400 M=C(21):IF C(19)-5LET Y=12:GOSUB 9240:IF M LET V=M:FOR I=0TO 1:GOSUB 9260:GCURSOR (218,23+8*I):GPRINT I$+"00"+J$:V=A(H):NEXT :GCURSOR (214,23):GPRINT "10107C1010"ELSE 1440ELSE 1430 1410 FOR I=1TO M:IF M=10RESTORE 9990:READ I$:GCURSOR (218,23):GPRINT I$ 1420 A(H)=A(H)+1:M=M-1:RESTORE 10680+10*M:READ I$:GCURSOR (227,23):GPRINT I$:V=A(H):GOSUB 9260:GCURSOR (218,31):GPRINT I$+"00"+J$:BEEP B,75,3:NEXT :C(21)=0:GOTO 1440 1430 Y=5:GOSUB 9240:FOR I=1TO 123:NEXT :BEEP B,39,170 1440 GOSUB 9370:P=H:GOSUB 9220:RESTORE 9990:READ I$:GCURSOR (41,16):GPRINT I$:A=H,T=T-1:IF T THEN 1000 1450 Y=14:GOSUB 9240:FOR I=1TO 110:NEXT :FOR I=0TO 3:BEEP B,39,144:NEXT :BEEP B,35,302 1460 CLS :N=0,C(5)=0,C(6)=0:LOCATE 0,0:PRINT "RESULT" 1470 FOR I=0TO 4:X=55+38*I:IF I IF I-1THEN ELSE Y=HP,C(5)=C(5)+A(HP):GOTO 1490ELSE Y=NP,C(5)=C(5)+A(NP):GOTO 1490 1480 IF N=NP OR N=HP LET N=N+1:GOTO 1480ELSE Y=N,C(6)=C(6)+A(N),N=N+1 1490 C(I)=Y,C(30+I)=A(Y),W=1,Z=0:GOSUB 9070:NEXT :LINE (128,0)-(128,31),&6666:I=0,N=0:RESTORE 10880:READ I$:GCURSOR (11,15):GPRINT I$ 1500 V=QT+10:GOSUB 9260:GCURSOR (28,15):GPRINT I$+"00"+J$:J=0 1510 M=0,V=J:GOSUB 9260:FOR I=0TO 4:IF C(30+I)>-1GCURSOR (64+38*I,32):GPRINT I$+"00"+J$:C(30+I)=C(30+I)-1:BEEP B,20,4:BEEP B,140,4ELSE M=M+1 1520 NEXT :J=J+1:IF M-5THEN 1510 1530 IF C(5)1AND G=0)),Y=C(I):GOSUB 9070:NEXT 1550 GCURSOR (80+89*G,7):GPRINT "000C16C3F35F26F0C06010D0F0B00696D07020D0F0B000C0C0381E0F0703" 1560 LOCATE 1,2:PRINT "±ÅÀÀÁ É":E=-(NP<>2AND HP<>2):IF G-E THEN 1580 1570 LOCATE 4,3:PRINT "¶Á ÃÞ½":Y=8:GOSUB 9240:FOR I=0TO 1:FOR J=1TO 14:NEXT :BEEP B,46,128:NEXT :FOR J=1TO 14:NEXT :BEEP B,39,575:GOTO 1590 1580 LOCATE 4,3:PRINT "Ϲ ÃÞ½":Y=9:FOR I=1TO 4:BEEP B,100,95:BEEP B,75,113:BEEP B,50,150:NEXT :GOSUB 9240 1590 GOSUB 9380:CLS :Y=NP,W=0,X=140:GOSUB 9070:LOCATE 10,1:PRINT "RETRY ?" 1600 I=ASC INKEY$ :IF I THEN ELSE 1600 1610 IF I-32THEN ELSE BEEP B,240,8:BEEP B,54,6:GOTO 210 1630 Y=10:GOSUB 9240:CLOSE :END 9040 P=INT (V/100):RESTORE 10620+10*P:READ I$:V=V-P*100:RESTORE 10690+10*V+10*(P=5):READ J$:RETURN 9050 P=X+Y*10:FOR Q=0TO 2:O=4*(Q-1):LINE (P+1,23-O)-(P+9,23-O),R:LINE (P,23-4*Q)-(P+9,32),B:NEXT 9060 O=P+1:GCURSOR (O,23):GPRINT I$:GCURSOR (O,31):GPRINT J$:BEEP B,233,6:BEEP B,12,2:RETURN 9070 LINE (X,5+Z)-(X+31,22+Z),B:LINE (X+1,6+Z)-(X+32,23+Z),B:RESTORE 14000+20*W+60*Y:FOR P=0TO 1:READ I$:GCURSOR (X+1,13+8*P+Z):GPRINT I$:NEXT :RETURN 9080 FOR P=0TO 9:C(P+10)=INT (D(W,P)/100),C(P+30)=D(W,P):NEXT :FOR P=20TO 25:C(P)=0:NEXT :C(5)=0 9090 FOR P=10TO 19:C(C(P)+20)=C(C(P)+20)+1:NEXT :FOR P=6TO 9:F(W,P-5)=C(P+15),C(P)=C(P+15)+C(P-1):NEXT :F(W,5)=C(25) 9100 FOR P=19TO 10STEP -1:D(W,C(C(P)+4))=C(P+20),C(C(P)+4)=C(C(P)+4)+1:NEXT 9110 Y=0:FOR P=0TO 8:IF D(W,P)>D(W,P+1)LET X=D(W,P+1),D(W,P+1)=D(W,P),D(W,P)=X,Y=Y+1 9120 NEXT :IF Y GOTO 9110ELSE RETURN 9130 P=ASC INKEY$ :IF P THEN ELSE 9130 9140 IF P-54IF P-52IF P-32THEN ELSE W=W+1:RETURN ELSE W=W-1-(4+U)*(W=0)ELSE W=-(W+1)*(W<3+U) 9150 BEEP B,36,4:RESTORE 10630+W*10:READ I$:GCURSOR (219,7):GPRINT I$:GOTO 9130 9160 RESTORE 9990:READ I$:Q=0:WAIT 4:GOTO 9190 9170 P=ASC INKEY$ :IF P=0THEN 9170 9180 GCURSOR (X+Q*10,14):GPRINT I$:IF P-54IF P-52IF P-32THEN ELSE LINE (X+Q*10,16)-(X+Q*10+7,31),X,BF:WAIT 0:RETURN ELSE Q=Q-1-(W+1)*(Q=0)ELSE Q=-(Q+1)*(Q1)-12*(P>2),Y=-16*(P>0AND P<4)-8*Q:LINE (X,Y-Q)-(X+16,Y+6-Q),X,BF:RETURN 9230 I$=" ",J$="":LOCATE 22,0:PRINT #1,I$+J$+I$+J$+I$+J$+I$:RETURN 9240 RESTORE 13600+10*Y 9250 READ P,Q:IF P+1BEEP B,P,Q:GOTO 9250ELSE RETURN 9260 P=INT (V/10),V=V-P*10:RESTORE 10680+10*P+690*(P=0):READ I$:RESTORE 10680+10*V:READ J$:RETURN 9270 R=R+1:GCURSOR (170+R+R,14):GPRINT "3E3E":RETURN 9280 FOR P=0TO 4:LOCATE 4-3*(P>1)-2*(P>2),-2*(P>0AND P<4)-(P=2):PRINT N$(P):NEXT :RETURN 9290 FOR P=1TO 4:H(W,P)=15*(W=3)-10*(W=1):NEXT :FOR P=0TO 9:V=D(W,P),X=INT (V/100),Y=V-X*100:IF X<5LET H(W,X)=H(W,X)+Y 9300 IF V=113LET HM=W:GOTO 9350 9310 IF Y=10LET HJ(X)=W,H(W,X)=H(W,X)+8,O=X+1+2*(X=2OR X=4),H(W,O)=H(W,O)+8:GOTO 9360 9320 IF V=501LET H1=W:GOTO 9350 9330 IF V=502LET H2=W:GOTO 9350 9340 IF Y=1LET H(W,X)=H(W,X)+2:GOTO 9360ELSE GOTO 9360 9350 O=-5*(Y=13):FOR Q=1TO 4:H(W,Q)=H(W,Q)+5+O:NEXT 9360 NEXT :RETURN 9370 FOR P=0TO 4:V=0,C(24+5*P)=-10*(F(P,1)=0):FOR Q=2TO 5:V=V+F(P,Q-1),C(23+Q+5*P)=V-(10-V)*(F(P,Q)=0):NEXT :NEXT :RETURN 9380 FOR P=0TO 700:NEXT :RETURN 9390 LOCATE 21,0:PRINT #1," ":RETURN 9990 DATA 0000000000000000 10630 DATA 242E7E7E5E3E3E3F 10640 DATA 2E2E3C7F7F5F3B38 10650 DATA 7C42424244442418 10660 DATA 7C42424242423E00 10670 DATA 71413F71507E106C 10680 DATA 3E4141414141413E 10690 DATA 424242417F404040 10700 DATA 625151515151514E 10710 DATA 224145454545453A 10720 DATA 3C2320207F202020 10730 DATA 2F49454545454538 10740 DATA 3E45454545454538 10750 DATA 0701010179050503 10760 DATA 3846454545454638 10770 DATA 0E5151515151513E 10780 DATA 417F403E4141413E 10790 DATA 3941414141413F01 10800 DATA 3E4151515151617E 10810 DATA 7F0804040A122141 10820 DATA 7824222121222478 10830 DATA 7F49417F116E417F40 10840 DATA 7F49417F116E61514E 10850 DATA 54367F2E7F355F4060 10860 DATA 407F553F643F443C002A4A4A4F3D0C08 10870 DATA 041E14211F61413F000C0040423C100A7F0A3F40404038 10880 DATA 2040403F007F003F404239013161110E 13600 DATA 59,98,46,233,46,116,-1 13610 DATA 59,98,46,233,62,165,-1 13620 DATA 42,246,42,123,0,0,-1 13630 DATA 50,109,46,116,42,123,-1 13640 DATA 50,221,67,185,0,0,-1 13650 DATA 59,238,80,95,86,95,100,84,-1 13660 DATA 75,231,59,141,42,176,26,580,-1 13670 DATA 42,143,64,111,59,456,50,508,42,776,-1 13680 DATA 100,151,60,190,75,181,86,171,100,76,-1 13690 DATA 75,245,86,117,100,204,107,104,123,211,-1 13700 DATA 100,89,86,100,80,101,55,268,55,268,59,525,-1 13710 DATA 55,114,59,107,69,190,55,228,59,215,46,256,39,677,-1 13720 DATA 100,84,75,101,59,119,75,101,69,106,42,151,39,325,-1 13730 DATA 123,58,107,65,123,58,100,69,123,58,86,78,123,58,75,88,123,58,86,78,123,58,100,69,123,157,-1 13740 DATA 93,80,80,86,69,95,80,86,69,95,64,101,69,95,64,101,55,114,64,101,55,114,46,128,39,144,-1,0 14000 DATA 10E8FCFCFEFEFEDF07632F7FDF374F0F1F0F3B37070F1FFF9EFCF8C00000 14010 DATA 000301010307070B0786C0D0C0E3E6C2C0494720100804030F1F3E419E00 14020 DATA 0004023B1F7F3FFF1F071351E1001F3F0F5FFFBFFFFFFFFFFFFEE8708000 14030 DATA 00000000008081834850204246404848C041232130D9F7F3FF771B0F0700 14040 DATA 083C7E3E7FFF7FFF9F273363C13F7F0F5FFFFFBFFF7FFFFFFF7FFFFEF800 14050 DATA 00000000000000000104081082A6C0C8C0C0416120100800030E3F7D5E80 14060 DATA 2412C281017CF2FBBE9890062C36172A149405090A341189F14282040850 14070 DATA 07081C091228151A2B0CD163A24440C24140C04020100001060C10287244 14080 DATA 0000341A257182E1350A1D74660E0F0F1C5DFFC0BA6001E6CC01620CF000 14090 DATA 0008043A06316903C870200246404848C04021A190581493CA2481601F00 14100 DATA C0300C02610D0601788C6050D8EE6F2F27071E68361CD1A24DC1228C7800 14110 DATA 0360800014C285498B1820D02020404048C044231088E742146408100000 14120 DATA 00F0FCFEFFFFFFFF1F31C0479F310307190B3377670F1FFFCF271D020000 14130 DATA 00030103030703070B0E3810A1E1C0C4CCC0C44220100807192040408080 14140 DATA 00023D1F7FBFFF071357E100201F0F43CFBF1F7FFFFFFFFFFFFFFEF80000 14150 DATA 0000000000000308102286C848404041232390C8FDBA79FD750307010000 14160 DATA 00F8FEFFFFFFFFFFFF7F18A183471F7B072F6377570FFFBF7E1E04000000 14170 DATA 0007030F1F0F1F2F271AD1E1E7C3C0C040504C0024102F40408080800000 14180 DATA 06031D7F1F3FFF4F072F3B0F030F01045474680801C77F7FFFE6F81020A0 14190 DATA 00000000C0F0FFFC90E0C142424240402020D0F8FCFD2CFEFFFFFFFF0100 14200 DATA E030F0FEFFFFFFFFFFBF7FFFAD991121093515313303070E1DCFFEFAC428 14210 DATA 0000070D1307070B07CAECF9F0E161C0C0C4C8C044404020100FFFFFFFFE 14220 DATA 0874FCFC7EFEFFFFFF3F6F1F210010303021010B0F1FFF1F3FEFE3F6FCF4 14230 DATA 00000001000001000103040A14204444C0C0E0E0D01088E2FFFFFF0FFFFF 14240 DATA 990560007EC1272DC346C89105830E050D9C4801030519E58B1326C60E1E 14250 DATA 030401020207CD261C68912020C1434041404040A0100C0301061860831C 14260 DATA E211810C02F826C11330671800010A1A3C34080911F21024A02101C37F3E 14270 DATA 804143412222108867189162204242C0400080601C0380609F0201877F1E 14280 DATA 003C0233E14592F82D14326A013E07214ED4889120428CD801020CF8E0C0 14290 DATA 80404020F018846318102206C04840C06021118844320D1788FCFAE30101 14500 DATA ӯïÁ¬¯Ã,2 14510 DATA Ô-ÒÀ¯!,0 14520 DATA ºÚÃÞ ÅÝĶ...,2 14530 DATA ººÊ ¼®³ÌÞÖ!,0 14540 DATA ÜÀ¼ ÀÞ¯ÀÉ,0 14550 DATA ÀÞÒÀÞ§!,2 14560 DATA ·Â²Å§...,2 14570 DATA ºÝÅ ÓݶÅ,0 14580 DATA ºÚÀÞ¯!,0 14590 DATA ±À¼ ÀÞÖ,0 14650 DATA ºÚ¤±¹ÞϽ,0 14660 DATA ÔÒà µ·Ï½,2 14670 DATA ºÚÃÞ½,0 14680 DATA ²·Ï½!,2 14690 DATA ÜÀ¼ ÅÝÃÞ½...,2 14700 DATA Ó- ÔÒÔÒ,2 14710 DATA ¶¯ÃÆ Ô¯ÃÃ,2 14720 DATA ºÚÃÞ ÄÞ³?,0 14730 DATA ¾Þ¯À² Ó׳ÜÖ¯!,0 14740 DATA µÄÞÛ²À?,0 14800 DATA Áª¯... 14810 DATA ´ÍÍ 14820 DATA Ô¯À§! 14830 DATA ¼Ï¯À§... 14840 DATA Ϥ²²¶ 14850 DATA Ö¯¼¬! 14860 DATA ÅÝÃ޶ŧ? 14870 DATA ºÉ Á®³¼! 14880 DATA Ô¯ÀÈ! 14890 DATA ºÏØϼÀÈ... 14900 DATA Ö¶¯À 14910 DATA ί... 14920 DATA ÅÝÃÞÖ-! 14930 DATA ºÝÅÓÝÈ 14940 DATA µÏ¶¾Ö¯! 15000 DATA ÄÓ,¶Ö,Õ³,¼Î,ÕÐ