home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / supergrafik (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  843b  |  26 lines
  1. 1 DEFFNF(X)=SIN(X)
  2. 2 PRINT"[147]**FUNKTION+ABLEITUNG**":PRINT"R.DOERR":PRINT"GUNZENHAUSEN,30.3.1984"
  3. 8 PRINT"FUNKTION IN ZEILE 1   DEFINIEREN!"
  4. 15 INPUT"XMAX";XM:INPUT"YMAX";YM
  5. 20 P=36864:POKEP+3,161:POKE55,0:POKE56,20:POKEP+1,18:POKEP,10:POKEP+2,153:PRINT"[147]"
  6. 25 POKE0,10:POKE1,0:FORI=828TO846:READP:POKEI,P:NEXT:POKE2,20:SYS828
  7. 30 POKE36869,253:FA=6
  8. 90 Y=128:FORX=96TO102:GOSUB4000:NEXT:X=99:FORY=125TO131:GOSUB4000:NEXT
  9. 97 FA=2:D=0:SH=0.000001:H=.0001
  10. 100 FORX=0TO199
  11. 110 XW=XM*(2*X/199-1):YW=(FNF(XW+D*H+SH)-D*FNF(XW+SH))/((H-1)*D+1):Y=(1-YW/YM)*127.5
  12. 115 IFY<0ORY>255.4THEN130
  13. 120 GOSUB4000
  14. 130 NEXT
  15. 140 IFD=1THEN200
  16. 150 FA=7:D=1:GOTO100
  17. 200 GETA$:IFA$=""THEN200
  18. 210 END
  19. 4000 :
  20. 4010 Y=INT(Y+.5):X=INT(X+.5):XS=INT(X/8):YS=INT(Y/16)
  21. 4040 BY=Y-YS*16:BI=7-X+XS*8:Z=7680+XS+25*YS:ZF=Z+30720
  22. 4050 IFPEEK(Z)=32THENBC=BC+1:POKEZ,BC:POKEZF,FA
  23. 4055 IFBC>158THEN200
  24. 4060 BS=PEEK(Z):B=5120+16*BS+BY:P=PEEK(B):P=POR2^BI:POKEB,P:RETURN
  25. 5000 DATA162,0,169,0,160,0,145,1,200,208,251,230,2,232,228,0,208,242,96
  26.