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_K
    Names: »PNDEMO4.K«

Derivation

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

Mikados K File

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

Mikados K File

0x000…02a Line {l1=0x28, l2=»4000 DIM NAVN$(20),XTEKST$(1),YTEKST$(1)«, l3=0x28}
0x02a…03a Line {l1=0x0e, l2=»4010 OUTPUT P1«, l3=0x0e}
0x03a…04e Line {l1=0x12, l2=»4020 EXEC PLOTINIT«, l3=0x12}
0x04e…06f Line {l1=0x1f, l2=»4030 NAVN$="DDE PLOTTER DEMO-4"«, l3=0x1f}
0x06f…08a Line {l1=0x19, l2=»4040 EXEC FLYTABS(0,2300)«, l3=0x19}
0x08a…0a6 Line {l1=0x1a, l2=»4050 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x0a6…0bd Line {l1=0x15, l2=»4060 PROC PARM(T,X,Y)«, l3=0x15}
0x0bd…0d7 Line {l1=0x18, l2=»4070 X=5*R*COS(T/180*PI)«, l3=0x18}
0x0d7…0f1 Line {l1=0x18, l2=»4080 Y=2*R*SIN(T/180*PI)«, l3=0x18}
0x0f1…106 Line {l1=0x13, l2=»4090 ENDPROC ;PARM.«, l3=0x13}
0x106…124 Line {l1=0x1c, l2=»4100 XTEKST$="X";YTEKST$="Y"«, l3=0x1c}
0x124…13f Line {l1=0x19, l2=»4110 FOR R=5 TO 1 STEP -1«, l3=0x19}
0x13f…17e Line {l1=0x3d, l2=»4120 EXEC PARKRV(0,360,1,3,3,110,130,0,(R-4),XTEKST$,YTEKST$)«, l3=0x3d}
0x17e…18b Line {l1=0x0b, l2=»4130 NEXT R«, l3=0x0b}
0x18b…197 Line {l1=0x0a, l2=»4140 STOP «, l3=0x0a}
0x197…1a0 00 00 63 63 63 63 63 63 63                                                                        ┆  ccccccc┆
0x1a0…1c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x40…]
0x9c0…9e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 00   ┆ccccccccccccccccccccccccccccccc ┆

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◀

Reduced view