64'er 1992 February/64er_Magazin_92-02_1992_Markt__Technik_de_Side_A.d64/twinner

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

1 deffnx(q)=(peek(1188+x+(30-2*x)*q+y*40+(8-y)*80*q)>32):u=log(2):v=127.4:e=1.5
2 s=54276:k=56320:w=16:pokes+20,15:pokes+1,2:pokes+2,2:poke53280,.:poke53281,.
3 a$(2)="[158][176][201][157][157][202][189]":b$(.)="[215][215][157][157][176][174]":b$(1)="  [157][157]  ":a$(1)=b$(1):a$(.)="[209][209][157][157][202][203]
4 f$[178]"            ":f$[178]"for"[170]f$[170]f$[170]f$:y(1)[178][171]2:y(2)[178]2:x(3)[178][171]2:x(4)[178]2:c$[178][199](13)
5 [133]"openloadname";n$(10):n$(10)[178][200](n$(10),15):s(10)[178].:l[178]1:h[178]3
6 n[178]2:m[178]10[170]l[172]5:[153]"loadclrlevel:list"l[163]11)"clrlives:list"h[163]20)"clrtime:"c$c$f$c$f$
7 [129]t[178].[164]17:[153]"for  wait"[163]36)"  wait":[130]:[153]f$c$f$:[151]1354,96:z[178].
8 x[178][181]([187](.)[172]w)[172]2:y[178][181]([187](.)[172]9)[172]2:[145][171]([165]x(.)[176][165]x(1))[137]8:z[178]z[170]1:[141]21
9 [145][171](z[179]m)[137]8:x[178]6:y[178]4:n[178].:[141]21:ti$[178]"000000":[151]s[171]3,l[172]w
10 j[178][181]([188](v[171][194](k))[173]u[170]e):p[178]75[171]ti[173]60:[151]s,w:[139]p[179].[137]15
11 [153]"list"[163]25)[201](" "[170][196]([181](p)),2):[145][171](j[178].)[137]10:n[178]1:[141]21:n[178].
12 x[178]x[170]x(j)[171]32[172]((x[178]30)[172](j[178]4)[171](x[178]n)[172](j[178]3)):y[178]y[170]y(j)[171]18[172]((y[178]w)[172](j[178]2)[171](y[178]n)[172](j[178]1))
13 c[178][165]x(n):d[178][165]x(1):[141]21:s(10)[178]s(10)[171]c:[153]""[163]28)"clrscore:list"s(10)
14 [151]s,17:m[178]m[170]c:[145][171]d[137]15:[145][171](m[177]n)[137]10:l[178]l[170]1:s(10)[178]s(10)[170][181](p):[137]6
15 [151]s,n:h[178]h[171]1:[145][171](h[177]n)[137]6:[153]"load"[163]13)"t w i n n e rcontwait"[166]27);
16 [129]t[178]10[164]1[169][171]1:b[178]t[171]1:[151]53280,b:a[178]s(t):q$[178]n$(t):[139]s(t)[179][178]s(b)[167]b[178]t
17 s(t)[178]s(b):s(b)[178]a:n$(t)[178]n$(b):n$(b)[178]q$:[130]:[153]"by terrasoft!clr":[129]t[178].[164]9
18 [153]t[170]1,n$(t)[163]30)s(t):[130]:[153][166]15)"openpress fire!":[146]k,w,w:[137]5
21 [151]211,x[170]4:[151]214,y[170]4:[158]58732:[153]a$(n):[139]n[178]2[167][142]
22 [151]211,34[171]x:[151]214,20[171]y:[158]58732:[153]b$(n):[142]