|
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: »PNDEMO3.K«
└─⟦cb138137f⟧ Bits:30005281 Grafikpakke til COMAL & DMP-7
└─⟦this⟧ »PNDEMO3.K«
3000 DIM NAVN$(30),TYPE$(4),XTEKST$(10),YTEKST$(10) 3010 NAVN$="DDE PLOTTER DEMO-3" 3020 OUTPUT P1 3030 EXEC PLOTINIT 3040 EXEC FLYTABS(0,2400) 3050 EXEC TEKST(0,2,NAVN$) 3080 PROC FUNK(X,FX) 3090 FX=X*X*X+X*X-X+TT 3100 ENDPROC ;FUNK. 3110 XTEKST$="X";YTEKST$="F(X)" 3120 NAVN$="F(x) = x**3 + x**2 - x + 1" 3130 TT=1 3140 EXEC LINKRV(-2,1.5,0,0,0,0,0,1,XTEKST$,YTEKST$) 3150 EXEC FLYTREL(0,-100) 3160 EXEC TEGNREL(50,50) 3170 EXEC FLYTREL(15,15) 3180 EXEC TEKST(0,2,NAVN$) 3210 TT=1 3220 EXEC PLOTINIT 3230 EXEC LINKRV(-2,1.5,40,10,270,200,0,1,XTEKST$,YTEKST$) 3270 EXEC PLOTINIT 3280 FOR TT=-1 TO 2 STEP 1 3290 EXEC LINKRV(-2,1.5,20,20,300,75,(TT+2),(TT+2),XTEKST$,YTEKST$) 3300 NEXT TT 3310 NAVN$="DEMO-3 SLUT" 3320 EXEC PLOTINIT 3330 EXEC TEKST(0,1,NAVN$) 3340 EXEC PLOTSLUT 3350 STOP
0x000…035 Line {l1=0x33, l2=»3000 DIM NAVN$(30),TYPE$(4),XTEKST$(10),YTEKST$(10)«, l3=0x33}
0x035…056 Line {l1=0x1f, l2=»3010 NAVN$="DDE PLOTTER DEMO-3"«, l3=0x1f}
0x056…066 Line {l1=0x0e, l2=»3020 OUTPUT P1«, l3=0x0e}
0x066…07a Line {l1=0x12, l2=»3030 EXEC PLOTINIT«, l3=0x12}
0x07a…095 Line {l1=0x19, l2=»3040 EXEC FLYTABS(0,2400)«, l3=0x19}
0x095…0b1 Line {l1=0x1a, l2=»3050 EXEC TEKST(0,2,NAVN$)«, l3=0x1a}
0x0b1…0c7 Line {l1=0x14, l2=»3080 PROC FUNK(X,FX)«, l3=0x14}
0x0c7…0df Line {l1=0x16, l2=»3090 FX=X*X*X+X*X-X+TT«, l3=0x16}
0x0df…0f4 Line {l1=0x13, l2=»3100 ENDPROC ;FUNK.«, l3=0x13}
0x0f4…115 Line {l1=0x1f, l2=»3110 XTEKST$="X";YTEKST$="F(X)"«, l3=0x1f}
0x115…13e Line {l1=0x27, l2=»3120 NAVN$="F(x) = x**3 + x**2 - x + 1"«, l3=0x27}
0x13e…149 Line {l1=0x09, l2=»3130 TT=1«, l3=0x09}
0x149…17f Line {l1=0x34, l2=»3140 EXEC LINKRV(-2,1.5,0,0,0,0,0,1,XTEKST$,YTEKST$)«, l3=0x34}
0x17f…19a Line {l1=0x19, l2=»3150 EXEC FLYTREL(0,-100)«, l3=0x19}
0x19a…1b4 Line {l1=0x18, l2=»3160 EXEC TEGNREL(50,50)«, l3=0x18}
0x1b4…1ce Line {l1=0x18, l2=»3170 EXEC FLYTREL(15,15)«, l3=0x18}
0x1ce…1ea Line {l1=0x1a, l2=»3180 EXEC TEKST(0,2,NAVN$)«, l3=0x1a}
0x1ea…1f5 Line {l1=0x09, l2=»3210 TT=1«, l3=0x09}
0x1f5…209 Line {l1=0x12, l2=»3220 EXEC PLOTINIT«, l3=0x12}
0x209…245 Line {l1=0x3a, l2=»3230 EXEC LINKRV(-2,1.5,40,10,270,200,0,1,XTEKST$,YTEKST$)«, l3=0x3a}
0x245…259 Line {l1=0x12, l2=»3270 EXEC PLOTINIT«, l3=0x12}
0x259…275 Line {l1=0x1a, l2=»3280 FOR TT=-1 TO 2 STEP 1«, l3=0x1a}
0x275…2ba Line {l1=0x43, l2=»3290 EXEC LINKRV(-2,1.5,20,20,300,75,(TT+2),(TT+2),XTEKST$,YTEKST$)«, l3=0x43}
0x2ba…2c8 Line {l1=0x0c, l2=»3300 NEXT TT«, l3=0x0c}
0x2c8…2e2 Line {l1=0x18, l2=»3310 NAVN$="DEMO-3 SLUT"«, l3=0x18}
0x2e2…2f6 Line {l1=0x12, l2=»3320 EXEC PLOTINIT«, l3=0x12}
0x2f6…312 Line {l1=0x1a, l2=»3330 EXEC TEKST(0,1,NAVN$)«, l3=0x1a}
0x312…326 Line {l1=0x12, l2=»3340 EXEC PLOTSLUT«, l3=0x12}
0x326…332 Line {l1=0x0a, l2=»3350 STOP «, l3=0x0a}
0x332…340 00 00 12 33 33 32 30 20 45 58 45 43 20 50 ┆ 3320 EXEC P┆
0x340…360 4c 4f 54 49 4e 49 54 12 1a 33 33 33 30 20 45 58 45 43 20 54 45 4b 53 54 28 30 2c 31 2c 4e 41 56 ┆LOTINIT 3330 EXEC TEKST(0,1,NAV┆
0x360…380 4e 24 29 1a 12 33 33 34 30 20 45 58 45 43 20 50 4c 4f 54 53 4c 55 54 12 0a 33 33 35 30 20 53 54 ┆N$) 3340 EXEC PLOTSLUT 3350 ST┆
0x380…3a0 4f 50 20 0a 00 00 53 54 4f 50 20 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆OP 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…]