Listing of file='3DPLOT.BAS;01' on disk='vmedia/ncc_2-sector.ccvf'
10 RD= PEEK (33209):RD= RND (RD) 20 DEF FN A(A)= INT (RND (RD)* A)+ 3 30 DEF FN B(B)= (B+ C)/ 2 40 D= 1:E= 125 50 PLOT 12,3,64,0:C= FN A(E) 60 FOR G= 1TO FN A(3) 70 H= FN A(E):I= FN B(H):J= FN A(E):K= FN B(J) 80 L= FN A(E):M= FN B(L):N= FN A(E):O= FN B(N) 90 PLOT 6,D,2,I,M,242,I,O,K,O,K,M,I,M,H,L,J,L,K,M,255 100 PLOT 2,I,O,242,H,N,J,N,K,O,255,2,H,L,242,H,N,J,N,J,L,255 110 D= D+ 1:IF D= 8THEN D= 1 120 NEXT G:FOR P= 0TO 500:NEXT P:GOTO 50