1 REM********************************** 2 REM* B A L L O O N 6 4 * 3 REM* BY KHALEEL AL-GHAMDI (KSA) * 4 REM********************************** 5 POKE53281,0:POKE53280,0:SN=1945:EN=1145:HS=0:DIMG(39),P(39):GOSUB600:GOSUB900 10 GOSUB850:IN$="GHA":GOTO556 50 X=168:Y=60:POKEV+14,X:POKEV+15,Y:POKEV+16,PEEK(V+16)AND127 100 FORI=0TO49:NEXT 130 SYS49152:POKEV+30,0:IFG>9THENGOSUB405:GOSUB480:GOSUB720:GOTO50 140 IF(PEEK(V+30)AND128)=128THEN500 150 IFSC>BS THENGOSUB460 200 J=PEEK(56320):IFJ=127THEN100 205 IF(JAND16)=0THEN300 210 IF(JAND1)=0ANDY>56THENY=Y-8:GOTO230 220 IF(JAND2)=0ANDY<218THENY=Y+8 230 IF(JAND4)=0ANDX>34THENX=X-8:GOTO250 240 IF(JAND8)=0ANDX<318THENX=X+8 250 POKEV+15,Y:IFX>255THENPOKEV+14,X-256:POKEV+16,PEEK(V+16)OR128:GOTO130 260 POKEV+16,PEEK(V+16)AND127:POKEV+14,X:GOTO130 300 ON F GOTO 310,350 310 IFINT((X-24)/8)<>(X-24)/8ORY<218THEN100 320 A=(X-24)/8:IFG(A)=1THENF=2:G(A)=0:POKE2047,193:POKESN+A,32:GOTO380 330 GOTO100 350 IFINT((X-24)/8)<>(X-24)/8ORY>55THEN100 360 B=(X-24)/8:IFP(B)=0THENF=1:P(B)=1:POKE2047,192:POKEEN+B,81:G=G+1:GOTO390 370 GOTO100 380 POKEV+46,1:GOSUB800:GOTO130 390 POKEV+46,15:SC=SC+(LV-1)*5:GOSUB800 398 GOSUB410:GOTO130 400 E$="":RETURN 405 SC=SC+((LV-1)*500) 410 PRINTLEFT$(E$,4);SC:RETURN 420 PRINTLEFT$(E$,14);FL:RETURN 430 PRINTLEFT$(E$,21);LV-1:RETURN 440 PRINTE$;HS:RETURN 450 PRINT" *** TECLEA TUS INICIALES (3) **";:IN$="" 451 FORI=0TO9:GET A$:NEXT 452 GET A$:IFA$=""THEN452 453 IN$=IN$+A$:PRINTA$; 454 IFLEN(IN$)<>3THEN452 455 PRINTLEFT$(E$,27);IN$:RETURN 460 BS=BS+2500*(LV-4):IFFL<9THENFL=FL+1:GOSUB420:GOTO470 465 RETURN 470 FORI=10TO0STEP-2:POKES,L(I):POKES+1,H(I):POKES+4,33 472 PRINT" V I D A B O N U S * V I D A B O N U S":FORT=0TO59:NEXTT 474 PRINT"[145][145] ":NEXTI:POKES+4,0:RETURN 480 LV=LV+1:IFLV<7 THENPOKE53269,(PEEK(53269)OR(2^LV)):POKE252,(1+LV)*2-1:RETURN 499 POKE251,INT(LV/2):RETURN 500 REM ** DEAD SOUND ** 501 REMPOKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240:POKES+4,0 502 FORT=YTO235STEP4::H=H(T AND 7):L=L(T AND 7) 503 POKES,L:POKES+1,H:POKEV+15,T:POKES+4,129:NEXT:P=PEEK(V+16):FORT=X TO0STEP-16 504 POKEV+14,T AND255:POKEV+16,P AND(INT((T/256))*128+127):NEXT:POKES+4,0 510 FL=FL-1:GOSUB420:IFFL=0THEN554 530 IFF=2THENPOKE2047,192:G=G+1:F=1:IFG>9THENGOSUB480:GOSUB405:GOSUB720 540 POKEV+46,15:GOTO50 554 PRINT" G A M E  O V E R ":POKEV+21,0 555 IFSC>HSTHENHS=SC:GOSUB450:GOSUB440:GOTO554 556 PRINT"*** PULSA FUEGO JOYSTICK 2[146] ***" 558 FORI=0TO64:POKE53280,IAND15:NEXT 560 J=PEEK(56320):IF(JAND16)=16THEN560 561 POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240:POKES+4,0 562 SYS37120:POKES1,0 564 POKES+4,0:FORI=0TO11:POKES,L(I):POKES+1,H(I):POKES+4,33:FORT=0TO99:NEXTT,I 565 FORI=0TO255:NEXT:SYS36864:POKES+4,0:GOSUB700:GOTO50 600 REM ** TITLE DISPLAY ** 602 PRINT"[147]":P$=" ":POKE53269,0 605 PRINTP$"[209][209][209][209] [209] [209] [209] [209] [209] [209] [209]" 610 PRINTP$"[209] [209] [209] [209] [209] [209] [209] [209] [209] [209] [209] [209]" 615 PRINTP$"[159][209] [209][160][209][160][209][160][209][160][160][160][209][160][160][160][209][160][209][160][209][160][209][160][209][209] [160][209]" 620 PRINTP$"[156][209][209][209][209] [209][209][209] [209] [209] [209] [209] [209] [209] [209] [209] [209]" 625 PRINTP$"[159][209] [209] [209] [209] [209] [209] [209] [209] [209] [209] [209] [209][209]" 630 PRINTP$"[209][160][160][160][209][160][209][160][209][160][209][160][160] [209][160][160][160][209] [209] [209][160][209] [209] [209]" 635 PRINTP$"[209][209][209][209] [209] [209] [209][209][209] [209][209][209] [209] [209] [209] [209] " 640 PRINTP$" [209][209][209] [209]" 645 PRINTP$" [209] [209] [209]" 647 PRINTP$"[159] [209] [209] [209]" 650 PRINTP$"[156] [209][209][209][209] [209][209][209][209][209]" 655 PRINTP$"[159] [209] [209] [209]" 657 PRINTP$" [209] [209] [209]" 660 PRINTP$" [209][209][209] [209]" 665 PRINTP$"[158][157] *BY KHALEEL AL-GHAMDI (K.S.A.)* " 667 PRINT" INSTRUCCIONES" 670 PRINT" MANDA LAS FACTURAS DEL SUELO AL CIELO " 675 PRINT"UTILIZA FUEGO PARA COGERLAS Y SOLTARLAS" 680 PRINT" NO CHOQUES CON LOS GLOBOS " 699 RETURN 700 REM *** DRAW GAME *** 705 V=53248:POKE2047,192:POKEV+46,15 710 R=40:FORI=0TO15STEP2:POKEV+I,R+I*15:POKEV+1+I,INT(RND(0)*49)+100:NEXT 714 F=1:LV=2:FL=5:SC=0:BS=2500:FORI=0TO39:G(I)=0:P(I)=1:NEXT 718 POKE53269,135:POKE251,3:POKE252,5:POKE253,0:POKEV+16,0:POKE53271,127 720 FORI=3TO16STEP3:G(I)=1:P(I)=0:G(I+19)=1:P(I+19)=0:NEXT 722 FORI=0TO15:POKE52992+I,INT((RND(0)*9)/5):NEXT 725 PRINT"[147]* SCORE * VIDAS * NIV * INT * HI-SCORE *"; 727 PRINT"[223] [146][169]";:G=0 728 PRINT" [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]"; 729 PRINT"[145]          " 730 PRINT"[169] [223][146]"; 732 PRINT"[149] [206][205] [206][205] [206][205] [206][205]" 734 PRINT"[205] [206] [205] [206][205][206] [205] [206] [205] [175][175][175][175][175][206] [183] [205] [205][206][205][175][175][175][175][206][205][206] [205][206][183] [205] 736 [153]" * * * * * " 738 [153]"FOR PEEK PEEK PEEK PEEK PEEK " 740 [153]" (null) (null) (null) (null) (null) (null) (null) (null) (null) (null)" 742 [153]" WAIT"; 744 [151]SN[170]78,160:[151]56295,5:[141]400 745 [129]I[178]1[164]5:[145] I [141]410,420,430,440,455:[130]:[142] 750 [141]850:[151]W,129:[151]VL,5:G[178]0:[142] 800 [143] ** SOUND FOR PICKING ** 810 [151]S[170]4,33:[129]I[178]0[164]29:[130]:[151]S[170]4,0:[142] 850 [129]T[178]0[164]2:[129]X[178]0[164]255:[135]A:[139]A[178][171]1[167]852 851 [151]36864[170]T[172]256[170]X,A:[130]X 852 [130]T 853 [151]37632,0:[151]37633,0 860 S1[178]54276:[129]I[178]S1[171]4[164]S1[170]20:[151]I,0:[130]:[151]S1[170]20,15:[151]S1,33:S[178]54279 868 [134]H(11),L(11):[129]I[178]0[164]11:[135]H(I),L(I):[130] 869 [129]T[178]0[164]255 870 [135]A$:[139]A$[178]"*"[167] 889 871 [139][195](A$)[177]1[167]D[178][197](A$):[137]870 872 [139]A$[178]"+"[167]O[178]2:[137]870 874 [139]A$[178]"/"[167]O[178]1:[137]870 875 A[178][198](A$)[171]65:[145]O [137]877,878 877 H[178]H(A):L[178]L(A):[137]880 878 H[178]H(A)[172]2:L[178](L(A)[172]2)[175]255 880 [151]37888[170]T,H:[151]38144[170]T,L:[151]38400[170]T,D:[130] T 889 [151]37380,T:[158]36864 890 [142] 899 [143] ** POKEING M/L AND SPRITES ** 900 SD[178]12287:[129]I[178]1[164]191:[135]Q:[151]SD[170]I,Q:[130]:[151]2047,192 901 [129]I[178]1[164]8:[151]53295[171]I,I[170]1:[130]I 902 [129]I[178]0[164]6:[151]2040[170]I,194:[130] 903 SD[178]49152:[129]L[178]0[164]13:[129]I[178]0[164]15:[135]Q:[151]SD[170]I,Q:C[178]C[170]Q:[130]I 904 [135]Q:[139]C[179][177]Q [167][153]"ERROR DATA EN LINEA";940[170]L:[128] 905 C[178]0:SD[178]SD[170]16:[130]L:[151]SD,96:[142] 910 [143] ** SPRITE DATA ** 911 [131]48,255,12,97,255,134,199,255 912 [131]227,207,125,243,222,56,251,223 913 [131]125,251,255,255,255,255,187,255 914 [131]247,199,223,123,255,190,123,199 915 [131]190,127,131,254,63,255,252,51 916 [131]255,204,51,0,204,48,0,12 917 [131]48,0,12,48,0,12,48,0 918 [131]12,60,0,60,62,0,124,64 919 [131]96,255,6,97,255,134,199,255 920 [131]227,207,125,243,222,56,251,223 921 [131]125,251,255,255,255,255,187,255 922 [131]247,199,223,119,255,222,123,57 923 [131]190,127,131,254,63,239,252,51 924 [131]255,204,51,60,204,56,126,28 925 [131]24,126,24,28,126,56,12,126 926 [131]48,15,126,240,15,189,240,64 930 [131]0,127,0,1,255,192,3,255,224,3,227,224,7,217,240,7,223,240,7,217,240,3 931 [131]231,224,3,255,224,3,255,224,2,255,160,1,127,64,1,62,64,0 932 [131]156,128,0,156,128,0,73,0,0,73,0,0,62,0,0,62,0,0,62,0,0,28,0 939 [143] * DATA FOR MACHINE LANGAUGE * 940 [131] 32,7,192,32,85,192,96,164,252,24,185,0,208,201,84,144,1898 941 [131] 36,201,204,176,40,136,32,174,192,45,16,208,208,10,185,0,1863 942 [131] 208,201,25,144,32,76,47,192,185,0,208,201,62,176,30,136,1923 943 [131] 192,24,144,214,96,169,0,153,0,207,76,21,192,169,200,153,2010 944 [131] 0,207,76,21,192,169,0,153,0,207,76,47,192,169,200,153,1862 945 [131] 0,207,76,47,192,24,164,252,32,213,192,185,0,208,190,0,1982 946 [131] 207,224,0,240,44,229,251,229,254,153,0,208,136,185,0,208,2568 947 [131] 190,0,207,224,0,240,36,229,251,153,0,208,201,245,144,11,2339 948 [131] 32,174,192,45,16,208,240,3,32,190,192,136,192,20,144,200,2016 949 [131] 96,101,251,101,254,153,0,208,76,108,192,101,251,153,0,208,2253 950 [131] 144,233,32,174,192,13,16,208,141,16,208,76,139,192,152,24,1960 951 [131] 105,2,106,170,169,1,202,240,4,42,202,208,252,96,152,24,1975 952 [131] 105,2,106,170,169,254,202,240,5,56,42,202,208,251,45,16,2073 953 [131] 208,141,16,208,96,166,253,230,253,189,0,176,41,3,133,254,2367 954 [131]169,146,141,21,3,169,0,141,20,3,96,-1,169,234,141,21,3,169,49,141,20,3 955 [131]96,-1,172,0,147,192,16,240,57,206,1,147,173,1,147,201,0,208,44,238,0,147 956 [131]169,0,141,4,212,169,31,141,5,212,169,0,141,6,212,169,17,141,4,212,185,0 957 [131]147,185,0,148,141,1,212,185,0,149,141,0,212,185,0,150,141,1,147,76,49 958 [131]234,169,0,141,0,147,141,4,212,24,144,242,-1 959 [143] ** DATA FOR MUSIC ** 960 [131]28,49,31,165,16,195,18,209,21,31,22,96,25,30,29,233,17,195,19,239,23 961 [131]81,26,156 980 [131]08,+,C,D,/,A,+,C,13,/,D,E,12,A,08,F,14,D,08,C,12,E,08,D,15,D,08,C,G,E,D 981 [131]15,D,+,08,C,D,/,A,+,13,/,D,E,12,F,08,G,14,A,08,A,+,12,E,08,D,12,I,/,08 982 [131]A,+,12,E,08,D,12,I,/,08,A,+,F,E,D,15,A,08,C,D,/,A,+,C,/,13,D,E,12,A,08 983 [131]F,14,D,08,C,12,E,08,D,13,D,08,C,G,E,D,15,D,+,08,C,D,/,A,+,C,/,13,D,E,F 984 [131]G,08,A,B,+,C,/,A,G,F,12,A,08,D,12,G,08,C,15,F,F 985 [131]15,D,+,08,C,D,/,A,+,13,/,D,E,12,F,08,G,14,A,08,A,+,12,E,08,D,12,I,/,08 986 [131]A,+,12,E,08,D,12,I,/,08,A,+,F,E,D,15,A,08,C,D,/,A,+,C,/,13,D,E,12,A,08 987 [131]F,14,D,08,C,12,E,08,D,13,D,08,C,G,E,D,15,D,+,08,C,D,/,A,+,C,/,13,D,E,F 988 [131]G,08,A,B,+,C,/,A,G,F,12,A,08,D,12,G,08,C,15,F 989 [131]08,+,C,D,/,A,+,C,13,/,D,E,12,A,08,F,14,D,08,C,12,E,08,D,15,D,08,C,G,E,D 990 [131]60,G,G,* 991 [143] CODES FOR GRAOHICS SYMBOLS 992 [143] "LOAD"=CLEAR/HOME :""=HOME 993 [143] ""=CURSR DOWN :"ON"=CURSR UP 994 [143] ""=CURSR RIGHT:"CMD"=CURSR LEFT 995 [143] ""=WHITE:""=RED:"OPEN"=CYN. 996 [143] "CLR"=PUR. :"SYS"=YEL:""=BLU. 997 [143] ""=GRN. :"FOR"=CMD/1:"VERIFY"=CMD/2 998 [143] ""=RVS/ON:"WAIT"=RVS/OFF 999 [143] "(null)"=SHFT/-:"(null)"=SHFT/Q:"(null)"=SHFT/N:"(null)"=SHFT/M:"AND"=CMD/P