home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / demoprogramm (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  43 lines
  1. 1 REM    DEMOPROGRAMM 'PROGRAF'
  2. 2 REM ---------------------------------
  3. 3 REM PROGRAMMIERT VON NIKOLAUS HEUSLER
  4. 4 REM (C) SONDERHEFT 64'ER    NH-160789
  5. 5 REM ---------------------------------
  6. 6 REM WE APOLOGIZE FOR ANY INCONVENIENCE
  7. 10 POKE56,67:CLR:POKE53280,11:POKE0,111
  8. 11 IFPEEK(17803)+PEEK(22956)<>33THENSYS57812"PROGRAF",8,1:POKE780,0:SYS65493
  9. 12 POKE777,67
  10. 14 GOTO100
  11. 20 POKE53280,.:POKE198,.:WAIT198,1:POKE198,.:POKE53280,11:RETURN
  12. 100 PRINT"[147] DEMOPROGRAMM 'PROGRAPH'                 VON NIKOLAUS HEUSLER
  13. 102 [153]" IMMER, WENN DIE RAHMENFARBE AUF SCHWARZ
  14. 104 PRINT"[145] SCHALTET, IST DIE GRAFIK FERTIG.
  15. 106 [153]" DANN WOLLEN SIE BITTE EINE TASTE DRUEK- KEN.
  16. 108 GOSUB20
  17. 110 !SCN,1:!CLR,11,1
  18. 120 !LOC,320,200:OX=160:OY=0
  19. 130 FORI=.TO63STEP.1:X=40*COS(I)*(4+SIN(I*3.3)):Y=40*SIN(I)*(3+SIN(I*3.3))
  20. 140 !LINE,X,Y,OX,OY:OX=X:OY=Y:NEXT:GOSUB20
  21. 150 !CLR:!TRANS,0,0,0:!ROT,0,0,0
  22. 160 !LOC,320,340:E=40:!PROZ,180,-600,300
  23. 170 FORI=-26TO14STEP.5:FL=.:FORJ=-4TO30STEP.6
  24. 180 X=I:Y=J:Z=SIN(I-J+SIN(I+J))/(3+J/3)
  25. 190 IFFLTHEN:!ZLINE,X*E,Y*E,Z*E,OX*E,OY*E,OZ*E
  26. 195 FL=1:OZ=Z:OY=Y:OX=X
  27. 200 NEXTJ,I
  28. 210 FL=.:FORI=-7TO7STEP.2
  29. 220 X=I:A=LOG(3+I*I)+3:B=LOG(1+I*I)+3
  30. 230 IFFLTHEN:!ZLINE,X*E,0,A*E,OX*E,0,OA*E
  31. 232 IFFLTHEN:!ZLINE,X*E,0,B*E,OX*E,0,OB*E
  32. 234 FL=1:OX=X:OA=A:OB=B:NEXT:GOSUB20
  33. 240 !CLR:!PROZ,180,-1100,300:E=55:!LOC,320,60:!TRANS,-3*E,0,-2*E
  34. 250 FORI=-3TO3STEP.5:FL=.:FORJ=-3TO3STEP.5
  35. 260 X=I:Y=J:Z=-2/SQR(I*I+J*J+.1)
  36. 270 IFFLTHEN:!ZLINE,X*E,Y*E,Z*E,OX*E,OY*E,OZ*E
  37. 275 FL=1:OZ=Z:OY=Y:OX=X:NEXT:NEXT
  38. 280 FORI=.5TO3STEP.3:FL=0:FORJ=0TO6.29STEP.314
  39. 290 X=I*COS(J):Y=I*SIN(J):Z=-2/I
  40. 300 IFFLTHEN:!ZLINE,X*E,Y*E,Z*E,OX*E,OY*E,OZ*E
  41. 305 FL=1:OZ=Z:OY=Y:OX=X:NEXT:NEXT
  42. 310 GOSUB20:END
  43.