home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / quix (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  834b  |  27 lines
  1. 100 rem quix
  2. 110 if flag=0 then flag=1:load "graphtool.obj",8,1
  3. 120 sys49152:sys49158,1,0:rem graphik initialisieren
  4. 130 rem anfangskoordinaten und anfangssteigungen
  5. 140 rem per zufallsgenerator bestimmen
  6. 150 x0=int(rnd(1)*320)
  7. 160 x1=int(rnd(1)*320)
  8. 170 y0=int(rnd(1)*200)
  9. 180 y1=int(rnd(1)*200)
  10. 190 a0=int(rnd(1)*7)+4
  11. 200 a1=int(rnd(1)*7)+4
  12. 210 b0=int(rnd(1)*7)+4
  13. 220 b1=int(rnd(1)*7)+4
  14. 230 rem quix am bildschirmrand reflektieren
  15. 240 if x0+a0 < 0 or x0+a0>319 then a0=-sgn(a0)*(int(rnd(1)*7)+4)
  16. 250 if x1+a1 < 0 or x1+a1>319 then a1=-sgn(a1)*(int(rnd(1)*7)+4)
  17. 260 if y0+b0 < 0 or y0+b0>199 then b0=-sgn(b0)*(int(rnd(1)*7)+4)
  18. 270 if y1+b1 < 0 or y1+b1>199 then b1=-sgn(b1)*(int(rnd(1)*7)+4)
  19. 280 rem letzte linie loeschen
  20. 290 sys49164:sys49173,x0(i),y0(i),x1(i),y1(i):sys49161
  21. 300 x0(i)=x0:y0(i)=y0:x1(i)=x1:y1(i)=y1
  22. 310 i=i+1:if i=10 then i=0
  23. 320 x0=x0+a0:x1=x1+a1:y0=y0+b0:y1=y1+b1
  24. 330 rem linie zeichnen
  25. 340 sys49173,x0,y0,x1,y1
  26. 350 goto 240
  27.