|
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: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »RUMFANG3.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG3.K«
0010 // ------------------------ rumfang3 --------------------------- 0020 // Udregner forskellige rumfang v/IF-sætninger samt procedurer. 0030 DIM SV$ OF 3 0040 REPEAT 0050 CLEAR 0060 CURSOR 10,3 0070 PRINT "Dette program udskriver rumfanget af:" 0080 CURSOR 10,4 0090 PRINT "-------------------------------------" 0100 PRINT 0110 CURSOR 10,6 0120 PRINT "Kasse.....................................Tast 1" 0130 CURSOR 10,8 0140 PRINT "Pyramide..................................Tast 2" 0150 CURSOR 10,10 0160 PRINT "Pyramidestub..............................Tast 3" 0170 CURSOR 10,12 0180 PRINT "Cylinder..................................Tast 4" 0190 CURSOR 10,14 0200 PRINT "Kegle.....................................Tast 5" 0210 CURSOR 10,16 0220 PRINT "Keglestub.................................Tast 6" 0230 CURSOR 10,18 0240 PRINT "Kugle.....................................Tast 7" 0250 CURSOR 10,20 0260 PRINT "Stop......................................Tast 8" 0270 CURSOR 10,16 0280 PRINT 0290 PRINT 0300 CURSOR 10,22 0310 PRINT "Indtast det ønskede nummer for rumfang:"; 0320 INPUT ØNSKE 0330 // --------------------------------------------------------------- 0340 PRINT 0350 IF ØNSKE=1 THEN EXEC KASSE 0360 IF ØNSKE=2 THEN EXEC PYRAMIDE 0370 IF ØNSKE=3 THEN EXEC PYRAMIDESTUB 0380 IF ØNSKE=4 THEN EXEC CYLINDER 0390 IF ØNSKE=5 THEN EXEC KEGLE 0400 IF ØNSKE=6 THEN EXEC KEGLESTUB 0410 IF ØNSKE=7 THEN EXEC KUGLE 0420 CURSOR 68,22 0430 PRINT "Return!"; 0440 IF ØNSKE=8 THEN EXEC SLUT 0450 INPUT SV$ 0460 UNTIL ØNSKE=8 0470 // -------------------------------------------------------------------- 0480 PROC KASSE 0490 CLEAR 0500 CURSOR 1,6 0510 PRINT " K A S S E . " 0520 PRINT "________________________________________________________________" 0530 CURSOR 1,10 0540 INPUT "Indtast længde: ":LÆNGDE 0550 PRINT 0560 INPUT "Indtast bredde: ":BREDDE 0570 PRINT 0580 INPUT "Indtast højde: ":HØJDE 0590 PRINT 0600 PRINT 0610 RUMFANG:=LÆNGDE*BREDDE*HØJDE 0620 PRINT "Rumfanget af kassen: ";RUMFANG 0630 ENDPROC KASSE 0640 // ------------------------------------------------------------------ 0650 PROC PYRAMIDE 0660 CLEAR 0670 CURSOR 1,5 0680 PRINT " P Y R A M I D E ." 0690 PRINT "________________________________________________________________" 0700 CURSOR 1,10 0710 INPUT "Indtast længde: ":LÆNGDE 0720 PRINT 0730 INPUT "Indtast bredde: ":BREDDE 0740 PRINT 0750 INPUT "Indtast højde: ":HØJDE 0760 RUMFANG:=INT(1/3*HØJDE*BREDDE*LÆNGDE*100)/100 0770 PRINT 0780 PRINT "Rumfanget af en pyramide med de ønskede mål: ";RUMFANG 0790 ENDPROC PYRAMIDE 0800 // ------------------------------------------------------------------ 0810 PROC PYRAMIDESTUB 0820 CLEAR 0830 CURSOR 1,5 0840 PRINT " P Y R A M I D E S T U B . " 0850 PRINT "________________________________________________________________" 0860 CURSOR 1,10 0870 INPUT "Indtast længden i bundfladen: ":L1 0880 PRINT 0890 INPUT "Indtast bredden i bundfladen: ":B1 0900 PRINT 0910 INPUT "Indtast længden i den øverste flade: ":L2 0920 PRINT 0930 INPUT "Indtast bredden i den øverste flade: ":B2 0940 PRINT 0950 INPUT "Indtast pyramidestubbens højde: ":HØJDE 0960 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2)) 0970 PRINT 0980 PRINT 0990 PRINT "Rumfanget af en pyramidestub med de ønskede mål: ";RUMFAN 1000 ENDPROC PYRAMIDESTUB 1010 // ------------------------------------------------------------------ 1020 PROC CYLINDER 1030 CLEAR 1040 CURSOR 1,5 1050 PRINT " C Y L I N D E R . " 1060 PRINT "________________________________________________________________" 1070 CURSOR 1,10 1080 INPUT "Indtast cylinderens radius: ":RADIUS 1090 PRINT 1100 INPUT "Indtast cylinderens højde: ":HØJDE 1110 RUMFANG:=INT(3.14159*HØJDE*RADIUS**2*100)/100 1120 PRINT 1130 PRINT 1140 PRINT "Cylinderens rumfang med de ønskede mål: ";RUMFANG 1150 ENDPROC CYLINDER 1160 // ------------------------------------------------------------------ 1170 PROC KEGLE 1180 CLEAR 1190 CURSOR 1,5 1200 PRINT " K E G L E . " 1210 PRINT "________________________________________________________________" 1220 CURSOR 1,10 1230 INPUT "Indtast keglens radius: ":RADIUS 1240 PRINT 1250 INPUT "Indtast keglens højde: ":HØJDE 1260 RUMFANG:=1/3*HØJDE*RADIUS**2 1270 PRINT 1280 PRINT 1290 PRINT "Keglens rumfang med de ønskede mål: ";RUMFANG 1300 ENDPROC KEGLE 1310 // ------------------------------------------------------------------ 1320 PROC KEGLESTUB 1330 CLEAR 1340 CURSOR 1,5 1350 PRINT " K E G L E S T U B . " 1360 PRINT "________________________________________________________________" 1370 PRINT 1380 CURSOR 1,10 1390 INPUT "Indtast keglestubbens nederste radius: ":R1 1400 PRINT 1410 INPUT "Indtast keglestubbens øverste radius: ":R2 1420 PRINT 1430 INPUT "Indtast keglestubbens højde: ":HØJDE 1440 PRINT 1450 RUMFANG:=1/3*3.14159*HØJDE*(R1**2+R2**2+R1*R2) 1460 PRINT 1470 PRINT "Rumfanget af en keglestub med de ønskede mål: ";RUMFANG 1480 ENDPROC KEGLESTUB 1490 // ----------------------------------------------------------------- 1500 PROC KUGLE 1510 CLEAR 1520 CURSOR 1,5 1530 PRINT " K U G L E . " 1540 PRINT "________________________________________________________________" 1550 CURSOR 1,10 1560 INPUT "Indtast kuglens radius: ":RADIUS 1570 RUMFANG:=4/3*3.14159*RADIUS**3 1580 CURSOR 1,16 1590 PRINT "Rumfanget af en kugle, hvor radius er: "; 1595 PRINT RADIUS;" = ";INT(RUMFANG*100)/100 1600 ENDPROC KUGLE 1610 // ------------------------------------------------------------------ 1620 PROC SLUT 1630 CLEAR 1640 CURSOR 15,12 1650 PRINT "Det var så en del nye rumfang. Tak for nu. " 1660 CURSOR 1,21 1670 END 1680 ENDPROC SLUT
0x0000…0047 Line {l1=0x45, l2=»0010 // ------------------------ rumfang3 ---------------------------«, l3=0x45}
0x0047…008d Line {l1=0x44, l2=»0020 // Udregner forskellige rumfang v/IF-sætninger samt procedurer.«, l3=0x44}
0x008d…00a0 Line {l1=0x11, l2=»0030 DIM SV$ OF 3«, l3=0x11}
0x00a0…00ae Line {l1=0x0c, l2=»0040 REPEAT «, l3=0x0c}
0x00ae…00bb Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x00bb…00cd Line {l1=0x10, l2=»0060 CURSOR 10,3«, l3=0x10}
0x00cd…0101 Line {l1=0x32, l2=»0070 PRINT "Dette program udskriver rumfanget af:"«, l3=0x32}
0x0101…0113 Line {l1=0x10, l2=»0080 CURSOR 10,4«, l3=0x10}
0x0113…0147 Line {l1=0x32, l2=»0090 PRINT "-------------------------------------"«, l3=0x32}
0x0147…0154 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x0154…0166 Line {l1=0x10, l2=»0110 CURSOR 10,6«, l3=0x10}
0x0166…01a5 Line {l1=0x3d, l2=»0120 PRINT "Kasse.....................................Tast 1"«, l3=0x3d}
0x01a5…01b7 Line {l1=0x10, l2=»0130 CURSOR 10,8«, l3=0x10}
0x01b7…01f6 Line {l1=0x3d, l2=»0140 PRINT "Pyramide..................................Tast 2"«, l3=0x3d}
0x01f6…0209 Line {l1=0x11, l2=»0150 CURSOR 10,10«, l3=0x11}
0x0209…0248 Line {l1=0x3d, l2=»0160 PRINT "Pyramidestub..............................Tast 3"«, l3=0x3d}
0x0248…025b Line {l1=0x11, l2=»0170 CURSOR 10,12«, l3=0x11}
0x025b…029a Line {l1=0x3d, l2=»0180 PRINT "Cylinder..................................Tast 4"«, l3=0x3d}
0x029a…02ad Line {l1=0x11, l2=»0190 CURSOR 10,14«, l3=0x11}
0x02ad…02ec Line {l1=0x3d, l2=»0200 PRINT "Kegle.....................................Tast 5"«, l3=0x3d}
0x02ec…02ff Line {l1=0x11, l2=»0210 CURSOR 10,16«, l3=0x11}
0x02ff…033e Line {l1=0x3d, l2=»0220 PRINT "Keglestub.................................Tast 6"«, l3=0x3d}
0x033e…0351 Line {l1=0x11, l2=»0230 CURSOR 10,18«, l3=0x11}
0x0351…0390 Line {l1=0x3d, l2=»0240 PRINT "Kugle.....................................Tast 7"«, l3=0x3d}
0x0390…03a3 Line {l1=0x11, l2=»0250 CURSOR 10,20«, l3=0x11}
0x03a3…03e2 Line {l1=0x3d, l2=»0260 PRINT "Stop......................................Tast 8"«, l3=0x3d}
0x03e2…03f5 Line {l1=0x11, l2=»0270 CURSOR 10,16«, l3=0x11}
0x03f5…0402 Line {l1=0x0b, l2=»0280 PRINT «, l3=0x0b}
0x0402…040f Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x040f…0422 Line {l1=0x11, l2=»0300 CURSOR 10,22«, l3=0x11}
0x0422…0459 Line {l1=0x35, l2=»0310 PRINT "Indtast det ønskede nummer for rumfang:";«, l3=0x35}
0x0459…046b Line {l1=0x10, l2=»0320 INPUT ØNSKE«, l3=0x10}
0x046b…04b4 Line {l1=0x47, l2=»0330 // ---------------------------------------------------------------«, l3=0x47}
0x04b4…04c1 Line {l1=0x0b, l2=»0340 PRINT «, l3=0x0b}
0x04c1…04e2 Line {l1=0x1f, l2=»0350 IF ØNSKE=1 THEN EXEC KASSE«, l3=0x1f}
0x04e2…0506 Line {l1=0x22, l2=»0360 IF ØNSKE=2 THEN EXEC PYRAMIDE«, l3=0x22}
0x0506…052e Line {l1=0x26, l2=»0370 IF ØNSKE=3 THEN EXEC PYRAMIDESTUB«, l3=0x26}
0x052e…0552 Line {l1=0x22, l2=»0380 IF ØNSKE=4 THEN EXEC CYLINDER«, l3=0x22}
0x0552…0573 Line {l1=0x1f, l2=»0390 IF ØNSKE=5 THEN EXEC KEGLE«, l3=0x1f}
0x0573…0598 Line {l1=0x23, l2=»0400 IF ØNSKE=6 THEN EXEC KEGLESTUB«, l3=0x23}
0x0598…05b9 Line {l1=0x1f, l2=»0410 IF ØNSKE=7 THEN EXEC KUGLE«, l3=0x1f}
0x05b9…05cc Line {l1=0x11, l2=»0420 CURSOR 68,22«, l3=0x11}
0x05cc…05e3 Line {l1=0x15, l2=»0430 PRINT "Return!";«, l3=0x15}
0x05e3…0603 Line {l1=0x1e, l2=»0440 IF ØNSKE=8 THEN EXEC SLUT«, l3=0x1e}
0x0603…0613 Line {l1=0x0e, l2=»0450 INPUT SV$«, l3=0x0e}
0x0613…0627 Line {l1=0x12, l2=»0460 UNTIL ØNSKE=8«, l3=0x12}
0x0627…0675 Line {l1=0x4c, l2=»0470 // --------------------------------------------------------------------«, l3=0x4c}
0x0675…0686 Line {l1=0x0f, l2=»0480 PROC KASSE«, l3=0x0f}
0x0686…0693 Line {l1=0x0b, l2=»0490 CLEAR «, l3=0x0b}
0x0693…06a4 Line {l1=0x0f, l2=»0500 CURSOR 1,6«, l3=0x0f}
0x06a4…06d9 Line {l1=0x33, l2=»0510 PRINT " K A S S E . "«, l3=0x33}
0x06d9…0728 Line {l1=0x4d, l2=»0520 PRINT "________________________________________________________________"«, l3=0x4d}
0x0728…073a Line {l1=0x10, l2=»0530 CURSOR 1,10«, l3=0x10}
0x073a…077b Line {l1=0x3f, l2=»0540 INPUT "Indtast længde: ":LÆNGDE«, l3=0x3f}
0x077b…0788 Line {l1=0x0b, l2=»0550 PRINT «, l3=0x0b}
0x0788…07c9 Line {l1=0x3f, l2=»0560 INPUT "Indtast bredde: ":BREDDE«, l3=0x3f}
0x07c9…07d6 Line {l1=0x0b, l2=»0570 PRINT «, l3=0x0b}
0x07d6…0816 Line {l1=0x3e, l2=»0580 INPUT "Indtast højde: ":HØJDE«, l3=0x3e}
0x0816…0823 Line {l1=0x0b, l2=»0590 PRINT «, l3=0x0b}
0x0823…0830 Line {l1=0x0b, l2=»0600 PRINT «, l3=0x0b}
0x0830…0853 Line {l1=0x21, l2=»0610 RUMFANG:=LÆNGDE*BREDDE*HØJDE«, l3=0x21}
0x0853…0895 Line {l1=0x40, l2=»0620 PRINT "Rumfanget af kassen: ";RUMFANG«, l3=0x40}
0x0895…08a9 Line {l1=0x12, l2=»0630 ENDPROC KASSE«, l3=0x12}
0x08a9…08f5 Line {l1=0x4a, l2=»0640 // ------------------------------------------------------------------«, l3=0x4a}
0x08f5…0909 Line {l1=0x12, l2=»0650 PROC PYRAMIDE«, l3=0x12}
0x0909…0916 Line {l1=0x0b, l2=»0660 CLEAR «, l3=0x0b}
0x0916…0927 Line {l1=0x0f, l2=»0670 CURSOR 1,5«, l3=0x0f}
0x0927…0962 Line {l1=0x39, l2=»0680 PRINT " P Y R A M I D E ."«, l3=0x39}
0x0962…09b1 Line {l1=0x4d, l2=»0690 PRINT "________________________________________________________________"«, l3=0x4d}
0x09b1…09c3 Line {l1=0x10, l2=»0700 CURSOR 1,10«, l3=0x10}
0x09c3…0a0a Line {l1=0x45, l2=»0710 INPUT "Indtast længde: ":LÆNGDE«, l3=0x45}
0x0a0a…0a17 Line {l1=0x0b, l2=»0720 PRINT «, l3=0x0b}
0x0a17…0a5e Line {l1=0x45, l2=»0730 INPUT "Indtast bredde: ":BREDDE«, l3=0x45}
0x0a5e…0a6b Line {l1=0x0b, l2=»0740 PRINT «, l3=0x0b}
0x0a6b…0ab1 Line {l1=0x44, l2=»0750 INPUT "Indtast højde: ":HØJDE«, l3=0x44}
0x0ab1…0ae5 Line {l1=0x32, l2=»0760 RUMFANG:=INT(1/3*HØJDE*BREDDE*LÆNGDE*100)/100«, l3=0x32}
0x0ae5…0af2 Line {l1=0x0b, l2=»0770 PRINT «, l3=0x0b}
0x0af2…0b3a Line {l1=0x46, l2=»0780 PRINT "Rumfanget af en pyramide med de ønskede mål: ";RUMFANG«, l3=0x46}
0x0b3a…0b51 Line {l1=0x15, l2=»0790 ENDPROC PYRAMIDE«, l3=0x15}
0x0b51…0b9d Line {l1=0x4a, l2=»0800 // ------------------------------------------------------------------«, l3=0x4a}
0x0b9d…0bb5 Line {l1=0x16, l2=»0810 PROC PYRAMIDESTUB«, l3=0x16}
0x0bb5…0bc2 Line {l1=0x0b, l2=»0820 CLEAR «, l3=0x0b}
0x0bc2…0bd3 Line {l1=0x0f, l2=»0830 CURSOR 1,5«, l3=0x0f}
0x0bd3…0c16 Line {l1=0x41, l2=»0840 PRINT " P Y R A M I D E S T U B . "«, l3=0x41}
0x0c16…0c65 Line {l1=0x4d, l2=»0850 PRINT "________________________________________________________________"«, l3=0x4d}
0x0c65…0c77 Line {l1=0x10, l2=»0860 CURSOR 1,10«, l3=0x10}
0x0c77…0cb4 Line {l1=0x3b, l2=»0870 INPUT "Indtast længden i bundfladen: ":L1«, l3=0x3b}
0x0cb4…0cc1 Line {l1=0x0b, l2=»0880 PRINT «, l3=0x0b}
0x0cc1…0cfe Line {l1=0x3b, l2=»0890 INPUT "Indtast bredden i bundfladen: ":B1«, l3=0x3b}
0x0cfe…0d0b Line {l1=0x0b, l2=»0900 PRINT «, l3=0x0b}
0x0d0b…0d48 Line {l1=0x3b, l2=»0910 INPUT "Indtast længden i den øverste flade: ":L2«, l3=0x3b}
0x0d48…0d55 Line {l1=0x0b, l2=»0920 PRINT «, l3=0x0b}
0x0d55…0d92 Line {l1=0x3b, l2=»0930 INPUT "Indtast bredden i den øverste flade: ":B2«, l3=0x3b}
0x0d92…0d9f Line {l1=0x0b, l2=»0940 PRINT «, l3=0x0b}
0x0d9f…0ddf Line {l1=0x3e, l2=»0950 INPUT "Indtast pyramidestubbens højde: ":HØJDE«, l3=0x3e}
0x0ddf…0e17 Line {l1=0x36, l2=»0960 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2))«, l3=0x36}
0x0e17…0e24 Line {l1=0x0b, l2=»0970 PRINT «, l3=0x0b}
0x0e24…0e31 Line {l1=0x0b, l2=»0980 PRINT «, l3=0x0b}
0x0e31…0e80 Line {l1=0x4d, l2=»0990 PRINT "Rumfanget af en pyramidestub med de ønskede mål: ";RUMFAN«, l3=0x4d}
0x0e80…0e9b Line {l1=0x19, l2=»1000 ENDPROC PYRAMIDESTUB«, l3=0x19}
0x0e9b…0ee7 Line {l1=0x4a, l2=»1010 // ------------------------------------------------------------------«, l3=0x4a}
0x0ee7…0efb Line {l1=0x12, l2=»1020 PROC CYLINDER«, l3=0x12}
0x0efb…0f08 Line {l1=0x0b, l2=»1030 CLEAR «, l3=0x0b}
0x0f08…0f19 Line {l1=0x0f, l2=»1040 CURSOR 1,5«, l3=0x0f}
0x0f19…0f51 Line {l1=0x36, l2=»1050 PRINT " C Y L I N D E R . "«, l3=0x36}
0x0f51…0fa0 Line {l1=0x4d, l2=»1060 PRINT "________________________________________________________________"«, l3=0x4d}
0x0fa0…0fb2 Line {l1=0x10, l2=»1070 CURSOR 1,10«, l3=0x10}
0x0fb2…0ff2 Line {l1=0x3e, l2=»1080 INPUT "Indtast cylinderens radius: ":RADIUS«, l3=0x3e}
0x0ff2…0fff Line {l1=0x0b, l2=»1090 PRINT «, l3=0x0b}
0x0fff…103e Line {l1=0x3d, l2=»1100 INPUT "Indtast cylinderens højde: ":HØJDE«, l3=0x3d}
0x103e…1072 Line {l1=0x32, l2=»1110 RUMFANG:=INT(3.14159*HØJDE*RADIUS**2*100)/100«, l3=0x32}
0x1072…107f Line {l1=0x0b, l2=»1120 PRINT «, l3=0x0b}
0x107f…108c Line {l1=0x0b, l2=»1130 PRINT «, l3=0x0b}
0x108c…10d1 Line {l1=0x43, l2=»1140 PRINT "Cylinderens rumfang med de ønskede mål: ";RUMFANG«, l3=0x43}
0x10d1…10e8 Line {l1=0x15, l2=»1150 ENDPROC CYLINDER«, l3=0x15}
0x10e8…1134 Line {l1=0x4a, l2=»1160 // ------------------------------------------------------------------«, l3=0x4a}
0x1134…1145 Line {l1=0x0f, l2=»1170 PROC KEGLE«, l3=0x0f}
0x1145…1152 Line {l1=0x0b, l2=»1180 CLEAR «, l3=0x0b}
0x1152…1163 Line {l1=0x0f, l2=»1190 CURSOR 1,5«, l3=0x0f}
0x1163…119a Line {l1=0x35, l2=»1200 PRINT " K E G L E . "«, l3=0x35}
0x119a…11e9 Line {l1=0x4d, l2=»1210 PRINT "________________________________________________________________"«, l3=0x4d}
0x11e9…11fb Line {l1=0x10, l2=»1220 CURSOR 1,10«, l3=0x10}
0x11fb…123b Line {l1=0x3e, l2=»1230 INPUT "Indtast keglens radius: ":RADIUS«, l3=0x3e}
0x123b…1248 Line {l1=0x0b, l2=»1240 PRINT «, l3=0x0b}
0x1248…1287 Line {l1=0x3d, l2=»1250 INPUT "Indtast keglens højde: ":HØJDE«, l3=0x3d}
0x1287…12aa Line {l1=0x21, l2=»1260 RUMFANG:=1/3*HØJDE*RADIUS**2«, l3=0x21}
0x12aa…12b7 Line {l1=0x0b, l2=»1270 PRINT «, l3=0x0b}
0x12b7…12c4 Line {l1=0x0b, l2=»1280 PRINT «, l3=0x0b}
0x12c4…1305 Line {l1=0x3f, l2=»1290 PRINT "Keglens rumfang med de ønskede mål: ";RUMFANG«, l3=0x3f}
0x1305…1319 Line {l1=0x12, l2=»1300 ENDPROC KEGLE«, l3=0x12}
0x1319…1365 Line {l1=0x4a, l2=»1310 // ------------------------------------------------------------------«, l3=0x4a}
0x1365…137a Line {l1=0x13, l2=»1320 PROC KEGLESTUB«, l3=0x13}
0x137a…1387 Line {l1=0x0b, l2=»1330 CLEAR «, l3=0x0b}
0x1387…1398 Line {l1=0x0f, l2=»1340 CURSOR 1,5«, l3=0x0f}
0x1398…13d6 Line {l1=0x3c, l2=»1350 PRINT " K E G L E S T U B . "«, l3=0x3c}
0x13d6…1425 Line {l1=0x4d, l2=»1360 PRINT "________________________________________________________________"«, l3=0x4d}
0x1425…1432 Line {l1=0x0b, l2=»1370 PRINT «, l3=0x0b}
0x1432…1444 Line {l1=0x10, l2=»1380 CURSOR 1,10«, l3=0x10}
0x1444…1482 Line {l1=0x3c, l2=»1390 INPUT "Indtast keglestubbens nederste radius: ":R1«, l3=0x3c}
0x1482…148f Line {l1=0x0b, l2=»1400 PRINT «, l3=0x0b}
0x148f…14cd Line {l1=0x3c, l2=»1410 INPUT "Indtast keglestubbens øverste radius: ":R2«, l3=0x3c}
0x14cd…14da Line {l1=0x0b, l2=»1420 PRINT «, l3=0x0b}
0x14da…151b Line {l1=0x3f, l2=»1430 INPUT "Indtast keglestubbens højde: ":HØJDE«, l3=0x3f}
0x151b…1528 Line {l1=0x0b, l2=»1440 PRINT «, l3=0x0b}
0x1528…155d Line {l1=0x33, l2=»1450 RUMFANG:=1/3*3.14159*HØJDE*(R1**2+R2**2+R1*R2)«, l3=0x33}
0x155d…156a Line {l1=0x0b, l2=»1460 PRINT «, l3=0x0b}
0x156a…15b4 Line {l1=0x48, l2=»1470 PRINT "Rumfanget af en keglestub med de ønskede mål: ";RUMFANG«, l3=0x48}
0x15b4…15cc Line {l1=0x16, l2=»1480 ENDPROC KEGLESTUB«, l3=0x16}
0x15cc…1617 Line {l1=0x49, l2=»1490 // -----------------------------------------------------------------«, l3=0x49}
0x1617…1628 Line {l1=0x0f, l2=»1500 PROC KUGLE«, l3=0x0f}
0x1628…1635 Line {l1=0x0b, l2=»1510 CLEAR «, l3=0x0b}
0x1635…1646 Line {l1=0x0f, l2=»1520 CURSOR 1,5«, l3=0x0f}
0x1646…167f Line {l1=0x37, l2=»1530 PRINT " K U G L E . "«, l3=0x37}
0x167f…16ce Line {l1=0x4d, l2=»1540 PRINT "________________________________________________________________"«, l3=0x4d}
0x16ce…16e0 Line {l1=0x10, l2=»1550 CURSOR 1,10«, l3=0x10}
0x16e0…1721 Line {l1=0x3f, l2=»1560 INPUT "Indtast kuglens radius: ":RADIUS«, l3=0x3f}
0x1721…1746 Line {l1=0x23, l2=»1570 RUMFANG:=4/3*3.14159*RADIUS**3«, l3=0x23}
0x1746…1758 Line {l1=0x10, l2=»1580 CURSOR 1,16«, l3=0x10}
0x1758…178f Line {l1=0x35, l2=»1590 PRINT "Rumfanget af en kugle, hvor radius er: ";«, l3=0x35}
0x178f…17bd Line {l1=0x2c, l2=»1595 PRINT RADIUS;" = ";INT(RUMFANG*100)/100«, l3=0x2c}
0x17bd…17d1 Line {l1=0x12, l2=»1600 ENDPROC KUGLE«, l3=0x12}
0x17d1…181d Line {l1=0x4a, l2=»1610 // ------------------------------------------------------------------«, l3=0x4a}
0x181d…182d Line {l1=0x0e, l2=»1620 PROC SLUT«, l3=0x0e}
0x182d…183a Line {l1=0x0b, l2=»1630 CLEAR «, l3=0x0b}
0x183a…184d Line {l1=0x11, l2=»1640 CURSOR 15,12«, l3=0x11}
0x184d…1887 Line {l1=0x38, l2=»1650 PRINT "Det var så en del nye rumfang. Tak for nu. "«, l3=0x38}
0x1887…1899 Line {l1=0x10, l2=»1660 CURSOR 1,21«, l3=0x10}
0x1899…18a4 Line {l1=0x09, l2=»1670 END «, l3=0x09}
0x18a4…18b7 Line {l1=0x11, l2=»1680 ENDPROC SLUT«, l3=0x11}
0x18b7…18c0 00 00 63 63 63 63 63 63 63 ┆ ccccccc┆
0x18c0…18e0 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…]