|
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: 1760 (0x6e0)
Types: TextFile
Notes: Mikados_K
Names: »EXAMEN.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »EXAMEN.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »EXAMEN.K«
0010 // -------------------------- examen -------------------------------- 0020 // Programmet udskriver navn, nummer,10 eksamenskarakterer 0030 // samt gennemsnit. 0040 // Data indlæses ved data-sætninger. 0045 INTEGER K1,K2,K3,K4,K5,K6,K7,K8,K9,K10 0050 DIM NAVN$ OF 25,NR$ OF 10,SV$ OF 1 0060 // 0070 FOR I:=1 TO 2 DO 0080 READ NAVN$,NR$,K1,K2,K3,K4,K5,K6,K7,K8,K9,K10 0090 CLEAR 0100 CURSOR 10,2 0110 PRINT "U D S K R I F T a f E K S A M E N S P R O T O K O L L E N ." 0120 CURSOR 10,3 0130 PRINT "----------------------------------------------------------------" 0140 CURSOR 10,7 0150 PRINT "Navn: ";NAVN$ 0160 CURSOR 10,8 0170 PRINT "Nummer: ";NR$ 0180 CURSOR 10,10 0190 PRINT "Dansk, skr: ";K1 0200 CURSOR 10,11 0210 PRINT "Dansk, skr: ";K2 0220 CURSOR 10,12 0230 PRINT "Engelsk, skr: ";K3 0240 CURSOR 10,13 0250 PRINT "Engelsk, mdt: ";K4 0260 CURSOR 10,14 0270 PRINT "Tysk, skr: ";K5 0280 CURSOR 10,15 0290 PRINT "Historie: ";K6 0300 CURSOR 10,16 0310 PRINT "Matematik, skr: ";K7 0320 CURSOR 10,17 0330 PRINT "Matematik, mdt: ";K8 0340 CURSOR 10,18 0350 PRINT "Fysik: ";K9 0360 CURSOR 10,19 0370 PRINT "Orden: ";K10 0380 PRINT 0390 GENNEMSNIT:=(K1+K2+K3+K4+K5+K6+K7+K8+K9+K10)/10 0400 CURSOR 10,21 0410 PRINT USING "Gennemsnit: ###.#":GENNEMSNIT 0430 CURSOR 70,23 0440 INPUT "Return!":SV$ 0470 NEXT I 0480 // 0490 DATA "Hans Hansen","2208651203",8,9,5,6,8,9,6,7,11,6 0500 DATA "Jens Jensen","1205661109",7,6,9,8,10,9,8,9,11,11
0x000…04c Line {l1=0x4a, l2=»0010 // -------------------------- examen --------------------------------«, l3=0x4a}
0x04c…08d Line {l1=0x3f, l2=»0020 // Programmet udskriver navn, nummer,10 eksamenskarakterer«, l3=0x3f}
0x08d…0a7 Line {l1=0x18, l2=»0030 // samt gennemsnit.«, l3=0x18}
0x0a7…0d2 Line {l1=0x29, l2=»0040 // Data indlæses ved data-sætninger.«, l3=0x29}
0x0d2…0ff Line {l1=0x2b, l2=»0045 INTEGER K1,K2,K3,K4,K5,K6,K7,K8,K9,K10«, l3=0x2b}
0x0ff…128 Line {l1=0x27, l2=»0050 DIM NAVN$ OF 25,NR$ OF 10,SV$ OF 1«, l3=0x27}
0x128…132 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x132…14a Line {l1=0x16, l2=»0070 FOR I:=1 TO 2 DO «, l3=0x16}
0x14a…17e Line {l1=0x32, l2=»0080 READ NAVN$,NR$,K1,K2,K3,K4,K5,K6,K7,K8,K9,K10«, l3=0x32}
0x17e…18b Line {l1=0x0b, l2=»0090 CLEAR «, l3=0x0b}
0x18b…19d Line {l1=0x10, l2=»0100 CURSOR 10,2«, l3=0x10}
0x19d…1ec Line {l1=0x4d, l2=»0110 PRINT "U D S K R I F T a f E K S A M E N S P R O T O K O L L E N ."«, l3=0x4d}
0x1ec…1fe Line {l1=0x10, l2=»0120 CURSOR 10,3«, l3=0x10}
0x1fe…24d Line {l1=0x4d, l2=»0130 PRINT "----------------------------------------------------------------"«, l3=0x4d}
0x24d…25f Line {l1=0x10, l2=»0140 CURSOR 10,7«, l3=0x10}
0x25f…28b Line {l1=0x2a, l2=»0150 PRINT "Navn: ";NAVN$«, l3=0x2a}
0x28b…29d Line {l1=0x10, l2=»0160 CURSOR 10,8«, l3=0x10}
0x29d…2c7 Line {l1=0x28, l2=»0170 PRINT "Nummer: ";NR$«, l3=0x28}
0x2c7…2da Line {l1=0x11, l2=»0180 CURSOR 10,10«, l3=0x11}
0x2da…303 Line {l1=0x27, l2=»0190 PRINT "Dansk, skr: ";K1«, l3=0x27}
0x303…316 Line {l1=0x11, l2=»0200 CURSOR 10,11«, l3=0x11}
0x316…33f Line {l1=0x27, l2=»0210 PRINT "Dansk, skr: ";K2«, l3=0x27}
0x33f…352 Line {l1=0x11, l2=»0220 CURSOR 10,12«, l3=0x11}
0x352…37b Line {l1=0x27, l2=»0230 PRINT "Engelsk, skr: ";K3«, l3=0x27}
0x37b…38e Line {l1=0x11, l2=»0240 CURSOR 10,13«, l3=0x11}
0x38e…3b7 Line {l1=0x27, l2=»0250 PRINT "Engelsk, mdt: ";K4«, l3=0x27}
0x3b7…3ca Line {l1=0x11, l2=»0260 CURSOR 10,14«, l3=0x11}
0x3ca…3f3 Line {l1=0x27, l2=»0270 PRINT "Tysk, skr: ";K5«, l3=0x27}
0x3f3…406 Line {l1=0x11, l2=»0280 CURSOR 10,15«, l3=0x11}
0x406…42f Line {l1=0x27, l2=»0290 PRINT "Historie: ";K6«, l3=0x27}
0x42f…442 Line {l1=0x11, l2=»0300 CURSOR 10,16«, l3=0x11}
0x442…46b Line {l1=0x27, l2=»0310 PRINT "Matematik, skr: ";K7«, l3=0x27}
0x46b…47e Line {l1=0x11, l2=»0320 CURSOR 10,17«, l3=0x11}
0x47e…4a7 Line {l1=0x27, l2=»0330 PRINT "Matematik, mdt: ";K8«, l3=0x27}
0x4a7…4ba Line {l1=0x11, l2=»0340 CURSOR 10,18«, l3=0x11}
0x4ba…4e3 Line {l1=0x27, l2=»0350 PRINT "Fysik: ";K9«, l3=0x27}
0x4e3…4f6 Line {l1=0x11, l2=»0360 CURSOR 10,19«, l3=0x11}
0x4f6…520 Line {l1=0x28, l2=»0370 PRINT "Orden: ";K10«, l3=0x28}
0x520…52d Line {l1=0x0b, l2=»0380 PRINT «, l3=0x0b}
0x52d…563 Line {l1=0x34, l2=»0390 GENNEMSNIT:=(K1+K2+K3+K4+K5+K6+K7+K8+K9+K10)/10«, l3=0x34}
0x563…576 Line {l1=0x11, l2=»0400 CURSOR 10,21«, l3=0x11}
0x576…5af Line {l1=0x37, l2=»0410 PRINT USING "Gennemsnit: ###.#":GENNEMSNIT«, l3=0x37}
0x5af…5c2 Line {l1=0x11, l2=»0430 CURSOR 70,23«, l3=0x11}
0x5c2…5dc Line {l1=0x18, l2=»0440 INPUT "Return!":SV$«, l3=0x18}
0x5dc…5e9 Line {l1=0x0b, l2=»0470 NEXT I«, l3=0x0b}
0x5e9…5f3 Line {l1=0x08, l2=»0480 // «, l3=0x08}
0x5f3…62e Line {l1=0x39, l2=»0490 DATA "Hans Hansen","2208651203",8,9,5,6,8,9,6,7,11,6«, l3=0x39}
0x62e…66b Line {l1=0x3b, l2=»0500 DATA "Jens Jensen","1205661109",7,6,9,8,10,9,8,9,11,11«, l3=0x3b}
0x66b…680 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccc┆
0x680…6a0 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┆
[…0x2…]