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 - download

⟦1f28af30b⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    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

TextFile

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