|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 960 (0x3c0)
Notes: Mikados TextFile, Mikados_K
Names: »PNDEMO2«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─ ⟦this⟧ »PNDEMO2«
2100 DIM NAVN$(20),TYPE$(4) 2110 NAVN$="DDE PLOTTER DEMO-2" 2120 OUTPUT P1 2130 EXEC PLOTINIT 2140 EXEC FLYTABS(0,2300) 2150 EXEC TEKST(0,4,NAVN$) 2190 EXEC FLYTABS(1750,1150) 2200 EXEC NULPKT 2210 FOR M=0 TO 315 STEP 90 2220 TYPE$="LIN" 2225 NAVN$="LIN-akse" 2230 EXEC AKSE(M,1,200,0.5,0,5,TYPE$,NAVN$) 2240 TYPE$="LOG" 2245 NAVN$="LOG-akse" 2250 EXEC AKSE((M+45),2,450,0.5,0,3,TYPE$,NAVN$) 2260 NEXT M 2270 NAVN$="DEMO-2 SLUT" 2280 EXEC PLOTINIT 2290 EXEC TEKST(0,1,NAVN$) 2300 EXEC PLOTSLUT 2310 STOP