|
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: »RUMFANG.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG.K«
0100 // 0110 // -------------------------- svømmepøl ---------------------------- 0120 // 0130 // 0140 CLEAR 0150 DIM BUF$ OF 128,LIN$(25) OF 81,S$ OF 1,LENG$(24) OF 80 0160 // --------------------------------------------------------------------- 0170 REPEAT 0180 CLEAR 0190 EXEC HOVED 0210 EXEC SPØRG 0220 EXEC RAMME 0230 UNTIL S$="N" OR S$="n" 0240 // --------------------------------------------------------------------- 0250 PROC HOVED 0260 CURSOR 4,4 0270 PRINT "****************************************************************" 0280 CURSOR 4,5 0290 PRINT "***** R U M F A N G S O P G A V E *****" 0300 CURSOR 4,6 0310 PRINT "****************************************************************" 0320 PRINT 0330 PRINT 0340 CURSOR 4,15 0350 PRINT "Du skal nu finde rumfanget af forskellige prismer ved at ind"; 0351 PRINT "taste" 0360 CURSOR 4,16 0370 PRINT "længde, bredde & højde.." 0380 CURSOR 4,17 0390 PRINT "I bogen kan du finde et billede af en svømmepøl, som du skal" 0400 CURSOR 4,18 0410 PRINT "udregne rumfanget af ved hjælp af datamaten." 0420 EXEC VENT 0430 ENDPROC HOVED 0440 // --------------------------------------------------------------------- 0450 PROC MALERI 0460 CLEAR 0470 FOR Y:=1 TO 15 DO 0480 CURSOR 1,Y+2 0490 PRINT LIN$(Y) 0500 NEXT Y 0550 CURSOR 1,23 0560 ENDPROC MALERI 0570 // ---------------------------------------------------------------- 0580 PROC SPØRG 0590 CLEAR 0600 PRINT 0610 INPUT "Indtast kassens længde: ":LÆNGDE 0620 PRINT 0630 INPUT "Indtast kassens bredde: ":BREDDE 0640 PRINT 0650 INPUT "Indtast kassens højde: ":HØJDE 0660 PRINT 0670 RUMFANG:=LÆNGDE*BREDDE*HØJDE 0680 ENDPROC SPØRG 0690 // ------------------------------------------------------------------- 0700 PROC RAMME 0710 OPEN "SYSTIME:RAMMETXT",R 0720 FOR Y:=1 TO 15 DO 0730 GET "SYSTIME:RAMMETXT":LIN$(Y) 0740 NEXT Y 0750 CLOSE 0760 EXEC MALERI 0770 CURSOR 12,15 0780 PRINT USING "########.#":LÆNGDE 0790 CURSOR 26,15 0800 PRINT USING "########.#":BREDDE 0810 CURSOR 39,15 0820 PRINT USING "########.#":HØJDE 0830 CURSOR 52,15 0840 PRINT USING "########.#":RUMFANG 0850 CURSOR 8,24 0860 INPUT "Ønsker du at beregne flere rumfang? (j/n)":S$ 0870 ENDPROC RAMME 0880 // --------------------------------------------------------------------- 0890 PRINT 0900 PRINT 0910 PRINT " Så er vi færdige for i dag." 0920 // ------------------------------------------------------------------- 0930 // ----------------------------------------------------------------- 0940 PROC VENT 0960 CURSOR 68,24 0970 INPUT "Return:":S$ 1000 ENDPROC VENT 1010 // -------------------------------------------------------------------
0x0000…000a Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x000a…0055 Line {l1=0x49, l2=»0110 // -------------------------- svømmepøl ----------------------------«, l3=0x49}
0x0055…005f Line {l1=0x08, l2=»0120 // «, l3=0x08}
0x005f…0069 Line {l1=0x08, l2=»0130 // «, l3=0x08}
0x0069…0076 Line {l1=0x0b, l2=»0140 CLEAR «, l3=0x0b}
0x0076…00b3 Line {l1=0x3b, l2=»0150 DIM BUF$ OF 128,LIN$(25) OF 81,S$ OF 1,LENG$(24) OF 80«, l3=0x3b}
0x00b3…0102 Line {l1=0x4d, l2=»0160 // ---------------------------------------------------------------------«, l3=0x4d}
0x0102…0110 Line {l1=0x0c, l2=»0170 REPEAT «, l3=0x0c}
0x0110…011d Line {l1=0x0b, l2=»0180 CLEAR «, l3=0x0b}
0x011d…012e Line {l1=0x0f, l2=»0190 EXEC HOVED«, l3=0x0f}
0x012e…013f Line {l1=0x0f, l2=»0210 EXEC SPØRG«, l3=0x0f}
0x013f…0150 Line {l1=0x0f, l2=»0220 EXEC RAMME«, l3=0x0f}
0x0150…016d Line {l1=0x1b, l2=»0230 UNTIL S$="N" OR S$="n"«, l3=0x1b}
0x016d…01bc Line {l1=0x4d, l2=»0240 // ---------------------------------------------------------------------«, l3=0x4d}
0x01bc…01cd Line {l1=0x0f, l2=»0250 PROC HOVED«, l3=0x0f}
0x01cd…01de Line {l1=0x0f, l2=»0260 CURSOR 4,4«, l3=0x0f}
0x01de…022d Line {l1=0x4d, l2=»0270 PRINT "****************************************************************"«, l3=0x4d}
0x022d…023e Line {l1=0x0f, l2=»0280 CURSOR 4,5«, l3=0x0f}
0x023e…028d Line {l1=0x4d, l2=»0290 PRINT "***** R U M F A N G S O P G A V E *****"«, l3=0x4d}
0x028d…029e Line {l1=0x0f, l2=»0300 CURSOR 4,6«, l3=0x0f}
0x029e…02ed Line {l1=0x4d, l2=»0310 PRINT "****************************************************************"«, l3=0x4d}
0x02ed…02fa Line {l1=0x0b, l2=»0320 PRINT «, l3=0x0b}
0x02fa…0307 Line {l1=0x0b, l2=»0330 PRINT «, l3=0x0b}
0x0307…0319 Line {l1=0x10, l2=»0340 CURSOR 4,15«, l3=0x10}
0x0319…0365 Line {l1=0x4a, l2=»0350 PRINT "Du skal nu finde rumfanget af forskellige prismer ved at ind";«, l3=0x4a}
0x0365…0379 Line {l1=0x12, l2=»0351 PRINT "taste"«, l3=0x12}
0x0379…038b Line {l1=0x10, l2=»0360 CURSOR 4,16«, l3=0x10}
0x038b…03b2 Line {l1=0x25, l2=»0370 PRINT "længde, bredde & højde.."«, l3=0x25}
0x03b2…03c4 Line {l1=0x10, l2=»0380 CURSOR 4,17«, l3=0x10}
0x03c4…040f Line {l1=0x49, l2=»0390 PRINT "I bogen kan du finde et billede af en svømmepøl, som du skal"«, l3=0x49}
0x040f…0421 Line {l1=0x10, l2=»0400 CURSOR 4,18«, l3=0x10}
0x0421…045c Line {l1=0x39, l2=»0410 PRINT "udregne rumfanget af ved hjælp af datamaten."«, l3=0x39}
0x045c…046c Line {l1=0x0e, l2=»0420 EXEC VENT«, l3=0x0e}
0x046c…0480 Line {l1=0x12, l2=»0430 ENDPROC HOVED«, l3=0x12}
0x0480…04cf Line {l1=0x4d, l2=»0440 // ---------------------------------------------------------------------«, l3=0x4d}
0x04cf…04e1 Line {l1=0x10, l2=»0450 PROC MALERI«, l3=0x10}
0x04e1…04ee Line {l1=0x0b, l2=»0460 CLEAR «, l3=0x0b}
0x04ee…0507 Line {l1=0x17, l2=»0470 FOR Y:=1 TO 15 DO «, l3=0x17}
0x0507…051a Line {l1=0x11, l2=»0480 CURSOR 1,Y+2«, l3=0x11}
0x051a…052e Line {l1=0x12, l2=»0490 PRINT LIN$(Y)«, l3=0x12}
0x052e…053b Line {l1=0x0b, l2=»0500 NEXT Y«, l3=0x0b}
0x053b…054d Line {l1=0x10, l2=»0550 CURSOR 1,23«, l3=0x10}
0x054d…0562 Line {l1=0x13, l2=»0560 ENDPROC MALERI«, l3=0x13}
0x0562…05ac Line {l1=0x48, l2=»0570 // ----------------------------------------------------------------«, l3=0x48}
0x05ac…05bd Line {l1=0x0f, l2=»0580 PROC SPØRG«, l3=0x0f}
0x05bd…05ca Line {l1=0x0b, l2=»0590 CLEAR «, l3=0x0b}
0x05ca…05d7 Line {l1=0x0b, l2=»0600 PRINT «, l3=0x0b}
0x05d7…0608 Line {l1=0x2f, l2=»0610 INPUT "Indtast kassens længde: ":LÆNGDE«, l3=0x2f}
0x0608…0615 Line {l1=0x0b, l2=»0620 PRINT «, l3=0x0b}
0x0615…0646 Line {l1=0x2f, l2=»0630 INPUT "Indtast kassens bredde: ":BREDDE«, l3=0x2f}
0x0646…0653 Line {l1=0x0b, l2=»0640 PRINT «, l3=0x0b}
0x0653…0683 Line {l1=0x2e, l2=»0650 INPUT "Indtast kassens højde: ":HØJDE«, l3=0x2e}
0x0683…0690 Line {l1=0x0b, l2=»0660 PRINT «, l3=0x0b}
0x0690…06b3 Line {l1=0x21, l2=»0670 RUMFANG:=LÆNGDE*BREDDE*HØJDE«, l3=0x21}
0x06b3…06c7 Line {l1=0x12, l2=»0680 ENDPROC SPØRG«, l3=0x12}
0x06c7…0714 Line {l1=0x4b, l2=»0690 // -------------------------------------------------------------------«, l3=0x4b}
0x0714…0725 Line {l1=0x0f, l2=»0700 PROC RAMME«, l3=0x0f}
0x0725…0745 Line {l1=0x1e, l2=»0710 OPEN "SYSTIME:RAMMETXT",R«, l3=0x1e}
0x0745…075e Line {l1=0x17, l2=»0720 FOR Y:=1 TO 15 DO «, l3=0x17}
0x075e…0783 Line {l1=0x23, l2=»0730 GET "SYSTIME:RAMMETXT":LIN$(Y)«, l3=0x23}
0x0783…0790 Line {l1=0x0b, l2=»0740 NEXT Y«, l3=0x0b}
0x0790…079d Line {l1=0x0b, l2=»0750 CLOSE «, l3=0x0b}
0x079d…07af Line {l1=0x10, l2=»0760 EXEC MALERI«, l3=0x10}
0x07af…07c2 Line {l1=0x11, l2=»0770 CURSOR 12,15«, l3=0x11}
0x07c2…07e8 Line {l1=0x24, l2=»0780 PRINT USING "########.#":LÆNGDE«, l3=0x24}
0x07e8…07fb Line {l1=0x11, l2=»0790 CURSOR 26,15«, l3=0x11}
0x07fb…0821 Line {l1=0x24, l2=»0800 PRINT USING "########.#":BREDDE«, l3=0x24}
0x0821…0834 Line {l1=0x11, l2=»0810 CURSOR 39,15«, l3=0x11}
0x0834…0859 Line {l1=0x23, l2=»0820 PRINT USING "########.#":HØJDE«, l3=0x23}
0x0859…086c Line {l1=0x11, l2=»0830 CURSOR 52,15«, l3=0x11}
0x086c…0893 Line {l1=0x25, l2=»0840 PRINT USING "########.#":RUMFANG«, l3=0x25}
0x0893…08a5 Line {l1=0x10, l2=»0850 CURSOR 8,24«, l3=0x10}
0x08a5…08e1 Line {l1=0x3a, l2=»0860 INPUT "Ønsker du at beregne flere rumfang? (j/n)":S$«, l3=0x3a}
0x08e1…08f5 Line {l1=0x12, l2=»0870 ENDPROC RAMME«, l3=0x12}
0x08f5…0944 Line {l1=0x4d, l2=»0880 // ---------------------------------------------------------------------«, l3=0x4d}
0x0944…0951 Line {l1=0x0b, l2=»0890 PRINT «, l3=0x0b}
0x0951…095e Line {l1=0x0b, l2=»0900 PRINT «, l3=0x0b}
0x095e…098f Line {l1=0x2f, l2=»0910 PRINT " Så er vi færdige for i dag."«, l3=0x2f}
0x098f…09dc Line {l1=0x4b, l2=»0920 // -------------------------------------------------------------------«, l3=0x4b}
0x09dc…0a27 Line {l1=0x49, l2=»0930 // -----------------------------------------------------------------«, l3=0x49}
0x0a27…0a37 Line {l1=0x0e, l2=»0940 PROC VENT«, l3=0x0e}
0x0a37…0a4a Line {l1=0x11, l2=»0960 CURSOR 68,24«, l3=0x11}
0x0a4a…0a63 Line {l1=0x17, l2=»0970 INPUT "Return:":S$«, l3=0x17}
0x0a63…0a76 Line {l1=0x11, l2=»1000 ENDPROC VENT«, l3=0x11}
0x0a76…0ac3 Line {l1=0x4b, l2=»1010 // -------------------------------------------------------------------«, l3=0x4b}
0x0ac3…0ae0 00 00 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 ┆ ---------------------------┆
0x0ae0…0b00 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 4b 13 31 30 32 ┆---------------------------K 102┆
0x0b00…0b20 30 20 50 52 4f 43 20 53 56 5c 4d 4d 45 50 5c 4c 13 1d 31 30 33 30 20 4f 50 45 4e 20 22 53 59 53 ┆0 PROC SVØMMEPØL 1030 OPEN "SYS┆
0x0b20…0b40 54 49 4d 45 3a 53 56 5c 4d 50 5c 4c 22 2c 52 1d 0b 31 30 34 30 20 43 4c 45 41 52 20 0b 17 31 30 ┆TIME:SVØMPØL",R 1040 CLEAR 10┆
0x0b40…0b60 35 30 20 46 4f 52 20 41 3a 3d 32 20 54 4f 20 32 34 20 44 4f 20 17 23 31 30 36 30 20 47 45 54 20 ┆50 FOR A:=2 TO 24 DO #1060 GET ┆
0x0b60…0b80 22 53 59 53 54 49 4d 45 3a 53 56 5c 4d 50 5c 4c 22 3a 4c 45 4e 47 24 28 41 29 23 13 31 30 37 30 ┆"SYSTIME:SVØMPØL":LENG$(A)# 1070┆
0x0b80…0ba0 20 50 52 49 4e 54 20 4c 45 4e 47 24 28 41 29 13 0b 31 30 38 30 20 4e 45 58 54 20 41 0b 0b 31 30 ┆ PRINT LENG$(A) 1080 NEXT A 10┆
0x0ba0…0bc0 39 30 20 43 4c 4f 53 45 20 0b 0e 31 31 30 30 20 45 58 45 43 20 56 45 4e 54 0e 16 31 31 31 30 20 ┆90 CLOSE 1100 EXEC VENT 1110 ┆
0x0bc0…0be0 45 4e 44 50 52 4f 43 20 53 56 5c 4d 4d 45 50 5c 4c 16 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆ENDPROC SVØMMEPØL cccccccccccc┆
0x0be0…0c00 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┆
[…0x3e…]