10 Z=0:W=1:DS=24064:OP=53279:R=53770:T1=540:T2=542:T3=544:CS=11776:AT=11400›50 P=1536:A=112:GOSUB 59:GOSUB 59:GOSUB 59:A=70:GOSUB 59:A=Z:GOSUB 59:A=94:GOSUB 59:B=Z:C=23›53 A=6:GOSUB 59:B=B+W:IF B<C THEN 53›54 A=65:GOSUB 59:A=Z:GOSUB 59:A=6:GOSUB 59›55 A=559:POKE A,Z:A=560:POKE A,Z:A=561:B=6:POKE A,B:A=559:B=46:POKE A,B:GOTO 60›59 POKE P,A:P=P+W:RETURN ›60 A=756:B=46:POKE A,B:A=712:B=2:POKE A,B:A=710:B=134:POKE A,B:A=708:B=228:POKE A,B›90 A=711:B=72:POKE A,B:A=474:A=A+DS:B=6:B=B+A:C=208›92 POKE A,C:A=A+W:IF A<B THEN 92›95 NP=W:SP=25:MP=77:AP=140:E=48:G=104:GOSUB 402›100 GOSUB 800:GOSUB 750:GOSUB 700›110 A=PEEK(OP):B=6:IF A=B THEN 150›112 B=5:IF A=B THEN 130›114 B=3:IF A=B THEN 140›115 GOTO 110›130 IF NP=W THEN 132›131 NP=W:GOTO 100›132 NP=2:GOTO 100›140 A=5:SP=SP+A:B=26:IF SP<B THEN 100›142 SP=5:GOTO 100›150 NB=20:MZ=W:LV=3:SC=Z:NL=80›180 A=461:B=467:C=474:D=128›182 E=A+DS:F=PEEK(E):G=C+DS:H=PEEK(G):F=F+D:IF F<H THEN 196›183 IF H<F THEN 192›184 A=A+W:C=C+W:IF A<B THEN 182›192 A=461:B=467:C=474:D=128›193 E=A+DS:F=PEEK(E):E=C+DS:F=F+D:POKE E,F›194 A=A+W:C=C+W:IF A<B THEN 193›196 A=461:B=467:C=80›197 P=A+DS:POKE P,C:A=A+W:IF A<B THEN 197›198 A=180:B=469:B=B+DS:POKE B,A›200 A=AT:B=25›202 C=11:POKE A,C:A=A+W:C=10:POKE A,C:A=A+W:POKE A,Z:A=A+W›204 C=PEEK(R):D=3:IF D<C THEN 204›205 C=C+W:POKE A,C:A=A+W:AI=AI+W:IF AI<B THEN 202›250 GOSUB 800:B=2:NA=B›260 A=0›262 B=PEEK(R):C=225:IF C<B THEN 262›263 B=B+B:B=B+DS:C=PEEK(B):IF C=Z THEN 265›264 GOTO 262›265 E=139:POKE B,E:A=A+W:IF A<NB THEN 262›280 A=MZ:B=4:GOSUB 910:AI=Z:B=5:E=C+B:F=Z›282 B=PEEK(R):C=225:IF C<B THEN 282›283 B=B+B:B=B+DS:C=PEEK(B):IF C=Z THEN 285›284 GOTO 282›285 G=202:POKE B,G:F=F+W:IF F<E THEN 282›290 TI=99:A=77:POKE A,Z:GOSUB 700:GOSUB 720:GOSUB 730:A=230:A=A+DS:POKE A,Z›300 A=PEEK(T3):IF Z<A THEN 400›304 POKE T3,SP:A=4:B=AI:GOSUB 900:A=C+AT:L=A:IF NA=Z THEN 400›305 M=PEEK(A):A=A+W:N=PEEK(A):A=A+W:O=PEEK(A):A=A+W:Q=PEEK(A)›306 A=53760:B=PEEK(R):POKE A,B:A=53761:B=132:POKE A,B›310 A=20:B=M:GOSUB 900:H=C+N:H=H+DS:GOSUB 390:I=M:J=N:IF A=W THEN 320›312 F=Q+W:A=5:IF F<A THEN 322›313 F=W:GOTO 322›320 F=Q-W:IF Z<F THEN 322›321 F=4›322 G=H:GOSUB 890:A=PEEK(G):IF A=W THEN 330›323 IF A=MP THEN 570›325 Q=F:GOTO 370›330 I=M:J=N:F=Q:G=H:GOSUB 890:A=PEEK(G):IF A=W THEN 350›333 IF A=MP THEN 570›335 Q=F:GOTO 370›340 I=M:J=N:F=Q+W:C=5:IF F<C THEN 342›341 F=W›342 G=H:GOSUB 890:A=PEEK(G):IF A=W THEN 347›343 IF A=MP THEN 570›345 Q=F:GOTO 370›347 Q=Q+W:C=5:IF Q<C THEN 340›348 Q=W:GOTO 340›350 GOSUB 390:IF A=W THEN 340›352 I=M:J=N:F=Q-W:IF Z<F THEN 354›353 F=4›354 G=H:GOSUB 890:A=PEEK(G):IF A=W THEN 357›355 GOTO 343›357 Q=Q-W:IF Z<Q THEN 352›358 Q=4:GOTO 352›370 IF O=AP THEN 372›371 GOTO 380›372 O=Z›380 POKE H,O:POKE G,AP›384 POKE L,I:L=L+W:POKE L,J:L=L+W:POKE L,A:L=L+W:POKE L,Q›385 AI=AI+W:IF AI<NA THEN 400›386 AI=Z:GOTO 400›390 A=Z:IF AI=W THEN 399›391 B=3:IF AI=B THEN 399›393 B=5:IF AI=B THEN 399›394 B=7:IF AI=B THEN 399›395 A=W›399 RETURN ›400 A=PEEK(T2):IF Z<A THEN 500›401 A=8:POKE T2,A:E=16:G=96:GOSUB 402:E=48:G=104:GOSUB 402:GOTO 405›402 A=PEEK(R):B=64:GOSUB 910:A=C:B=8:GOSUB 900:A=E+C:A=A+CS:B=CS+G:C=8:C=C+A›403 F=PEEK(A):POKE B,F:A=A+W:B=B+W:IF A<C THEN 403›404 RETURN ›405 X=P1:ST=632:GOSUB 410:P1=X:IF EG=W THEN 570›406 IF NP=W THEN 500›408 X=P2:ST=633:GOSUB 410:P2=X:IF EG=W THEN 570›409 GOTO 500›410 EG=Z:E=X:F=20›411 A=PEEK(ST):B=14:IF A=B THEN 420›412 B=5:IF A=B THEN 422›413 B=9:IF A=B THEN 424›414 B=10:IF A=B THEN 426›415 B=6:IF A=B THEN 420›416 B=7:IF A=B THEN 422›417 B=13:IF A=B THEN 424›418 B=11:IF A=B THEN 426›419 GOTO 490›420 E=E-F:GOTO 430›422 E=E+W:GOTO 430›424 E=E+F:GOTO 430›426 E=E-W:GOTO 430›430 A=53760:B=90:POKE A,B:A=53761:B=102:POKE A,B:N=E+DS:A=PEEK(N):IF A=Z THEN 480›432 IF A=W THEN 490›434 B=139:IF A=B THEN 450›435 B=202:IF A=B THEN 470›436 IF A=AP THEN 460›440 GOTO 490›450 SC=SC+MZ:GOTO 480›460 EG=W:GOTO 490›470 NA=NA+W:A=8:IF NA<A THEN 480›472 NA=8›480 A=X+DS:POKE A,Z:X=E:POKE N,MP›490 RETURN ›500 A=DS:B=460:B=A+B:C=139›505 D=PEEK(A):IF D=C THEN 600›506 A=A+W:IF A<B THEN 505›510 MZ=MZ+W:A=3:NB=NB+A:A=70:IF NB<A THEN 515›512 NB=A›515 IF TI=Z THEN 200›516 B=TI+TI:B=B+TI:A=53760:POKE A,B:A=53761:B=166:POKE A,B›520 TI=TI-W:GOSUB 740:A=10:POKE T1,A:A=MZ-W:B=10:GOSUB 900:SC=SC+C›522 GOSUB 950:IF Z<SC THEN 522›525 A=PEEK(T1):IF Z<A THEN 525›530 GOTO 515›570 LV=LV-W:GOSUB 720:IF Z<LV THEN 200›572 GOTO 100›600 GOSUB 950:GOSUB 750:A=764:B=PEEK(A):C=10:IF B=C THEN 600›615 A=PEEK(R):B=64:GOSUB 910:A=C:B=8:GOSUB 900:A=E+C:A=A+CS:B=CS+G:C=8:C=C+A›620 A=PEEK(R):B=14:IF B<A THEN 620›622 B=4:GOSUB 900:A=C+B:B=92:B=B+CS:POKE B,A›630 A=PEEK(OP):B=6:IF A=B THEN 100›670 A=462:A=A+DS:B=PEEK(A):IF B=NL THEN 680›672 NL=B:LV=LV+W:GOSUB 720›680 A=PEEK(T1):IF Z<A THEN 300›681 A=50:POKE T1,A:IF NP=W THEN 683›682 A=35:POKE T1,A›683 TI=TI-W:GOSUB 740:IF Z<TI THEN 300›685 GOTO 570›700 B=208:A=CS+B:B=24:B=B+A:C=DS:E=20›702 D=PEEK(A):POKE C,D:A=A+W:C=C+E:IF A<B THEN 702›704 RETURN ›710 A=N:B=10:GOSUB 910:E=C:A=E:B=10:GOSUB 900:F=N-C›712 A=208:F=F+A:E=E+A:RETURN ›720 A=10:IF LV<A THEN 725›722 LV=9›725 A=208:A=A+LV:B=240:B=B+DS:POKE B,A:RETURN ›730 N=MZ:GOSUB 710:A=320:A=A+DS:POKE A,E:A=340:A=A+DS:POKE A,F:RETURN ›740 N=TI:GOSUB 710:A=470:A=A+DS:POKE A,E:A=A+W:POKE A,F:RETURN ›750 A=53760:POKE A,Z:A=53761:POKE A,Z:RETURN ›800 A=DS:B=460:B=B+DS›801 POKE A,W:A=A+W:IF A<B THEN 801›805 B=12:C=65:D=18:E=20:F=1›806 A=2:A=A+E:A=A+DS:G=A+D›807 POKE A,C:A=A+W:A=A+W:IF A<G THEN 807›808 F=F+W:I=40:E=E+I:IF F<B THEN 806›810 K=Z:E=230:E=E+DS:POKE E,Z:GOSUB 870›820 A=PEEK(R):B=220:IF B<A THEN 820›822 B=A+A:E=B+DS:A=PEEK(E):B=129:IF A=B THEN 830›824 GOTO 820›830 M=E›832 A=PEEK(R):B=64:GOSUB 910:F=C+W›834 G=M:E=M:GOSUB 890:A=PEEK(E):IF E<DS THEN 832›835 B=440:B=B+DS:IF B<E THEN 832›836 A=PEEK(E):IF A=Z THEN 840›838 GOTO 832›840 POKE M,Z:POKE G,Z:B=K+K:A=53760:POKE A,B:A=53761:B=132:POKE A,B›850 E=M:GOSUB 870:K=K+W:A=98:IF K<A THEN 820›852 AI=Z:P1=222:P2=238:A=P1+DS:POKE A,MP:A=P2+DS:POKE A,Z:IF NP=W THEN 855›853 POKE A,MP›855 A=SP:B=5:GOSUB 910:A=230:A=A+DS:B=208:B=B+C:POKE A,B›869 RETURN ›870 F=W:N=E›872 E=N:GOSUB 890:A=PEEK(E):IF E<DS THEN 875›873 B=440:B=B+DS:IF B<E THEN 875›874 B=65:IF A=B THEN 879›875 F=F+W:B=5:IF F<B THEN 872›876 RETURN ›879 B=129:POKE E,B:GOTO 875›890 C=20:B=40:P=2:IF F=W THEN 895›891 A=2:IF F=A THEN 896›892 A=3:IF F=A THEN 897›894 I=I-W:G=G-C:E=E-B:RETURN ›895 J=J+W:G=G+W:E=E+P:RETURN ›896 I=I+W:G=G+C:E=E+B:RETURN ›897 J=J-W:G=G-W:E=E-P:RETURN ›900 C=Z:D=Z:IF B=Z THEN 904›902 C=C+A:D=D+W:IF D<B THEN 902›904 RETURN ›910 C=Z:IF A<B THEN 914›912 A=A-B:C=C+W:IF B<A THEN 912›913 IF A=B THEN 912›914 RETURN ›950 IF SC<W THEN 959›952 SC=SC-W:C=466:C=C+DS:G=80:D=90›954 B=PEEK(C):B=B+W:IF B<D THEN 957›955 B=G:POKE C,B:C=C-W:GOTO 954›957 POKE C,B›959 RETURN ›999 END ›9500 REM  รศา ำลิ ›9502 CS=11776:FOR I=57344 TO 57850:POKE CS,PEEK(I):CS=CS+1:NEXT I:CS=11776›9510 RESTORE 9511:FOR I=0 TO 95:READ A:POKE I+CS+8,A:NEXT I›9511 DATA 251,223,254,247,253,127,239,191›9512 DATA 24,60,70,199,126,60,99,99›9513 DATA 24,60,74,203,126,60,54,54›9514 DATA 24,60,82,211,126,60,102,102›9515 DATA 24,60,98,227,126,60,198,198›9516 DATA 0,24,60,153,126,24,126,195›9517 DATA 24,60,152,126,27,56,236,6›9518 DATA 24,61,25,126,152,60,102,195›9519 DATA 24,60,24,126,153,60,103,192›9520 DATA 32,64,128,68,58,1,2,4›9521 DATA 0,0,0,0,0,0,0,0›9522 DATA 251,223,254,247,253,127,239,191›9530 REM  อลำำมวลำ ›9532 RESTORE 9534:FOR I=0 TO 24:READ A:POKE I+CS+208,A:NEXT I›9534 DATA 225,238,228,242,239,244,239,238,0,0,0,172,208,0,0,173,208,208,0,0,164,170,162,0,0,0›