|
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)
Types: TextFile
Notes: Mikados_K
Names: »PNDEMO2.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNDEMO2.K«
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
0x000…01d Line {l1=0x1b, l2=»2100 DIM NAVN$(20),TYPE$(4)«, l3=0x1b}
0x01d…03e Line {l1=0x1f, l2=»2110 NAVN$="DDE PLOTTER DEMO-2"«, l3=0x1f}
0x03e…04e Line {l1=0x0e, l2=»2120 OUTPUT P1«, l3=0x0e}
0x04e…062 Line {l1=0x12, l2=»2130 EXEC PLOTINIT«, l3=0x12}
0x062…07d Line {l1=0x19, l2=»2140 EXEC FLYTABS(0,2300)«, l3=0x19}
0x07d…099 Line {l1=0x1a, l2=»2150 EXEC TEKST(0,4,NAVN$)«, l3=0x1a}
0x099…0b7 Line {l1=0x1c, l2=»2190 EXEC FLYTABS(1750,1150)«, l3=0x1c}
0x0b7…0c9 Line {l1=0x10, l2=»2200 EXEC NULPKT«, l3=0x10}
0x0c9…0e6 Line {l1=0x1b, l2=»2210 FOR M=0 TO 315 STEP 90«, l3=0x1b}
0x0e6…0f8 Line {l1=0x10, l2=»2220 TYPE$="LIN"«, l3=0x10}
0x0f8…10f Line {l1=0x15, l2=»2225 NAVN$="LIN-akse"«, l3=0x15}
0x10f…13c Line {l1=0x2b, l2=»2230 EXEC AKSE(M,1,200,0.5,0,5,TYPE$,NAVN$)«, l3=0x2b}
0x13c…14e Line {l1=0x10, l2=»2240 TYPE$="LOG"«, l3=0x10}
0x14e…165 Line {l1=0x15, l2=»2245 NAVN$="LOG-akse"«, l3=0x15}
0x165…197 Line {l1=0x30, l2=»2250 EXEC AKSE((M+45),2,450,0.5,0,3,TYPE$,NAVN$)«, l3=0x30}
0x197…1a4 Line {l1=0x0b, l2=»2260 NEXT M«, l3=0x0b}
0x1a4…1be Line {l1=0x18, l2=»2270 NAVN$="DEMO-2 SLUT"«, l3=0x18}
0x1be…1d2 Line {l1=0x12, l2=»2280 EXEC PLOTINIT«, l3=0x12}
0x1d2…1ee Line {l1=0x1a, l2=»2290 EXEC TEKST(0,1,NAVN$)«, l3=0x1a}
0x1ee…202 Line {l1=0x12, l2=»2300 EXEC PLOTSLUT«, l3=0x12}
0x202…20e Line {l1=0x0a, l2=»2310 STOP «, l3=0x0a}
0x20e…220 00 00 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 32 ┆ EXEC PLOTSLUT 2┆
0x220…240 33 31 30 20 53 54 4f 50 20 0a 00 00 31 0e 12 32 31 33 30 20 45 58 45 43 20 50 4c 4f 54 49 4e 49 ┆310 STOP 1 2130 EXEC PLOTINI┆
0x240…260 54 12 19 32 31 34 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 30 2c 32 33 30 30 29 19 1a 32 31 ┆T 2140 EXEC FLYTABS(0,2300) 21┆
0x260…280 35 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 34 2c 4e 41 56 4e 24 29 1a 0a 32 31 36 30 20 53 ┆50 EXEC TEKST(0,4,NAVN$) 2160 S┆
0x280…2a0 54 4f 50 20 0a 0e 32 31 37 30 20 4f 55 54 50 55 54 20 50 31 0e 15 32 31 38 30 20 4e 41 56 4e 24 ┆TOP 2170 OUTPUT P1 2180 NAVN$┆
0x2a0…2c0 3d 22 44 44 45 2d 61 6b 73 65 22 15 1c 32 31 39 30 20 45 58 45 43 20 46 4c 59 54 41 42 53 28 31 ┆="DDE-akse" 2190 EXEC FLYTABS(1┆
0x2c0…2e0 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 ┆ ┆
[…0x7…]