joyceforum.de

Code: Alles auswählen

10 REM Apfelmaennchen
20 GOSUB 50000
30 GOSUB 50280
40 f%=1
50 GOSUB 50430
60 GOTO 310
70 REM iter(cx,cy)
80 cnt%=0
90 zx=0: zy=0
100 zxq=0: zyq=0
110 cxq=cx*cx: cyq=cy*cy
120 r=cxq+cyq
130 s=SQR(r-0.5*cx+0.0625)
140 IF (16*r*s>5*s-4*cx+1) AND ((cx+1)*(cx+1)+cyq>0.0625) THEN 240
150 cnt%=maxIt%
160 RETURN
170 REM zeichne Punkt
180 GOSUB 80
190 cnt2=cnt%/2
200 IF cnt2<>INT(cnt2) THEN RETURN
210 CALL plot(x%,y%,f%)
215 y2%=hoehe%-y%
220 CALL plot(x%,y2%,f%)
230 RETURN
240 zy=2*zx*zy+cy
250 zx=zxq-zyq+cx
260 zxq=zx*zx
270 zyq=zy*zy
280 cnt%=cnt%+1
290 IF (zxq+zyq<4) AND (cnt%<maxIt%) THEN 240
300 RETURN
310 REM zeichne
320 breite%=720:hoehe%=256
330 maxIt%=100
340 xa=-2.05:xe=0.75
350 ya=-0.9625:ye=0.9625
360 y0Pkt%=INT(ye/(ye-ya)*hoehe%)
370 dx=(xe-xa)/breite%
380 dy=(ye-ya)/hoehe%
390 cx=xa
400 FOR x%=0 TO breite%-1
410 cy=0
420 FOR y%=y0Pkt% TO hoehe%-1
430 GOSUB 180
440 cy=cy-dy
450 NEXT y%
460 cx=cx+dx
470 NEXT x%
480 STOP
50000 MEMORY &HBFFF:PLOT=&HC000:A%=PLOT:E%=0
50010 RESTORE 50120
50020 FOR F%=0 TO 14
50030 S%=0
50040 FOR G%=0 TO 7
50050 READ X$:X%=VAL("&H"+X$)
50060 S%=S%+X%:POKE A%,X%:A%=A%+1:NEXT
50070 READ X$:IF S%<>VAL("&H"+X$) THEN E%=E%+1:PRINT "ERROR IN LINE ";10*(F%+5012)
50080 NEXT
50090 IF E%=0 THEN RETURN
50100 PRIMT E%; "ERROR";:IF E%=1 THEN PRINT ELSE PRINT "S"
50110 STOP
50120 DATA 0A,32,7C,C0,4E,23,46,21,250
50130 DATA CF,02,A7,ED,42,D8,ED,43,4AF
50140 DATA 78,C0,EB,5E,23,56,7A,A7,41B
50150 DATA C0,93,3D,5F,ED,53,7A,C0,469
50160 DATA F3,ED,73,7D,C0,31,9D,C0,51E
50170 DATA 01,36,C0,CD,5A,FC,E9,00,403
50180 DATA ED,7B,7D,C0,FB,C9,2A,7A,50D
50190 DATA C0,29,11,00,B6,19,5E,23,24A
50200 DATA 56,7B,E6,F8,CB,27,CB,12,47E
50210 DATA 47,7B,E6,07,B0,5F,2A,78,360
50220 DATA C0,45,7D,E6,F8,6F,EB,19,4D3
50230 DATA 78,E6,07,3C,47,AF,37,1F,2ED
50240 DATA 10,FD,47,3A,7C,C0,A7,20,391
50250 DATA 05,78,2F,A6,77,C9,3D,78,347
50260 DATA 20,03,B6,77,C9,AE,77,C9,407
50270 REM Init Graphics
50280 aspectRatio=0.45
50290 RETURN
50300 REM Screen On
50310 OUT 248,8
50320 RETURN
50330 REM Screen Off
50340 OUT 248,8
50350 RETURN
50360 REM Hide Cursor
50370 PRINT CHR$(27);"f";
50380 RETURN
50390 REM Show Cursor
50400 PRINT CHR$(27);"e";
50410 RETURN
50420 REM Clear Screen
50430 PRINT CHR$(27)+"H";CHR$(27)+"E";CHR$(27)+"f"
50440 RETURN