|
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: 5056 (0x13c0)
Notes: Mikados TextFile, Mikados_K
Names: »RUMFANG«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RUMFANG«
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 // -------------------------------------------------------------------