home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 March / 64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64 / kalliographie (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  919 b   |  21 lines
  1. 10 dim a(5000):clr:a=100:b=a:c=100:d=.15:sys 2676
  2. 20 h=s+a1:s=h-int(h/c)*c:h=t+b1:t=h-int(h/c)*c:h=x+a2:x=h-int(h/c)*c:h=y+b2
  3. 30 y=h-int(h/c)*c:gosub 50:gosub 50:if rnd(0)<d then gosub 60
  4. 40 goto 20
  5. 50 t=-t:y=-y:gosub 70:s=-s:x=-x:gosub 70:return
  6. 60 a1=rnd(0)*6-3:a2=rnd(0)*6-3:b1=rnd(0)*6-3:b2=rnd(0)*6-3:return
  7. 70 x1=1.5*(s+a):x2=1.5*(x+a):y1=t+a:y2=y+a:gosub 90:x1=1.5*(t+a)
  8. 80 x2=1.5*(y+a):y1=s+a:y2=x+a:gosub 90:return
  9. 90 poke 181,x1-int(x1/256)*256:poke 182,int(x1/256):poke 184,y1
  10. 95 get a$:if a$="n" then run
  11. 100 dx=x2-x1:dy=y2-y1:sp=dy:if abs(dx)>abs(dy) then sp=dx
  12. 110 sp=abs(sp)+1:xs=dx/sp:ys=dy/sp:poke 185,abs(xs/(1/256))
  13. 115 poke 186,abs(ys/(1/256)):poke 187,sp+2
  14. 120 poke 189,abs(int(xs)*255):poke 190,abs(int(ys)*255):sys 2727:return
  15. 130 print"{CBM-Z}P {CBM-N}P{CBM-Z}P{CBM-N}P {CBM-P}{CBM-I}{CBM-A}{SHIFT-POUND}{CBM-B}{CBM-P}HP{$fb}{$e6}{CBM-A}{CBM-+}{CBM-A} P{$f3}{$60} @{CBM-G}{CBM-P}{CBM-H}{CBM-Y}{CBM-C}8{CBM-A}"
  16. 140 print"{CBM-G}{CBM-U}){$f8}{CBM-A}{CBM-G}{CBM-P}{CBM-E}{CBM-A}&{CBM-E}{CBM-A}&{CBM-E}{CBM-A}&{CBM-E}{CBM-G}{CBM-A}B{CBM-G}{CBM-E}{CBM-T}{CBM-A}&{CBM-E}{CBM-A}&{CBM-E}{CBM-G}BE{CBM-A}{CBM-A}{CBM-G}{CBM-T}E{CBM-E}{CBM-E}{CBM-G}{CBM-J}){$f8}E{CBM-A}{CBM-A}{CBM-G}{CBM-L}E{CBM-E}{CBM-E}"
  17. 150 print"{CBM-G}{CBM-U})E{CBM-A}{CBM-A}{CBM-G}{CBM-E}I {CBM-E}{CBM-G}{CBM-J})B{SHIFT-POUND}8{$e5}B{CBM-N}{CBM-X}
  18. {CBM-@}{CBM-P}{CBM-A}{CBM-A}{$ea}{$ea}{$ea}{CBM-G}{CBM-X}P{CBM-G}{CBM-H}E{CBM-O}{CBM-H}{CBM-G}{CBM-J}E{CBM-P}{CBM-J}{CBM-G}{CBM-L}E{CBM-P}{CBM-L}"
  19. 160 print"{CBM-G}{CBM-H}8{$e5}{CBM-O}{CBM-H}{CBM-G}{CBM-J}{$e5}{CBM-P}{CBM-J}{CBM-G}{CBM-L}{$e5}{CBM-P}{CBM-L}{CBM-G}{CBM-V}P{CBM-G}{CBM-Y}E{SHIFT-@}{CBM-Y}{CBM-G}{CBM-U}E{CBM-P}{CBM-U}{CBM-G}{CBM-Y}8{$e5}{SHIFT-@}{CBM-Y}{CBM-G}{CBM-U}{$e5}{CBM-P}{CBM-U}{$ea}{$e6}{CBM-C}{CBM-G}{CBM-C}E{CBM-F}{$f0}l{SHIFT-@}
  20. {$60}"
  21.