home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 August / 64er_Magazin_91-08_1991_Markt__Technik_de_Side_A.d64 / springer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 10 poke648,32:v=53248:pokev+21,4:pokev+32,0:pokev+33,0:pokev+41,1:poke2042,128
  2. 20 print"[147]@ @@<@@[191]@@?@[146]a[191]@[146]c[223]@[146]g?@b[191]@@[190][146]@@[190][146]@a[190][146]@a[190][146]@@[191][146]@@[191][146]@a[191]@[146]g";
  3. 30 print"[191][146] _[191][184][146][191][191][190][146]?[191][188][191][191][191][146][191][191][190][146]":poke648,4:poke8239,224:b=80:iu=13:print"[147]"
  4. 40 a$="[144]   [154]   [144]   [154]   [144]   [154]   [144]   [154]   [144]   ":fori=0to3:forj=0to2:printtab(7)a$
  5. 50 next:forj=0to2:printtab(4)a$:next:next:print""tab(7)"[153]   [157][157][157]   [157][157][157]   [146]"
  6. 60 print"[158]zeitfelder[157][157][157][157]/64[158][157][157][157][157][157]best[157][157][157][157][157]";peek(251):fe=1:c=52
  7. 70 ti$="000000":s=54272:pokes+24,15:pokes+5,25:pokes+6,68:pokes+1,18
  8. 80 pokes+4,0:ifpeek(56320)=119thenb=b+24:x1=x1+1:ifb>248thenb=248:x1=x1-1:goto80
  9. 90 ifpeek(56320)=123thenb=b-24:x1=x1-1:ifb<80thenb=80:x1=x1+1:goto80
  10. 100 ifpeek(56320)=126thenc=c-24:y1=y1-1:ifc<52thenc=52:y1=y1+1:goto80
  11. 110 ifpeek(56320)=125thenc=c+24:y1=y1+1:ifc>220thenc=220:y1=y1-1:goto80
  12. 120 ifpeek(56320)=111andx1<>xandx1<x+3andx1>x-3andy1<>yandy1>y-3andy1<y+3then140
  13. 130 pokev+4,b:pokev+5,c:print"";ti$"[157]";fe:ifpeek(197)<>60then80
  14. 140 z=55303+(b-80)/24*3+(c-52)/24*120:ifpeek(197)=60thenpokev+21,0:goto190
  15. 150 r=x+y:r1=x1+y1:ifr1<>r+1andr1<>r+3andr1<>r-1andr1<>r-3then80
  16. 160 q1=(peek(z)-5)/16:q2=(peek(z)-13)/16:ifq1=int(q1)orq2=int(q2)then80
  17. 170 pokes+4,17:fe=fe+1:x=x1:y=y1:iu=3-iu+15:ui=3-iu+15:forda=ztoz+2:pokeda,4
  18. 180 pokeda+40,iu:pokeda+80,iu:next:pokema,ui:pokema+1,ui:pokema+2,ui:ma=z:goto80
  19. 190 iffe>peek(251)thenpoke251,fe:rem        by christian wellenhofer /1991
  20. 200 print"[147]felder:"fe"zeit:"ti$:input"neues spiel";g$:ifg$="ja"thenrun
  21.