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 >
Commodore BASIC  |  2022-10-26  |  848b  |  21 lines
  1. 1 dimp(16),k(4,4),z(16):poke53280,0:poke53281,0:print"[147][153]":a$=""
  2. 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. 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. 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. 5 z(i)=int(rnd(0)*16):forj=0toi:ifi<>jandz(i)=z(j)then5
  6. 6 nextj:gosub7:nexti:y=int(t/4):x=t and3:q=t:goto10
  7. 7 ifz(i)=>10thenl=49:r=z(i)+38
  8. 8 ifz(i)<10thenr=z(i)+48:l=32:ifz(i)=0thenl=160:r=160:k=p(i):t=i
  9. 9 pokep(i),l:pokep(i)+1,r:return
  10. 10 geta$:l=y:r=x:ifa$="[145]"andy>0theny=y-1:q=q-4:goto19
  11. 11 ifa$=""andy<3theny=y+1:q=q+4:goto19
  12. 12 ifa$="[157]"andx>0thenx=x-1:q=q-1:goto19
  13. 13 ifa$=""andx<3thenx=x+1:q=q+1:goto19
  14. 14 ifa$<>chr$(13)then10
  15. 15 a=z(q):i=t
  16. 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. 17 fori=0to14:ifz(i)=i+1andz(15)=0thennexti:end
  18. 18 goto10
  19. 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. 20 a=a+1:pokea,peek(a)+128:goto10
  21.