DataMuseum.dk

top - download

    Length: 992 (0x3e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PNDEMO3«

└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
    └─⟦this⟧ »PNDEMO3« 

Text

3000 DIM NAVN$(30),TYPE$(4),XTEKST$(10),YTEKST$(10)
3010 NAVN$="DDE PLOTTER DEMO-3"
3020 OUTPUT P1
3030 EXEC PLOTINIT
3040 EXEC FLYTABS(0,2400)
3050 EXEC TEKST(0,2,NAVN$)
3080 PROC FUNK(X,FX)
3090 FX=X*X*X+X*X-X+TT
3100 ENDPROC ;FUNK.
3110 XTEKST$="X";YTEKST$="F(X)"
3120 NAVN$="F(x) = x**3 + x**2 - x + 1"
3130 TT=1
3140 EXEC LINKRV(-2,1.5,0,0,0,0,0,1,XTEKST$,YTEKST$)
3150 EXEC FLYTREL(0,-100)
3160 EXEC TEGNREL(50,50)
3170 EXEC FLYTREL(15,15)
3180 EXEC TEKST(0,2,NAVN$)
3210 TT=1
3220 EXEC PLOTINIT
3230 EXEC LINKRV(-2,1.5,40,10,270,200,0,1,XTEKST$,YTEKST$)
3270 EXEC PLOTINIT
3280 FOR TT=-1 TO 2 STEP 1
3290 EXEC LINKRV(-2,1.5,20,20,300,75,(TT+2),(TT+2),XTEKST$,YTEKST$)
3300 NEXT TT
3310 NAVN$="DEMO-3 SLUT"
3320 EXEC PLOTINIT
3330 EXEC TEKST(0,1,NAVN$)
3340 EXEC PLOTSLUT
3350 STOP