64'er 1992 December/64er_Magazin_92-12_1992_Markt__Technik_de_Side_A.d64/labyrinth

Commodore BASIC | 1992-01-01 | 1.3 KB | 21 lines

10 p2=1145:fora=0to98:readz:poke49152+a,z:next:data64,64,64,160,160,160,64,64,64,66,160
20 data66,66,160,66,66,160,66,125,160,66,160,160,66,110,160,66,66,160,109,66,160
30 data160,66,160,112,125,160,109,160,160,160,64,64,64,64,64,64,160,160,160,110
40 data160,112,125,160,109,160,160,160,110,160,112,64,64,110,160,160,66,110,160
50 data66,112,64,64,66,160,160,66,160,112,66,160,109,66,160,160,109,64,64,125
60 data160,66,160,160,66,64,64,125:print"[147]":input"level";s:t=1100-s*100:print"[147]":ift<=0then60
70 print"time: ";t:print">>>> labyrinth  by matthias kuempel <<<<":e=0:f=0:poke53280,6
80 p3=1227:fora=1986to2016step3:pokea,1+e:e=e+1:next:fora=1219to1979step120:pokea,48+f
90 f=f+1:next:poke1938,83:m=1186:n=1:fora=0to6:forb=0to10:ifpeek(p2)=125andpeek(p3)=125then60
100 g=int(rnd(1)*11):p=1145+120*a+3*g:ifpeek(p)<>32then100
110 forc=0to2:ford=0to2:pokep+d+c*40,peek(49152+d+c*3+b*9):next:next:next:next
120 print"          ":print"time: ";t:t=t-1:ift=0thenrestore:goto10
130 qq=209:w=3:g1=9:y=40:j=49152:h=10:f=90:q=120:p=3:k=m+n:l=48:ifpeek(k)=160then160
140 x=1:ifn<2andn>-2thenx=40:ifpeek(k)=83thenprint"[147]":print"              >> super <<":restore:end
150 o=int(rnd(ti)*2)-1:pp=2*o+1:n=x*pp:ifpeek(m+n)><160thenpp=pp*-1:n=x*pp:goto130
160 k=m+n:pokem,160:m=k:pokek,qq:a$="":geta$:ifa$=""thengoto120
170 u=asc(a$):r=1145+(u-l)*q:ifu>64thenq=3:l=65:r=1145+(u-l)*q:h=6:p=120:f=54
180 i=r:fora=1to2:forb=0toh:forc=0to2:ford=0to2:po=peek(i+d+y*c+p*b):ifpo=qqthena=2
190 pokej+d+w*c+g1*b,po:next:next
200 next:forv=0to8:poke49161+v+f,peek(49152+v):next:j=r:i=49161:y=3:w=40:g1=p:p=9:next:goto120