home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 May
/
64er_Magazin_92-05_1992_Markt__Technik_de.d64
/
memory
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
16 lines
0 dima(50):m=56320:a=rnd(-ti):u=25:forh=.to1:poke53280+h,11:forg=1tou:p=1265
1 w=int(rnd(0)*50):on-(a(w)>.)goto1:a(w)=g:nextg,h:print"[144][147]"spc(8)"[205]emory vo";
2 print"n [211]ven [194]astrop"spc(49)"[158][211]pieler 1: 00"spc(11)"[159][211]pieler 2: 00[144] [215]i";
3 print"eviele [211]pieler (1/2)";:inputa$:a=160:print"":s=128:forj=.to4:print
4 forg=.to2:forh=.to9:print" [146] ";:nexth,g,j:deffnx(x)=x-(a$="2")and1:x=fnx(x)
5 n=198:k=40:o=p:f=a:g=192:forv=1tou:t(.)=.:t(1)=.:x=fnx(x):forq=.to1:poken,.
6 print""spc(14)"[211]pieler"x+1;:pokep,42-s*(f>32)
7 waitm,31,31:c=127-peek(m):l=l+(c=4andl/h>int(l/h))+h*((c=1andl>9)-(c=2andl<k))
8 l=l-(c=8andl/h-int(l/h)<.9):w=int(l/h):pokep,f:p=o+w*a+(l-w*h)*4:f=peek(p)
9 on-(c<9orf<>a)goto6:f=a(l)+g:pokep,f:t(q)=f:w(q)=p:on-(q=.)goto12:forz=.to1e3
10 next:w=(t(.)=t(1)):f=a+s*w:fore=-1to1:pokep+e,f:pokep+e-k,f:d=w(.)+e:poked,f
11 pokep+e+k,f:poked-k,f:poked+k,f:next:x(1)=x:p(x)=p(x)-w:v=v-1-w:x(-w)=fnx(x)
12 next:i=.:gosub14:i=1:print"[158]"spc(14-y)h$;:gosub14:print"[159]"spc(u-y)h$:next
13 print"[147][211]pieler"(-((p(.)>p(1))+2*(p(.)<p(1))))"hat gewonnen!":waitn,1:run
14 x=x(1):y$=str$(p(i)):h$=mid$(y$,2):y=len(y$):return:rem (c) sven 04423/6962