home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 August / 64er_Magazin_89-08_1989_Markt__Technik_de.d64 / apfel.hires (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 100 data169,32,133,252,169,,133,251,162,32,160,,145,251,200,208,251,230,252,202
  2. 110 data208,244,169,,133,251,169,4,133,252,169,11,162,4,160,0,145,251,200,208
  3. 120 data251,230,252,202,208,244,173,24,208,9,8,141,24,208,173,17,208,9,32,141
  4. 130 fort=0to61:readn:poke49152+t,n:next:dimo(320),r(320),m(320):poke49214,96
  5. 140 poke44,8:print"[147][193]pfelmaennchen":poke53281,0:input"[200]oehenlinien";h$
  6. 150 for t=0 to 320:r(t)=8192+t+312*int(t/8):if h$="j" then o(t)=t/2<>int(t/2)
  7. 160 m(t)=t*8:next t:fort=0to7:b(t)=2^(7-t):nextt:input"[204]inker [210]and";a
  8. 170 input"[210]echter [210]and";e:input"[213]nterer [210]and";u:input"[207]berer [210]and";o
  9. 180 input"[212]iefe";f:if f<5 or f>254thenprint"[145][145]";:goto180
  10. 190 x=(e-a)/320:y=(o-u)/199:p=a:q=o:sys49152:o(f)=-1:data17,208,165,198,240
  11. 200 forz=0to199:fors=0to39:b=0:forl=0to7:t=0:h=0:i=0:j=0:k=0
  12. 210 ift=f orj+k>=8goto230
  13. 220 i=i*h:i=i+i-q:h=j-k-p:j=h*h:k=i*i:t=t+1:goto210
  14. 230 ifo(t)thenb=borb(l)
  15. 240 p=p+x:nextl:poker(z)+m(s),b:nexts:p=a:q=q-y:nextz:data252,169,23,141,24,208
  16. 250 restore:fort=0to80:readn:ift>21thenpoke16178+t,n
  17. 260 nextt:sys16200:input"[158][147][198]arbkombination";f:poke16209,f:sys16200
  18. 270 input"[147][206]ame ([210][197][212]=exit)";na$:ifna$=""thenend
  19. 280 open1,8,2,"@:"+na$+",p,w":data169,27,141,17,208,169,,133,198,96
  20. 290 print#1,chr$(0)" ";:fort=8192to16260:print#1,chr$(peek(t));:nextt:close1
  21.