グラフィックで３DHATN88互換BASIC-------------------------------------- 20 CLS 30 X1=2 40 DIM D(1,255):FOR L=0 TO 255:D(0,L)=-1:D(1,L)=-1:NEXT 50 PI=3.14 60 FOR Y=-180 TO 180 STEP 4:FOR X=-180 TO 180 STEP 4 80 R=PI/180*SQR(X*X+Y*Y):Z=100*COS(R)-30*COS(3*R) 100 V=INT(116+X/2+(16-Y/2)/2):W=INT((130-Y/2-Z)/2) 120 IF (V<0)+(V>255) THEN GOTO 160 130 IF D(0,V)=-1 THEN GOTO 500 140 IF W<=D(0,V) THEN GOTO 700 150 IF W>=D(1,V) T
