64'er 1990 June/64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64/beetle

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

0 poke648,192:l$="[196][196][196]":dima(200):fora=1to7:a$(a)="rasto......":b(8-a)=a*100:next
1 print"[147])[146]@m[146] [208]m[146]![208])s[146] [210][191])[146][191]m[146]m[220])[146][192]e[146]8)[146]3e[146]a)[208]m[146]([192])[146]8m[146]+[192] [146]@9[146]";
2 print"@@y[146]@@[200][208][183][174][146]([192][174][146]+[192]-[146]([192][201][160][208][168])[146]7e[146]a)[146]_m[146]x[208])am[146]m[220] [146]89 [192]y[146]p:h[146]p";
3 print"[183] [146]')[146][194]y[146](dy[192][146]g)[146]by[146]([216]y[192][219]h[146]p[173])[146][208]e[188]e[190])[146]de[189])[216]e[191] [146]@)[146]u*)[146][194]q[188] ";
4 print"[146]'q[188])[146]bq[190] [146]@q[190][146]x%[188][146][169](e[188]e[190]p[146]d[166][189][166][191][202][146]p[255][146][160][190][190][190][146]@[175][175][175][146]@<[194]y!!y[146][194]<<[190]";
5 print"[191]??_[146][194]<[195][146][166]<[190]?_[146][198]<<[190]?_[146][198]<[166][195][146]1[187][190]<<^[146][219]1l[255][146][191]//[167][210]l[146]":poke648,4:r=56320
6 fork=0to4:readd(k),w(k):next:data-40,69,40,70,-1,72,1,71:z=54276:pokez+20,15
7 sys49152:b$="...........":printspc(16)"'beetle'"spc(72)"[159][195]1990 by"spc(71);
8 print"[158]r. levrinc":fora=1to7:print,"[159]"a;left$(a$(a)+b$,11);b(a):next:s=0:k=4
9 print,"[157]press fire to continue":waitr,16,16:forl=3to0step-1:sys49152:e=2:f=0
10 gosub19:fora=0to19:b=86:q=11:gosub18:q=5:b=65:gosub18:next:a=1524:a(200)=a
11 a(f)=a:f=-(f<200)*(f+1):i=15-peek(r)and15:pokez,f:pokez,0:ifithenk=log(i)*1.5
12 pokea,68:a=a+d(k):y=peek(a):poke54272+a,1:pokea,w(k):pokea(f-e-(f<e)*201),32
13 on-(y=32)goto11:ify=65thene=e+1:s=s+10:gosub18:gosub19:on-(e<201)goto11:l=l+1
14 on-(k=4)goto11:k=4:next:poke214,11:print"the end":waitr,16,16:ifs<b(7)then7
15 print"[147]","[158]congratulations[159]"spc(58)"this is topseven position no";:a=0
16 a=a+1:on-(s<b(a))goto16:printa:forb=8toastep-1:a$(b)=a$(b-1):b(b)=b(b-1):next
17 b(a)=s:poke19,64:input"enter your name :[158]";a$(a):poke19,0:goto7:data0,68
18 u=rnd(1)*959:on-(peek(1064+u)<>32)goto18:poke55336+u,q:poke1064+u,b:return
19 print"score:"stab(15)"lenght:"e"[157]cm","lives: "left$(l$,l)tab(57);:return