|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »PNDEMO1.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNDEMO1.K«
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
0x000…014 Line {l1=0x12, l2=»1500 DIM NAVN$(20)«, l3=0x12}
0x014…024 Line {l1=0x0e, l2=»1507 OUTPUT P1«, l3=0x0e}
0x024…038 Line {l1=0x12, l2=»1510 EXEC PLOTINIT«, l3=0x12}
0x038…059 Line {l1=0x1f, l2=»1520 NAVN$="DDE PLOTTER DEMO-1"«, l3=0x1f}
0x059…074 Line {l1=0x19, l2=»1530 EXEC FLYTABS(0,2300)«, l3=0x19}
0x074…090 Line {l1=0x1a, l2=»1540 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x090…0ad Line {l1=0x1b, l2=»1550 EXEC FLYTABS(1000,300)«, l3=0x1b}
0x0ad…0bf Line {l1=0x10, l2=»1560 EXEC NULPKT«, l3=0x10}
0x0bf…0df Line {l1=0x1e, l2=»1570 EXEC TEGNABS(0,1800,1800)«, l3=0x1e}
0x0df…0fb Line {l1=0x1a, l2=»1580 EXEC FLYTREL(-1800,0)«, l3=0x1a}
0x0fb…118 Line {l1=0x1b, l2=»1590 EXEC TEGNABS(7,1800,0)«, l3=0x1b}
0x118…13a Line {l1=0x20, l2=»1600 EXEC STIPREL(100,50,0,1800)«, l3=0x20}
0x13a…15d Line {l1=0x21, l2=»1610 EXEC STIPREL(10,100,-1800,0)«, l3=0x21}
0x15d…17d Line {l1=0x1e, l2=»1620 EXEC TEGNPOL(225,1272.79)«, l3=0x1e}
0x17d…19d Line {l1=0x1e, l2=»1630 EXEC FLYTPOL(-45,1272.79)«, l3=0x1e}
0x19d…1ba Line {l1=0x1b, l2=»1640 EXEC TEGNREL(-900,900)«, l3=0x1b}
0x1ba…1d6 Line {l1=0x1a, l2=»1650 EXEC FLYTABS(115,650)«, l3=0x1a}
0x1d6…1e8 Line {l1=0x10, l2=»1660 NAVN$="DDE"«, l3=0x10}
0x1e8…205 Line {l1=0x1b, l2=»1670 EXEC TEKST(90,5,NAVN$)«, l3=0x1b}
0x205…222 Line {l1=0x1b, l2=»1680 EXEC FLYTABS(720,1600)«, l3=0x1b}
0x222…23e Line {l1=0x1a, l2=»1690 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x23e…25b Line {l1=0x1b, l2=»1700 EXEC FLYTABS(1600,970)«, l3=0x1b}
0x25b…279 Line {l1=0x1c, l2=»1710 EXEC TEKST(270,3,NAVN$)«, l3=0x1c}
0x279…295 Line {l1=0x1a, l2=»1720 EXEC FLYTABS(935,130)«, l3=0x1a}
0x295…2b3 Line {l1=0x1c, l2=»1730 EXEC TEKST(180,2,NAVN$)«, l3=0x1c}
0x2b3…2cd Line {l1=0x18, l2=»1740 NAVN$="DEMO-1 SLUT"«, l3=0x18}
0x2cd…2ec Line {l1=0x1d, l2=»1750 EXEC FLYTABS(-1000,-300)«, l3=0x1d}
0x2ec…308 Line {l1=0x1a, l2=»1760 EXEC TEKST(0,1,NAVN$)«, l3=0x1a}
0x308…31c Line {l1=0x12, l2=»1770 EXEC PLOTSLUT«, l3=0x12}
0x31c…328 Line {l1=0x0a, l2=»1780 STOP «, l3=0x0a}
0x328…340 00 00 41 56 4e 24 3d 22 44 45 4d 4f 2d 31 20 53 4c 55 54 22 18 1d 31 37 ┆ AVN$="DEMO-1 SLUT" 17┆
0x340…360 35 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 2d 31 30 30 30 2c 2d 33 30 30 29 1d 1a 31 37 36 ┆50 EXEC FLYTABS(-1000,-300) 176┆
0x360…380 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 31 2c 4e 41 56 4e 24 29 1a 12 31 37 37 30 20 45 58 ┆0 EXEC TEKST(0,1,NAVN$) 1770 EX┆
0x380…3a0 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 31 37 38 30 20 53 54 4f 50 20 0a 00 00 00 00 00 00 00 00 ┆EC PLOTSLUT 1780 STOP ┆
0x3a0…3c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x1…]