|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »IDEALVÆG.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »IDEALVÆG.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »IDEALVÆG.K«
0010 // ------------------------- Idealvægt ------------------------ 0020 // 0030 CLEAR 0040 DIM MAKVI$ OF 10,SV$ OF 2,SVAR$ OF 5,PRØV$ OF 8 0050 // ----------------------------------------------------- 0060 EXEC MENU 0070 PROC MENU 0080 REPEAT 0090 EXEC HOVED 0100 EXEC SPØRG 0120 UNTIL SV$ IN "nN" 0130 ENDPROC MENU 0140 // ----------------------------------------------------- 0150 PROC HOVED 0160 CLEAR 0170 FOR X:=10 TO 70 DO 0180 CURSOR X,2 0190 PRINT "*" 0200 NEXT X 0210 FOR Y:=3 TO 13 DO 0220 CURSOR 70,Y 0230 PRINT "*" 0240 NEXT Y 0250 FOR X:=69 TO 10 STEP -1 DO 0260 CURSOR X,13 0270 PRINT "*" 0280 NEXT X 0290 FOR Y:=13 TO 3 STEP -1 DO 0300 CURSOR 10,Y 0310 PRINT "*" 0320 NEXT Y 0330 CURSOR 10,6 0340 PRINT "* I D E A L V Æ G T " 0350 CURSOR 10,8 0360 PRINT "* h o s" 0370 CURSOR 10,10 0380 PRINT "* K V I N D E R O G M Æ N D " 0390 CURSOR 10,20 0400 PRINT "Programmet udskriver idealvægt hos kvinder og mænd, når man " 0410 CURSOR 10,22 0420 PRINT "indtaster højden i cm. " 0440 CURSOR 72,23 0450 INPUT "Return! ":SVAR$ 0480 ENDPROC HOVED 0490 // ----------------------------------------------------------------- 0500 PROC SPØRG 0510 CLEAR 0520 REPEAT 0530 CURSOR 5,5 0540 PRINT "<ZS>Skriv om du er mand eller kvinde. (mand/kvinde) " 0550 INPUT MAKVI$ 0560 CASE MAKVI$ OF 0570 WHEN " " 0580 EXEC FORTSÆTTE 0590 WHEN "mand" 0600 EXEC MAND 0610 EXEC UDSKRIV 0620 EXEC FORTSÆTTE 0630 WHEN "kvinde" 0640 EXEC KVINDE 0650 EXEC FORTSÆTTE 0660 OTHERWISE 0670 PRINT 0680 ENDCASE 0690 UNTIL ","+MAKVI$+"," IN ",mand,kvinde," 0700 ENDPROC SPØRG 0710 // ------------------------------------------------------------------ 0720 PROC MAND 0730 CURSOR 5,7 0740 INPUT "Du skal her indtaste din højde i cm: ":HØJDE 0750 VÆGT:=(HØJDE-100)*90/100 0760 VÆGT:=INT(VÆGT) 0770 IF HØJDE<120 OR HØJDE>200 THEN EXEC UNORMAL 0780 ENDPROC MAND 0790 // --------------------------------------------------------------------- 0800 PROC UDSKRIV 0810 CURSOR 5,15 0820 PRINT "****************************************************************" 0830 CURSOR 5,16 0840 PRINT "***** *****" 0850 CURSOR 5,17 0859 PRINT "***** Du skal med en højde på: "; 0860 PRINT USING "#####.# cm. veje: *****":HØJDE 0870 CURSOR 5,18 0879 PRINT "***** "; 0880 PRINT USING "####.# kg. *****":VÆGT 0890 CURSOR 5,19 0900 PRINT "***** *****" 0910 CURSOR 5,20 0920 PRINT "****************************************************************" 0930 ENDPROC UDSKRIV 0940 // --------------------------------------------------------------------- 0950 PROC FORTSÆTTE 0960 PRINT 0970 PRINT 0980 // POKE 256, 0 0990 CURSOR 5,22 1000 INPUT "Ønsker du at fortsætte? (j/n) ":SV$ 1030 IF SV$ IN "nN" THEN 1040 EXEC SLUT 1050 ENDIF 1060 ENDPROC FORTSÆTTE 1070 // --------------------------------------------------------------------- 1080 PROC UNORMAL 1090 REPEAT 1110 CURSOR 5,15 1120 PRINT "Du ligger vist uden for de normale rammer."; 1125 INPUT " Skal vi prøve igen? (j/n)":SV$ 1130 CURSOR 75,15 1160 IF SV$="j" OR SV$="J" THEN 1170 EXEC MENU 1180 ENDIF 1190 IF SV$ IN "nN" THEN 1200 EXEC SLUT 1210 ENDIF 1220 UNTIL SV$ IN "nN" 1230 ENDPROC UNORMAL 1240 // --------------------------------------------------------------------- 1250 PROC KVINDE 1260 PRINT 1270 PRINT 1280 INPUT " Du skal indtaste din højde i cm: ":HØJDE 1290 IF HØJDE<130 OR HØJDE>190 THEN 1300 EXEC UNORMAL 1310 ELSE 1320 VÆGT:=(HØJDE-100)*0.88 1330 IF VÆGT MOD 10=6 THEN VÆGT:=VÆGT+1 1340 VÆGT:=INT(VÆGT) 1350 EXEC UDSKRIV 1360 ENDIF 1370 ENDPROC KVINDE 1380 // --------------------------------------------------------------------- 1390 PROC SLUT 1400 CURSOR 5,24 1410 PRINT "Så slutter vi for i dag." 1420 END 1430 ENDPROC SLUT
0x0000…0046 Line {l1=0x44, l2=»0010 // ------------------------- Idealvægt ------------------------«, l3=0x44}
0x0046…0050 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x0050…005d Line {l1=0x0b, l2=»0030 CLEAR «, l3=0x0b}
0x005d…0093 Line {l1=0x34, l2=»0040 DIM MAKVI$ OF 10,SV$ OF 2,SVAR$ OF 5,PRØV$ OF 8«, l3=0x34}
0x0093…00d2 Line {l1=0x3d, l2=»0050 // -----------------------------------------------------«, l3=0x3d}
0x00d2…00e2 Line {l1=0x0e, l2=»0060 EXEC MENU«, l3=0x0e}
0x00e2…00f2 Line {l1=0x0e, l2=»0070 PROC MENU«, l3=0x0e}
0x00f2…0100 Line {l1=0x0c, l2=»0080 REPEAT «, l3=0x0c}
0x0100…0111 Line {l1=0x0f, l2=»0090 EXEC HOVED«, l3=0x0f}
0x0111…0122 Line {l1=0x0f, l2=»0100 EXEC SPØRG«, l3=0x0f}
0x0122…013a Line {l1=0x16, l2=»0120 UNTIL SV$ IN "nN"«, l3=0x16}
0x013a…014d Line {l1=0x11, l2=»0130 ENDPROC MENU«, l3=0x11}
0x014d…018c Line {l1=0x3d, l2=»0140 // -----------------------------------------------------«, l3=0x3d}
0x018c…019d Line {l1=0x0f, l2=»0150 PROC HOVED«, l3=0x0f}
0x019d…01aa Line {l1=0x0b, l2=»0160 CLEAR «, l3=0x0b}
0x01aa…01c4 Line {l1=0x18, l2=»0170 FOR X:=10 TO 70 DO «, l3=0x18}
0x01c4…01d5 Line {l1=0x0f, l2=»0180 CURSOR X,2«, l3=0x0f}
0x01d5…01e5 Line {l1=0x0e, l2=»0190 PRINT "*"«, l3=0x0e}
0x01e5…01f2 Line {l1=0x0b, l2=»0200 NEXT X«, l3=0x0b}
0x01f2…020b Line {l1=0x17, l2=»0210 FOR Y:=3 TO 13 DO «, l3=0x17}
0x020b…021d Line {l1=0x10, l2=»0220 CURSOR 70,Y«, l3=0x10}
0x021d…022d Line {l1=0x0e, l2=»0230 PRINT "*"«, l3=0x0e}
0x022d…023a Line {l1=0x0b, l2=»0240 NEXT Y«, l3=0x0b}
0x023a…025c Line {l1=0x20, l2=»0250 FOR X:=69 TO 10 STEP -1 DO «, l3=0x20}
0x025c…026e Line {l1=0x10, l2=»0260 CURSOR X,13«, l3=0x10}
0x026e…027e Line {l1=0x0e, l2=»0270 PRINT "*"«, l3=0x0e}
0x027e…028b Line {l1=0x0b, l2=»0280 NEXT X«, l3=0x0b}
0x028b…02ac Line {l1=0x1f, l2=»0290 FOR Y:=13 TO 3 STEP -1 DO «, l3=0x1f}
0x02ac…02be Line {l1=0x10, l2=»0300 CURSOR 10,Y«, l3=0x10}
0x02be…02ce Line {l1=0x0e, l2=»0310 PRINT "*"«, l3=0x0e}
0x02ce…02db Line {l1=0x0b, l2=»0320 NEXT Y«, l3=0x0b}
0x02db…02ed Line {l1=0x10, l2=»0330 CURSOR 10,6«, l3=0x10}
0x02ed…0325 Line {l1=0x36, l2=»0340 PRINT "* I D E A L V Æ G T "«, l3=0x36}
0x0325…0337 Line {l1=0x10, l2=»0350 CURSOR 10,8«, l3=0x10}
0x0337…0366 Line {l1=0x2d, l2=»0360 PRINT "* h o s"«, l3=0x2d}
0x0366…0379 Line {l1=0x11, l2=»0370 CURSOR 10,10«, l3=0x11}
0x0379…03b5 Line {l1=0x3a, l2=»0380 PRINT "* K V I N D E R O G M Æ N D "«, l3=0x3a}
0x03b5…03c8 Line {l1=0x11, l2=»0390 CURSOR 10,20«, l3=0x11}
0x03c8…0413 Line {l1=0x49, l2=»0400 PRINT "Programmet udskriver idealvægt hos kvinder og mænd, når man "«, l3=0x49}
0x0413…0426 Line {l1=0x11, l2=»0410 CURSOR 10,22«, l3=0x11}
0x0426…046e Line {l1=0x46, l2=»0420 PRINT "indtaster højden i cm. "«, l3=0x46}
0x046e…0481 Line {l1=0x11, l2=»0440 CURSOR 72,23«, l3=0x11}
0x0481…049e Line {l1=0x1b, l2=»0450 INPUT "Return! ":SVAR$«, l3=0x1b}
0x049e…04b2 Line {l1=0x12, l2=»0480 ENDPROC HOVED«, l3=0x12}
0x04b2…04fd Line {l1=0x49, l2=»0490 // -----------------------------------------------------------------«, l3=0x49}
0x04fd…050e Line {l1=0x0f, l2=»0500 PROC SPØRG«, l3=0x0f}
0x050e…051b Line {l1=0x0b, l2=»0510 CLEAR «, l3=0x0b}
0x051b…0529 Line {l1=0x0c, l2=»0520 REPEAT «, l3=0x0c}
0x0529…053a Line {l1=0x0f, l2=»0530 CURSOR 5,5«, l3=0x0f}
0x053a…0582 Line {l1=0x46, l2=»0540 PRINT "<ZS>Skriv om du er mand eller kvinde. (mand/kvinde) "«, l3=0x46}
0x0582…0595 Line {l1=0x11, l2=»0550 INPUT MAKVI$«, l3=0x11}
0x0595…05ab Line {l1=0x14, l2=»0560 CASE MAKVI$ OF «, l3=0x14}
0x05ab…05ba Line {l1=0x0d, l2=»0570 WHEN " "«, l3=0x0d}
0x05ba…05cf Line {l1=0x13, l2=»0580 EXEC FORTSÆTTE«, l3=0x13}
0x05cf…05e1 Line {l1=0x10, l2=»0590 WHEN "mand"«, l3=0x10}
0x05e1…05f1 Line {l1=0x0e, l2=»0600 EXEC MAND«, l3=0x0e}
0x05f1…0604 Line {l1=0x11, l2=»0610 EXEC UDSKRIV«, l3=0x11}
0x0604…0619 Line {l1=0x13, l2=»0620 EXEC FORTSÆTTE«, l3=0x13}
0x0619…062d Line {l1=0x12, l2=»0630 WHEN "kvinde"«, l3=0x12}
0x062d…063f Line {l1=0x10, l2=»0640 EXEC KVINDE«, l3=0x10}
0x063f…0654 Line {l1=0x13, l2=»0650 EXEC FORTSÆTTE«, l3=0x13}
0x0654…0665 Line {l1=0x0f, l2=»0660 OTHERWISE «, l3=0x0f}
0x0665…0672 Line {l1=0x0b, l2=»0670 PRINT «, l3=0x0b}
0x0672…0681 Line {l1=0x0d, l2=»0680 ENDCASE «, l3=0x0d}
0x0681…06af Line {l1=0x2c, l2=»0690 UNTIL ","+MAKVI$+"," IN ",mand,kvinde,"«, l3=0x2c}
0x06af…06c3 Line {l1=0x12, l2=»0700 ENDPROC SPØRG«, l3=0x12}
0x06c3…070f Line {l1=0x4a, l2=»0710 // ------------------------------------------------------------------«, l3=0x4a}
0x070f…071f Line {l1=0x0e, l2=»0720 PROC MAND«, l3=0x0e}
0x071f…0730 Line {l1=0x0f, l2=»0730 CURSOR 5,7«, l3=0x0f}
0x0730…077c Line {l1=0x4a, l2=»0740 INPUT "Du skal her indtaste din højde i cm: ":HØJDE«, l3=0x4a}
0x077c…079b Line {l1=0x1d, l2=»0750 VÆGT:=(HØJDE-100)*90/100«, l3=0x1d}
0x079b…07b1 Line {l1=0x14, l2=»0760 VÆGT:=INT(VÆGT)«, l3=0x14}
0x07b1…07e3 Line {l1=0x30, l2=»0770 IF HØJDE<120 OR HØJDE>200 THEN EXEC UNORMAL«, l3=0x30}
0x07e3…07f6 Line {l1=0x11, l2=»0780 ENDPROC MAND«, l3=0x11}
0x07f6…0845 Line {l1=0x4d, l2=»0790 // ---------------------------------------------------------------------«, l3=0x4d}
0x0845…0858 Line {l1=0x11, l2=»0800 PROC UDSKRIV«, l3=0x11}
0x0858…086a Line {l1=0x10, l2=»0810 CURSOR 5,15«, l3=0x10}
0x086a…08b9 Line {l1=0x4d, l2=»0820 PRINT "****************************************************************"«, l3=0x4d}
0x08b9…08cb Line {l1=0x10, l2=»0830 CURSOR 5,16«, l3=0x10}
0x08cb…091a Line {l1=0x4d, l2=»0840 PRINT "***** *****"«, l3=0x4d}
0x091a…092c Line {l1=0x10, l2=»0850 CURSOR 5,17«, l3=0x10}
0x092c…095e Line {l1=0x30, l2=»0859 PRINT "***** Du skal med en højde på: ";«, l3=0x30}
0x095e…0997 Line {l1=0x37, l2=»0860 PRINT USING "#####.# cm. veje: *****":HØJDE«, l3=0x37}
0x0997…09a9 Line {l1=0x10, l2=»0870 CURSOR 5,18«, l3=0x10}
0x09a9…09d1 Line {l1=0x26, l2=»0879 PRINT "***** ";«, l3=0x26}
0x09d1…0a13 Line {l1=0x40, l2=»0880 PRINT USING "####.# kg. *****":VÆGT«, l3=0x40}
0x0a13…0a25 Line {l1=0x10, l2=»0890 CURSOR 5,19«, l3=0x10}
0x0a25…0a74 Line {l1=0x4d, l2=»0900 PRINT "***** *****"«, l3=0x4d}
0x0a74…0a86 Line {l1=0x10, l2=»0910 CURSOR 5,20«, l3=0x10}
0x0a86…0ad5 Line {l1=0x4d, l2=»0920 PRINT "****************************************************************"«, l3=0x4d}
0x0ad5…0aeb Line {l1=0x14, l2=»0930 ENDPROC UDSKRIV«, l3=0x14}
0x0aeb…0b3a Line {l1=0x4d, l2=»0940 // ---------------------------------------------------------------------«, l3=0x4d}
0x0b3a…0b4f Line {l1=0x13, l2=»0950 PROC FORTSÆTTE«, l3=0x13}
0x0b4f…0b5c Line {l1=0x0b, l2=»0960 PRINT «, l3=0x0b}
0x0b5c…0b69 Line {l1=0x0b, l2=»0970 PRINT «, l3=0x0b}
0x0b69…0b7e Line {l1=0x13, l2=»0980 // POKE 256, 0«, l3=0x13}
0x0b7e…0b90 Line {l1=0x10, l2=»0990 CURSOR 5,22«, l3=0x10}
0x0b90…0bc5 Line {l1=0x33, l2=»1000 INPUT "Ønsker du at fortsætte? (j/n) ":SV$«, l3=0x33}
0x0bc5…0be0 Line {l1=0x19, l2=»1030 IF SV$ IN "nN" THEN «, l3=0x19}
0x0be0…0bf0 Line {l1=0x0e, l2=»1040 EXEC SLUT«, l3=0x0e}
0x0bf0…0bfd Line {l1=0x0b, l2=»1050 ENDIF «, l3=0x0b}
0x0bfd…0c15 Line {l1=0x16, l2=»1060 ENDPROC FORTSÆTTE«, l3=0x16}
0x0c15…0c64 Line {l1=0x4d, l2=»1070 // ---------------------------------------------------------------------«, l3=0x4d}
0x0c64…0c77 Line {l1=0x11, l2=»1080 PROC UNORMAL«, l3=0x11}
0x0c77…0c85 Line {l1=0x0c, l2=»1090 REPEAT «, l3=0x0c}
0x0c85…0c97 Line {l1=0x10, l2=»1110 CURSOR 5,15«, l3=0x10}
0x0c97…0cd1 Line {l1=0x38, l2=»1120 PRINT "Du ligger vist uden for de normale rammer.";«, l3=0x38}
0x0cd1…0cfe Line {l1=0x2b, l2=»1125 INPUT " Skal vi prøve igen? (j/n)":SV$«, l3=0x2b}
0x0cfe…0d11 Line {l1=0x11, l2=»1130 CURSOR 75,15«, l3=0x11}
0x0d11…0d33 Line {l1=0x20, l2=»1160 IF SV$="j" OR SV$="J" THEN «, l3=0x20}
0x0d33…0d43 Line {l1=0x0e, l2=»1170 EXEC MENU«, l3=0x0e}
0x0d43…0d50 Line {l1=0x0b, l2=»1180 ENDIF «, l3=0x0b}
0x0d50…0d6b Line {l1=0x19, l2=»1190 IF SV$ IN "nN" THEN «, l3=0x19}
0x0d6b…0d7b Line {l1=0x0e, l2=»1200 EXEC SLUT«, l3=0x0e}
0x0d7b…0d88 Line {l1=0x0b, l2=»1210 ENDIF «, l3=0x0b}
0x0d88…0da0 Line {l1=0x16, l2=»1220 UNTIL SV$ IN "nN"«, l3=0x16}
0x0da0…0db6 Line {l1=0x14, l2=»1230 ENDPROC UNORMAL«, l3=0x14}
0x0db6…0e05 Line {l1=0x4d, l2=»1240 // ---------------------------------------------------------------------«, l3=0x4d}
0x0e05…0e17 Line {l1=0x10, l2=»1250 PROC KVINDE«, l3=0x10}
0x0e17…0e24 Line {l1=0x0b, l2=»1260 PRINT «, l3=0x0b}
0x0e24…0e31 Line {l1=0x0b, l2=»1270 PRINT «, l3=0x0b}
0x0e31…0e80 Line {l1=0x4d, l2=»1280 INPUT " Du skal indtaste din højde i cm: ":HØJDE«, l3=0x4d}
0x0e80…0ea6 Line {l1=0x24, l2=»1290 IF HØJDE<130 OR HØJDE>190 THEN «, l3=0x24}
0x0ea6…0eb9 Line {l1=0x11, l2=»1300 EXEC UNORMAL«, l3=0x11}
0x0eb9…0ec5 Line {l1=0x0a, l2=»1310 ELSE «, l3=0x0a}
0x0ec5…0ee2 Line {l1=0x1b, l2=»1320 VÆGT:=(HØJDE-100)*0.88«, l3=0x1b}
0x0ee2…0f0b Line {l1=0x27, l2=»1330 IF VÆGT MOD 10=6 THEN VÆGT:=VÆGT+1«, l3=0x27}
0x0f0b…0f21 Line {l1=0x14, l2=»1340 VÆGT:=INT(VÆGT)«, l3=0x14}
0x0f21…0f34 Line {l1=0x11, l2=»1350 EXEC UDSKRIV«, l3=0x11}
0x0f34…0f41 Line {l1=0x0b, l2=»1360 ENDIF «, l3=0x0b}
0x0f41…0f56 Line {l1=0x13, l2=»1370 ENDPROC KVINDE«, l3=0x13}
0x0f56…0fa5 Line {l1=0x4d, l2=»1380 // ---------------------------------------------------------------------«, l3=0x4d}
0x0fa5…0fb5 Line {l1=0x0e, l2=»1390 PROC SLUT«, l3=0x0e}
0x0fb5…0fc7 Line {l1=0x10, l2=»1400 CURSOR 5,24«, l3=0x10}
0x0fc7…0fee Line {l1=0x25, l2=»1410 PRINT "Så slutter vi for i dag."«, l3=0x25}
0x0fee…0ff9 Line {l1=0x09, l2=»1420 END «, l3=0x09}
0x0ff9…100c Line {l1=0x11, l2=»1430 ENDPROC SLUT«, l3=0x11}
0x100c…1020 00 00 20 53 4c 55 54 11 00 00 63 63 63 63 63 63 63 63 63 63 ┆ SLUT cccccccccc┆
0x1020…1040 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┆
[…0x1c…]