DataMuseum.dk

top - download

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

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

Text

1500 DIM NAVN$(20)
1507 OUTPUT P1
1510 EXEC PLOTINIT
1520 NAVN$="DDE PLOTTER DEMO-1"
1530 EXEC FLYTABS(0,2300)
1540 EXEC TEKST(0,4,NAVN$)
1550 EXEC FLYTABS(1000,300)
1560 EXEC NULPKT
1570 EXEC TEGNABS(0,1800,1800)
1580 EXEC FLYTREL(-1800,0)
1590 EXEC TEGNABS(7,1800,0)
1600 EXEC STIPREL(100,50,0,1800)
1610 EXEC STIPREL(10,100,-1800,0)
1620 EXEC TEGNPOL(225,1272.79)
1630 EXEC FLYTPOL(-45,1272.79)
1640 EXEC TEGNREL(-900,900)
1650 EXEC FLYTABS(115,650)
1660 NAVN$="DDE"
1670 EXEC TEKST(90,5,NAVN$)
1680 EXEC FLYTABS(720,1600)
1690 EXEC TEKST(0,4,NAVN$)
1700 EXEC FLYTABS(1600,970)
1710 EXEC TEKST(270,3,NAVN$)
1720 EXEC FLYTABS(935,130)
1730 EXEC TEKST(180,2,NAVN$)
1740 NAVN$="DEMO-1 SLUT"
1750 EXEC FLYTABS(-1000,-300)
1760 EXEC TEKST(0,1,NAVN$)
1770 EXEC PLOTSLUT
1780 STOP