DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦806583663⟧

    Length: 377 (0x179)
    Notes: Mikados TextFile, Mikados_K
    Names: »PNDEMO4«

Derivation

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

Text

4000 DIM NAVN$(20),XTEKST$(1),YTEKST$(1)
4010 OUTPUT P1
4020 EXEC PLOTINIT
4030 NAVN$="DDE PLOTTER DEMO-4"
4040 EXEC FLYTABS(0,2300)
4050 EXEC TEKST(0,4,NAVN$)
4060 PROC PARM(T,X,Y)
4070 X=5*R*COS(T/180*PI)
4080 Y=2*R*SIN(T/180*PI)
4090 ENDPROC ;PARM.
4100 XTEKST$="X";YTEKST$="Y"
4110 FOR R=5 TO 1 STEP -1
4120 EXEC PARKRV(0,360,1,3,3,110,130,0,(R-4),XTEKST$,YTEKST$)
4130 NEXT R
4140 STOP