home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 January
/
64er_Magazin_90-01_1990_Markt__Technik_de_Side_A.d64
/
zahlenpuzzle
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
848b
|
21 lines
1 dimp(16),k(4,4),z(16):poke53280,0:poke53281,0:print"[147][153]":a$=""
2 printa$"[176][192][192][178][192][192][178][192][192][178][192][192][174]":b$=a$+"[194] [194] [194] [194] [194]":c$=a$+"[171][192][192][219][192][192][219][192][192][219][192][192][179]"
3 printb$:printc$:printb$:printc$:printb$:printc$:printb$::printa$"[173][192][192][177][192][192][177][192][192][177][192][192][189]":y=1355:fori=0to3:forj=0to3:y=y+3
4 k(j,i)=y:p(q)=k(j,i):q=q+1:nextj:y=y+68:k(j,i)=y:nexti:fori=0to15
5 z(i)=int(rnd(0)*16):forj=0toi:ifi<>jandz(i)=z(j)then5
6 nextj:gosub7:nexti:y=int(t/4):x=t and3:q=t:goto10
7 ifz(i)=>10thenl=49:r=z(i)+38
8 ifz(i)<10thenr=z(i)+48:l=32:ifz(i)=0thenl=160:r=160:k=p(i):t=i
9 pokep(i),l:pokep(i)+1,r:return
10 geta$:l=y:r=x:ifa$="[145]"andy>0theny=y-1:q=q-4:goto19
11 ifa$=""andy<3theny=y+1:q=q+4:goto19
12 ifa$="[157]"andx>0thenx=x-1:q=q-1:goto19
13 ifa$=""andx<3thenx=x+1:q=q+1:goto19
14 ifa$<>chr$(13)then10
15 a=z(q):i=t
16 ifq=i-4orq=i+4orq=i-1or(q=i+1andy=int(t/4))thenz(t)=a:z(q)=0:gosub7:i=q:gosub7
17 fori=0to14:ifz(i)=i+1andz(15)=0thennexti:end
18 goto10
19 a=k(r,l):pokea,peek(a)-128:a=a+1:pokea,peek(a)-128:a=k(x,y):pokea,peek(a)+128
20 a=a+1:pokea,peek(a)+128:goto10