|
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: »RUMFANG4.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG4.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG4.K«
0010 // ------------------------ rumfang4 --------------------------- 0020 // Udregner forskellige rumfang ved benyttelse af CASE - ENDCASE 0030 // samt procedure-sætninger. 0040 DIM SV$ OF 3 0050 REPEAT 0060 CLEAR 0070 CURSOR 10,3 0080 PRINT "Dette program udskriver rumfanget af:" 0090 CURSOR 10,4 0100 PRINT "-------------------------------------" 0110 PRINT 0120 CURSOR 10,6 0130 PRINT "Kasse.....................................Tast 1" 0140 CURSOR 10,8 0150 PRINT "Pyramide..................................Tast 2" 0160 CURSOR 10,10 0170 PRINT "Pyramidestub..............................Tast 3" 0180 CURSOR 10,12 0190 PRINT "Cylinder..................................Tast 4" 0200 CURSOR 10,14 0210 PRINT "Kegle.....................................Tast 5" 0220 CURSOR 10,16 0230 PRINT "Keglestub.................................Tast 6" 0240 CURSOR 10,18 0250 PRINT "Kugle.....................................Tast 7" 0260 CURSOR 10,20 0270 PRINT "Stop......................................Tast 8" 0280 CURSOR 10,16 0290 PRINT 0300 PRINT 0310 CURSOR 10,22 0320 PRINT "Indtast det ønskede nummer for rumfang:"; 0330 INPUT ØNSKE 0340 // --------------------------------------------------------------- 0350 PRINT 0360 CASE ØNSKE OF 0370 WHEN 1 0380 EXEC KASSE 0390 WHEN 2 0400 EXEC PYRAMIDE 0410 WHEN 3 0420 EXEC PYRAMIDESTUB 0430 WHEN 4 0440 EXEC CYLINDER 0450 WHEN 5 0460 EXEC KEGLE 0470 WHEN 6 0480 EXEC KEGLESTUB 0490 WHEN 7 0500 EXEC KUGLE 0510 CURSOR 70,22 0520 WHEN 8 0530 EXEC SLUT 0540 OTHERWISE 0550 CLEAR 0560 CURSOR 20,12 0570 PRINT "Du har tastet forkert. Prøv igen." 0580 ENDCASE 0590 CURSOR 68,23 0600 PRINT "Return!"; 0610 INPUT SV$ 0620 UNTIL ØNSKE=8 0630 // -------------------------------------------------------------------- 0640 PROC KASSE 0650 CLEAR 0660 CURSOR 1,6 0670 PRINT " K A S S E . " 0680 PRINT "________________________________________________________________" 0690 CURSOR 1,10 0700 INPUT "Indtast længde: ":LÆNGDE 0710 PRINT 0720 INPUT "Indtast bredde: ":BREDDE 0730 PRINT 0740 INPUT "Indtast højde: ":HØJDE 0750 PRINT 0760 PRINT 0770 RUMFANG:=LÆNGDE*BREDDE*HØJDE 0780 PRINT "Rumfanget af kassen: ";RUMFANG 0790 ENDPROC KASSE 0800 // ------------------------------------------------------------------ 0810 PROC PYRAMIDE 0820 CLEAR 0830 CURSOR 1,5 0840 PRINT " P Y R A M I D E ." 0850 PRINT "________________________________________________________________" 0860 CURSOR 1,10 0870 INPUT "Indtast længde: ":LÆNGDE 0880 PRINT 0890 INPUT "Indtast bredde: ":BREDDE 0900 PRINT 0910 INPUT "Indtast højde: ":HØJDE 0920 RUMFANG:=INT(1/3*HØJDE*BREDDE*LÆNGDE*100)/100 0930 PRINT 0940 PRINT "Rumfanget af en pyramide med de ønskede mål: ";RUMFANG 0950 ENDPROC PYRAMIDE 0960 // ------------------------------------------------------------------ 0970 PROC PYRAMIDESTUB 0980 CLEAR 0990 CURSOR 1,5 1000 PRINT " P Y R A M I D E S T U B . " 1010 PRINT "________________________________________________________________" 1020 CURSOR 1,10 1030 INPUT "Indtast længden i bundfladen: ":L1 1040 PRINT 1050 INPUT "Indtast bredden i bundfladen: ":B1 1060 PRINT 1070 INPUT "Indtast længden i den øverste flade: ":L2 1080 PRINT 1090 INPUT "Indtast bredden i den øverste flade: ":B2 1100 PRINT 1110 INPUT "Indtast pyramidestubbens højde: ":HØJDE 1120 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2)) 1130 PRINT 1140 PRINT 1150 PRINT "Rumfanget af en pyramidestub med de ønskede mål: ";RUMFAN 1160 ENDPROC PYRAMIDESTUB 1170 // ------------------------------------------------------------------ 1180 PROC CYLINDER 1190 CLEAR 1200 CURSOR 1,5 1210 PRINT " C Y L I N D E R . " 1220 PRINT "________________________________________________________________" 1230 CURSOR 1,10 1240 INPUT "Indtast cylinderens radius: ":RADIUS 1250 PRINT 1260 INPUT "Indtast cylinderens højde: ":HØJDE 1270 RUMFANG:=INT(3.14159*HØJDE*RADIUS**2*100)/100 1280 PRINT 1290 PRINT 1300 PRINT "Cylinderens rumfang med de ønskede mål: ";RUMFANG 1310 ENDPROC CYLINDER 1320 // ------------------------------------------------------------------ 1330 PROC KEGLE 1340 CLEAR 1350 CURSOR 1,5 1360 PRINT " K E G L E . " 1370 PRINT "________________________________________________________________" 1380 CURSOR 1,10 1390 INPUT "Indtast keglens radius: ":RADIUS 1400 PRINT 1410 INPUT "Indtast keglens højde: ":HØJDE 1420 RUMFANG:=1/3*HØJDE*RADIUS**2 1430 PRINT 1440 PRINT 1450 PRINT "Keglens rumfang med de ønskede mål: ";RUMFANG 1460 ENDPROC KEGLE 1470 // ------------------------------------------------------------------ 1480 PROC KEGLESTUB 1490 CLEAR 1500 CURSOR 1,5 1510 PRINT " K E G L E S T U B . " 1520 PRINT "________________________________________________________________" 1530 PRINT 1540 CURSOR 1,10 1550 INPUT "Indtast keglestubbens nederste radius: ":R1 1560 PRINT 1570 INPUT "Indtast keglestubbens øverste radius: ":R2 1580 PRINT 1590 INPUT "Indtast keglestubbens højde: ":HØJDE 1600 PRINT 1610 RUMFANG:=1/3*3.14159*HØJDE*(R1**2+R2**2+R1*R2) 1620 PRINT 1630 PRINT "Rumfanget af en keglestub med de ønskede mål: ";RUMFANG 1640 ENDPROC KEGLESTUB 1650 // ----------------------------------------------------------------- 1660 PROC KUGLE 1670 CLEAR 1680 CURSOR 1,5 1690 PRINT " K U G L E . " 1700 PRINT "________________________________________________________________" 1710 CURSOR 1,10 1720 INPUT "Indtast kuglens radius: ":RADIUS 1730 RUMFANG:=4/3*3.14159*RADIUS**3 1740 CURSOR 1,16 1750 PRINT "Rumfanget af en kugle, hvor radius er: "; 1755 PRINT RADIUS;" = ";INT(RUMFANG*100)/100 1760 ENDPROC KUGLE 1770 // ------------------------------------------------------------------ 1780 PROC SLUT 1790 CLEAR 1800 CURSOR 15,12 1810 PRINT "Det var så en del nye rumfang. Tak for nu. " 1820 CURSOR 1,21 1830 END 1840 ENDPROC SLUT
0x0000…0047 Line {l1=0x45, l2=»0010 // ------------------------ rumfang4 ---------------------------«, l3=0x45}
0x0047…008e Line {l1=0x45, l2=»0020 // Udregner forskellige rumfang ved benyttelse af CASE - ENDCASE«, l3=0x45}
0x008e…00b1 Line {l1=0x21, l2=»0030 // samt procedure-sætninger.«, l3=0x21}
0x00b1…00c4 Line {l1=0x11, l2=»0040 DIM SV$ OF 3«, l3=0x11}
0x00c4…00d2 Line {l1=0x0c, l2=»0050 REPEAT «, l3=0x0c}
0x00d2…00df Line {l1=0x0b, l2=»0060 CLEAR «, l3=0x0b}
0x00df…00f1 Line {l1=0x10, l2=»0070 CURSOR 10,3«, l3=0x10}
0x00f1…0125 Line {l1=0x32, l2=»0080 PRINT "Dette program udskriver rumfanget af:"«, l3=0x32}
0x0125…0137 Line {l1=0x10, l2=»0090 CURSOR 10,4«, l3=0x10}
0x0137…016b Line {l1=0x32, l2=»0100 PRINT "-------------------------------------"«, l3=0x32}
0x016b…0178 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x0178…018a Line {l1=0x10, l2=»0120 CURSOR 10,6«, l3=0x10}
0x018a…01c9 Line {l1=0x3d, l2=»0130 PRINT "Kasse.....................................Tast 1"«, l3=0x3d}
0x01c9…01db Line {l1=0x10, l2=»0140 CURSOR 10,8«, l3=0x10}
0x01db…021a Line {l1=0x3d, l2=»0150 PRINT "Pyramide..................................Tast 2"«, l3=0x3d}
0x021a…022d Line {l1=0x11, l2=»0160 CURSOR 10,10«, l3=0x11}
0x022d…026c Line {l1=0x3d, l2=»0170 PRINT "Pyramidestub..............................Tast 3"«, l3=0x3d}
0x026c…027f Line {l1=0x11, l2=»0180 CURSOR 10,12«, l3=0x11}
0x027f…02be Line {l1=0x3d, l2=»0190 PRINT "Cylinder..................................Tast 4"«, l3=0x3d}
0x02be…02d1 Line {l1=0x11, l2=»0200 CURSOR 10,14«, l3=0x11}
0x02d1…0310 Line {l1=0x3d, l2=»0210 PRINT "Kegle.....................................Tast 5"«, l3=0x3d}
0x0310…0323 Line {l1=0x11, l2=»0220 CURSOR 10,16«, l3=0x11}
0x0323…0362 Line {l1=0x3d, l2=»0230 PRINT "Keglestub.................................Tast 6"«, l3=0x3d}
0x0362…0375 Line {l1=0x11, l2=»0240 CURSOR 10,18«, l3=0x11}
0x0375…03b4 Line {l1=0x3d, l2=»0250 PRINT "Kugle.....................................Tast 7"«, l3=0x3d}
0x03b4…03c7 Line {l1=0x11, l2=»0260 CURSOR 10,20«, l3=0x11}
0x03c7…0406 Line {l1=0x3d, l2=»0270 PRINT "Stop......................................Tast 8"«, l3=0x3d}
0x0406…0419 Line {l1=0x11, l2=»0280 CURSOR 10,16«, l3=0x11}
0x0419…0426 Line {l1=0x0b, l2=»0290 PRINT «, l3=0x0b}
0x0426…0433 Line {l1=0x0b, l2=»0300 PRINT «, l3=0x0b}
0x0433…0446 Line {l1=0x11, l2=»0310 CURSOR 10,22«, l3=0x11}
0x0446…047d Line {l1=0x35, l2=»0320 PRINT "Indtast det ønskede nummer for rumfang:";«, l3=0x35}
0x047d…048f Line {l1=0x10, l2=»0330 INPUT ØNSKE«, l3=0x10}
0x048f…04d8 Line {l1=0x47, l2=»0340 // ---------------------------------------------------------------«, l3=0x47}
0x04d8…04e5 Line {l1=0x0b, l2=»0350 PRINT «, l3=0x0b}
0x04e5…04fa Line {l1=0x13, l2=»0360 CASE ØNSKE OF «, l3=0x13}
0x04fa…0507 Line {l1=0x0b, l2=»0370 WHEN 1«, l3=0x0b}
0x0507…0518 Line {l1=0x0f, l2=»0380 EXEC KASSE«, l3=0x0f}
0x0518…0525 Line {l1=0x0b, l2=»0390 WHEN 2«, l3=0x0b}
0x0525…0539 Line {l1=0x12, l2=»0400 EXEC PYRAMIDE«, l3=0x12}
0x0539…0546 Line {l1=0x0b, l2=»0410 WHEN 3«, l3=0x0b}
0x0546…055e Line {l1=0x16, l2=»0420 EXEC PYRAMIDESTUB«, l3=0x16}
0x055e…056b Line {l1=0x0b, l2=»0430 WHEN 4«, l3=0x0b}
0x056b…057f Line {l1=0x12, l2=»0440 EXEC CYLINDER«, l3=0x12}
0x057f…058c Line {l1=0x0b, l2=»0450 WHEN 5«, l3=0x0b}
0x058c…059d Line {l1=0x0f, l2=»0460 EXEC KEGLE«, l3=0x0f}
0x059d…05aa Line {l1=0x0b, l2=»0470 WHEN 6«, l3=0x0b}
0x05aa…05bf Line {l1=0x13, l2=»0480 EXEC KEGLESTUB«, l3=0x13}
0x05bf…05cc Line {l1=0x0b, l2=»0490 WHEN 7«, l3=0x0b}
0x05cc…05dd Line {l1=0x0f, l2=»0500 EXEC KUGLE«, l3=0x0f}
0x05dd…05f0 Line {l1=0x11, l2=»0510 CURSOR 70,22«, l3=0x11}
0x05f0…05fd Line {l1=0x0b, l2=»0520 WHEN 8«, l3=0x0b}
0x05fd…060d Line {l1=0x0e, l2=»0530 EXEC SLUT«, l3=0x0e}
0x060d…061e Line {l1=0x0f, l2=»0540 OTHERWISE «, l3=0x0f}
0x061e…062b Line {l1=0x0b, l2=»0550 CLEAR «, l3=0x0b}
0x062b…063e Line {l1=0x11, l2=»0560 CURSOR 20,12«, l3=0x11}
0x063e…066e Line {l1=0x2e, l2=»0570 PRINT "Du har tastet forkert. Prøv igen."«, l3=0x2e}
0x066e…067d Line {l1=0x0d, l2=»0580 ENDCASE «, l3=0x0d}
0x067d…0690 Line {l1=0x11, l2=»0590 CURSOR 68,23«, l3=0x11}
0x0690…06a7 Line {l1=0x15, l2=»0600 PRINT "Return!";«, l3=0x15}
0x06a7…06b7 Line {l1=0x0e, l2=»0610 INPUT SV$«, l3=0x0e}
0x06b7…06cb Line {l1=0x12, l2=»0620 UNTIL ØNSKE=8«, l3=0x12}
0x06cb…0719 Line {l1=0x4c, l2=»0630 // --------------------------------------------------------------------«, l3=0x4c}
0x0719…072a Line {l1=0x0f, l2=»0640 PROC KASSE«, l3=0x0f}
0x072a…0737 Line {l1=0x0b, l2=»0650 CLEAR «, l3=0x0b}
0x0737…0748 Line {l1=0x0f, l2=»0660 CURSOR 1,6«, l3=0x0f}
0x0748…077d Line {l1=0x33, l2=»0670 PRINT " K A S S E . "«, l3=0x33}
0x077d…07cc Line {l1=0x4d, l2=»0680 PRINT "________________________________________________________________"«, l3=0x4d}
0x07cc…07de Line {l1=0x10, l2=»0690 CURSOR 1,10«, l3=0x10}
0x07de…081f Line {l1=0x3f, l2=»0700 INPUT "Indtast længde: ":LÆNGDE«, l3=0x3f}
0x081f…082c Line {l1=0x0b, l2=»0710 PRINT «, l3=0x0b}
0x082c…086d Line {l1=0x3f, l2=»0720 INPUT "Indtast bredde: ":BREDDE«, l3=0x3f}
0x086d…087a Line {l1=0x0b, l2=»0730 PRINT «, l3=0x0b}
0x087a…08ba Line {l1=0x3e, l2=»0740 INPUT "Indtast højde: ":HØJDE«, l3=0x3e}
0x08ba…08c7 Line {l1=0x0b, l2=»0750 PRINT «, l3=0x0b}
0x08c7…08d4 Line {l1=0x0b, l2=»0760 PRINT «, l3=0x0b}
0x08d4…08f7 Line {l1=0x21, l2=»0770 RUMFANG:=LÆNGDE*BREDDE*HØJDE«, l3=0x21}
0x08f7…0939 Line {l1=0x40, l2=»0780 PRINT "Rumfanget af kassen: ";RUMFANG«, l3=0x40}
0x0939…094d Line {l1=0x12, l2=»0790 ENDPROC KASSE«, l3=0x12}
0x094d…0999 Line {l1=0x4a, l2=»0800 // ------------------------------------------------------------------«, l3=0x4a}
0x0999…09ad Line {l1=0x12, l2=»0810 PROC PYRAMIDE«, l3=0x12}
0x09ad…09ba Line {l1=0x0b, l2=»0820 CLEAR «, l3=0x0b}
0x09ba…09cb Line {l1=0x0f, l2=»0830 CURSOR 1,5«, l3=0x0f}
0x09cb…0a06 Line {l1=0x39, l2=»0840 PRINT " P Y R A M I D E ."«, l3=0x39}
0x0a06…0a55 Line {l1=0x4d, l2=»0850 PRINT "________________________________________________________________"«, l3=0x4d}
0x0a55…0a67 Line {l1=0x10, l2=»0860 CURSOR 1,10«, l3=0x10}
0x0a67…0aae Line {l1=0x45, l2=»0870 INPUT "Indtast længde: ":LÆNGDE«, l3=0x45}
0x0aae…0abb Line {l1=0x0b, l2=»0880 PRINT «, l3=0x0b}
0x0abb…0b02 Line {l1=0x45, l2=»0890 INPUT "Indtast bredde: ":BREDDE«, l3=0x45}
0x0b02…0b0f Line {l1=0x0b, l2=»0900 PRINT «, l3=0x0b}
0x0b0f…0b55 Line {l1=0x44, l2=»0910 INPUT "Indtast højde: ":HØJDE«, l3=0x44}
0x0b55…0b89 Line {l1=0x32, l2=»0920 RUMFANG:=INT(1/3*HØJDE*BREDDE*LÆNGDE*100)/100«, l3=0x32}
0x0b89…0b96 Line {l1=0x0b, l2=»0930 PRINT «, l3=0x0b}
0x0b96…0bde Line {l1=0x46, l2=»0940 PRINT "Rumfanget af en pyramide med de ønskede mål: ";RUMFANG«, l3=0x46}
0x0bde…0bf5 Line {l1=0x15, l2=»0950 ENDPROC PYRAMIDE«, l3=0x15}
0x0bf5…0c41 Line {l1=0x4a, l2=»0960 // ------------------------------------------------------------------«, l3=0x4a}
0x0c41…0c59 Line {l1=0x16, l2=»0970 PROC PYRAMIDESTUB«, l3=0x16}
0x0c59…0c66 Line {l1=0x0b, l2=»0980 CLEAR «, l3=0x0b}
0x0c66…0c77 Line {l1=0x0f, l2=»0990 CURSOR 1,5«, l3=0x0f}
0x0c77…0cba Line {l1=0x41, l2=»1000 PRINT " P Y R A M I D E S T U B . "«, l3=0x41}
0x0cba…0d09 Line {l1=0x4d, l2=»1010 PRINT "________________________________________________________________"«, l3=0x4d}
0x0d09…0d1b Line {l1=0x10, l2=»1020 CURSOR 1,10«, l3=0x10}
0x0d1b…0d58 Line {l1=0x3b, l2=»1030 INPUT "Indtast længden i bundfladen: ":L1«, l3=0x3b}
0x0d58…0d65 Line {l1=0x0b, l2=»1040 PRINT «, l3=0x0b}
0x0d65…0da2 Line {l1=0x3b, l2=»1050 INPUT "Indtast bredden i bundfladen: ":B1«, l3=0x3b}
0x0da2…0daf Line {l1=0x0b, l2=»1060 PRINT «, l3=0x0b}
0x0daf…0dec Line {l1=0x3b, l2=»1070 INPUT "Indtast længden i den øverste flade: ":L2«, l3=0x3b}
0x0dec…0df9 Line {l1=0x0b, l2=»1080 PRINT «, l3=0x0b}
0x0df9…0e36 Line {l1=0x3b, l2=»1090 INPUT "Indtast bredden i den øverste flade: ":B2«, l3=0x3b}
0x0e36…0e43 Line {l1=0x0b, l2=»1100 PRINT «, l3=0x0b}
0x0e43…0e83 Line {l1=0x3e, l2=»1110 INPUT "Indtast pyramidestubbens højde: ":HØJDE«, l3=0x3e}
0x0e83…0ebb Line {l1=0x36, l2=»1120 RUMFANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2))«, l3=0x36}
0x0ebb…0ec8 Line {l1=0x0b, l2=»1130 PRINT «, l3=0x0b}
0x0ec8…0ed5 Line {l1=0x0b, l2=»1140 PRINT «, l3=0x0b}
0x0ed5…0f24 Line {l1=0x4d, l2=»1150 PRINT "Rumfanget af en pyramidestub med de ønskede mål: ";RUMFAN«, l3=0x4d}
0x0f24…0f3f Line {l1=0x19, l2=»1160 ENDPROC PYRAMIDESTUB«, l3=0x19}
0x0f3f…0f8b Line {l1=0x4a, l2=»1170 // ------------------------------------------------------------------«, l3=0x4a}
0x0f8b…0f9f Line {l1=0x12, l2=»1180 PROC CYLINDER«, l3=0x12}
0x0f9f…0fac Line {l1=0x0b, l2=»1190 CLEAR «, l3=0x0b}
0x0fac…0fbd Line {l1=0x0f, l2=»1200 CURSOR 1,5«, l3=0x0f}
0x0fbd…0ff5 Line {l1=0x36, l2=»1210 PRINT " C Y L I N D E R . "«, l3=0x36}
0x0ff5…1044 Line {l1=0x4d, l2=»1220 PRINT "________________________________________________________________"«, l3=0x4d}
0x1044…1056 Line {l1=0x10, l2=»1230 CURSOR 1,10«, l3=0x10}
0x1056…1096 Line {l1=0x3e, l2=»1240 INPUT "Indtast cylinderens radius: ":RADIUS«, l3=0x3e}
0x1096…10a3 Line {l1=0x0b, l2=»1250 PRINT «, l3=0x0b}
0x10a3…10e2 Line {l1=0x3d, l2=»1260 INPUT "Indtast cylinderens højde: ":HØJDE«, l3=0x3d}
0x10e2…1116 Line {l1=0x32, l2=»1270 RUMFANG:=INT(3.14159*HØJDE*RADIUS**2*100)/100«, l3=0x32}
0x1116…1123 Line {l1=0x0b, l2=»1280 PRINT «, l3=0x0b}
0x1123…1130 Line {l1=0x0b, l2=»1290 PRINT «, l3=0x0b}
0x1130…1175 Line {l1=0x43, l2=»1300 PRINT "Cylinderens rumfang med de ønskede mål: ";RUMFANG«, l3=0x43}
0x1175…118c Line {l1=0x15, l2=»1310 ENDPROC CYLINDER«, l3=0x15}
0x118c…11d8 Line {l1=0x4a, l2=»1320 // ------------------------------------------------------------------«, l3=0x4a}
0x11d8…11e9 Line {l1=0x0f, l2=»1330 PROC KEGLE«, l3=0x0f}
0x11e9…11f6 Line {l1=0x0b, l2=»1340 CLEAR «, l3=0x0b}
0x11f6…1207 Line {l1=0x0f, l2=»1350 CURSOR 1,5«, l3=0x0f}
0x1207…123e Line {l1=0x35, l2=»1360 PRINT " K E G L E . "«, l3=0x35}
0x123e…128d Line {l1=0x4d, l2=»1370 PRINT "________________________________________________________________"«, l3=0x4d}
0x128d…129f Line {l1=0x10, l2=»1380 CURSOR 1,10«, l3=0x10}
0x129f…12df Line {l1=0x3e, l2=»1390 INPUT "Indtast keglens radius: ":RADIUS«, l3=0x3e}
0x12df…12ec Line {l1=0x0b, l2=»1400 PRINT «, l3=0x0b}
0x12ec…132b Line {l1=0x3d, l2=»1410 INPUT "Indtast keglens højde: ":HØJDE«, l3=0x3d}
0x132b…134e Line {l1=0x21, l2=»1420 RUMFANG:=1/3*HØJDE*RADIUS**2«, l3=0x21}
0x134e…135b Line {l1=0x0b, l2=»1430 PRINT «, l3=0x0b}
0x135b…1368 Line {l1=0x0b, l2=»1440 PRINT «, l3=0x0b}
0x1368…13a9 Line {l1=0x3f, l2=»1450 PRINT "Keglens rumfang med de ønskede mål: ";RUMFANG«, l3=0x3f}
0x13a9…13bd Line {l1=0x12, l2=»1460 ENDPROC KEGLE«, l3=0x12}
0x13bd…1409 Line {l1=0x4a, l2=»1470 // ------------------------------------------------------------------«, l3=0x4a}
0x1409…141e Line {l1=0x13, l2=»1480 PROC KEGLESTUB«, l3=0x13}
0x141e…142b Line {l1=0x0b, l2=»1490 CLEAR «, l3=0x0b}
0x142b…143c Line {l1=0x0f, l2=»1500 CURSOR 1,5«, l3=0x0f}
0x143c…147a Line {l1=0x3c, l2=»1510 PRINT " K E G L E S T U B . "«, l3=0x3c}
0x147a…14c9 Line {l1=0x4d, l2=»1520 PRINT "________________________________________________________________"«, l3=0x4d}
0x14c9…14d6 Line {l1=0x0b, l2=»1530 PRINT «, l3=0x0b}
0x14d6…14e8 Line {l1=0x10, l2=»1540 CURSOR 1,10«, l3=0x10}
0x14e8…1526 Line {l1=0x3c, l2=»1550 INPUT "Indtast keglestubbens nederste radius: ":R1«, l3=0x3c}
0x1526…1533 Line {l1=0x0b, l2=»1560 PRINT «, l3=0x0b}
0x1533…1571 Line {l1=0x3c, l2=»1570 INPUT "Indtast keglestubbens øverste radius: ":R2«, l3=0x3c}
0x1571…157e Line {l1=0x0b, l2=»1580 PRINT «, l3=0x0b}
0x157e…15bf Line {l1=0x3f, l2=»1590 INPUT "Indtast keglestubbens højde: ":HØJDE«, l3=0x3f}
0x15bf…15cc Line {l1=0x0b, l2=»1600 PRINT «, l3=0x0b}
0x15cc…1601 Line {l1=0x33, l2=»1610 RUMFANG:=1/3*3.14159*HØJDE*(R1**2+R2**2+R1*R2)«, l3=0x33}
0x1601…160e Line {l1=0x0b, l2=»1620 PRINT «, l3=0x0b}
0x160e…1658 Line {l1=0x48, l2=»1630 PRINT "Rumfanget af en keglestub med de ønskede mål: ";RUMFANG«, l3=0x48}
0x1658…1670 Line {l1=0x16, l2=»1640 ENDPROC KEGLESTUB«, l3=0x16}
0x1670…16bb Line {l1=0x49, l2=»1650 // -----------------------------------------------------------------«, l3=0x49}
0x16bb…16cc Line {l1=0x0f, l2=»1660 PROC KUGLE«, l3=0x0f}
0x16cc…16d9 Line {l1=0x0b, l2=»1670 CLEAR «, l3=0x0b}
0x16d9…16ea Line {l1=0x0f, l2=»1680 CURSOR 1,5«, l3=0x0f}
0x16ea…1723 Line {l1=0x37, l2=»1690 PRINT " K U G L E . "«, l3=0x37}
0x1723…1772 Line {l1=0x4d, l2=»1700 PRINT "________________________________________________________________"«, l3=0x4d}
0x1772…1784 Line {l1=0x10, l2=»1710 CURSOR 1,10«, l3=0x10}
0x1784…17c5 Line {l1=0x3f, l2=»1720 INPUT "Indtast kuglens radius: ":RADIUS«, l3=0x3f}
0x17c5…17ea Line {l1=0x23, l2=»1730 RUMFANG:=4/3*3.14159*RADIUS**3«, l3=0x23}
0x17ea…17fc Line {l1=0x10, l2=»1740 CURSOR 1,16«, l3=0x10}
0x17fc…1833 Line {l1=0x35, l2=»1750 PRINT "Rumfanget af en kugle, hvor radius er: ";«, l3=0x35}
0x1833…1861 Line {l1=0x2c, l2=»1755 PRINT RADIUS;" = ";INT(RUMFANG*100)/100«, l3=0x2c}
0x1861…1875 Line {l1=0x12, l2=»1760 ENDPROC KUGLE«, l3=0x12}
0x1875…18c1 Line {l1=0x4a, l2=»1770 // ------------------------------------------------------------------«, l3=0x4a}
0x18c1…18d1 Line {l1=0x0e, l2=»1780 PROC SLUT«, l3=0x0e}
0x18d1…18de Line {l1=0x0b, l2=»1790 CLEAR «, l3=0x0b}
0x18de…18f1 Line {l1=0x11, l2=»1800 CURSOR 15,12«, l3=0x11}
0x18f1…192b Line {l1=0x38, l2=»1810 PRINT "Det var så en del nye rumfang. Tak for nu. "«, l3=0x38}
0x192b…193d Line {l1=0x10, l2=»1820 CURSOR 1,21«, l3=0x10}
0x193d…1948 Line {l1=0x09, l2=»1830 END «, l3=0x09}
0x1948…195b Line {l1=0x11, l2=»1840 ENDPROC SLUT«, l3=0x11}
0x195b…1960 00 00 63 63 63 ┆ ccc┆
0x1960…1980 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┆
[…0x21…]