10 KEY1,CHR$(12)+"SCREEN0"+CHR$(13):KEY2,CHR$(12)+"POKE-609,201"+CHR$(13)
20 GOTO 490
30 'TITLE ………………………………………………………………………………………………………………………………………………………………………………………
40 CLS:LOCATE 2,0:PRINT"CARRYING FRUITS";SPC(16);"ROUND [ 0]    LEFT"
50 FOR I=0 TO 31:VPOKE 6208+I,0:VPOKE 6880+I,0:NEXT
60 FOR I=0 TO 3:LOCATE 20+I*3,0:PRINT C$(1):NEXT:SOUND 1,0:SOUND 8,15
70 FOR I=0 TO 4:A$=" "+STRING$(3,29)+C$(I+1-(I>0)*3-(I=4)*2)+" „„„ "+MID$("TAKA-CHANAPPLE    HOUSE    ICE-BLOCKBLOCK",I*9+1,9)+" ":FOR J=31 TO 6+I*2 STEP -1
80 LOCATE J,4+I*3:PRINT MID$(A$,1,42-J):SOUND 0,J*8:NEXT J,I:SOUND 8,0:LOCATE 13,21:PRINT "PUSH [SPACE] KEY !"
90 IF STRIG(0)+1 THEN 90 ELSE R=1:G=4
100 'ROUND DRAWING ………………………………………………………………………………………………………………………………………………………………
110 RESTORE 1010:FOR I=1 TO R:READ A$:NEXT:LOCATE 8,1:PRINT USING"##";R
120 FOR I=0 TO 9:LOCATE 0,I+3:PRINT SPC(32);:LOCATE 0,22-I:PRINT SPC(32);:FOR J=0 TO 30:NEXT J,I
130 FOR I=0 TO 1:FOR J=0 TO 9:FOR K=0 TO 3:FOR L=0 TO 3
140 IF MID$(RIGHT$("000"+BIN$(VAL("&H"+MID$(A$,I*40+J*4+K+1,1))),4),L+1,1)="0" THEN 160
150 LOCATE K*8+6-L*2,J*2+3:PRINT C$(10-I*3);
160 NEXT L,K,J,I
170 FOR I=0 TO 4:LOCATE VAL("&H"+MID$(A$,82+I*2,1))*2,VAL("&H"+MID$(A$,81+I*2,1))*2+3
180 PRINT C$(5-(I=4));:NEXT:S=5:N=4
190 X=VAL("&H"+MID$(A$,92,1))*2:Y=VAL("&H"+MID$(A$,91,1))*2+3:GOSUB 420
200 'TAKA CHAN MOVING ………………………………………………………………………………………………………………………………………………………
210 IF STRIG(0) THEN 440 ELSE S=STICK(0):IF (SAND1)-1 THEN P=0:GOTO 210
220 GOSUB 420:V=X+X(S):W=Y+Y(S):T=V+X(S):U=W+Y(S):A=FNA(V,W):B=FNA(T,U)
230 IF A=206 OR A=220 OR V<0 OR V>30 OR W<3 OR W>21 THEN 210
240 IF A=32 THEN LOCATE X,Y:PRINT C$(0);:X=V:Y=W:P=0:GOSUB 420:GOTO 210
250 P=(P+1) MOD 4:IF P THEN 210
260 IF A=210 AND (B>32 OR (T<0 OR T>30 OR U<3 OR U>21)) THEN SOUND 1,0:SOUND 8,15:FOR I=8 TO 10:LOCATE V,W:PRINT C$(IMOD10);:FOR J=0 TO 30:SOUND 0,160-I*11-(JAND10)*5:NEXT J,I:SOUND 8,0:GOTO 210
270 FOR I=1 TO 15:IF A=202 AND FNA(V+X(S)*I,W+Y(S)*I)=206 THEN LOCATE X+X(S)*I,Y+Y(S)*I:PRINT C$(0);:GOTO 320
280 IF FNA(V+X(S)*I,W+Y(S)*I)>32 OR V+X(S)*I<0 OR V+X(S)*I>30 OR W+Y(S)*I<3 OR W+Y(S)*I>21 THEN I=15:GOTO 300
290 LOCATE X+X(S)*I,Y+Y(S)*I:PRINT C$(0);:LOCATE V+X(S)*I,W+Y(S)*I:PRINT C$(7+(A=202)*2);
300 NEXT:SOUND 8,15:FOR I=0 TO 23:SOUND 0,255-I*10:SOUND 1,I/2:NEXT:SOUND 8,0:GOTO 210
310 'APPLE IN THE HOUSE …………………………………………………………………………………………………………………………………………………
320 SOUND 1,0:SOUND 8,15:FOR I=0 TO 99:SOUND 0,99-I+((99-I) MOD 5)*30:NEXT
330 SOUND 8,0:N=N-1:IF N THEN 210
340 'ROUND CLEAR ……………………………………………………………………………………………………………………………………………………………………
350 FOR I=11 TO 13:LOCATE 8,I:PRINT SPC(16);:NEXT:LOCATE 8,12:PRINT USING" ROUND ## CLEAR ";R:FOR I=0 TO 5000:NEXT:R=R+1:IF R<17 THEN 110
360 'ALL ROUND CLEAR …………………………………………………………………………………………………………………………………………………………
370 FOR I=3 TO 22:LOCATE 0,I:PRINT SPC(32);:NEXT:POKE &HFD9F,&HC9
380 LOCATE 7,8:PRINT "CONGRATURATIONS !!":LOCATE 8,11:PRINT "ALL ROUND CLEAR":LOCATE 11,14:PRINT "HAPPY END":LOCATE 6,18:PRINT"GOOD BYE";SPC(34);"GOOD LUCK !"
390 PLAY"T255L8S0M5000O5C4CDE4C4O4A4O5DCO4BABGO5C4CDE4C4DEDCDCO4BGO5CEGAB4G4ABAGAGFDG4O6CDE4C4DEFEDCO5BAO6CDEFGF#GEFGABO7CO6B#O7CBO8L16CCC4O7CCC8O6CCC8O5CCC1
400 FOR I=0 TO 20000:NEXT:SOUND 7,28:SOUND 10,16:POKE &HFD9F,&HC3:GOTO 40
410 'TAKE CHAN DRAWING ……………………………………………………………………………………………………………………………………………………
420 LOCATE X,Y:PRINT C$(-(S=1)*4-(S=3)*2-(S=5)-(S=7)*3);:RETURN
430 'GIVE UP ………………………………………………………………………………………………………………………………………………………………………………
440 IF STICK(0)=8 THEN 350 ELSE G=G-1:IF G+1 THEN LOCATE 20+G*3,0:PRINT C$(0):GOTO 110
450 'GAME OVER …………………………………………………………………………………………………………………………………………………………………………
460 FOR I=11 TO 13:LOCATE 9,I:PRINT SPC(13);:NEXT:LOCATE 9,12:PRINT"„ GAME OVER „"
470 FOR I=0 TO 200:SOUND 0,I+55:SOUND 1,I AND 9:SOUND 8,15-I/50:FOR J=0 TO 9:NEXT J,I:SOUND 8,0:GOTO 40
480 'FIRST SETTING ………………………………………………………………………………………………………………………………………………………………
490 CLEAR 500,&HE800:DEFINT A-Z:COLOR 15,1,6:SCREEN 1,,0:WIDTH 32:KEYOFF
500 POKE &HFD9F,&HC9:POKE &HFDA0,&H71:POKE &HFDA1,&HE8
510 DEFUSR=&HE800:DEFUSR1=&HE83E
520 Y(1)=-2:X(3)=2:Y(5)=2:X(7)=-2:DEFFNA(X,Y)=VPEEK(6144+X+Y*32)
530 LOCATE 7,10:PRINT "„ CARRING FRUITS „"
540 LOCATE 4,12:PRINT "[ PLEASE WAIT A MINUTE ]"
550 'MACHINE LANGUAGE DATA SETTING ……………………………………………………………………………………………………………………
560 FOR I=0 TO 10:READ A$:FOR J=0 TO 31
570 POKE &HE800+I*32+J,VAL("&H"+MID$(A$,J*2+1,2))
580 NEXT:IF I=3 THEN U=USR(0)+USR1(0):NEXT ELSE NEXT:C=&HE947
590 DATA 21FF03CD4A00CB4D20010FCB5520020F0F47CB3FB0CD4D002B7CB520E6110021
600 DATA 06E0C50108002135E8CD5C000E0809EBC110EF18088191A1B131215141C92108
610 DATA 00CD5AE8211000CD5AE8212820CD5AE8213020CD5AE8CD7E00C955AF6F5F0100
620 DATA 080BCD4A0023EBCD4D0023EB78B120F1C921EEE835201136033E09CD9600A728
630 DATA 073D5F3E09CD930021EFE835203A360621F0E83520322147E94E793C20052147
640 DATA E918F60600E521F2E809095E3E02CD9300235E3CCD93003E091E0FCD9300E123
650 DATA 7E32F0E8232297E821F1E835201F360C2126E97EA720052126E918F75F3E0CCD
660 DATA 93003E0D1E00CD93002322D1E8C901010101AC0194017D016801530140012E01
670 DATA 1D010D01FE00F000E300D600CA00BE00B400AA00A00097008F0087007F007800
680 DATA 71006B0065000202060202020602020206020206020602020602020206020202
690 DATA 06020206060600
700 'B.G.M. DATA SETTING ………………………………………………………………………………………………………………………………………………
710 READ A$:IF A$<>"NEXT" THEN FOR J=1 TO LEN(A$):POKE C,ASC(MID$(A$,J,1))-65:C=C+1:NEXT:GOTO 710
720 POKE C,255:SOUND 6,15:SOUND 7,28:SOUND 10,0:POKE &HFD9F,&HC3
730 DATA HEFCACCCECFCHCHCJBJCHLHCGCHBJDHCECACFCFCHBHCJLJCICJCMCKCKCJCHCHCJBJCHJCCCCECECFBFCHDHCODMP
740 DATA HEFCACCCECFCHCHCJBJCHLHCGCHBJDHCECACFCFCHBHCJLJCICJCMCKCKCJCHCHCJBJCHFCCCBKCJCFBCGKCJCFBHGFQ
750 DATA JEFCCCFCACACCCFCFCHBHCJJJCJCKCLCMCJCFCACFCFCHBHCFJJEFCCCFCACACCCFCFCHBHCJJHCHCHCHCJBJCHFMCMCOBPCMT
760 DATA MCMCMBMDACCCFCIEHCHBFLMCMCMBMDACCCMCIEHCHBFJVCXCVCRCODRDOEMKVBWBYGWBVBWBYCWBVCYQTCVDOCRKOBRBVDTBRCTCQBPBMDJBHCMBJDHBFBEBFBHBJBHBJBMKMDMH
770 DATA NEXT
780 'CHARACTER SETTING ……………………………………………………………………………………………………………………………………………………
790 FOR I=0 TO 15:READ A$:FOR J=0 TO 31
800 VPOKE 1536+I*32+J-(I>7)*7936,VAL("&H"+MID$(A$,J*2+1,2)):NEXT J,I
810 FOR I=0 TO 10:READ A$,B$:C$(I)=A$+STRING$(2,29)+CHR$(31)+B$:NEXT
820 FOR I=0 TO 7:VPOKE &H2000+I,102:NEXT:U=USR1(0):GOTO 40
830 DATA 3F3F3F3F3FF8FF7FFCFCFCFCFCFFFFFEE3C1CDCDCDE37F3FC783B3B3B3C7FEFC
840 DATA FEFCFCFCFCFE7F3F3910D3D3D339FEFC9C08CBCBCB9C7F3F7F3F3F3F3F7FFEFC
850 DATA FFFFFFFFFFFF7F3FFFFFFFFFFFFFFEFC001E0F000F1F3F3F3F3F3F3F1F1F0F07
860 DATA 004080803CFEF9F9FFF9F9F3FEFEFC380003070F1F3F7FFFFFC0C0C0C0C0FFFF
870 DATA 00C0E0F0F8FCFEFFFF83BBBB838B8383003F7F7F7F7F4F4F4F4F4F4F4742623F
880 DATA 00FE2321F1F9F9F9F9F9F9FFFF7F7FFE000502140B120D560D2B546F35144A29
890 DATA 004880502A44AA5432A5B457B96BB1CA02000A0015200A155084280245922952
900 DATA 7F7F7F7F7F7F7F0000FEFEFEFEFEFE00
910 DATA 81818121218988A191919131319988A1AFAFAFAFAFAFA1A1AFAFAFAFAFAFA1A1
920 DATA AFAFAFAFAFAFA1A1AFAFAFAFAFAFA1A1AFAFAFAFAFAFA1A1AFAFAFAFAFAFA1A1
930 DATA AFAFAFAFAFAFA1A1AFAFAFAFAFAFA1A111312111C1212121212121213131A1A1
940 DATA 1191818121212F2F222F2F2F3131B1B11181618161816181AAA7A7A7A7A7AAAA
950 DATA 1191819181918191BBB6B6B6B6B6B6B611717171717171717171717171717171
960 DATA 11717F7F7F7F7F7F7F7F7F777771717111F17171717171717171717171515151
970 DATA 11F1F1F1F1F1F1F1F1F1717171717151F111711171515151F1F1F1F1F1717151
980 DATA F696969696968666FF9F9F9F9F9F8F66
990 DATA "  ","  ",ĄĮ,ĀĆ,ĄĮ,ÄÅ,ĄĮ,ĘĒ,ĄĮ,ČÉ,ŹĢ,ĖĶ,ĪŠ,ĻŃ,ŅŌ,ÓÕ,ÖŲ,ף,"  ",ŚŪ,ÜŻ,ŻÜ
1000 'ROUND DATA ……………………………………………………………………………………………………………………………………………………………………
1010 DATA 00000000D7EB5428D7285028502850EB00000000000000E000040000000000000000000400007000123B81835354
1020 DATA 000F0000ED672451E55105510541E5470000787000000000000000000000000000000000844100004B70788E1011
1030 DATA 0C300000876302C10280428042C1C3631000100C0000000800140000010000080008001000000C3014464D776364
1040 DATA 000E000087E3022202E342A042A1C323000000000000000000080000000008002000200020002220466783896454
1050 DATA 00000000C6818301010101018301C6010000000E00005580000000003010000000000000000000003146526B7170
1060 DATA 00000000C7E34020C72804280428C7E31008100E0000000008040000288000000000000044000000536B848D6555
1070 DATA 00000000BDBD55075D32512211271DBD000000000000000B000000000000000000000040090500001E4B67892212
1080 DATA 00000000BDBD55275D325522152715AD000000000140000100000000000000000000C0000028044011255B683141
1090 DATA 00000000C36342A2C7A2C4A2C422C7220000000E08004202001000000000101000000010000000001926818B7C6C
1100 DATA 00000000C76344C1C780418043C1466300000000000004402018000000000000000000000010080E124E51595C4C
1110 DATA 000000002AB72290229063904190C9B700000000000500000040410200000000000202000004240011334A716353
1120 DATA 00000000C6E3452045E34502440244E30000000000000000201000001010000000002010102048001D2E5A746C5C
1130 DATA 700E1000D6E3450A458945C0442044E300000000000000000000002020000000010009000100AC00575D61812414
1140 DATA 000F0000C7814001C70104010401C7010008000F100018001002000408000000000A1000100110001C646A6E3334
1150 DATA 00000000C76340A2C3A240A24022402208100E70420815800800000000002800000020000400200831677E8B7675
1160 DATA 00000000C7E34022C3E34020402040200000000000002822000022040000000000000018204200004651545B3334