|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »KSYSTEM.ASC«
└─⟦f974e4adc⟧ Bits:30003931/CCPM_Studie.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »KSYSTEM.ASC«
9000 9010 // hak sættes true hvis y-aksen skal have en offset værdi ! 9020 9030 PROC koor(xmin,xmax,ymin,ymax,xstep,ystep,hak) CLOSED 9040 xst:= (ABS(ymin)+ABS(ymax))/50 9050 yst:= (ABS(xmin)+ABS(xmax))/75 9060 MOVETO xmin,0 9070 DRAWTO xmax,0 9080 IF hak THEN 9090 DRAWTO -yst,ystep/2 9100 DRAW 2*yst,0 9110 DRAWTO 0,ystep 9120 DRAWTO 0,ymax 9130 ELSE 9140 MOVETO 0,ymin 9150 DRAWTO 0,ymax 9160 ENDIF 9170 FOR h:= xmin TO xmax STEP xstep DO 9180 MOVETO h,xst 9190 DRAW 0,-2*xst 9200 NEXT h 9210 FOR h:= ymin TO ymax STEP ystep DO 9220 MOVETO yst,h 9230 DRAW -2*yst,0 9240 NEXT h 9250 ENDPROC koor «eof»