home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 July / 64er_Magazin_90-07_1990_Markt__Technik_de_Side_A.d64 / mini-quadro (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  765b  |  21 lines
  1. 100 poke53280,0:poke53281,0:input"stufe";s:print"[147]"tab(10)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  2. 110 print"[195][195][195][174]  ";s:fort=1to20:printtab(10);"[194][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][194]":nextt
  3. 130 printtab(10)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":forz=1tos:x=int(rnd(0)*15)
  4. 140 y=int(rnd(0)*15):gosub2010:nextz:x=1:y=1
  5. 210 col=x+y*40+55347:pokecol,6:pokecol+205,6:geta$:ifa$=""then 210
  6. 220 ifa$="_"thenforl=40to800step40:fork=0to19:ifpeek(1035+l+k)=86then210
  7. 230 ifa$="_"thennextk,l:print"[147]gewonnen mit";o;"zuegen!":end
  8. 235 ifa$=""andx<14thenx=x+1
  9. 240 ifa$="[157]"andx>0thenx=x-1
  10. 250 ifa$=""andy<14theny=y+1
  11. 260 ifa$="[145]"andy>0theny=y-1
  12. 270 ifa$=" "theno=o+1:gosub2010:printo;" zuege[145]":goto210
  13. 280 ifpeek(col-54272)=90thenpokecol,1
  14. 285 ifpeek(col-54272)=86thenpokecol,14
  15. 290 ifpeek(col-54067)=90thenpokecol+205,1:goto210
  16. 295 ifpeek(col-54067)=86thenpokecol+205,14:goto210
  17. 2010 for a=0 to 200 step 40:forb=0to5:ppo=a+b+x+y*40+1075
  18. 2040 if peek(ppo)=90 then poke54272+ppo,14:poke ppo,86:goto2060
  19. 2050 poke54272+ppo,1:pokeppo,90
  20. 2060 nextb,a:return
  21.