home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / zentrum (.txt) < prev   
Encoding:
Commodore BASIC  |  1990-01-01  |  1.0 KB  |  21 lines
  1. 1 cp$="[144]         [146][157][157][157][157][157][157][157][157][157] [151]       [144] [157][157][157][157][157][157][157][157][157][144] [151] [152]     [151] [144] [157][157][157][157][157][157][157][157][157]"
  2. 2 cp$=cp$+" [151] [152] [155]   [152] [151] [144] [157][157][157][157][157][157][157][157][157][144] [151] [152] [155]  [155] [152] [151] [144] [157][157][157][157][157][157][157][157][157] [151] [152] [155]   [152] [151] "
  3. 3 cp$=cp$+"[144] [157][157][157][157][157][157][157][157][157] [151] [152]     [151] [144] [157][157][157][157][157][157][157][157][157] [151]       [144] [157][157][157][157][157][157][157][157][157][144]         [146]"
  4. 4 fori=832to896:pokei,0:nexti:fori=832to853step3:data0,60,126,126,126,126,60,0
  5. 5 reada:pokei,a:nexti:poke53280,6:poke53281,5:print"[147]";tab(15);cp$;""
  6. 6 printtab(10)chr$(14)chr$(8)"[218][197][206][212][210][213][205] -[202]ens [203]uenzl":poke198,0:wait198,1:geta$
  7. 7 print"[145]"tab(10)"                    ":v=53248:pokev+39,2:poke2040,13:h=110
  8. 8 pokev+21,1:x=180:y=126:ti$="000000"
  9. 9 print""tab(16)right$(ti$,2)" [211]ekunden ":pokev,x:pokev+1,y:ifx>208thenx=208
  10. 10 c=int(rnd(0)*8):u1=176-x:u2=122-y:e=sqr(u1*u1+u2*u2):sc=sc+20-e:ify<htheny=h
  11. 11 ifpeek(56320)=123thenx=x-15:ifx<154thenx=154
  12. 12 ifpeek(56320)=126theny=y-15:ify<90theny=90
  13. 13 ifpeek(56320)=119thenx=x+15:ifx>208thenx=208
  14. 14 ifpeek(56320)=125theny=y+15:ify>154theny=154
  15. 15 ify>140theny=140
  16. 16 x=x-(u1/3):y=y-(u2/3):ifx<154thenx=154
  17. 17 print"[211]core :";int(sc);"[157]  [193]bweichung :";int(e);"[157] [208]ixels  "
  18. 18 ifti$<="000030"then9
  19. 19 print"[147][199]esamtpunkte nach 30 [211]ekunden : ";int(sc)
  20. 20 print"[206]och einmal [211]pielen (j/n) ?[146]":wait198,1:geta$:ifa$="j"thenrun
  21.