|
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: 1504 (0x5e0)
Types: TextFile
Notes: Mikados_K
Names: »AKTIER.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AKTIER.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »AKTIER.K«
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 "---------------------------------------------------------"
0x000…038 Line {l1=0x36, l2=»0010 // ------------------ aktiekurs -----------------«, l3=0x36}
0x038…080 Line {l1=0x46, l2=»0020 // Programmet udregner aktiens kursværdi på grundlag af pålydende«, l3=0x46}
0x080…097 Line {l1=0x15, l2=»0030 // værdi og kurs«, l3=0x15}
0x097…0a1 Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x0a1…0ae Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0ae…0c7 Line {l1=0x17, l2=»0060 DIM SELSKAB$ OF 20«, l3=0x17}
0x0c7…0d8 Line {l1=0x0f, l2=»0070 CURSOR 1,4«, l3=0x0f}
0x0d8…11a Line {l1=0x40, l2=»0080 PRINT "Aktieselskab:","Pålydende: Kurs: Kursværdi:"«, l3=0x40}
0x11a…162 Line {l1=0x46, l2=»0090 PRINT "---------------------------------------------------------"«, l3=0x46}
0x162…16f Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x16f…17e Line {l1=0x0d, l2=»0110 RESTORE «, l3=0x0d}
0x17e…18f Line {l1=0x0f, l2=»0120 READ ANTAL«, l3=0x0f}
0x18f…1ab Line {l1=0x1a, l2=»0130 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x1ab…1ce Line {l1=0x21, l2=»0140 READ SELSKAB$,PÅLYDENDE,KURS«, l3=0x21}
0x1ce…1f2 Line {l1=0x22, l2=»0150 KURSVÆRDI:=PÅLYDENDE*KURS/100«, l3=0x22}
0x1f2…210 Line {l1=0x1c, l2=»0160 PRINT SELSKAB$;TAB(20);«, l3=0x1c}
0x210…23b Line {l1=0x29, l2=»0170 PRINT USING "########.##":PÅLYDENDE,«, l3=0x29}
0x23b…261 Line {l1=0x24, l2=»0180 PRINT USING "########.# ":KURS,«, l3=0x24}
0x261…290 Line {l1=0x2d, l2=»0190 PRINT USING " ########.##":KURSVÆRDI«, l3=0x2d}
0x290…29d Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x29d…2aa Line {l1=0x0b, l2=»0210 NEXT I«, l3=0x0b}
0x2aa…2b4 Line {l1=0x08, l2=»0220 // «, l3=0x08}
0x2b4…2c1 Line {l1=0x0b, l2=»0230 DATA 4«, l3=0x0b}
0x2c1…2e0 Line {l1=0x1d, l2=»0240 DATA "A/S TORM",4000,315«, l3=0x1d}
0x2e0…2fc Line {l1=0x1a, l2=»0250 DATA "OK",50000.0,435«, l3=0x1a}
0x2fc…317 Line {l1=0x19, l2=»0260 DATA "DFDS",1000,375«, l3=0x19}
0x317…33b Line {l1=0x22, l2=»0270 DATA "DANSK/FRANSK",15700,750«, l3=0x22}
0x33b…383 Line {l1=0x46, l2=»0280 PRINT "---------------------------------------------------------"«, l3=0x46}
0x383…3a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccc┆
0x3a0…3c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x11…]