64'er 1992 March/64er_Magazin_92-03_1992_Markt__Technik_de_Side_A.d64/red

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

1 r=rnd(-ti):poke53280,0:poke53281,0:print"[147]"tab(18)"red by jens hoehne":fort=1to5:print
2 forn=1to7:printtab(4*n)"[145][207][183][183][183]":next:form=1to3:print"    [180]   [180]   [180]   [180]   [165]   [165]   [165]   "
3 nextm,t:v=53248:fort=1to20:x=int(rnd(0)*7):y=int(rnd(0)*5):forn=0to3:form=0to3
4 poke55460+(y*4+m)*40+x*4+n,14:nextm,n:a(x,y)=1:nextt:w=54272:pokew+24,15
5 data0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,40,0,0,170,0,2,170,128,2,190,128,42,170
6 data168,37,85,88,42,170,168,2,190,128,2,170,128,0,170,0,0,40,0,0,40,0,0,0,0,0
7 data0,0,0,0,0,0,0,0:poke2040,13:forn=0to62:readq:poke832+n,q:next:pokev+28,1
8 pokev+39,0:pokev+38,1:pokev,59:pokev+1,87:pokev+21,1:print"[158]zuege :":x=59:y=87
9 p=peek(56320):m=0:ifp=123thenx=x-32:m=m+1:ifx<59thenx=59:m=m-1
10 pokew+6,255:ifp=119thenx=x+32:m=m+1:ifx>251thenx=251:m=m-1
11 pokew+1,10:ifp=126theny=y-32:m=m+1:ify<87theny=87:m=m-1
12 ifp=125theny=y+32:m=m+1:ify>215theny=215:m=m-1
13 pokev,x:pokev+1,y:ifm=1thenpokew+4,33:gosub15
14 goto9
15 s=s+1:print""s:a=(y-87)/32:b=(x-59)/32:pokew+4,79:forn=0to3:form=0to3
16 t=55460+(a*4+n)*40+b*4+m:ifa(b,a)=1thenpoket,2
17 ifa(b,a)=0thenpoket,14
18 nextm,n:a(b,a)=1-a(b,a):r=0:forc=0to6:ford=0to4:ifa(c,d)=1thenr=1
19 nextd,c:ifr=0thenprint"[147]  [158]geschafft mit"s"[158]zuegen !":pokev+21,0:end
20 :return