asteroids    Asteroid Belt  S.Robert Speel 1982 6000p @((go>125})ƥ<.5);1;21,a;148: .1;21,a;149;150: (k4;1;20,a;151;6;153;21,a;152;4;154: 4-(<.5go>100d)*3:1:f=11+(go>100d):a=(*30):20+(*(2+(go>502)))*10 :<.8Lf Xo0:go=go+1:x=x+(="8")-(="5")+(x<1)-(x>28):.005y# =,0:.004yn,40( bC(12 ,x)>10 ū(12 ,x+2)>10 2000 l,23692\,255:21,0'' vO9,x;" ";5;10,x-1;" ";1;144;0;" ";1;2;11,x;146;0;145;1;147 w9 ,x;" ";5;10 ,x-1;" ";1;144;0;" ";2;11 ,x;146;145;147  500 (f=70-1:.1}L,f ڋf:11 ,x+1;155:.01z# =,-20:g=13:9 +g,x;155;155;155;155:g:f 40:7: 9a1;5,5;"Srazka, lod znicena";0;7,5;"Dosazene score ";go' >go>h2h3=h2 Hgo>h1h2=h1:h1=go Rgoh2h2=go \goh3h3=go v10 ,5;"Zatim nejvyssi score ";h1;5;"druhe nejvyssi score ";h2;5;"treti nejvyssi score ";h3 )17,3;"Jeste jednou? (a/n)" ="a"5000 $="n"7:7:0:  2220 %:x=15:go=0:0: M10 ,x+1;144;11 ,x;146;145;147  500 pEf=011 :g=07:a:(144+f)+g,a:g:f X" Asteroidy "''" Jste pilotem vesmirneho korabu,ktery se dostal mezi velke mnoz-stvi asteroidu. Vasim ukolem je manevrovat lodi vlevo (klavesou ""5"") a vpravo (klavesou ""8"")tak,abyste se vyhnul asteroidum le- ticim proti vam." b 500 lm"Vase lod vypada takhle:";12 ,15;144;13 ,14;146;145;147 vM''"Pro pohyb je treba drzet klavesu5 nebo 8 stisknutou."''"Start po ENTER." !a$:0:0:0: 0h1=0:h2=0:h3=0:5000 #(0,42*,28,42*,8,126~,66B,255,255,255,60<,60<,255,255,66B,0 #23,31,115s,243,127,31,1,1,192,248,206,207,254,248,128,128 #<24,62>,93],127,218,108l,24,0,14,123{,220,183,189,238,121y,31,156,118v,218,45-,253,86V,248,128 #F0,5,31,535,105i,121y,95_,254,255,215,546,27,30,15,1,0 #P0,128,224,184,204,115s,106j,215,253,61=,166,124|,244,118v,216,176 #ZK16,130,40(,17,40(,130,16,66B aAx