home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 61 / 64er_Magazin_Sonderheft_61_19xx_Markt__Technik_de_Side_B.d64 / boss3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  42 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr
  2. 1 rem  *************************
  3. 2 rem  **     boss-puzzle     **
  4. 3 rem  *************************
  5. 4 rem  **1987 programmiert von**
  6. 5 rem  **frederic thiesse     **
  7. 6 rem  **kreuzerweg 22 d      **
  8. 7 rem  **6718 gruenstadt      **
  9. 8 rem  **tel. 06359/83896     **
  10. 9 rem  *************************
  11. 10 sys16965:print"[149][147]":printtab(16)"[144][186][187][188][189][190][191][190][191]":v=53248
  12. 20 fora=0to11:poke1318+a,105:poke1838+a,105:poke1357+40*a,106:poke1370+40*a,106
  13. 30 next:poke1317,101:poke1330,102:poke1837,103:poke1850,104
  14. 40 print" 1987 programmiert von frederic thiesse"
  15. 50 fora=0to3:pokev+39+a,4:pokev+43+a,0:next:fora=0to7:poke2040+a,240+a:next
  16. 60 print""tab(16)"[156]level 01":fora=1to16:poke678+a,aand15:next:a=rnd(5)*5
  17. 70 pokev+34,peek(16418+a):pokev+35,peek(16423+a):sys16663:l=1:pokev+21,0
  18. 80 j=peek(56320):if(jand16)=0then120
  19. 90 if(jand1)=0andl<99thenl=l+1
  20. 100 if(jand2)=0andl>1thenl=l-1
  21. 110 print""tab(22)left$("0",3-len(str$(l)))mid$(str$(l),2,2):goto80
  22. 120 c=4:x=3:y=3:fora=1tol:m=peek(16815+x+y*4)and15
  23. 130 b=int(rnd(4)*4):if(2^bandm)=0orb=cthen130
  24. 140 gosub270:sys16663:c=1-(band1)+(band2):next
  25. 150 sys16831,x,y,x+y*4:pokev+39+c,3
  26. 160 m=15-(peek(16815+x+y*4)and15):ifpeek(203)=60thenpoke2,11:goto50
  27. 170 b=c:j=peek(56320):if(jand16)=0then210
  28. 180 fora=0to3:if((jorm)and2^a)=0thenc=a
  29. 190 next:ifb<>cthenpokev+39+b,4:pokev+39+c,3
  30. 200 goto160
  31. 210 gosub270:c=1-(band1)+(band2):sys16663:z=16:fora=1to16
  32. 220 ifpeek(678+a)=(aand15)thenz=z-1
  33. 230 next:ifz=0then250
  34. 240 pokev+39+b,4:poke252,32:goto150
  35. 250 pokev+21,0:print""tab(14)"[159]geschafft !!":poke251,32:wait203,60
  36. 260 print""tab(14)"            ":goto50
  37. 270 ifb=0thenpoke679+x+y*4,peek(675+x+y*4):poke675+x+y*4,0:y=y-1
  38. 280 ifb=1thenpoke679+x+y*4,peek(683+x+y*4):poke683+x+y*4,0:y=y+1
  39. 290 ifb=2thenpoke679+x+y*4,peek(678+x+y*4):poke678+x+y*4,0:x=x-1
  40. 300 ifb=3thenpoke679+x+y*4,peek(680+x+y*4):poke680+x+y*4,0:x=x+1
  41. 310 return
  42.