|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8192 (0x2000)
Types: TextFile
Names: »danmark«
└─⟦c825e2ecf⟧ Bits:30003906 EL-FI Undervisningsprogrammer til Piccolo
└─ ⟦this⟧ »danmark«
0010 ENABLE esc«nul» 0011 CLOSE«nul» 0020 // KOSTBEREGNING * version 01.01 * 10.OKT.1981 0030 // *** Præliminær version *** «nul» 0040 // Meddelelser om fejl samt forslag til forbedringer sendes til: 0050 // DAKS - Dataafdelingen ved Aalborg Kommunale Skolevæsen «nul» 0060 // Sofiendalskolen, Hobrovej 324, 9200 Aalborg SV. 0070 // Tlf.: (08) 18 19 88 eller (08) 18 66 85 0080 // (Programmet findes også i en version til RC7000/RC8000) 0090 // //------------------------------------------------------------// «nul» 0095 MARGIN 0 0097 PROC kostliste«nul» EXTERNAL "kostlist" 0100 PROC xy(xc,yc)«nul» 0110 dum«nul»:=crt«nul»(6)«nul»; dum«nul»:=crt«nul»(95+«nul»xc-«nul»«nul»(xc>«nul»32)«nul»*«nul»64-«nul»«nul»(xc>«nul»64)«nul»*«nul»64)«nul»; dum«nul»:=crt«nul»(95+«nul»yc)«nul» 0120 ENDPROC«nul» xy 0130 DIM«nul» stip1«nul»$ OF 80,stip$ OF 80,buf«nul»$ OF 128,vn$(20)«nul» OF 15,v«nul»(20,20)«nul»,facit«nul»(20)«nul»,ok$ OF 1 0140 stip$:="---------------!------!------!------!------!------!" 0150 stip$:=stip$+«nul»"------!------!------!------!"; ant«nul»:=0; indflag«nul»:=0 0160 stip1«nul»$:="---------------------------------------------------" 0170 stip1«nul»$:=stip1«nul»$+«nul»"----------------------------"; side:=0 0180 PRINT«nul» CHR$(12)«nul» 0190 OPEN FILE 1,"kostfil", RANDOM 145 0200 EXEC eskema(0)«nul» 0210 REPEAT //// monitor// 0220 EXEC xy(1,1)«nul» 0230 PRINT«nul» " F)orklaring I)ndsæt R)ette E)nergi V)itamineraler P)rint"; 0231 PRINT«nul» " L)iste S)top" 0240 dummy«nul»:=keyq(0)«nul» 0241 IF dummy«nul»=«nul»108 THEN EXEC kostliste«nul» 0242 ENABLE esc«nul» 0250 IF dummy«nul»=«nul»112 AND«nul» ant«nul»<>0 THEN 0260 SELECT OUTPUT«nul» "printer" 0265 PRINT«nul» CHR$(30)«nul» 0270 EXEC eskema(0)«nul» 0271 PRINT«nul» CHR$(30)«nul» 0272 EXEC vskema(0)«nul» 0274 IF ant«nul»>«nul»10 THEN 0275 PRINT«nul» CHR$(30)«nul» 0280 EXEC eskema(1)«nul» 0282 PRINT«nul» CHR$(30)«nul» 0283 EXEC vskema(1)«nul» 0285 ENDIF«nul» 0286 PRINT«nul» 0287 PRINT«nul» CHR$(30)«nul» 0290 SELECT OUTPUT«nul» "console" 0291 ENDIF«nul» 0300 IF dummy«nul»=«nul»69 THEN EXEC eskema(1)«nul» 0310 IF dummy«nul»=«nul»101 THEN EXEC eskema(0)«nul» 0320 IF dummy«nul»=«nul»86 THEN EXEC vskema(1)«nul» 0330 IF dummy«nul»=«nul»118 THEN EXEC vskema(0)«nul» 0340 IF dummy«nul»=«nul»82 THEN EXEC ret«nul»(1)«nul» 0350 IF dummy«nul»=«nul»114 THEN EXEC ret«nul»(0)«nul» 0360 IF dummy«nul»=«nul»73 OR dummy«nul»=«nul»105 THEN EXEC indsæt 0370 IF dummy«nul»=«nul»102 OR dummy«nul»=«nul»70 THEN EXEC forklar«nul» 0380 UNTIL«nul» dummy«nul»=«nul»83 OR dummy«nul»=«nul»115 0385 CLOSE«nul» 0386 CHAIN«nul» "logon" 0390 PROC eskema(side)«nul» 0400 indflag«nul»:=1 0410 PRINT«nul» CHR$(12)«nul» 0420 PRINT«nul» stip1«nul»$ 0430 PRINT«nul» " SIDE: ";side+«nul»1;" ! ! ! ENERGIGIVENDE "; 0440 PRINT«nul» "NÆRINGSSTOFFER I GRAM !" 0450 PRINT«nul» " ! VÆGT !ENERGI! FEDT !"; 0460 PRINT«nul» " KULHYDRAT ! PRO- !" 0470 PRINT«nul» " NAVN ! GRAM ! kJ ! IALT ! MÆTT.! POLY.!"; 0480 PRINT«nul» " IALT ! STIV.! SUKK.! TEIN !" 0490 PRINT«nul» stip$ 0500 tttx:=ant«nul» 0510 FOR«nul» ttt«nul»:=1+«nul»side*«nul»10 TO ant«nul»+«nul»«nul»(ant«nul»>«nul»10 AND«nul» side=«nul»0)«nul»*«nul»«nul»(10-«nul»ant«nul»)«nul» DO 0520 EXEC linud«nul»(ttt«nul»)«nul» 0530 NEXT ttt«nul» 0540 IF ant«nul»>«nul»0 THEN EXEC total«nul» 0550 ENDPROC«nul» eskema 0560 PROC indsæt 0570 IF indflag«nul»=«nul»0 OR ant«nul» DIV«nul» 10<>side THEN 0580 indflag«nul»:=1 0590 EXEC eskema(ant«nul» DIV«nul» 10)«nul» 0600 ENDIF«nul» 0610 ant«nul»:=ant«nul»+«nul»1 0620 IF ant«nul»=«nul»10 THEN indflag«nul»:=0 0630 EXEC xy(1,1)«nul» 0635 PRINT«nul» AT(35,1)«nul»;CHR$(128)«nul» 0640 IF ant«nul»>«nul»20 THEN 0650 PRINT«nul» "FOR MANGE VARER !!!";CHR$(7)«nul» 0660 ant«nul»:=ant«nul»-«nul»1 0670 ELSE 0680 REPEAT 0690 EXEC xy(1,1)«nul» 0700 dummy«nul»:=crt«nul»(30)«nul» 0710 INPUT«nul» AT(2,1)«nul»,"VARENUMMER: ": vnr«nul» 0720 UNTIL«nul» vnr«nul»>=1 AND«nul» vnr«nul»<=315 0730 READ FILE 1,vnr«nul»: vn$(ant«nul»)«nul»,q«nul»,w«nul»,e«nul»,r«nul»,t«nul»,y«nul»,u«nul»,i«nul»,o«nul»,p«nul»,å«nul»,a«nul»,s«nul»,d«nul»,f«nul»,g«nul» 0735 PRINT«nul» AT(36,1)«nul»;CHR$(128)«nul» 0740 EXEC xy(20,1)«nul» 0750 PRINT«nul» CHR$(144)«nul»;vn$(ant«nul»)«nul»;CHR$(128)«nul»;" "; 0760 INPUT«nul» "ANTAL GRAM: ": v«nul»(ant«nul»,1)«nul» 0770 IF v«nul»(ant«nul»,1)«nul»>«nul»0 THEN 0780 EXEC beregn 0790 EXEC linud«nul»(ant«nul»)«nul» 0800 EXEC facitind(ant«nul»)«nul» 0810 ELSE 0820 ant«nul»:=ant«nul»-«nul»1 0830 ENDIF«nul» 0840 IF ant«nul»>«nul»0 THEN EXEC total«nul» 0850 ENDIF«nul» 0860 ENDPROC«nul» indsæt 0870 PROC facitud«nul»(lnr«nul»)«nul» 0880 FOR«nul» tæl«nul»:=1 TO 20 DO 0890 facit«nul»(tæl«nul»)«nul»:=facit«nul»(tæl«nul»)«nul»-«nul»v«nul»(lnr«nul»,tæl«nul»)«nul» 0900 NEXT tæl«nul» 0910 ENDPROC«nul» facitud«nul» 0920 PROC beregn 0930 fak«nul»:=v«nul»(ant«nul»,1)«nul»/«nul»100 0940 v«nul»(ant«nul»,2)«nul»:=q«nul»*«nul»fak«nul»; v«nul»(ant«nul»,3)«nul»:=w«nul»*«nul»fak«nul»; v«nul»(ant«nul»,4)«nul»:=e«nul»*«nul»fak«nul»; v«nul»(ant«nul»,5)«nul»:=r«nul»*«nul»fak«nul» 0950 v«nul»(ant«nul»,6)«nul»:=t«nul»*«nul»fak«nul»; v«nul»(ant«nul»,7)«nul»:=y«nul»*«nul»fak«nul»; v«nul»(ant«nul»,8)«nul»:=u«nul»*«nul»fak«nul»; v«nul»(ant«nul»,9)«nul»:=i«nul»*«nul»fak«nul» 0960 v«nul»(ant«nul»,10)«nul»:=o«nul»*«nul»fak«nul»; v«nul»(ant«nul»,11)«nul»:=p«nul»*«nul»fak«nul»; v«nul»(ant«nul»,12)«nul»:=å«nul»*«nul»fak«nul»; v«nul»(ant«nul»,13)«nul»:=a«nul»*«nul»fak«nul» 0970 v«nul»(ant«nul»,14)«nul»:=s«nul»*«nul»fak«nul»; v«nul»(ant«nul»,15)«nul»:=d«nul»*«nul»fak«nul»; v«nul»(ant«nul»,16)«nul»:=f«nul»*«nul»fak«nul»; v«nul»(ant«nul»,17)«nul»:=g«nul»*«nul»fak«nul» 0980 ENDPROC«nul» beregn 0990 PROC facitind(lnr«nul»)«nul» 1000 FOR«nul» tæl«nul»:=1 TO 20 DO 1010 facit«nul»(tæl«nul»)«nul»:=facit«nul»(tæl«nul»)«nul»+«nul»v«nul»(lnr«nul»,tæl«nul»)«nul» 1020 NEXT tæl«nul» 1030 ENDPROC«nul» facitind 1040 PROC linud«nul»(lnr«nul»)«nul» 1050 IF dummy«nul»<>112 THEN EXEC xy(1,lnr«nul»+«nul»6-«nul»«nul»(«nul»(ant«nul» DIV«nul» 11)«nul»*«nul»10)«nul»)«nul» 1060 PRINT«nul» vn$(lnr«nul»)«nul»; 1070 PRINT«nul» USING«nul» "!######!######": v«nul»(lnr«nul»,1)«nul»;v«nul»(lnr«nul»,2)«nul»; 1080 FOR«nul» tæl«nul»:=3 TO 9 DO 1090 PRINT«nul» USING«nul» "!####.#": v«nul»(lnr«nul»,tæl«nul»)«nul»; 1100 NEXT tæl«nul» 1110 PRINT«nul» "!" 1120 ENDPROC«nul» linud«nul» 1130 PROC total«nul» 1140 IF dummy«nul»<>112 THEN EXEC xy(1,17)«nul» 1150 PRINT«nul» stip$ 1160 PRINT«nul» " INDHOLD IALT: "; 1170 PRINT«nul» USING«nul» "!######!######": facit«nul»(1)«nul»;facit«nul»(2)«nul»; 1180 FOR«nul» tæl«nul»:=3 TO 9 DO 1190 PRINT«nul» USING«nul» "!####.#": facit«nul»(tæl«nul»)«nul»; 1200 NEXT tæl«nul» 1210 PRINT«nul» "!" 1220 PRINT«nul» stip$ 1230 totkj«nul»:=facit«nul»(3)«nul»*«nul»38+«nul»facit«nul»(6)«nul»*«nul»17+«nul»facit«nul»(9)«nul»*«nul»17 1240 PRINT«nul» USING«nul» " ENERGIFORDELING i % af######": totkj«nul»; 1245 IF totkj«nul»>«nul»0 THEN 1250 PRINT«nul» USING«nul» "!### % ": facit«nul»(3)«nul»*«nul»3800/«nul»totkj«nul»; 1255 ELSE 1256 PRINT«nul» USING«nul» "!### % ": 0; 1257 ENDIF«nul» 1260 IF facit«nul»(4)«nul»>«nul»0 THEN 1270 PRINT«nul» USING«nul» "! P:S = ##.## ": facit«nul»(5)«nul»/«nul»facit«nul»(4)«nul»; 1280 ELSE 1290 PRINT«nul» "! "; 1300 ENDIF«nul» 1305 IF totkj«nul»>«nul»0 THEN 1310 PRINT«nul» USING«nul» "!### % ": facit«nul»(6)«nul»*«nul»1700/«nul»totkj«nul»; 1320 PRINT«nul» USING«nul» "!(###%)": facit«nul»(7)«nul»*«nul»1700/«nul»totkj«nul»; 1330 PRINT«nul» USING«nul» "!(###%)": facit«nul»(8)«nul»*«nul»1700/«nul»totkj«nul»; 1340 PRINT«nul» USING«nul» "!### % ": facit«nul»(9)«nul»*«nul»1700/«nul»totkj«nul»; 1345 ELSE 1346 PRINT«nul» USING«nul» "!### % ": 0; 1347 PRINT«nul» USING«nul» "!(###%)": 0; 1348 PRINT«nul» USING«nul» "!(###%)": 0; 1349 PRINT«nul» USING«nul» "!### % ": 0; 1350 ENDIF«nul» 1355 PRINT«nul» "!" 1360 PRINT«nul» stip$ 1370 PRINT«nul» " INDHOLD PR. 1000 kJ : "; 1375 IF facit«nul»(2)«nul»>«nul»0 THEN 1380 PRINT«nul» USING«nul» "!####.#": facit«nul»(3)«nul»/«nul»facit«nul»(2)«nul»*«nul»1000; 1390 PRINT«nul» USING«nul» "! ! !####.#": facit«nul»(6)«nul»/«nul»facit«nul»(2)«nul»*«nul»1000; 1400 PRINT«nul» USING«nul» "! ! !####.#": facit«nul»(9)«nul»/«nul»facit«nul»(2)«nul»*«nul»1000; 1401 ELSE 1402 PRINT«nul» USING«nul» "!####.#": 0; 1403 PRINT«nul» USING«nul» "! ! !####.#": 0; 1404 PRINT«nul» USING«nul» "! ! !####.#": 0; 1405 ENDIF«nul» 1410 PRINT«nul» "!" 1420 PRINT«nul» " NORMER PR. 1000 kJ : ! 9.8! ! "; 1430 PRINT«nul» "! 30.0! ! ! 7.0!" 1440 PRINT«nul» stip$ 1450 dummy«nul»:=crt«nul»(31)«nul» 1460 ENDPROC«nul» total«nul» 1470 CLOSE«nul» // CHECK STRØMNUMMER «nul» 1480 PROC vskema(side)«nul» 1490 indflag«nul»:=0 1500 PRINT«nul» CHR$(12)«nul» 1510 PRINT«nul» stip1«nul»$ 1520 PRINT«nul» " SIDE: ";side+«nul»1;" ! !SLAGGE! VITAMINER "; 1530 PRINT«nul» " ! MINERALER !" 1540 PRINT«nul» " ! VÆGT ! STOF ! A ! C ! B1 !"; 1550 PRINT«nul» " B2 ! Ca ! Fe ! Na !" 1560 PRINT«nul» " NAVN ! GRAM ! GRAM ! mic.G! mil.G! mic.G!"; 1570 PRINT«nul» " mic.G! mil.G! mil.G! mil.G!" 1580 PRINT«nul» stip$ 1590 FOR«nul» ttt«nul»:=1+«nul»10*«nul»side TO ant«nul»+«nul»«nul»(ant«nul»>«nul»10 AND«nul» side=«nul»0)«nul»*«nul»«nul»(10-«nul»ant«nul»)«nul» DO 1600 PRINT«nul» vn$(ttt«nul»)«nul»; 1610 PRINT«nul» USING«nul» "!######!####.#": v«nul»(ttt«nul»,1)«nul»;v«nul»(ttt«nul»,10)«nul»; 1620 FOR«nul» tæl«nul»:=11 TO 17 DO 1630 PRINT«nul» USING«nul» "!######": v«nul»(ttt«nul»,tæl«nul»)«nul»; 1640 NEXT tæl«nul» 1650 PRINT«nul» "!" 1660 NEXT ttt«nul» 1670 EXEC xy(1,17)«nul» 1680 PRINT«nul» stip$ 1690 PRINT«nul» " INDHOLD IALT: "; 1700 PRINT«nul» USING«nul» "!######!####.#": facit«nul»(1)«nul»;facit«nul»(10)«nul»; 1710 FOR«nul» tæl«nul»:=11 TO 17 DO 1720 PRINT«nul» USING«nul» "!######": facit«nul»(tæl«nul»)«nul»; 1730 NEXT tæl«nul» 1740 PRINT«nul» "!" 1750 PRINT«nul» stip$ 1