|
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)
Notes: Mikados TextFile, Mikados_K
Names: »PLOTE«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─ ⟦this⟧ »PLOTE«
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