|
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 - metrics - download
Length: 1504 (0x5e0)
Notes: Mikados TextFile, Mikados_K
Names: »AKTIER«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AKTIER«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AKTIER«
0010 // ------------------ aktiekurs ----------------- 0020 // Programmet udregner aktiens kursværdi på grundlag af pålydende 0030 // værdi og kurs 0040 // 0050 CLEAR 0060 DIM SELSKAB$ OF 20 0070 CURSOR 1,4 0080 PRINT "Aktieselskab:","Pålydende: Kurs: Kursværdi:" 0090 PRINT "---------------------------------------------------------" 0100 PRINT 0110 RESTORE 0120 READ ANTAL 0130 FOR I:=1 TO ANTAL DO 0140 READ SELSKAB$,PÅLYDENDE,KURS 0150 KURSVÆRDI:=PÅLYDENDE*KURS/100 0160 PRINT SELSKAB$;TAB(20); 0170 PRINT USING "########.##":PÅLYDENDE, 0180 PRINT USING "########.# ":KURS, 0190 PRINT USING " ########.##":KURSVÆRDI 0200 PRINT 0210 NEXT I 0220 // 0230 DATA 4 0240 DATA "A/S TORM",4000,315 0250 DATA "OK",50000.0,435 0260 DATA "DFDS",1000,375 0270 DATA "DANSK/FRANSK",15700,750 0280 PRINT "---------------------------------------------------------"