home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / minos (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  83 lines
  1. 0 ifpeek(36864)<>169thenload"labyri",8,1
  2. 2 poke53280,0:poke53281,0:poke52,64:poke51,0:poke56,64:poke55,0:clr
  3. 5 dimf(16):xl=1:yl=1:xp=38:yp=23:poke650,128
  4. 10 la=10:br=18:gw=255:gz=255:fw=10:fl=5
  5. 15 fori=0to68:reada:poke832+i,a:next
  6. 20 fori=0to15:readf(i):next:readma
  7. 25 fori=0to10:readfl(i):next:fori=0to5:readfw(i):next
  8. 30 fori=0toma:poke40705+i,f(i):poke40705+2*ma-i,f(i):next:poke40704,2*ma
  9. 50 print"[147][158][204]aenge    "la"[157][157][157][157][157]";:inputla
  10. 55 print"[194]reite    "br"[157][157][157][157][157]";:inputbr
  11. 60 ifla>54orbr>70orla<1orbr<1then50
  12. 70 print"[215]urmgeschwindigkeit hin        "gw"[157][157][157][157][157][157]";:inputgw
  13. 75 print"[215]urmgeschwindigkeit zurueck    "gz"[157][157][157][157][157][157]";:inputgz
  14. 80 poke39538,256-gw:poke39543,256-gw:poke39553,256-gz:poke39558,256-gz
  15. 85 print"[198]arbe [215]urm ";:poke646,fw:inputz$:fw=peek(646):poke55629,fw
  16. 90 poke1357,160:print"[158][198]arbe [204]abyrinth ";:poke646,fl:inputz$:fl=peek(646)
  17. 95 poke1442,160:poke55714,fl
  18. 97 print"[158][194]ildschirmverfolgung (y/j/n) ?"
  19. 100 getz$:ifz$<>"j"andz$<>"n"andz$<>"y"then100
  20. 102 poke39562,32:poke39568,32:ifz$="n"thenpoke39562,76:poke39568,76
  21. 105 gosub400:fori=0to10:poke40192+fl(i),fl:next
  22. 110 a=16530+2*int(rnd(ti)*br):e=16818+2*int(rnd(1)*br)+288*la
  23. 111 poke39980,2*br+1:poke39988,2*la+3:poke40000,2*br+2:sys39936
  24. 115 fori=0to5:poke40192+fw(i),fw:next
  25. 120 r(0)=1:r(1)=-144:r(2)=-1:r(3)=144
  26. 125 rem --------------------
  27. 130 rem -- der reihe nach --
  28. 135 rem --------------------
  29. 140 sys37056:poke38660,br:poke38405,la:sys38400:t=0
  30. 145 ifpeek(34816+t)<>0thent=t+1:print"[158]"t:goto145
  31. 150 rem -------------------
  32. 155 rem -- weg verfolgen --
  33. 160 rem -------------------
  34. 170 z=e:pokee,42
  35. 175 hi=e/256:lo=e-int(hi)*256:hi=int(hi):poke36869,lo:poke36865,hi
  36. 180 sys36864:i=0
  37. 185 rem -------------------------------
  38. 190 rem -- weg aus abgeschl. irrgang --
  39. 195 rem -------------------------------
  40. 200 lo=peek(32768+i):hi=peek(34816+i):z=256*hi+lo
  41. 205 ifpeek(z)<>32then240
  42. 210 ifz=0then245
  43. 215 poke37633,hi:poke37637,lo:sys37632:c=peek(183)
  44. 220 ifc=0thenpoke886,32:sys869:poke886,42:poke32769+i,lo:poke34817+i,hi:t=t+1
  45. 225 r=int(rnd(1)*c):z=peek(38144+r)*256+peek(37888+r):r=int(rnd(1)*4)
  46. 230 ifpeek(z+2*r(r))<>42thenr=r+1+4*(r=3):goto230
  47. 235 pokez+r(r),42:sys869
  48. 240 print"[158]"t-i"[157] ":i=i+1:ifi<tthen200
  49. 245 data169,64,133,255,169,0,133,254,160,0,162,160,177,254,41,96,201,96,240
  50. 250 data2,162,32,138,145,254,200,208,238,230,255,165,255,201,128,208,228,96,169
  51. 255 data64,133,255,169,0,133,254,160,0,177,254,201,81,208,4,169,42,145,254,200
  52. 260 data208,243,230,255,165,255,201,128,208,233,96
  53. 265 rem ----------------
  54. 270 rem -- weg finden --
  55. 275 rem ----------------
  56. 277 fori=0to7:poke1024+i,p(i):next
  57. 280 sys832:print"";:z=e:sys40832:pokee,32:pokea,32
  58. 285 pokez,93
  59. 290 data0,11,2,10,7,4,10,8,12,5,7,13,3,14,15,1,4
  60. 295 data112,110,109,125,93,64,107,115,113,114,91,85,73,74,75,66,67
  61. 330 pokee+144,96
  62. 335 pokea-144,102:r=int(rnd(1)*4):hi=int(a/256):lo=a-int(a/256)*256
  63. 337 poke40542,lo:poke40546,hi
  64. 340 hi=z/256:lo=z-int(hi)*256:hi=int(hi):poke39185,lo:poke39189,hi:sys40760
  65. 345 pokea,66
  66. 350 poke40614,2:poke40703,0:poke40702,0:sys40541:goto50
  67. 400 print"[216]-position linke obere [197]cke    "xl"[157][157][157][157][157]";:inputxl
  68. 405 print"[217]-position linke obere [197]cke    "yl"[157][157][157][157][157]";:inputyl
  69. 410 print"[193]usdehnung [216]-[210]ichtung          "xp"[157][157][157][157][157]";:inputxp:xr=xp+xl
  70. 415 print"[193]usdehnung [217]-[210]ichtung          "yp"[157][157][157][157][157]";:inputyp:yr=yp+yl
  71. 417 ifyr>24oryl<1orxl<1orxr>39thenprint"[145][145][145][145][145][145][145][145]";:goto400
  72. 420 z=int(xp/2)+40*int(yp/2):po=z-int(z/40)*40+144*int(z/40)
  73. 425 hi=int(po/256):lo=po-hi*256:poke40452,hi:poke40459,lo
  74. 430 z=1024+xl+yl*40:hi=int(z/256):lo=z-hi*256:poke40467,lo:poke40471,hi
  75. 435 poke40503,xr-xl:z=z+yp*40:hi=int(z/256):lo=z-hi*256:poke40531,hi
  76. 440 poke40537,lo:print"[147][142]";
  77. 445 fori=983+yl*40+xlto984+xr+yl*40:pokei,160:pokei+54272,7:pokei+yp*40+40,160
  78. 450 pokei+54312+yp*40,7:next
  79. 455 fori=983+yl*40+xlto983+yr*40+xlstep40:pokei,160:pokei+54272,7
  80. 460 pokei+xp+1,160:pokei+54272+xp+1,7:next:vo=xp*yp:x=30000-vo*30000/874
  81. 465 poke40665,int(x/255)+1:poke40670,x-int(x/255)*255+1
  82. 470 fori=0to7:p(i)=peek(1024+i):next:return
  83.