home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / hires4.ass (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  49 lines
  1. 10 REM ********************************
  2. 20 REM *                              *
  3. 30 REM *     H I R E S 4 . A S S      *
  4. 40 REM *  TEST DER GRAFIKERWEITERUNG  *
  5. 50 REM *    HIRES 4  FUER DEN C64     *
  6. 60 REM *    HEIMO PONNATH  HAMBURG    *
  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.