|
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: 7584 (0x1da0)
Notes: Mikados_K
Names: »RUMFANG3«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG3«
0x0000…0020 (0,) 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x0020…0040 2d 20 72 75 6d 66 61 6e 67 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- rumfang3 ---------------------┆
0x0040…0060 2d 2d 2d 2d 2d 2d 45 44 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c ┆------ED0020 // Udregner forskel┆
0x0060…0080 6c 69 67 65 20 72 75 6d 66 61 6e 67 20 76 2f 49 46 2d 73 7b 74 6e 69 6e 67 65 72 20 73 61 6d 74 ┆lige rumfang v/IF-sætninger samt┆
0x0080…00a0 20 70 72 6f 63 65 64 75 72 65 72 2e 44 11 30 30 33 30 20 44 49 4d 20 53 56 24 20 4f 46 20 33 11 ┆ procedurer.D 0030 DIM SV$ OF 3 ┆
0x00a0…00c0 0c 30 30 34 30 20 52 45 50 45 41 54 20 0c 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 36 30 ┆ 0040 REPEAT 0050 CLEAR 0060┆
0x00c0…00e0 20 43 55 52 53 4f 52 20 31 30 2c 33 10 32 30 30 37 30 20 50 52 49 4e 54 20 22 44 65 74 74 65 20 ┆ CURSOR 10,3 20070 PRINT "Dette ┆
0x00e0…0100 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 61 6e 67 65 74 20 61 66 3a 22 ┆program udskriver rumfanget af:"┆
0x0100…0120 32 10 30 30 38 30 20 43 55 52 53 4f 52 20 31 30 2c 34 10 32 30 30 39 30 20 50 52 49 4e 54 20 22 ┆2 0080 CURSOR 10,4 20090 PRINT "┆
0x0120…0140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0140…0160 2d 2d 2d 2d 2d 22 32 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 10 30 31 31 30 20 43 55 52 53 4f 52 ┆-----"2 0100 PRINT 0110 CURSOR┆
0x0160…0180 20 31 30 2c 36 10 3d 30 31 32 30 20 50 52 49 4e 54 20 22 4b 61 73 73 65 2e 2e 2e 2e 2e 2e 2e 2e ┆ 10,6 =0120 PRINT "Kasse........┆
0x0180…01a0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 ┆.............................Tas┆
0x01a0…01c0 74 20 31 22 3d 10 30 31 33 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 3d 30 31 34 30 20 50 52 49 ┆t 1"= 0130 CURSOR 10,8 =0140 PRI┆
0x01c0…01e0 4e 54 20 22 50 79 72 61 6d 69 64 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆NT "Pyramide....................┆
0x01e0…0200 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3d 11 30 31 35 30 20 43 55 52 53 ┆..............Tast 2"= 0150 CURS┆
0x0200…0220 4f 52 20 31 30 2c 31 30 11 3d 30 31 36 30 20 50 52 49 4e 54 20 22 50 79 72 61 6d 69 64 65 73 74 ┆OR 10,10 =0160 PRINT "Pyramidest┆
0x0220…0240 75 62 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ub..............................┆
0x0240…0260 54 61 73 74 20 33 22 3d 11 30 31 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 3d 30 31 38 30 ┆Tast 3"= 0170 CURSOR 10,12 =0180┆
0x0260…0280 20 50 52 49 4e 54 20 22 43 79 6c 69 6e 64 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ PRINT "Cylinder................┆
0x0280…02a0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 34 22 3d 11 30 31 39 30 20 ┆..................Tast 4"= 0190 ┆
0x02a0…02c0 43 55 52 53 4f 52 20 31 30 2c 31 34 11 3d 30 32 30 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 2e ┆CURSOR 10,14 =0200 PRINT "Kegle.┆
0x02c0…02e0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆................................┆
0x02e0…0300 2e 2e 2e 2e 54 61 73 74 20 35 22 3d 11 30 32 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 3d ┆....Tast 5"= 0210 CURSOR 10,16 =┆
0x0300…0320 30 32 32 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 73 74 75 62 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆0220 PRINT "Keglestub...........┆
0x0320…0340 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 36 22 3d 11 30 ┆......................Tast 6"= 0┆
0x0340…0360 32 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 38 11 3d 30 32 34 30 20 50 52 49 4e 54 20 22 4b 75 ┆230 CURSOR 10,18 =0240 PRINT "Ku┆
0x0360…0380 67 6c 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆gle.............................┆
0x0380…03a0 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 37 22 3d 11 30 32 35 30 20 43 55 52 53 4f 52 20 31 30 2c ┆........Tast 7"= 0250 CURSOR 10,┆
0x03a0…03c0 32 30 11 3d 30 32 36 30 20 50 52 49 4e 54 20 22 53 74 6f 70 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆20 =0260 PRINT "Stop............┆
0x03c0…03e0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 38 ┆..........................Tast 8┆
0x03e0…0400 22 3d 11 30 32 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 0b 30 32 38 30 20 50 52 49 4e 54 ┆"= 0270 CURSOR 10,16 0280 PRINT┆
0x0400…0420 20 0b 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 11 30 33 30 30 20 43 55 52 53 4f 52 20 31 30 2c 32 ┆ 0290 PRINT 0300 CURSOR 10,2┆
0x0420…0440 32 11 35 30 33 31 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c 6e 73 6b 65 ┆2 50310 PRINT "Indtast det ønske┆
0x0440…0460 64 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 72 75 6d 66 61 6e 67 3a 22 3b 35 10 30 33 32 30 20 49 ┆de nummer for rumfang:";5 0320 I┆
0x0460…0480 4e 50 55 54 20 5c 4e 53 4b 45 10 47 30 33 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NPUT ØNSKE G0330 // ------------┆
0x0480…04a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x04a0…04c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 33 34 30 20 50 52 49 4e 54 20 ┆-------------------G 0340 PRINT ┆
0x04c0…04e0 0b 1f 30 33 35 30 20 49 46 20 5c 4e 53 4b 45 3d 31 20 54 48 45 4e 20 45 58 45 43 20 4b 41 53 53 ┆ 0350 IF ØNSKE=1 THEN EXEC KASS┆
0x04e0…0500 45 1f 22 30 33 36 30 20 49 46 20 5c 4e 53 4b 45 3d 32 20 54 48 45 4e 20 45 58 45 43 20 50 59 52 ┆E "0360 IF ØNSKE=2 THEN EXEC PYR┆
0x0500…0520 41 4d 49 44 45 22 26 30 33 37 30 20 49 46 20 5c 4e 53 4b 45 3d 33 20 54 48 45 4e 20 45 58 45 43 ┆AMIDE"&0370 IF ØNSKE=3 THEN EXEC┆
0x0520…0540 20 50 59 52 41 4d 49 44 45 53 54 55 42 26 22 30 33 38 30 20 49 46 20 5c 4e 53 4b 45 3d 34 20 54 ┆ PYRAMIDESTUB&"0380 IF ØNSKE=4 T┆
0x0540…0560 48 45 4e 20 45 58 45 43 20 43 59 4c 49 4e 44 45 52 22 1f 30 33 39 30 20 49 46 20 5c 4e 53 4b 45 ┆HEN EXEC CYLINDER" 0390 IF ØNSKE┆
0x0560…0580 3d 35 20 54 48 45 4e 20 45 58 45 43 20 4b 45 47 4c 45 1f 23 30 34 30 30 20 49 46 20 5c 4e 53 4b ┆=5 THEN EXEC KEGLE #0400 IF ØNSK┆
0x0580…05a0 45 3d 36 20 54 48 45 4e 20 45 58 45 43 20 4b 45 47 4c 45 53 54 55 42 23 1f 30 34 31 30 20 49 46 ┆E=6 THEN EXEC KEGLESTUB# 0410 IF┆
0x05a0…05c0 20 5c 4e 53 4b 45 3d 37 20 54 48 45 4e 20 45 58 45 43 20 4b 55 47 4c 45 1f 11 30 34 32 30 20 43 ┆ ØNSKE=7 THEN EXEC KUGLE 0420 C┆
0x05c0…05e0 55 52 53 4f 52 20 36 38 2c 32 32 11 15 30 34 33 30 20 50 52 49 4e 54 20 22 52 65 74 75 72 6e 21 ┆URSOR 68,22 0430 PRINT "Return!┆
0x05e0…0600 22 3b 15 1e 30 34 34 30 20 49 46 20 5c 4e 53 4b 45 3d 38 20 54 48 45 4e 20 45 58 45 43 20 53 4c ┆"; 0440 IF ØNSKE=8 THEN EXEC SL┆
0x0600…0620 55 54 1e 0e 30 34 35 30 20 49 4e 50 55 54 20 53 56 24 0e 12 30 34 36 30 20 55 4e 54 49 4c 20 5c ┆UT 0450 INPUT SV$ 0460 UNTIL Ø┆
0x0620…0640 4e 53 4b 45 3d 38 12 4c 30 34 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NSKE=8 L0470 // ----------------┆
0x0640…0660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0660…0680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 0f 30 34 38 30 20 50 52 4f 43 20 ┆--------------------L 0480 PROC ┆
0x0680…06a0 4b 41 53 53 45 0f 0b 30 34 39 30 20 43 4c 45 41 52 20 0b 0f 30 35 30 30 20 43 55 52 53 4f 52 20 ┆KASSE 0490 CLEAR 0500 CURSOR ┆
0x06a0…06c0 31 2c 36 0f 33 30 35 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1,6 30510 PRINT " ┆
0x06c0…06e0 20 20 20 20 20 20 20 20 20 20 20 4b 20 41 20 53 20 53 20 45 20 2e 20 22 33 4d 30 35 32 30 20 50 ┆ K A S S E . "3M0520 P┆
0x06e0…0700 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆RINT "__________________________┆
0x0700…0720 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x0720…0740 5f 5f 5f 5f 5f 5f 22 4d 10 30 35 33 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3f 30 35 34 30 20 ┆______"M 0530 CURSOR 1,10 ?0540 ┆
0x0740…0760 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 ┆INPUT "Indtast længde: ┆
0x0760…0780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 3f 0b 30 35 35 30 ┆ ":LÆNGDE? 0550┆
0x0780…07a0 20 50 52 49 4e 54 20 0b 3f 30 35 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 ┆ PRINT ?0560 INPUT "Indtast bre┆
0x07a0…07c0 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆dde: ┆
0x07c0…07e0 22 3a 42 52 45 44 44 45 3f 0b 30 35 37 30 20 50 52 49 4e 54 20 0b 3e 30 35 38 30 20 49 4e 50 55 ┆":BREDDE? 0570 PRINT >0580 INPU┆
0x07e0…0800 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Indtast højde: ┆
0x0800…0820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3e 0b 30 35 39 30 20 50 52 49 4e ┆ ":HØJDE> 0590 PRIN┆
0x0820…0840 54 20 0b 0b 30 36 30 30 20 50 52 49 4e 54 20 0b 21 30 36 31 30 20 52 55 4d 46 41 4e 47 3a 3d 4c ┆T 0600 PRINT !0610 RUMFANG:=L┆
0x0840…0860 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 5c 4a 44 45 21 40 30 36 32 30 20 50 52 49 4e 54 20 22 ┆ÆNGDE*BREDDE*HØJDE!@0620 PRINT "┆
0x0860…0880 52 75 6d 66 61 6e 67 65 74 20 61 66 20 6b 61 73 73 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆Rumfanget af kassen: ┆
0x0880…08a0 20 20 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 40 12 30 36 33 30 20 45 4e 44 50 52 ┆ ";RUMFANG@ 0630 ENDPR┆
0x08a0…08c0 4f 43 20 4b 41 53 53 45 12 4a 30 36 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC KASSE J0640 // --------------┆
0x08c0…08e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08e0…0900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 30 36 35 30 20 50 52 4f 43 20 ┆--------------------J 0650 PROC ┆
0x0900…0920 50 59 52 41 4d 49 44 45 12 0b 30 36 36 30 20 43 4c 45 41 52 20 0b 0f 30 36 37 30 20 43 55 52 53 ┆PYRAMIDE 0660 CLEAR 0670 CURS┆
0x0920…0940 4f 52 20 31 2c 35 0f 39 30 36 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆OR 1,5 90680 PRINT " ┆
0x0940…0960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 20 41 20 4d 20 49 20 44 20 45 20 2e ┆ P Y R A M I D E .┆
0x0960…0980 22 39 4d 30 36 39 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆"9M0690 PRINT "_________________┆
0x0980…09a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x09a0…09c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c ┆_______________"M 0700 CURSOR 1,┆
0x09c0…09e0 31 30 10 45 30 37 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 ┆10 E0710 INPUT "Indtast længde: ┆
0x09e0…0a00 (1,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a00…0a20 20 22 3a 4c 5b 4e 47 44 45 45 0b 30 37 32 30 20 50 52 49 4e 54 20 0b 45 30 37 33 30 20 49 4e 50 ┆ ":LÆNGDEE 0720 PRINT E0730 INP┆
0x0a20…0a40 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UT "Indtast bredde: ┆
0x0a40…0a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 45 0b 30 ┆ ":BREDDEE 0┆
0x0a60…0a80 37 34 30 20 50 52 49 4e 54 20 0b 44 30 37 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆740 PRINT D0750 INPUT "Indtast ┆
0x0a80…0aa0 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆højde: ┆
0x0aa0…0ac0 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 44 32 30 37 36 30 20 52 55 4d 46 41 4e 47 3a 3d ┆ ":HØJDED20760 RUMFANG:=┆
0x0ac0…0ae0 49 4e 54 28 31 2f 33 2a 48 5c 4a 44 45 2a 42 52 45 44 44 45 2a 4c 5b 4e 47 44 45 2a 31 30 30 29 ┆INT(1/3*HØJDE*BREDDE*LÆNGDE*100)┆
0x0ae0…0b00 2f 31 30 30 32 0b 30 37 37 30 20 50 52 49 4e 54 20 0b 46 30 37 38 30 20 50 52 49 4e 54 20 22 52 ┆/1002 0770 PRINT F0780 PRINT "R┆
0x0b00…0b20 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 20 6d 65 64 20 64 65 20 7c ┆umfanget af en pyramide med de ø┆
0x0b20…0b40 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 46 15 30 37 39 30 20 ┆nskede mål: ";RUMFANGF 0790 ┆
0x0b40…0b60 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 15 4a 30 38 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆ENDPROC PYRAMIDE J0800 // ------┆
0x0b60…0b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0b80…0ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 16 30 38 ┆----------------------------J 08┆
0x0ba0…0bc0 31 30 20 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 16 0b 30 38 32 30 20 43 4c 45 41 52 ┆10 PROC PYRAMIDESTUB 0820 CLEAR┆
0x0bc0…0be0 20 0b 0f 30 38 33 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 41 30 38 34 30 20 50 52 49 4e 54 20 22 ┆ 0830 CURSOR 1,5 A0840 PRINT "┆
0x0be0…0c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 20 41 20 4d ┆ P Y R A M┆
0x0c00…0c20 20 49 20 44 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 22 41 4d 30 38 35 30 20 50 52 49 4e ┆ I D E S T U B . "AM0850 PRIN┆
0x0c20…0c40 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆T "_____________________________┆
0x0c40…0c60 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x0c60…0c80 5f 5f 5f 22 4d 10 30 38 36 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3b 30 38 37 30 20 49 4e 50 ┆___"M 0860 CURSOR 1,10 ;0870 INP┆
0x0c80…0ca0 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 20 62 75 6e 64 66 6c 61 64 65 6e ┆UT "Indtast længden i bundfladen┆
0x0ca0…0cc0 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 31 3b 0b 30 38 38 30 20 50 52 49 4e 54 20 ┆: ":L1; 0880 PRINT ┆
0x0cc0…0ce0 0b 3b 30 38 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 ┆ ;0890 INPUT "Indtast bredden i ┆
0x0ce0…0d00 62 75 6e 64 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 31 3b 0b 30 ┆bundfladen: ":B1; 0┆
0x0d00…0d20 39 30 30 20 50 52 49 4e 54 20 0b 3b 30 39 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆900 PRINT ;0910 INPUT "Indtast ┆
0x0d20…0d40 6c 7b 6e 67 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 66 6c 61 64 65 3a 20 20 20 20 ┆længden i den øverste flade: ┆
0x0d40…0d60 20 20 20 22 3a 4c 32 3b 0b 30 39 32 30 20 50 52 49 4e 54 20 0b 3b 30 39 33 30 20 49 4e 50 55 54 ┆ ":L2; 0920 PRINT ;0930 INPUT┆
0x0d60…0d80 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 ┆ "Indtast bredden i den øverste ┆
0x0d80…0da0 66 6c 61 64 65 3a 20 20 20 20 20 20 20 22 3a 42 32 3b 0b 30 39 34 30 20 50 52 49 4e 54 20 0b 3e ┆flade: ":B2; 0940 PRINT >┆
0x0da0…0dc0 30 39 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 79 72 61 6d 69 64 65 73 74 75 62 ┆0950 INPUT "Indtast pyramidestub┆
0x0dc0…0de0 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3e 36 ┆bens højde: ":HØJDE>6┆
0x0de0…0e00 30 39 36 30 20 52 55 4d 46 41 4e 47 3a 3d 28 48 5c 4a 44 45 2f 33 29 2a 28 4c 31 2a 42 31 2b 4c ┆0960 RUMFANG:=(HØJDE/3)*(L1*B1+L┆
0x0e00…0e20 32 2a 42 32 2b 53 51 52 28 4c 31 2a 42 31 2a 4c 32 2a 42 32 29 29 36 0b 30 39 37 30 20 50 52 49 ┆2*B2+SQR(L1*B1*L2*B2))6 0970 PRI┆
0x0e20…0e40 4e 54 20 0b 0b 30 39 38 30 20 50 52 49 4e 54 20 0b 4d 30 39 39 30 20 50 52 49 4e 54 20 22 52 75 ┆NT 0980 PRINT M0990 PRINT "Ru┆
0x0e40…0e60 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 73 74 75 62 20 6d 65 64 20 64 ┆mfanget af en pyramidestub med d┆
0x0e60…0e80 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 4d ┆e ønskede mål: ";RUMFANM┆
0x0e80…0ea0 19 31 30 30 30 20 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 19 4a 31 30 31 30 ┆ 1000 ENDPROC PYRAMIDESTUB J1010┆
0x0ea0…0ec0 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // ----------------------------┆
0x0ec0…0ee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0ee0…0f00 2d 2d 2d 2d 2d 2d 4a 12 31 30 32 30 20 50 52 4f 43 20 43 59 4c 49 4e 44 45 52 12 0b 31 30 33 30 ┆------J 1020 PROC CYLINDER 1030┆
0x0f00…0f20 20 43 4c 45 41 52 20 0b 0f 31 30 34 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 36 31 30 35 30 20 50 ┆ CLEAR 1040 CURSOR 1,5 61050 P┆
0x0f20…0f40 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 20 59 20 ┆RINT " C Y ┆
0x0f40…0f60 4c 20 49 20 4e 20 44 20 45 20 52 20 2e 20 20 22 36 4d 31 30 36 30 20 50 52 49 4e 54 20 22 5f 5f ┆L I N D E R . "6M1060 PRINT "__┆
0x0f60…0f80 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x0f80…0fa0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d ┆______________________________"M┆
0x0fa0…0fc0 10 31 30 37 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e 31 30 38 30 20 49 4e 50 55 54 20 22 49 ┆ 1070 CURSOR 1,10 >1080 INPUT "I┆
0x0fc0…0fe0 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 ┆ndtast cylinderens radius: ┆
0x0fe0…1000 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b 31 30 39 30 20 50 52 49 4e 54 20 0b 3d ┆ ":RADIUS> 1090 PRINT =┆
0x1000…1020 31 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 ┆1100 INPUT "Indtast cylinderens ┆
0x1020…1040 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3d 32 31 ┆højde: ":HØJDE=21┆
0x1040…1060 31 31 30 20 52 55 4d 46 41 4e 47 3a 3d 49 4e 54 28 33 2e 31 34 31 35 39 2a 48 5c 4a 44 45 2a 52 ┆110 RUMFANG:=INT(3.14159*HØJDE*R┆
0x1060…1080 41 44 49 55 53 2a 2a 32 2a 31 30 30 29 2f 31 30 30 32 0b 31 31 32 30 20 50 52 49 4e 54 20 0b 0b ┆ADIUS**2*100)/1002 1120 PRINT ┆
0x1080…10a0 31 31 33 30 20 50 52 49 4e 54 20 0b 43 31 31 34 30 20 50 52 49 4e 54 20 22 43 79 6c 69 6e 64 65 ┆1130 PRINT C1140 PRINT "Cylinde┆
0x10a0…10c0 72 65 6e 73 20 72 75 6d 66 61 6e 67 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a ┆rens rumfang med de ønskede mål:┆
0x10c0…10e0 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 43 15 31 31 35 30 20 45 4e 44 50 52 4f 43 20 43 ┆ ";RUMFANGC 1150 ENDPROC C┆
0x10e0…1100 59 4c 49 4e 44 45 52 15 4a 31 31 36 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆YLINDER J1160 // ---------------┆
0x1100…1120 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1120…1140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 31 31 37 30 20 50 52 4f 43 20 4b ┆-------------------J 1170 PROC K┆
0x1140…1160 45 47 4c 45 0f 0b 31 31 38 30 20 43 4c 45 41 52 20 0b 0f 31 31 39 30 20 43 55 52 53 4f 52 20 31 ┆EGLE 1180 CLEAR 1190 CURSOR 1┆
0x1160…1180 2c 35 0f 35 31 32 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆,5 51200 PRINT " ┆
0x1180…11a0 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 45 20 47 20 4c 20 45 20 2e 20 22 35 4d 31 32 31 30 20 ┆ K E G L E . "5M1210 ┆
0x11a0…11c0 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆PRINT "_________________________┆
0x11c0…11e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x11e0…1200 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 32 32 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e 31 32 33 30 ┆_______"M 1220 CURSOR 1,10 >1230┆
0x1200…1220 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 ┆ INPUT "Indtast keglens radius: ┆
0x1220…1240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b 31 32 34 30 ┆ ":RADIUS> 1240┆
0x1240…1260 20 50 52 49 4e 54 20 0b 3d 31 32 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 ┆ PRINT =1250 INPUT "Indtast keg┆
0x1260…1280 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆lens højde: "┆
0x1280…12a0 3a 48 5c 4a 44 45 3d 21 31 32 36 30 20 52 55 4d 46 41 4e 47 3a 3d 31 2f 33 2a 48 5c 4a 44 45 2a ┆:HØJDE=!1260 RUMFANG:=1/3*HØJDE*┆
0x12a0…12c0 52 41 44 49 55 53 2a 2a 32 21 0b 31 32 37 30 20 50 52 49 4e 54 20 0b 0b 31 32 38 30 20 50 52 49 ┆RADIUS**2! 1270 PRINT 1280 PRI┆
0x12c0…12e0 4e 54 20 0b 3f 31 32 39 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 6e 73 20 72 75 6d 66 61 6e 67 ┆NT ?1290 PRINT "Keglens rumfang┆
0x12e0…1300 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 22 3b 52 55 4d ┆ med de ønskede mål: ";RUM┆
0x1300…1320 46 41 4e 47 3f 12 31 33 30 30 20 45 4e 44 50 52 4f 43 20 4b 45 47 4c 45 12 4a 31 33 31 30 20 2f ┆FANG? 1300 ENDPROC KEGLE J1310 /┆
0x1320…1340 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆
0x1340…1360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1360…1380 2d 2d 2d 2d 4a 13 31 33 32 30 20 50 52 4f 43 20 4b 45 47 4c 45 53 54 55 42 13 0b 31 33 33 30 20 ┆----J 1320 PROC KEGLESTUB 1330 ┆
0x1380…13a0 43 4c 45 41 52 20 0b 0f 31 33 34 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 3c 31 33 35 30 20 50 52 ┆CLEAR 1340 CURSOR 1,5 <1350 PR┆
0x13a0…13c0 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 45 20 ┆INT " K E ┆
0x13c0…13e0 (2,) 47 20 4c 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 20 22 3c 4d 31 33 36 30 20 50 52 49 4e ┆G L E S T U B . "<M1360 PRIN┆
0x13e0…1400 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆T "_____________________________┆
0x1400…1420 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1420…1440 5f 5f 5f 22 4d 0b 31 33 37 30 20 50 52 49 4e 54 20 0b 10 31 33 38 30 20 43 55 52 53 4f 52 20 31 ┆___"M 1370 PRINT 1380 CURSOR 1┆
0x1440…1460 2c 31 30 10 3c 31 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 ┆,10 <1390 INPUT "Indtast keglest┆
0x1460…1480 75 62 62 65 6e 73 20 6e 65 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 22 3a 52 ┆ubbens nederste radius: ":R┆
0x1480…14a0 31 3c 0b 31 34 30 30 20 50 52 49 4e 54 20 0b 3c 31 34 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆1< 1400 PRINT <1410 INPUT "Indt┆
0x14a0…14c0 6d 7d 6c 3a 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 48 16 31 34 38 30 20 45 4e 44 50 52 4f ┆mål: ";RUMFANGH 1480 ENDPRO┆
0x14c0…14e0 43 20 4b 45 47 4c 45 53 54 55 42 16 49 31 34 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C KEGLESTUB I1490 // -----------┆
0x14e0…1500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1500…1520 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0f 31 35 30 30 20 50 52 4f ┆----------------------I 1500 PRO┆
0x1520…1540 43 20 4b 55 47 4c 45 0f 0b 31 35 31 30 20 43 4c 45 41 52 20 0b 0f 31 35 32 30 20 43 55 52 53 4f ┆C KUGLE 1510 CLEAR 1520 CURSO┆
0x1540…1560 52 20 31 2c 35 0f 37 31 35 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R 1,5 71530 PRINT " ┆
0x1560…1580 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 55 20 47 20 4c 20 45 20 2e 20 20 20 20 20 22 37 4d ┆ K U G L E . "7M┆
0x1580…15a0 31 35 34 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆1540 PRINT "____________________┆
0x15a0…15c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x15c0…15e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 35 35 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 ┆____________"M 1550 CURSOR 1,10 ┆
0x15e0…1600 3f 31 35 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 ┆?1560 INPUT "Indtast kuglens rad┆
0x1600…1620 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 ┆ius: ":RADIUS┆
0x1620…1640 3f 23 31 35 37 30 20 52 55 4d 46 41 4e 47 3a 3d 34 2f 33 2a 33 2e 31 34 31 35 39 2a 52 41 44 49 ┆?#1570 RUMFANG:=4/3*3.14159*RADI┆
0x1640…1660 55 53 2a 2a 33 23 10 31 35 38 30 20 43 55 52 53 4f 52 20 31 2c 31 36 10 35 31 35 39 30 20 50 52 ┆US**3# 1580 CURSOR 1,16 51590 PR┆
0x1660…1680 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 6b 75 67 6c 65 2c 20 68 76 6f 72 ┆INT "Rumfanget af en kugle, hvor┆
0x1680…16a0 20 72 61 64 69 75 73 20 65 72 3a 20 22 3b 35 2c 31 35 39 35 20 50 52 49 4e 54 20 52 41 44 49 55 ┆ radius er: ";5,1595 PRINT RADIU┆
0x16a0…16c0 53 3b 22 20 3d 20 22 3b 49 4e 54 28 52 55 4d 46 41 4e 47 2a 31 30 30 29 2f 31 30 30 2c 12 31 36 ┆S;" = ";INT(RUMFANG*100)/100, 16┆
0x16c0…16e0 30 30 20 45 4e 44 50 52 4f 43 20 4b 55 47 4c 45 12 4a 31 36 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆00 ENDPROC KUGLE J1610 // ------┆
0x16e0…1700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1700…1720 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 31 36 ┆----------------------------J 16┆
0x1720…1740 32 30 20 50 52 4f 43 20 53 4c 55 54 0e 0b 31 36 33 30 20 43 4c 45 41 52 20 0b 11 31 36 34 30 20 ┆20 PROC SLUT 1630 CLEAR 1640 ┆
0x1740…1760 43 55 52 53 4f 52 20 31 35 2c 31 32 11 38 31 36 35 30 20 50 52 49 4e 54 20 22 44 65 74 20 76 61 ┆CURSOR 15,12 81650 PRINT "Det va┆
0x1760…1780 72 20 73 7d 20 65 6e 20 64 65 6c 20 6e 79 65 20 72 75 6d 66 61 6e 67 2e 20 54 61 6b 20 66 6f 72 ┆r så en del nye rumfang. Tak for┆
0x1780…17a0 20 6e 75 2e 20 22 38 10 31 36 36 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 09 31 36 37 30 20 45 ┆ nu. "8 1660 CURSOR 1,21 1670 E┆
0x17a0…17c0 4e 44 20 09 11 31 36 38 30 20 45 4e 44 50 52 4f 43 20 53 4c 55 54 11 00 00 63 63 63 63 63 63 63 ┆ND 1680 ENDPROC SLUT ccccccc┆
0x17c0…17e0 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┆
[…0x26…]
0x1ca0…1cc0 4b 41 52 54 4f 54 45 4b 4b 41 01 0a 00 1e 00 0d 00 00 00 1e 00 0d 00 00 00 fe 00 00 00 00 00 00 ┆KARTOTEKKA ┆
0x1cc0…1ce0 4d 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0010 // -----------------------┆
0x1ce0…1d00 2d 2d 20 6b 61 72 74 6f 74 65 6b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- kartotek --------------------┆
0x1d00…1d20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 40 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d ┆--------------M@0020 // Programm┆
0x1d20…1d40 65 74 20 69 6e 64 6c 7b 73 65 72 20 76 2f 69 6e 64 74 61 73 74 6e 69 6e 67 20 65 6c 65 76 6c 69 ┆et indlæser v/indtastning elevli┆
0x1d40…1d60 73 74 65 20 6f 67 20 75 64 73 6b 72 69 76 65 72 40 33 30 30 33 30 20 2f 2f 20 6e 75 6d 6d 65 72 ┆ste og udskriver@30030 // nummer┆
0x1d60…1d80 2c 6b 6c 61 73 73 65 2c 6e 61 76 6e 2c 61 64 72 65 73 73 65 2c 70 6f 73 74 6e 75 6d 6d 65 72 20 ┆,klasse,navn,adresse,postnummer ┆
0x1d80…1da0 26 20 62 79 2e 33 33 30 30 34 30 20 2f 2f 20 41 50 50 45 4e 44 20 66 69 6e 64 65 73 20 69 6b 6b ┆& by.330040 // APPEND findes ikk┆