1 'NAPOLEON L Ver.5

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)

100 CLS :RESTORE 15000:FOR I=0TO 3:N=(I=3):READ C(0),C(1),N$(0),N$(1):IF (I-1)*(I-2)LET N$(2)=N$(0),N$(3)=N$(1)ELSE READ N$(2),N$(3)

110 FOR J=0TO 1:FOR M=0TO 1:GCURSOR (C(J),12+8*M):GPRINT N$(M+J+J)

120 NEXT :BEEP B,233+178*N,6-4*N:BEEP B,12-34*N,2-25*N:NEXT :NEXT

150 X=7,Y=10,K=1:RESTORE 15060:FOR J=0TO 5:L=-21*(J=0)-3*(J=1)-4*(J=3)-19*(J=4)-25*(J=5):IF J-3LET K=-K

160 Z=-K-(K+K)*(J=2OR J=4):FOR I=X TO L STEP Z:READ P:READ Q:Y=Y+P*K:LINE (151+I,Y)-(151+I,Y-Q):BEEP B,31,3:NEXT :X=I-Z+(J<2)-(J>1):NEXT

170 FOR I=0TO 16STEP 2:GCURSOR (185,I-1):GPRINT "8060100808043C2010080404FC":GCURSOR (185,39-I):GPRINT "0F102020202020201010080601":BEEP B,I*3,2:NEXT

180 M$="478(!¢y2P¡O!'.5*k-$",X=44,Z=3:GOSUB 9000

190 IF INKEY$ =""THEN 190

200 BEEP B,240,8:BEEP B,54,6:N$(0)="6E",N$(1)="(H",N$(2)="G%",N$(3)=".@",N$(4)="GB":FOR I=0TO 4:M$=N$(I):GOSUB 9030:N$(I)=G$:NEXT

210 CLS :R=1,Z=0,X=91,Y=HP,W=1:GOSUB 9070:M$=".¢(Zo¡O)Y5A/]",X=130:GOSUB 9000

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 M$="(*uJA/!",X=169:GOSUB 9000:X=130:FOR Y=1TO 10:V=C(39+Y):GOSUB 9040:GOSUB 9050:NEXT

290 GOSUB 9390:M$=")7Ix(&A/",X=139:GOSUB 9000: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,M$="+kLa'F87K\",X=139:GOSUB 9000

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:M$="+)J>k<\!!`",X=144:GOSUB 9000:WAIT 6:U=0,W=2:GOSUB 9130:TC=W,Y=W-1:GOSUB 9240

360 WAIT 0:J=QT+1,M$="(7PA$n\!",X=144:GOSUB 9000: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 J<QT+1LET J=QT+1ELSE IF J>12LET 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)<C(C)LET D=C,M=C(4+C)

470 NEXT :J=C(D):IF J<50THEN 510

480 K=D-(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$:RESTORE 10190:READ J$:M$=I$+"00"+J$+"030003"

500 V=QT+10:GOSUB 9260:I$=I$+J$:RESTORE 10570:READ J$:Y=TC-1:GOSUB 9240:GOSUB 9390:GCURSOR (139,7):GPRINT M$+"00"+I$+J$

510 IF QT<12IF T THEN 320

520 IF NP+1THEN ELSE M$=",E%$3o*uJA/",X=130:GOSUB 9000:Y=13:GOSUB 9240:GOTO 210

530 IF NP-2GOSUB 9230ELSE GOSUB 9390

540 BEEP B,14,8:GCURSOR (135,7):GPRINT N$(NP):M$="'a'Fn/",X=153:GOSUB 9000: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 M$="0¢(Zo¡O$L(&A/(\",X=130:GOSUB 9000

570 I=ASC INKEY$ :IF I THEN ELSE 570

580 IF I-32THEN 750

590 A=1,M$="0!¢(Zo¡O$L(&5:`",X=130:GOSUB 9000: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)<M LET M=C(J),L=J

710 NEXT :C(14+L)=I:NEXT :GOSUB 9270

720 J=0:FOR I=0TO 9:IF C(14+I)THEN ELSE 740

730 IF C(24+J)LET J=J+1:GOTO 730 ELSE M=C(50+J),C(50+J)=C(40+I),C(40+I)=M,J=J+1

740 D(NP,I)=C(40+I):NEXT :GOSUB 9270:W=NP:GOSUB 9080:GOSUB 9270:GOSUB 9290:LINE (171,8)-(208,12),R,BF

750 C(23)=0:FOR I=50TO 53:K=INT (C(I)/100),J=C(I)-K*100,C(23)=C(23)-(J>8)-(K=5):NEXT :GOSUB 9390:M$="&&>kO",X=127:GOSUB 9000:RESTORE 10680+10*C(23):READ I$

760 GCURSOR (166,7):GPRINT I$+"00":M$=")A$)JA.2",X=176:GOSUB 9000:GOSUB 9380:IF NP-2THEN 870

770 W=2:IF A GOSUB 9080

780 GOSUB 9370:GOSUB 9390:M$="+gX.W<\!!`",X=144:GOSUB 9000: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 M$="01;¢(Zo¡<EY5A/[",X=130:GOSUB 9000ELSE 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 (135,7):GPRINT I$+"00"+J$:M$=")agX.Wn/",X=153:GOSUB 9000

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 GCURSOR (104,7):GPRINT 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 M$="+oLOk.A/(\",X=140:GOSUB 9000: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 RESTORE 10620+10*E:READ I$:GCURSOR (141,7):GPRINT I$:BEEP B,16,5:M$="*aAk#JA/[",X=150:GOSUB 9000: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 D<C(I)LET G=I,D=C(I)

1180 GOSUB 9270:NEXT :K=D(S,G),M=INT (K/100),N=K-M*100:LINE (191,8)-(194+2*T,12),R,BF

1190 IF (K=113OR K=TC*100+10OR K=BC*100+10)AND F(S,5)>0AND 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 M$,W:GOSUB 9070:Z=0,X=130:GOSUB 9000

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:M$=",¢AZ*¡<\!!`",X=156:GOSUB 9000: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 K<C(I)LET K=C(I),E=I:NEXT

1235 Y=E-1:GOSUB 9240

1240 RESTORE 10620+10*E:READ I$:GCURSOR (41,16):GPRINT I$

1250 IF E<>M 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:GCURSOR (111,15):GPRINT N$(S)+"00":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=1-I,Z=5:GOSUB 9400:RESTORE 14800+H*30+10*I:READ M$:Z=0,X=140:GOSUB 9000

1400 M=C(21):IF C(19)-5LET Y=12:GOSUB 9240:IF M LET V=M:FOR I=0TO 1:GOSUB 9260:GCURSOR (219,23+8*I):GPRINT I$+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 (219,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,M$=")£4'57.6",X=0:GOSUB 9000

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: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)<QT+10LET G=1ELSE G=0

1540 FOR I=0TO 4:X=55+38*I,W=-2*((I<2AND G=1)OR (I>1AND G=0)),Y=C(I):GOSUB 9070:NEXT

1550 GCURSOR (80+89*G,7):GPRINT "000C16C3F35F26F0C06010D0F0B00696D07020D0F0B000C0C0381E0F0703"

1560 M$="(#7223;",X=0,Z=2:GOSUB 9000:E=-(NP<>2AND HP<>2):Z=3:IF G-E THEN 1580

1570 M$="&(3n/",X=24,Y=8:GOSUB 9000: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 M$="&A+n/",X=24,Y=9:GOSUB 9000: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:GOSUB 9400:M$="-E%$3oFJA/(\",X=30,Z=1:GOSUB 9000

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 M$="&A2:[",X=60,Z=2,Y=10:GOSUB 9000:GOSUB 9240:CLOSE :END

9000 Q=0,V=ASC LEFT$ (M$,1)-34:FOR P=1TO V:W=0,J$="",U=ASC MID$ (M$,1+P,1)-35:IF U>125LET Q=1000*(U-126):NEXT

9010 IF U>61LET U=U-57,W=1:IF U>29LET U=U-5,J$="060906"ELSE J$="030003"

9020 O=-(U<55):RESTORE 10010+Q*O+U*10:READ I$:GCURSOR (X,7+Z*8):GPRINT I$+J$+"00":BEEP B,16,5:X=X+9+W*3:NEXT :RETURN

9030 G$="":FOR P=0TO 1:J$="":U=ASC MID$ (M$,1+P,R)-35:RESTORE 10010+U*10:READ I$:G$=G$+I$+"00":NEXT :RETURN

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)*(Q<W)

9190 GCURSOR (X+Q*10,14):GPRINT "181C0EFFFF3F3F1E":BEEP B,36,4:GOTO 9170

9200 BEEP B,233,6:BEEP B,12,2

9210 U=X+P*10:LINE (U+1,16)-(U+8,31),R,BF:FOR V=0TO 2:LINE (U,15+4*V)-(U+9,18+4*V-9*(V=2)),R,BF:LINE (U,19+4*V*V-(V=2))-(U+9,32),B:NEXT :RETURN

9220 Q=(P=2),X=21-15*(P>1)-15*(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:GCURSOR (21-15*(P>1)-15*(P>2),7-16*(P>0AND P<4)-9*(P=2)):GPRINT 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

9400 FOR V=0TO -4*(W<>0):P=W*VAL MID$ ("1214182642",1+2*V,2),X=&F02B+Y*379+P-7-Y,Q=INT (X/256),U=X-Q*256

9410 POKE &BFC93,U,Q,11:LOCATE 24,1:PRINT #1,"¡¢£¤¥¦§¶·¸¹º»¼ËÌÍÎÏÐÑ":NEXT :RETURN

9990 DATA 0000000000000000

10010 DATA 304A5F45251F4538

10020 DATA 3C4260000002423C

10030 DATA 0025454343424438

10040 DATA 6455554B2A2A4660

10050 DATA 324A45453F05443B

10060 DATA 7A0603424439020C

10070 DATA 0032424145471D04

10080 DATA 0008142222414141

10090 DATA 3E40600242433E02

10100 DATA 0030514141424C00

10110 DATA 0032424242431E02

10120 DATA 003F404040404020

10130 DATA 02224E5656563F02

10140 DATA 023F4242424A4F22

10150 DATA 0405354D45474524

10160 DATA 7A07214545454549

10170 DATA 1A564B4A4A4A4A32

10180 DATA 020201414141221C

10190 DATA 0101314945454332

10200 DATA 003049464C424242

10210 DATA 1D0331494B4A3E02

10220 DATA 3C42600032424244

10230 DATA 38444F22325F523C

10240 DATA 127F04324A4A523C

10250 DATA 3844423202424438

10260 DATA 3E40403A4A4B3E14

10270 DATA 003A464040464A32

10280 DATA 60314145454A3278

10290 DATA 3008040408081060

10300 DATA 3E40403555553F2A

10310 DATA 3049494B4B3F1301

10320 DATA 3945453E08483E10

10330 DATA 39453F4140404232

10340 DATA 38444F42221F423C

10350 DATA 143F4A4A40404030

10360 DATA 040F32420F02120C

10370 DATA 1E0542423F22221C

10380 DATA 30484848493E1222

10390 DATA 1855494949494830

10400 DATA 0E1118404041211E

10410 DATA 0828555557654438

10420 DATA 127F0402023A4460

10430 DATA 0828454547454438

10440 DATA 127F04024242423C

10450 DATA 002D5B4959454444

10460 DATA 60502C1330404060

10470 DATA 0000645E543C1460

10480 DATA 00003C4040000478

10490 DATA 000000284A4A4830

10500 DATA 000000482A2A5840

10510 DATA 000064547E14506C

10520 DATA 0000043E440E2418

10530 DATA 00001C08443E2418

10540 DATA 00003048483E1404

10550 DATA 0000080844444438

10560 DATA 0804040810101008

10570 DATA 006060180E070703

10580 DATA 0060621311190F0E

10590 DATA 6060006060006060

10600 DATA 0010706000000000

10610 DATA 0030484830000000

10620 DATA 7C42424244442418

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

10990 DATA 0000000000000000

11010 DATA 21414141413D0906

11020 DATA 08040402027D0101

11030 DATA 4E4242434222221C

11040 DATA 204242625E424440

11050 DATA 2242424222127F04

11060 DATA 027E03024242221C

11070 DATA 02020109097F0904

11080 DATA 4C4341414121211E

11090 DATA 4E43424242423E02

11100 DATA 224242424242423C

11110 DATA 224F424242221F04

11120 DATA 0A4A4A404040211E

11130 DATA 4141414121215E40

11140 DATA 043F424242424A26

11150 DATA 064840404040211E

11160 DATA 4C4349494929291E

11170 DATA 24444545453F0504

11180 DATA 074040474040211E

11190 DATA 2444454545453D04

11200 DATA 007F040404080800

11210 DATA 2242424242423F04

11220 DATA 2042424242424440

11230 DATA 414141515121215E

11240 DATA 122222632212126C

11250 DATA 0020404040201E00

11260 DATA 7806010000000478

11270 DATA 3F44424242424220

11280 DATA 414141414121211E

11290 DATA 0C02010101020C70

11300 DATA 310901017F021264

11310 DATA 010111612121110E

11320 DATA 2525494952524400

11330 DATA 3C42414141412870

11340 DATA 20404242241F6000

11350 DATA 051F29494A484030

11360 DATA 04041F620202120C

11370 DATA 2042424244645840

11380 DATA 20254545494A523C

11390 DATA 4445454545252418

11400 DATA 2740404040211E00

11410 DATA 403E3C4340404438

11420 DATA 3F40404040241800

11430 DATA 1C22424242424438

11440 DATA 474141414121211F

11450 DATA 494949494929291E

11460 DATA 014141424020211E

11470 DATA 00002242423A120C

11480 DATA 0000100804047A02

11490 DATA 00004C4446442418

11500 DATA 00002044447C4448

11510 DATA 0000244444247E08

11520 DATA 0000083E44041408

11530 DATA 0000204444446850

11540 DATA 0000204A4A525438

11550 DATA 00000C404C40221C

11990 DATA 0000000000000000

12010 DATA 7C2221212121227C

12020 DATA 7F45454545454638

12030 DATA 3C42414141412102

12040 DATA 7F4141414141423C

12050 DATA 3C4A494949412102

12060 DATA 7C0A090909010102

12070 DATA 3C4241494949390A

12080 DATA 3E5110101010513E

12090 DATA 0020794543020000

12100 DATA 3040404041211F02

12110 DATA 7E05020201030D71

12120 DATA 3E41404040404020

12130 DATA 3E4101020201413E

12140 DATA 3E4101020C30413E

12150 DATA 384442424242221C

12160 DATA 7C2221212121110E

12170 DATA 384442425262225C

12180 DATA 7C2221212121514E

12190 DATA 3042454545454538

12200 DATA 020101413F010102

12210 DATA 3E4140404040413E

12220 DATA 1F2040404040201F

12230 DATA 3E4140202040413E

12240 DATA 6119050202051961

12250 DATA 0304084838080403

12260 DATA 6351514949454562

12270 DATA 3E4141414141413E

12280 DATA 424242417F404040

12290 DATA 625151515151514E

12300 DATA 224145454545453A

12310 DATA 3C2320207F202020

12320 DATA 2F49454545454538

12330 DATA 3E45454545454538

12340 DATA 0701010179050503

12350 DATA 3846454545454638

12360 DATA 0E5151515151513E

12990 DATA 0000000000000000

13010 DATA 003048454545257E

13020 DATA 007F44424242221C

13030 DATA 0038444242422204

13040 DATA 001C22424242447F

13050 DATA 003854525252120C

13060 DATA 0008087C0A090106

13070 DATA 004C52515151493F

13080 DATA 007E090404044438

13090 DATA 0000344D45403000

13100 DATA 0030404044454538

13110 DATA 007E110808146404

13120 DATA 00003E4140200000

13130 DATA 0038440408044438

13140 DATA 003C480404044438

13150 DATA 0030484444442418

13160 DATA 007824222222120C

13170 DATA 000C122222222478

13180 DATA 003C480404040408

13190 DATA 0020444A4A4A4930

13200 DATA 00043C4645240400

13210 DATA 0038444040402478

13220 DATA 001C20404040201C

13230 DATA 0038444020404438

13240 DATA 0064140808146400

13250 DATA 000E11505050493E

13260 DATA 00006452524A4A64

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 "*EY5Y3VY5",0

14510 DATA "(FZD2Y[",2

14520 DATA "*,Ln7P6(]",2

14530 DATA "+,,<.X%wH[",0

14540 DATA ")N2.kY2;",0

14550 DATA "'kDkQ[",2

14560 DATA "()4$7Q]",2

14570 DATA "),P7EP(7",0

14580 DATA "&,Lk[",0

14590 DATA "(#2.kH[",0

14650 DATA "),L^#dA/",2

14660 DATA ")FD5')A/",0

14670 DATA "&,Ln/",2

14680 DATA "'$)A/[",0

14690 DATA "*N2.7Pn/]",2

14700 DATA "(EZFDFD",2

14710 DATA "*(Y58FY55",2

14720 DATA "(,Lno%\",0

14730 DATA ",iY2$EI%NH[",0

14740 DATA "('oM$2\",0

14800 DATA "&3TY]"

14810 DATA "%&??"

14820 DATA "'FY2Q["

14830 DATA "(.AY2Q]"

14840 DATA "'A^$$("

14850 DATA "'HY.V["

14860 DATA ")7Pn(7Q\"

14870 DATA "),;3X%.["

14880 DATA "'FY2:["

14890 DATA "*,AJA.2:]"

14900 DATA "'H(Y2]"

14910 DATA "&¢@Y]"

14920 DATA "(7PnHZ["

14930 DATA "(,P7EP:"

14940 DATA ")'A(0HY["

15000 DATA 52,134,00F810E04080000008F808F808,203F203F20000102040F103F

15010 DATA 65,112,00000000C0300C30C0,20302C030202020202032C3020

15020 DATA F808F8080808880838,3F213F212121232038

15030 DATA 79,101,00FC84FC848484844830,203F203F20

15040 DATA 04FC04FC04,003F203F202020202038

15050 DATA 90,123,80402020202020204080,07081010131310100807

15060 DATA 0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,1,0,1,1,1,1,1,1,1,2

15070 DATA 0,2,0,2,0,2,1,2,1,3,2,4,2,5,1,4,2,4,2,4,2,3,2,2,1,1,2,1,1,0,0,0,0,0,0,0

15080 DATA 1,0,0,1,1,1

15090 DATA 1,1,0,1,0,1,0,1

15100 DATA 1,1,0,1,0,1,0,1,1,1,0,1,0,1,1,2,0,1,0,1,1,2,0,2,0,2,0,2,0,2

15110 DATA 1,1,1,1,1,0,1,0,1,0,2,0