64'er 1989 June/64er_Magazin_89-06_1989_Markt__Technik_de_Side_A.d64/raetselgenerator

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

0 gosub19:k=0:print"[147]":fori=0to9:readj:a(i)=j:c(i)=int(a1*rnd(0)+4):rem012345678
1 next:x=1868:d(1)=c(2):d(3)=c(0):forj=2to9:e=c(0)/j:ife=int(e)thengosub19:rem12
2 next:d(0)=c(0)*c(1):y=int(8*rnd(0)+2):z=int(k*rnd(0)):restore:ifk=0then0:rem12
3 s1=1726:d(3)=g(z):fori=0to9:z=int(10*rnd(i)):b(i)=a(z):ifa(z)<0theni=i-1:rem12
4 a(z)=-1:next:f=log(10):h=int(log(d(0))/f):onhgosub14,15,16:v=d(1):y=1634
5 t=d(3)-v:w=44:d(8)=.5*(d(2)+d(6)+t):gosub17:gosub17:ifd(5)=0then0
6 ifd(9)<>d(4)ord(8)>int(d(8))then0:print" X[169]x[133]_[169][133]{$60}[169][192][133]z[169][133][[169][144][133]x[169][133]y [191][163]x{$60}"
7 poke1638,42+n:poke1713,42+o:poke1958,w-sgn(d(8)-d(2)):poke1798,w-sgn(u-v)
8 pokes1,w-sgn(d(5)-d(3)):pokes,w-sgn(d(8)-d(6)):gosub10:sys2462:fori=0to2
9 b(i)=i+48:next:y=1074:gosub10:fori=3to9:b(i)=i+48:next:gosub10:goto0
10 data35,65,81,83,86,87,88,90,102,160:gosub11:poke198,0:wait198,1:return
11 fori=0to2:forj=0to2:z=d(3*i+j):e=int(log(d(3*i+j)+.5)/f):forl=eto0step-1
12 m=int(z/10^l+1.e-5):z=z-int(m*10^l+1.e-5):pokey+13*i+160*j-2*l,b(m)
13 poke1651+160*j,61:nextl,j,i:fori=0to32:pokex+i,64:next:return
14 d(2)=d(0)*d(1):d(3)=c(3):d(6)=d(0)*d(3):p=0:q=0:return
15 d(1)=y:d(2)=y*d(0):d(6)=d(0)/d(3):p=1:q=0:return
16 d(1)=c(0):d(2)=d(0)/d(1):d(6)=d(0)/d(3):p=1:q=1:return
17 d(5)=abs(d(8)-d(2)):d(4)=abs(d(5)-d(3)):d(7)=abs(d(8)-d(6)):u=d(7)
18 d(9)=abs(d(7)-d(1)):n=16*int(p):o=16*   int(q):ifd(9)<>d(4)thend(8)=d(8)-t
19 s=1740:a1=int(96*rnd(0)):g(k)=e:k=k+1:return