|
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: »PLOTE.K«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »PLOTE.K«
0100 DEF DAEMPETSV(X)=14*EXP(-X/P)*COS(X/2.5)+12 0110 DIM AKSE$(80) 0120 REPEAT 0130 FOR P=5 TO 25 STEP 5 0140 CLEAR 0150 FOR I=1 TO 71 STEP 10 0160 AKSE$(I:10)="----------" 0170 NEXT I 0180 CURSOR 1,12 0190 PRINT AKSE$(1:79) 0195 CURSOR 1,1 0200 FOR I=1 TO 23 0205 PRINT "I" 0210 NEXT I 0215 PRINT "<S>I" 0240 FOR X=1 TO 79 0250 LET Y=DAEMPETSV(X) 0260 CURSOR X,Y 0270 PRINT "<S>*"; 0280 NEXT X 0290 CURSOR 1,24 0300 FOR VENT=1 TO 10 0310 NEXT VENT 0320 NEXT P 0330 UNTIL 1=0 0340 STOP
0x000…032 Line {l1=0x30, l2=»0100 DEF DAEMPETSV(X)=14*EXP(-X/P)*COS(X/2.5)+12«, l3=0x30}
0x032…046 Line {l1=0x12, l2=»0110 DIM AKSE$(80)«, l3=0x12}
0x046…054 Line {l1=0x0c, l2=»0120 REPEAT «, l3=0x0c}
0x054…06f Line {l1=0x19, l2=»0130 FOR P=5 TO 25 STEP 5«, l3=0x19}
0x06f…07c Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x07c…098 Line {l1=0x1a, l2=»0150 FOR I=1 TO 71 STEP 10«, l3=0x1a}
0x098…0b7 Line {l1=0x1d, l2=»0160 AKSE$(I:10)="----------"«, l3=0x1d}
0x0b7…0c4 Line {l1=0x0b, l2=»0170 NEXT I«, l3=0x0b}
0x0c4…0d6 Line {l1=0x10, l2=»0180 CURSOR 1,12«, l3=0x10}
0x0d6…0ee Line {l1=0x16, l2=»0190 PRINT AKSE$(1:79)«, l3=0x16}
0x0ee…0ff Line {l1=0x0f, l2=»0195 CURSOR 1,1«, l3=0x0f}
0x0ff…113 Line {l1=0x12, l2=»0200 FOR I=1 TO 23«, l3=0x12}
0x113…123 Line {l1=0x0e, l2=»0205 PRINT "I"«, l3=0x0e}
0x123…130 Line {l1=0x0b, l2=»0210 NEXT I«, l3=0x0b}
0x130…143 Line {l1=0x11, l2=»0215 PRINT "<S>I"«, l3=0x11}
0x143…157 Line {l1=0x12, l2=»0240 FOR X=1 TO 79«, l3=0x12}
0x157…170 Line {l1=0x17, l2=»0250 LET Y=DAEMPETSV(X)«, l3=0x17}
0x170…181 Line {l1=0x0f, l2=»0260 CURSOR X,Y«, l3=0x0f}
0x181…195 Line {l1=0x12, l2=»0270 PRINT "<S>*";«, l3=0x12}
0x195…1a2 Line {l1=0x0b, l2=»0280 NEXT X«, l3=0x0b}
0x1a2…1b4 Line {l1=0x10, l2=»0290 CURSOR 1,24«, l3=0x10}
0x1b4…1cb Line {l1=0x15, l2=»0300 FOR VENT=1 TO 10«, l3=0x15}
0x1cb…1db Line {l1=0x0e, l2=»0310 NEXT VENT«, l3=0x0e}
0x1db…1e8 Line {l1=0x0b, l2=»0320 NEXT P«, l3=0x0b}
0x1e8…1f8 Line {l1=0x0e, l2=»0330 UNTIL 1=0«, l3=0x0e}
0x1f8…204 Line {l1=0x0a, l2=»0340 STOP «, l3=0x0a}
0x204…220 00 00 00 00 58 2f 32 2e 35 29 2b 31 32 30 12 30 31 31 30 20 44 49 4d 20 41 4b 53 45 ┆ X/2.5)+120 0110 DIM AKSE┆
0x220…240 24 28 38 30 29 12 0c 30 31 32 30 20 52 45 50 45 41 54 20 0c 19 30 31 33 30 20 46 4f 52 20 50 3d ┆$(80) 0120 REPEAT 0130 FOR P=┆
0x240…260 35 20 54 4f 20 32 35 20 53 54 45 50 20 35 19 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 1a 30 31 35 ┆5 TO 25 STEP 5 0140 CLEAR 015┆
0x260…280 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 37 31 20 53 54 45 50 20 31 30 1a 1d 30 31 36 30 20 41 4b ┆0 FOR I=1 TO 71 STEP 10 0160 AK┆
0x280…2a0 53 45 24 28 49 3a 31 30 29 3d 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 1d 0b 30 31 37 30 20 4e 45 58 ┆SE$(I:10)="----------" 0170 NEX┆
0x2a0…2c0 54 20 49 0b 10 30 31 38 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 16 30 31 39 30 20 50 52 49 4e ┆T I 0180 CURSOR 1,12 0190 PRIN┆
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…]