1 GRAPHICS4

   2 RANDOMIZE

   3 GOSUB9900

   4 GOSUB8500

   6 GRAPHICS4:SETPALETTE1,20,4,81 

   7 A=USR(6683):GOSUB7150

   8 GOSUB6000

  10 IF FUEL>1000THEN FUEL1=FUEL1+FUEL:FUEL=100:PRINTAT 23,2,"gratulálok; új pálya   ":GOSUB 4070:GOSUB6000

  13 FUEL=FUEL-LIFEÖ:GOSUB5000:IF FUEL<=0THEN FUEL=0:PRINTAT23,20,"NO FUEL...":GOTO8000

  14 ON BOM+1GOSUB4020,4021:SOUND PITCH ABS(FUEL*4.01),DURATION10:ON JOY GOTO 18,17,15,16,19:ELSE 10

  15 XH=XH-1:H$="Ü":TÜZ=1:GOTO 20

  16 XH=XH+1:H$="Ý":TÜZ=2:GOTO 20

  17 YH=YH+1:H$="ß":TÜZ=4:GOTO 20

  18 YH=YH-1:H$="Þ":TÜZ=3:GOTO 20

  19 POKE2846,RND(120):ON TÜZ GOSUB800,830,850,880:GOTO10

  20 SZ=SZ+1:IF SZ=KS THEN SZ=0:A=RND(21)+1:ONA GOSUB4000,4001,4002,4003,4004,4004,4006,4007,4008,4009,4000,4010,4002,4007,4004,4004,4004,4006,4005,4003,4011

  29 IF CS<>32 THEN XH=CH:YH=VH

  30 PRINT AT XH,YH,H$

  31 IF CH=XH AND VH=YH THEN TÜN$=H$:ELSE TÜN$=" "

  32 PRINT AT CH,VH,TÜN$

  33 CH=XH:VH=YH

  37 IF FUEL>1000THEN FUEL1=FUEL1+FUEL:FUEL=100:PRINTAT 23,2,"gratulálok; új pálya   ":GOSUB 4070:GOSUB6000

  38 SOUND PITCH FUEL*4.01,DURATION255

  39 FUEL=FUEL-LIFEÖ:IF FUEL<0 THENPRINTAT 23,20,"NO FUEL...":GOTO8000:ELSE GOSUB5000

  40 GOTO 10

 800 X=XH:Y=YH

 801 X=X-1

 802 IF SC=32 THEN PRINT AT X,Y,"Û":ELSE GOTO 815

 810 SOUND PITCHX*128,DURATION3

 813 GOTO801

 815 IF SC<>32 THEN A=SC-184:IF A<1 THEN GOTO 820:ELSE ON A GOSUB987,985,980,930,930,950,950,950,950,986,960,940,970,970,990

 820 IF XH-1=X THEN RETURN

 827 FORI=XH-1 TO X+1STEP-1:PRINTAT I,YH," ":NEXT

 828 FUEL=FUEL-5:IF FUEL<0THENGOSUB4040:GOTO8000:ELSEGOSUB5000

 829 RETURN

 830 X=XH:Y=YH

 831 X=X+1

 832 IF SC=32 THEN PRINT AT X,Y,"Û":ELSE GOTO 845

 840 SOUND PITCHX*128,DURATION3

 843 GOTO831

 845 IF SC<>32 THEN A=SC-184:IF A<1 THEN GOTO 846:ELSE ON A GOSUB987,985,980,930,930,950,950,950,950,986,960,940,970,970,990

 846 IF XH+1=X THEN RETURN

 847 FORI=XH+1 TO X-1:PRINTAT I,YH," ":NEXT

 848 FUEL=FUEL-5:IF FUEL<0THENGOSUB4040:GOTO8000:ELSEGOSUB5000

 849 RETURN

 850 X=XH:Y=YH

 851 Y=Y-1

 852 IF SC=32 THEN PRINT AT X,Y,"Ú":ELSE GOTO 865

 860 SOUND PITCHY*128,DURATION3

 863 GOTO851

 865 IF SC<>32 THEN A=SC-184:IF A<1 THEN GOTO 870:ELSE ON A GOSUB987,985,980,930,930,950,950,950,950,986,960,940,970,970,990

 870 IF YH-1=Y THEN RETURN

 877 FORI=YH-1 TO Y+1STEP-1:PRINTAT XH,I," ":NEXT

 878 FUEL=FUEL-5:IF FUEL<0THENGOSUB4040:GOTO8000:ELSEGOSUB5000

 879 RETURN

 880 X=XH:Y=YH

 881 Y=Y+1

 882 IF SC=32 THEN PRINT AT X,Y,"Ú":ELSE GOTO 885

 883 SOUND PITCHY*128,DURATION3

 884 GOTO881

 885 IF SC<>32 THEN A=SC-184:IF A<1 THEN GOTO 890:ELSE ON A GOSUB987,985,980,930,930,950,950,950,950,986,960,940,970,970,990

 890 IF YH+1=Y THEN RETURN

 897 FORI=YH+1 TO Y-1:PRINTAT XH,I," ":NEXT

 898 FUEL=FUEL-5:IF FUEL<0THENGOSUB4040:GOTO8000:ELSEGOSUB5000

 899 RETURN

 930 SC1=SC:IF SC=188 THEN PRINT AT X,Y,"ØØ":ELSE PRINTAT X,Y-1,"ØØ"

 933 GOSUB4030:SCORE=SCORE+RND(50):FUEL=FUEL+50*TIME:GOSUB5000:GOSUB5010:IF SC1=188 THEN PRINTAT X,Y,"  ":ELSE PRINT AT X,Y-1,"  "

 934 RETURN

 940 PRINTAT 23,2,"a bomba lehûtve...":FORBSZ=BSZ TO0 STEP-0.1:SOUNDPITCHBSZ*100,DURATION2:NEXTBSZ:PRINTAT BX,BY,"Ø":GOSUB4030:PRINTAT BX,BY," ":BOM=0:PRINTAT23,2,"                  ":RETURN

 950 SETINK3:PRINTAT 12,5,"THE END":SETINK1

 951 RESTORE7000

 952 GOSUB7181:CLS

 953 FORI=1 TO82:READA,B:PLOTA*4,B*4;:NEXT:PLOT

 954 FORI=1TO46:READA,B:PLOTA*4,B*4;:NEXT:PLOT

 955 FORK=1 TO3:FORI=110 TO4000STEP100:SOUNDPITCHI,DURATION3:OUT97,I/16:NEXTI:OUT99,K*20:NEXTK:GOTO7200

 959 RETURN

 960 SCORE=SCORE+RND(100)*TIME:PRINTATX,Y,"Ù":GOSUB4030:PRINTATX,Y," ":GOSUB5010:RETURN

 970 SC1=SC:IF SC=197 THEN PRINT AT X,Y,"ØØ":ELSE PRINTAT X,Y-1,"ØØ"

 971 GOSUB4030:IF SCORE<100 THEN GOTO973

 972 A=RND(100):SCORE=SCORE-A:FUEL=FUEL+A:GOSUB5000:GOSUB5010

 973 IF SC1=197 THEN PRINTAT X,Y,"  ":ELSE PRINT AT X,Y-1,"  "

 974 RETURN

 980 PRINT ATX,Y,"Ø":GOSUB4030:FUEL=FUEL+LIFE*3:GOSUB5000:PRINTATX,Y," ":RETURN

 985 PRINTAT X,Y,"Ø":GOSUB4030:PRINTATX,Y," ":RETURN

 986 PRINT AT X,Y,"Ù":GOSUB4030:SCORE=SCORE+INT(FUEL/2)*TIME:FUEL=FUEL-RND(20)*TIME:GOSUB5000:GOSUB5010:PRINTATX,Y," ":RETURN

 987 PRINTATX,Y,"Ø":GOSUB4030:SCORE=SCORE+100*TIME:FUEL=FUEL+20*TIME:GOSUB5000:GOSUB5010:PRINTATX,Y," ":RETURN

 990 GOTO 8000

4000 PRINT AT RND(14)+5,RND(30)+2,"¸":RETURN

4001 SETINK3:PRINT AT RND(14)+5,RND(30)+2,"¹":SETINK1:RETURN

4002 PRINT AT RND(14)+5,RND(30)+2,"º":RETURN

4003 SETINK3:PRINT AT RND(14)+5,RND(30)+2,"»":SETINK1:RETURN

4004 SETINK3:PRINT AT RND(14)+5,RND(29)+2,F$:SETINK1:RETURN

4005 SETINK2:PRINT AT RND(14)+5,RND(26)+2,BOM$:SETINK1:RETURN

4006 SETINK2:PRINT AT RND(14)+5,RND(30)+2,"Â":SETINK1:RETURN

4007 PRINT AT RND(14)+5,RND(30)+2,"Ã":RETURN

4008 IF BOM=0THENBX=RND(14)+5:BY=RND(30)+2:SETINK2:PRINTAT BX,BY,"Ä":BOM=1:PRINTAT23,2,"idõzített bomba!!":SETINK1:RETURN:ELSE RETURN

4009 SETPAPER2;INK3:PRINT AT RND(14)+5,RND(29)+2,S$:SETPAPER0;INK1:RETURN

4010 PRINT AT RND(14)+5,RND(30)+2,"Ç":RETURN

4011 PRINT AT RND(14)+5,RND(30)+2,"™":RETURN

4020 RETURN

4021 BSZ=BSZ+1:SOUNDPITCHBSZ*80,VOLUME15:IFBSZ>50 THEN BSZ=0:BOM=0:PRINTAT BX,BY,"Ø":GOTO8000

4025 RETURN

4030 FORI=4000 TO 1000 STEP-40:SOUND PITCH I,DURATION3:NEXT:RETURN

4040 PRINTAT 23,20,"NO FUEL...":RETURN

4050 IF SCORE=0 AND FUEL=0 THEN FUEL=50:ELSE PRINTAT23,2,"TANKOLAS..."

4051 SCORE=SCORE-1:IF SCORE<1 THEN SCORE=0:RETURN

4052 FUEL=FUEL+1:IF FUEL>100 THEN RETURN

4053 SOUND PITCH ABS(FUEL*20)

4054 GOSUB5000:GOSUB5010

4055 GOTO 4051

4070 RESTORE4080:FORI=1 TO 8:READA:SOUND;PITCHA,DURATION15:NEXT

4071 J=J+1:IF J=7 THEN J=1:KS=KS+2

4075 RETURN

4080 DATA 3800,3750,3700,4000,3900,3850,3700,3500

4200 SETINK3:FORI=0 TO512STEP4

4205 SOUND PITCHI*8,DURATION9

4210 PLOT0,I;1023,I,0,959-I;1023,959-I

4220 PLOTI,0;I,959,1023-I,0;1023-I,959

4230 NEXTI:SETINK1:RETURN

5000 PRINT AT 3,25,FUEL:RETURN

5001 FORI=1 TO LEN(FUEL$)

5002 B$(I)=CHR$(ORD(FUEL$(I))+80)

5003 NEXT I:B$=B$&STRING$(6-LEN(B$),32)

5004 PRINT AT 3,25,B$

5009 RETURN

5010 PRINT AT21,9,SCORE:RETURN

5011 FORI=1 TO LEN(SCORE$)

5012 B$(I)=CHR$(ORD(SCORE$(I))+80)

5013 NEXT I:B$=B$&STRING$(6-LEN(B$),32)

5014 PRINT AT21,9,B$

5019 RETURN

5020 RECORD$=STR$(RECORD):B$=""

5021 FORI=1 TO LEN(RECORD$)

5022 B$(I)=CHR$(ORD(RECORD$(I))+80)

5023 NEXT I:B$=B$&STRING$(6-LEN(B$),32)

5024 PRINT AT3,10,B$

5029 RETURN

6000 CLS:SETPALETTE0,0,0,0;BORDER0

6001 PRINTAT 1,1,"¡                              ¦"

6010 FORI=2 TO 21:PRINT AT I,1,"¤                              ¥":NEXT

6020 PRINTAT22,1,"¢££££££££££££££££££££££££££££££§"

6040 PRINT AT 19,1,"­££££££££££££££££££££££££££££££¬"

6045 PRINT AT 4 ,1,"®                              ¯"

6050 PRINTAT 21,3,"ÉÊËÌÍ:                    "

6060 PRINTAT 3 ,3,"ÌÍÊËÌÔ:          ÎÏÍÐ:     "

6070 GOSUB 5000:GOSUB5010:GOSUB5020

6071 PRINT AT XH,YH,H$

6075 LIFE1=LIFE

6076 IF LIFE<=0 THEN GOTO6090

6080 FORLIFE=1 TO LIFE1:PRINTAT 21,LIF,"Ü":NEXT LIFE:LIFE=LIFE1

6090 ON J GOSUB6999,6990,6109,6210,6310,6410

6095 IF BOM=1 THEN PRINTAT BX,BY,"Ä"

6098 SET PALETTE0,17,4,16;BORDER65

6099 RETURN

6109 PRINTAT6,3,"";

6110 PRINTAT6,3, "¡                          ¦"

6112 PRINTAT7,3, "¤                          ¥"

6114 PRINTAT8,3, "¤                    ¤     ¥"

6116 PRINTAT9,3, "¤           ²        ¤     ¥"

6118 PRINTAT10,3,"            ¥       £¨££    "

6120 PRINTAT11,3,"            ¥        ¤      "

6122 PRINTAT12,3,"            ¥        ¤      "

6124 PRINTAT13,3,"¡           ª    ¨£££¨££§  ¥"

6126 PRINTAT14,3,"¤                ¤   ¤     ¥"

6128 PRINTAT15,3,"¤                ¤   ¤     ¥"

6129 PRINTAT16,3,"¤                ¤   ¤     ¥"

6130 PRINTAT17,3,"    £££££££££    ¢£££¶££    "

6190 RETURN

6210 PRINTAT6,3, "            ¥               "

6212 PRINTAT7,3, "£££££   ££££´££££££   ££££££"

6214 PRINTAT8,3, "                            "

6216 PRINTAT9,3, "                            "

6218 PRINTAT10,3,"            ¥               "

6220 PRINTAT11,3,"            ª               "

6222 PRINTAT12,3,"            ¥               "

6224 PRINTAT13,3,"                            "

6226 PRINTAT14,3,"                            "

6228 PRINTAT15,3,"            ¥               "

6229 PRINTAT16,3,"££££   £££££¬               "

6230 PRINTAT17,3,"            ¥               "

6290 RETURN

6310 PRINTAT6,3, "                            "

6312 PRINTAT7,3, "£££££  £££££££££££££££££  ££"

6314 PRINTAT8,3, "                            "

6316 PRINTAT9,3, "£££££££££  ££££££££££  £££££"

6318 PRINTAT10,3,"                            "

6320 PRINTAT11,3,"£££££££££££££  £££  ££££££££"

6322 PRINTAT12,3,"                            "

6324 PRINTAT13,3,"££££££££££££££  ££  ££££££££"

6326 PRINTAT14,3,"                            "

6328 PRINTAT15,3,"££££££££££  £££££££££  £££££"

6329 PRINTAT16,3,"                            "

6330 PRINTAT17,3,"£££££  £££££££££££££££££  ££"

6390 RETURN

6410 PRINTAT6,3, "¡                          ¦"

6412 PRINTAT7,3, "¤                          ¥"

6414 PRINTAT8,3, "   ¡                    ¦   "

6416 PRINTAT9,3, "                        ¥   "

6418 PRINTAT10,3,"¤    ¡                ¦ ¥  ¥"

6420 PRINTAT11,3,"¤  ¤                    ¥  ¥"

6422 PRINTAT12,3,"¤  ¤                    ¥  ¥"

6424 PRINTAT13,3,"¤    ¢££  £££££££  £££§ ¥  ¥"

6426 PRINTAT14,3,"                        ¥   "

6428 PRINTAT15,3,"   ¢££££££££   £££££££££§   "

6429 PRINTAT16,3,"¤                          ¥"

6430 PRINTAT17,3,"¢£££££  £££££££££££  ££££££§"

6490 RETURN

6990 FORI=1 TO 25

6991 PRINT AT RND(14)+5,RND(30)+2,"¸"

6992 NEXT

6993 RETURN

6999 RETURN

7000 DATA53,167,50,169,45,170,43,169,40,168,35,167,30,162,22,155,20,150,20,145,20,140,22,130,25,122,30,118,35,116,40,115,45,117,50,118,55,120,60,124,65,130,66,132,64,140,68,128,70,123,74,115,72,117,70,105,68,107,66,110,70,135,72,140

7010 DATA73,146,78,150,83,153,88,154,90,153,95,143,93,133,90,132,85,130,80,131,75,135,72,140,73,140,78,150,83,153,88,154,90,153,89,154,95,143,100,137,103,136,105,137,110,140,112,147,114,150,114,160,120,142,118,153,118,158,120,161

7020 DATA 125,160,130,154,130,161,133,164,135,165,137,164,142,163,146,152,150,150,155,153,165,160,170,170,168,175,165,176,160,172,156,164,157,157,160,152,166,152,185,160

7030 DATA124,102,120,105,116,108,105,107,100,104,97,98,98,90,100,84,114,74,120,74,128,80,130,87,130,92,124,102,126,104,132,94,135,96,140,98,143,100,143,104,139,111,146,99,150,89,154,100,155,104,154,110,150,118,153,114,158,113

7040 DATA164,115,169,120,170,125,168,128,165,127,163,120,164,115,170,110,178,112,183,130,187,136,193,133,200,122,192,137,193,133,198,132,210,137

7100 FORI=3500 TO 4000STEP 20:SOUND;PITCHI,DURATION2:SOUND;PITCHI-40,DURATION2:SOUND;PITCHI-20,DURATION2:NEXTI

7110 FORV=15 TO 0 STEP -3:SOUND PITCHV*100+900,VOLUMEV,DURATION2:NEXTV:RETURN

7120 FORA=1 TO 50:SOUNDPITCHRND(1000)+3000,DURATION2:NEXTA

7130 FORI=1000 TO 0 STEP -20:SOUND PITCH3000+I:SOUND PITCH3000-I,DURATION3:NEXTI:RETURN

7140 FORI=3000 TO 2000 STEP -5:OUT0,68:SOUNDPITCHI,DURATION2:OUT0,250:NEXTI

7150 R=51:FORI=3000 TO4000 STEP20:R=R-1:FORK=I TO I-200STEP-R :SOUNDPITCHK,DURATION3:NEXTK:NEXTI:RETURN

7160 FORI=4000 TO3000 STEP-67:FORK=I TO I-670STEP-67:SOUNDPITCHK,DURATION3,VOLUMEINT((I-3000)/67) :NEXTK:NEXTI

7170 FORI=1 TO7:FORK=3000TO2000STEP-30:SOUNDPITCHK,DURATION3 :NEXTK:NEXTI:FORI=15 TO1 STEP-0.2 :SOUNDPITCHI*50+2000,VOLUMEI,DURATION3:NEXTI:RETURN

7171 FORI=3000 TO4000STEP20   :SOUNDPITCHI,DURATION2:SOUND;PITCHI-200,DURATION3::SOUND;PITCHI-100,DURATION4:NEXTI

7172 FORI=1 TO2

7173 FORK=3500 TO2800 STEP-10:SOUNDPITCHK,DURATION2:NEXTK

7174 FORK=3200 TO3800 STEP 10:SOUNDPITCHK,DURATION2:NEXTK

7175 FORK=3800 TO3500 STEP-10:SOUNDPITCHK,DURATION2:NEXTK

7176 FORK=3500 TO3100 STEP-10:SOUNDPITCHK,DURATION2:NEXTK

7177 FORK=3100 TO3500 STEP 10:SOUNDPITCHK,DURATION2:NEXTK:NEXTI

7178 RETURN

7181 R=60:FORI=4000 TO3000 STEP-20:R=R-1:FORK=I TO I-200STEP-R :SOUNDPITCHK,DURATION3:NEXTK: FOR U=I TO I+200 STEP R:SOUND PITCHU,DURATION3:NEXTU: NEXTI:RETURN

7199 FUEL1=5255  

7200 GRAPHICS4:SETPALETTE1,20,68,17:SETBORDER65:GOSUB7130:GOSUB7250:FUEL1=FUEL1+FUEL

7201 GOSUB 7235

7202 PRINTAT 10,10,RECORD

7203 FOR FUEL1=FUEL1 TO 0STEP-28  :SCORE=SCORE+1:SETBORDERSCORE/256

7204 GOSUB7110

7205 PRINTAT14,9,SCORE

7206 PRINTAT12,8,FUEL1

7208 SETBORDERFUEL1/256

7209 NEXT

7210 GOSUB 7172

7212 FORI=1 TO 7:V$(I)="             ":NEXT:GOSUB7600

7213 GOTO 7500

7214 GOSUB 7600

7215 IF SCORE>RECORD THEN RECORD=SCORE:SETINK2:PRINTAT 16,3,"új rekord!!!!":SETINK1

7218 FIRG$="              È É‰ÛÛ Barabás Attila Kunhegyes 5340, Mikszáth u 24. ____ Super computer! È É‰ÛÛ "

7219 F1=LEN(FIRG$):A=0

7220 PRINTAT 18,18,"új játék ???":A$=INKEY$

7222 A=A+1:IF A=F1  THEN A=0

7223 SETINK3

7225 PRINT AT 18,3,FIRG$(A:A+13)

7230 IF A$="i"ORA$="I" THEN SETINK1: GOTO7300

7231 IF A$="n"ORA$="N" THEN GOTO7400

7232 GOTO7220

7235 PRINTAT09,2,"¡              ²             ¦

7236 PRINTAT10,2,"¤ÌÍÊËÌÔ:       ¥             ¥

7237 PRINTAT11,2,"®              ¯             ¥

7238 PRINTAT12,2,"¤ÎÏÍÐ:         ¥             ¥

7239 PRINTAT13,2,"®              ¯             ¥

7240 PRINTAT14,2,"¤ÉÊËÌÍ:        ¥             ¥

7241 PRINTAT15,2,"®              ¯             ¥

7242 PRINTAT16,2,"¤              ¥             ¥

7243 PRINTAT17,2,"®              ª             ¯

7244 PRINTAT18,2,"¤È ɉÛÛ È É‰ÛÛ ¥             ¥

7245 PRINTAT19,2,"¢££££££££££££££´£££££££££££££§

7249 RETURN

7250 PRINT AT1,6,"¡                  ¦":PRINT AT 2,6,"¤                  ¥":PRINTAT 3,6,"¢££££££££££££££££££§"

7251 SETINK3:PRINTAT 2,8,"értékelés":SETINK1

7255 RETURN

7300 CLS:LIFE=5:SCORE=0:FUEL=100:J=1:BOM=0:BSZ=0:GOTO6

7400 POKE6738,96:EXT0:CLS:EXT0:POKE6735,96:POKE6738,0:PRINT AT 12,12,"viszlát!!!!":EXT0:CLS:A=USR(49954)

7500 RF=RND(2)+1:IF RF=1 THEN GOTO 7509

7503 RF=RND(18)+1

7504 FORI=1 TO 7:V$(I)="             ":NEXT

7505 ON RF GOTO 7530,7531,7532,7533,7534,7535,7536,7537,7538,7539,7540,7541,7542,7543,7544,7545,7546,7547

7509 UZ=INT(SCORE/1000)+1

7510 FORI=1 TO 7:V$(I)="             ":NEXT

7511 ON UZ GOTO  7530,7531,7532,7533,7534,7535,7536,7537,7538,7539,7540,7541,7542:ELSE GOSUB 7530:GOTO7214

7530 A=RND(3)+1:ON A GOSUB 7550,7551,7552:GOTO 7214   

7531 A=RND(3)+1:ON A GOSUB 7568,7568,7572:GOTO 7214

7532 A=RND(3)+1:ON A GOSUB 7552,7553,7554:GOTO 7214

7533 A=RND(3)+1:ON A GOSUB 7554,7555,7556:GOTO 7214

7534 A=RND(3)+1:ON A GOSUB 7557,7558,7559:GOTO 7214

7535 A=RND(3)+1:ON A GOSUB 7560,7561,7563:GOTO 7214

7536 A=RND(3)+1:ON A GOSUB 7563,7564,7565:GOTO 7214

7537 A=RND(3)+1:ON A GOSUB 7564,7565,7566:GOTO 7214

7538 A=RND(3)+1:ON A GOSUB 7566,7567,7568:GOTO 7214

7539 A=RND(3)+1:ON A GOSUB 7568,7569,7570:GOTO 7214

7540 A=RND(3)+1:ON A GOSUB 7570,7571,7572:GOTO 7214

7541 A=RND(3)+1:ON A GOSUB 7572,7563,7554:GOTO 7214

7542 A=RND(3)+1:ON A GOSUB 7554,7555,7565:GOTO 7214

7543 A=RND(3)+1:ON A GOSUB 7573,7574,7575:GOTO 7214

7544 A=RND(3)+1:ON A GOSUB 7576,7577,7578:GOTO 7214

7545 A=RND(3)+1:ON A GOSUB 7585,7580,7581:GOTO 7214

7546 A=RND(3)+1:ON A GOSUB 7582,7583,7584:GOTO 7214

7547 A=RND(3)+1:ON A GOSUB 7579,7586,7585:GOTO 7214

7550 V$(1)="Mit mondjak,":V$(2)="elég kezdõnek":V$(3)="látszik.":RETURN

7551 V$(1)="P":V$(2)=" A":V$(3)="  N":V$(4)="   C":V$(5)="    S":V$(6)="     E":V$(7)="      R":RETURN

7552 V$(1)="Jobb lesz, ha":V$(2)="abbahagyja,":V$(3)="mert se így,":V$(4)="se úgy nem":V$(5)="tud tovább-":V$(6)="vergõdni!!":RETURN

7553 V$(1)="Hát, láttam":V$(2)="jobb játékost":V$(3)="is.":V$(4)="Pl.: a szerzõ":V$(5)="egész jól":V$(6)="csinálja!!":RETURN

7554 V$(1)="EMBEREK,":V$(2)="ne engedjék":V$(3)="tovább ját-":V$(4)="szani ezt az":V$(5)="õrültet!!!!":RETURN

7555 V$(1)="Igy jár aki":V$(2)="tyúkot lop!!":RETURN

7556 V$(1)="Mit tippel,":V$(2)="egy öt lábú":V$(3)="kecskének":V$(4)="hány szarva":V$(5)="van?????":RETURN

7557 V$(1)="Volt egyszer,":V$(2)="vagy nem is":V$(3)="volt.":V$(4)="Egy legenda,":V$(5)="mely rólad ":V$(6)="szólt.":RETURN

7558 V$(1)="Még ":V$(2)="szerencse,":V$(3)="hogy van":V$(4)="Gábriel!!":RETURN

7559 V$(1)="Van egy ":V$(2)="kettesem,":V$(3)="telefonálunk?":RETURN

7560 V$(1)="Az az egy":V$(2)="szerencsém":V$(3)="van, hogy nem":V$(4)="pénzben megy":V$(5)="a játék!!!":RETURN

7561 V$(1)="Vásároljon":V$(2)="COLOR STAR":V$(3)="televítiót,":V$(4)="bombabizos":V$(5)="siker...":RETURN

7562 V$(1)="Mi lenne, ha":V$(2)="elmenne ":V$(3)="aludni???":RETURN

7563 V$(1)="Nézze meg":V$(2)="az ember!!!":RETURN

7564 V$(1)="Vezetett már":V$(2)="repülõt??":RETURN

7565 V$(1)="Ec-pec":V$(2)="kimehetsz...":V$(3)="de minél":V$(4)="gyorsabban!!":RETURN

7566 V$(1)="Nem tudom":V$(2)="elképzelni,":V$(3)="hogy ezt maga":V$(4)="csinálta!!":RETURN

7567 V$(1)="Hüp-hüp-hüp":V$(2)="Barba-trükk.":RETURN

7568 V$(1)="A legjobb":V$(2)="Forma-1-es":V$(3)="csapat: a":V$(4)="Mclaren-Honda":RETURN

7569 V$(1)="Mondam már,":V$(2)="hogy fapapucs":RETURN

7570 V$(1)="Ide ":V$(2)="figyeljenek,":V$(3)="emberek,":V$(4)="ezt a fe-":V$(5)="szültséget!!":RETURN

7571 V$(1)="Nem":V$(2)="nyilatkozom!!":RETURN

7572 V$(1)="Egy kis rek-":V$(2)="lám:":V$(3)="VIDEOTON":V$(4)="TV-COMPUTER":RETURN

7573 V$(1)="Van ilyen,":V$(2)="Boney M!!":RETURN

7574 V$(1)="Gyenge-penge":V$(2)="eredmény":RETURN

7575 V$(1)="Jujj de jó,":V$(2)="Liberó!!!!":RETURN

7576 V$(1)="Nehogy a nyúl":V$(2)="vigye már a":V$(3)="puskát!!":RETURN

7577 V$(1)="Nehogy a":V$(2)="szúnyog adjon":V$(3)="már vért!!":RETURN

7578 V$(1)="Nehogy a fa":V$(2)="tekeredjen":V$(3)="a kígyó köré!":RETURN

7579 V$(1)="Nehogy a":V$(2)="farka csóvál-":V$(3)="ja már a":V$(4)="kutyát!!!":RETURN

7580 V$(1)="Pszt,":V$(2)="van ott":V$(3)="WALAKI????":RETURN

7581 V$(1)="Mit ivott??":RETURN

7582 V$(1)="Maga":V$(2)="józan??":RETURN

7583 V$(1)="Hû, de kínos":V$(2)="hû, de kínos":RETURN

7584 V$(1)="Ezt inkább":V$(2)="bízza a":V$(3)="szüv-re!!!":RETURN

7585 V$(1)="Mi az?":V$(2)="Fán van, fe-":V$(3)="kete, köhög":V$(4)="és világít?":V$(5)="Tüdõbajos":V$(6)="varjú ":V$(7)="zseblámpával.":RETURN

7586 V$(1)="Aki nem tud":V$(2)="úszni, ne":V$(3)="vegyen számí-":V$(4)="tógépet, mert":V$(5)="úgy is áram-":V$(6)="szünet lesz!":RETURN

7600 SETINK3:FORI=10 TO 16:PRINTAT I,18,V$(I-9):NEXT:SETINK1:RETURN

8000 SOUNDPITCH0,DURATION0,VOLUME0:OUT 112,6:OUT113,0:EXT3:OUT112,6:OUT113,60:GOSUB7170

8001 WX=RX:WY=RY:FORI=1 TO 30:SET INK RND(3)+1:PLOTWX,WY;WX+RD,WY+RD:SOUND PITCHRND(2000),DURATION3,VOLUMEI/2:NEXTI:SETINK1

8005 LIFE=LIFE-1:IF LIFE<0THEN GOSUB950:ELSE GOSUB8020

8010 GET:END

8020 LIFE=LIFE+1:FORI=138 TO 141:PRINTAT21,LIF,CHR$(I):SOUNDPITCHI*29:FORK=1 TO 100:NEXTK:NEXTI:PRINTAT 21,LIF,CHR$(216):FORI=15 TO 1 STEP-0.05:SOUND PITCH2000,VOLUMEI:NEXTI

8021 FORI=1 TO 200:NEXT

8022 PRINTAT 21,LIF," "

8023 LIFE=LIFE-1

8024 IF FUEL<=0 THEN FUEL=0:GOSUB4050:GOTO8:ELSEGOTO 8

8025 RETURN

8500 SETINK3

8505 PRINT AT 1,6,"FUEL"

8506 SETINK2

8509 PRINT AT 23,1,DAT$;DAT$;DAT$;DAT$

8510 PRINT AT 2,10,"akció  játék"

8520 PRINT AT3,0,""

8530 PRINT "Köszöntöm a játék alkalmából!!, remélem jól érzi magát, mert a  közeljövõben számtalan meglepe- tés fogja érni!"

8540 PRINT:PRINT "Megvetted a TVC újságot?"

8550 GOSUB 8700

8555 GRAPHICS4:OUT96,85

8556 PRINT "Egy pár szó a játékról"

8570 SET INK3

8571 PRINT AT 23,1,DAT$;DAT$;DAT$;DAT$

8572 PRINTAT 3,1,"A játék célja: a különbözõ tere-peken összegyûjteni ";:SETINK2:PRINT"1000";:SETINK3:PRINT" üzema- nyagegységet (FUEL-t), úgy,     hogy a pályán megjelenõ tárgya- kat ki kel lõnie.  "

8573 SETINK2:PRINT:PRINT"Vigyázat, nem mindegyik tárgy   hasznos segítség!!!!":SETINK1

8580 PRINT:PRINT"'S' megnyomásával a tárgyak     listáját megkaphatja, ha nem    kíváncsi rá, nyomjon bármit":GETA$:IF A$="s"OR A$="s" THENGOSUB 8800

8585 CLS:OUT96,80:OUT97,0

8590 PRINT AT 12,3,"Jó szórakozást kíván a szerzõ:  Barabás Attila":PRINT:PRINT"'szóköz'":EXT2

8599 POKE6738,96:POKE6735,0:EXT0:CLS:EXT0:POKE6735,96:POKE6738,0:PRINT AT 12,12,"SOK SIKERT!!!!":EXT0:CLS

8600 RETURN

8650 SET INK2:PLOT0,0;1023,0;1023,959;0,959;0,0:SETINK1:RETURN

8700 SETINK1:PRINT AT 21,1,"Nyomja meg a szóközt ":SETINK3

8710 IF INKEY$=" " THEN RETURN

8720 OUT 97,85:FOR I=0 TO200:NEXT

8730 IF INKEY$=" " THEN RETURN

8740 OUT 97,0:FOR I=0 TO200:NEXT

8750 GOTO 8710

8800 CLS:SETINK3

8801 PRINT"¼½ - üzemanyag tartály"

8802 PRINT"ÅÆ - üzemanyagot kaphat pont    ellenében

8803 PRINT"¾¿ÀÁ - nagyon veszélyes!!"

8804 PRINT"Ä - idõzített bomba!!!"

8805 PRINT"Ã - szerencse kerék!!!"

8810 FORI=184 TO 187:PRINT CHR$(I);" - ?????":NEXT

8888 GOSUB8700:PRINT"örökélet? i/n":GETA$:LIFEÖ=1+(A$="i")

8890 RETURN

9900 SET CHARACTER160,0,255,255,0,255,0,0,0,0;CHARACTER161,0,127,127,112,119,116,116,116,116,116;CHARACTER162,116,116,116,116,116,119,112,127,127,0;CHARACTER163,0,0,0,0,0,255,0,255,255,0

9901 SET CHARACTER 164,116,116,116,116,116,116,116,116,116,116;CHARACTER165,46,46,46,46,46,46,46,46,46,46;CHARACTER166,0,254,254,14,238,46,46,46,46,46;CHARACTER167,46,46,46,46,46,238,14,254,254,0

9902 SETCHARACTER168,116,116,116,116,116,247,0,247,247,116;CHARACTER169,46,46,46,46,46,239,0,239,239,46;CHARACTER170,46,239,239,0,239,46,46,46,46,46;CHARACTER171,116,247,247,0,247,116,116,116,116,116

9903 SET CHARACTER172,46,46,46,46,46,238,14,238,238,46;CHARACTER173,116,116,116,116,116,119,112,119,119,116;CHARACTER174,116,119,119,112,119,116,116,116,116,116;CHARACTER175,46,238,238,14,238,46,46,46,46,46

9904 SET CHARACTER176,0,255,255,0,247,116,116,116,116,116;CHARACTER177,116,247,247,0,255,0,0,0,0,0;CHARACTER178,0,255,255,0,239,46,46,46,46,46;CHARACTER179,46,239,239,0,255

9905 SET CHARACTER 180,46,46,46,46,46,239,0,255,255,0;CHARACTER181,0,0,0,0,0,255,0,239,239,46;CHARACTER182,116,116,116,116,116,247,0,255,255,0;CHARACTER183,0,0,0,0,0,255,0,247,247,116

9906 SET CHARACTER 220,0,24,153,189,255,165,255,165,60,0;CHARACTER221,0,60,165,255,165,255,189,153,24,0;CHARACTER222,0,126,20,63,245,245,63,20,126,0;CHARACTER223,0,126,40,252,175,175,252,40,126,0

9907 SET CHARACTER184,126,255,219,24,60,24,126,255,219,219;CHARACTER185,0,24,102,102,153,153,102,102,24,0;CHARACTER186,0,24,102,102,129,129,102,102,24,0;CHARACTER187,0,255,153,165,219,219,165,153,255,0;CHARACTER217,0,145,172,4,184,29,40,18,137,0

9908 SET CHARACTER218,0,0,170,0,0,0,0,170,0,0;CHARACTER219,0,195,0,195,0,195,0,195,0,195

9909 SET CHARACTER188,127,255,138,186,138,186,184,255,48,96;CHARACTER189,254,255,139,187,139,187,136,255,12,6;CHARACTER193,255,35,235,35,231,235,45,255,12,30;CHARACTER192,255,140,173,140,181,181,132,255,0,0;CHARACTER191,255,46,164,170,174,174,46,255,0

9910 SET CHARACTER190,255,140,173,141,181,181,132,255,48,120;CHARACTER196,4,12,8,60,60,126,255,126,126,24;CHARACTER194,255,165,219,165,165,165,165,219,165,255;CHARACTER195,0,24,102,66,153,153,102,102,90,129

9911 SET CHARACTER216,0,6,71,194,16,36,128,200,19,9;CHARACTER200,0,60,66,153,145,145,153,66,60,0;CHARACTER201,0,126,112,112,126,14,14,126,0,0;CHARACTER202,0,126,112,112,112,112,112,126,0,0;CHARACTER203,0,254,230,230,230,230,230,254,0,0

9912 SET CHARACTER204,0,248,230,230,248,230,230,230,0,0;CHARACTER205,0,126,112,112,124,112,112,126,0,0;CHARACTER206,0,126,112,112,124,112,112,112,0,0;CHARACTER207,0,230,230,230,230,230,230,254,0,0;CHARACTER208,0,112,112,112,112,112,112,126,0,0

9913 SET CHARACTER209,0,255,219,219,219,219,219,219,0,0;CHARACTER210,0,124,56,56,56,56,56,56,124,0,0;CHARACTER211,0,124,100,100,124,100,100,100,0,0

9914 SET CHARACTER212,0,252,230,230,230,230,230,252,0,0;CHARACTER128,0,126,102,102,102,102,102,126,0,0;CHARACTER129,0,24,24,24,24,24,24,24,0,0;CHARACTER130,0,62,6,6,126,96,96,126,0,0;CHARACTER131,0,62,6,6,62,6,6,62,0,0

9915 SET CHARACTER132,0,102,102,102,126,6,6,6,0,0;CHARACTER133,0,126,96,96,126,6,6,126,0,0;CHARACTER134,0,120,96,96,126,102,102,126,0,0;CHARACTER135,0,62,6,6,6,6,6,6,0,0;CHARACTER136,0,126,102,102,126,102,102,126,0,0

9916 SET CHARACTER137,0,126,102,102,126,6,6,126,0,0;CHARACTER138,0,255,129,129,129,129,129,129,255,0;CHARACTER139,0,0,126,66,66,66,66,126,0,0;CHARACTER140,0,0,0,60,36,36,60,0,0,0;CHARACTER141,0,0,0,0,24,24,0,0,0,0

9917 SETCHARACTER198,255,255,113,183,19,183,119,255,255,255;CHARACTER197,255,255,143,187,136,235,143,255,255,255

9918 SET CHARACTER199,126,255,219,24,60,24,126,255,219,219

9919 SET CHARACTER153,0,24,102,102,129,129,102,102,24,0

9970 POKE 33,74:POKE34,26:POKE35,144:POKE36,26:POKE37,191:POKE38,26:POKE39,94:POKE40,26

9980 FUEL=100:SCORE=0:RECORD=0:LIFE=5:J=1:KS=5

9981 S$="ÅÆ":F$="¼½":BOM$="¾¿ÀÁ":DAT$="È É‰ÛÛ "

9986 DEF CS=PEEK(191+XH*64+YH)

9987 DEF JOY=USR(6900)

9988 DEF SC=PEEK(191+X*64+Y):DEF LIF=19+LIFE*2

9989 XH=12:YH=12:CH=12:VH=12:H$="Ü":TÜZ=1

9990 DEFTIME=(PEEK(2845)+PEEK(2846)*256)AND1

9991 DEF RX1=(YH-1)*32

9992 DEF RY1=959-XH*40

9993 DEF RX=RX1+RND(32):DEFRY=RY1+RND(40)

9994 DEF RD=30-RND(60)  

9995 DIM FIRG$*200

9996 DIM V$(7)

9997 RETURN

9998 CLS:LIST815,885,845,865:STOP

9999 CLS:FORI=160 TO 223:PRINTI;CHR$(I),:NEXT