home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / hires4.ass (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.6 KB  |  49 lines
  1. 10 rem *******************************************************
  2. 20 rem *                                                     *
  3. 30 rem *             h i r e s 4 . a s s                     *
  4. 40 rem *                                                     *
  5. 50 rem *  test der grafikerweiterung hires 4  fuer den c64   *
  6. 60 rem *         heimo ponnath  hamburg  1987                *
  7. 70 rem *                                                     *
  8. 80 rem *******************************************************
  9. 90 rem
  10. 100 rem ------- hauptprogramm --------------------------------
  11. 110 printchr$(147)
  12. 120 print:print:print"dieses programm testet alle module":print"von hires 4"
  13. 130 zf=5:hf=0:rem zeichen- und hintergrundfarbe
  14. 140 sys49152:han:rem grafik einschalten
  15. 150 loe:rem bitmap loeschen
  16. 160 far,zf,hf:rem farbgebung
  17. 170 l=1:rem loeschmarke auf punkt setzen stellen
  18. 180 for x=0 to 319
  19. 190 :y=50*sin(x/20)+100
  20. 200 :pkt x,y,l:rem punkte setzen
  21. 210 next x
  22. 220 l=0:rem loeschmarke auf punkt loeschen stellen
  23. 230 for x=100 to 200
  24. 240 :y=50*sin(x/20)+100
  25. 250 :pkt x,y,l:rem punkte loeschen
  26. 260 next x
  27. 270 hof:rem textmodus einschalten
  28. 280 print:print"die module 2 bis 6 sind ok"
  29. 290 for i=0 to 1000:next i
  30. 300 han:rem grafik wieder einschalten
  31. 310 x1=160:y1=100:r%=90:l=1
  32. 320 for a=0 to 6.28 step .05
  33. 330 :x2=r%*cos(a)+160
  34. 340 :y2=r%*sin(a)+100
  35. 350 :lin,x1,y1,x2,y2,l:rem linien zeichnen
  36. 360 next a
  37. 370 hof:rem textmodus einschalten
  38. 380 print:print"auch das modul 7 arbeitet"
  39. 390 for i=0 to 1000:next i
  40. 400 han:rem grafik einschalten
  41. 410 xm=160:ym=100:r=95:l=1
  42. 420 cir,xm,ym,r,l:rem kreis zeichnen
  43. 430 for i=0 to 1000:next i
  44. 440 hof:aus:rem textmodus und erweiterung abschalten
  45. 450 print:print"auch das modul 8 funktioniert."
  46. 460 poke52,160:poke56,160:rem basiczeiger zurueckstellen
  47. 470 clr
  48. 480 end
  49.