|
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: 2048 (0x800)
Names: »REG.PRI«
└─⟦a1337913c⟧ Bits:30002679 PGM1 - indeholder forskellige undervisningsprogrammer
└─ ⟦this⟧ »REG.PRI«
0x000…020 28 00 31 00 01 00 0d 00 01 05 41 6e 74 61 6c 30 2e 29 29 3b 0a 6c 61 6e 64 62 72 75 67 73 2d 09 ┆( 1 Antal0.)); landbrugs- ┆ 0x020…040 65 6a 65 6e 64 6f 6d 6d 65 20 00 76 73 32 28 2e 69 2e 29 3a 3d 0e 00 0d 00 01 03 44 65 74 0d 20 ┆ejendomme vs2(.i.):= Det ┆ 0x040…060 20 20 20 20 20 07 64 79 72 6b 65 64 65 79 3a 3d 06 61 72 65 61 6c 2c 73 65 67 6d 02 68 61 68 72 ┆ dyrkedey:= areal,segm hahr┆ 0x060…080 28 6d 65 6d 28 2e 1b 00 0d 00 03 09 41 72 65 61 6c 20 6d 65 64 20 0a 6b 6f 72 6e 20 69 61 6c 74 ┆(mem(. Areal med korn ialt┆ 0x080…0a0 2c 02 68 61 74 65 6d 70 2c 70 29 3b 00 20 20 20 20 20 20 49 46 20 70 28 00 0d 00 03 09 41 72 65 ┆, hatemp,p); IF p( Are┆ 0x0a0…0c0 61 6c 20 6d 65 64 68 09 62 72 7c 64 6b 6f 72 6e 2c 4a 02 68 61 20 54 41 4c 46 45 4c 54 00 29 0d ┆al medh brødkorn,J ha TALFELT ) ┆ 0x0c0…0e0 20 20 20 20 20 20 45 4c 35 00 0d 00 03 09 41 72 65 61 6c 20 6d 65 64 20 07 62 79 67 2c 20 68 61 ┆ EL5 Areal med byg, ha┆ 0x0e0…100 64 6c 2b 00 33 3b 20 73 65 67 6d 3a 3d 63 00 72 28 6d 65 6d 28 2e 66 6c 73 42 00 0d 01 01 07 48 ┆dl+ 3; segm:=c r(mem(.flsB H┆ 0x100…120 7c 73 74 20 61 66 20 20 20 05 6b 6f 72 6e 2c 73 65 67 6d 2c 08 6d 69 6c 6c 2e 20 6b 67 20 20 00 ┆øst af korn,segm, mill. kg ┆ 0x120…140 20 20 20 49 46 20 70 3c 3e 30 4f 00 0d 01 01 07 48 7c 73 74 20 61 66 61 6e 64 09 62 72 7c 64 6b ┆ IF p<>0O Høst afand brødk┆ 0x140…160 6f 72 6e 2c 49 08 6d 69 6c 6c 2e 20 6b 67 29 0d 00 20 20 20 20 20 45 4c 53 45 20 5c 00 0d 01 01 ┆orn,I mill. kg) ELSE Ø ┆ 0x160…180 07 48 7c 73 74 20 61 66 20 20 45 0a 66 6f 64 65 72 6b 6f 72 6e 2c 08 6d 69 6c 6c 2e 20 6b 67 29 ┆ Høst af E foderkorn, mill. kg)┆ 0x180…1a0 0d 00 20 20 20 46 4f 52 20 69 3a 3d 69 00 0d 01 00 08 55 64 62 79 74 74 65 74 20 20 08 61 66 20 ┆ FOR i:=i Udbyttet af ┆ 0x1a0…1c0 68 76 65 64 65 62 61 0a 70 72 2e 68 61 2c 61 2e 65 2e 00 0d 20 20 20 20 20 20 42 45 47 76 00 0d ┆hvedeba pr.ha,a.e. BEGv ┆ 0x1c0…1e0 01 00 08 55 64 62 79 74 74 65 74 20 20 06 61 66 20 62 79 67 20 6a 3a 3d 0a 70 72 2e 68 61 2c 61 ┆ Udbyttet af byg j:= pr.ha,a┆ 0x1e0…200 2e 65 2e 00 47 49 4e 0d 20 20 20 20 20 20 83 00 0d 01 00 08 55 64 62 79 74 74 65 74 79 3b 06 61 ┆.e. GIN Udbyttety; a┆ 0x200…220 66 20 72 75 67 20 20 20 20 0a 70 72 2e 68 61 2c 61 2e 65 2e 00 6a 2d 31 29 2a 31 30 20 54 4f 90 ┆f rug pr.ha,a.e. j-1)*10 TO ┆ 0x220…240 00 0d 01 00 08 55 64 62 79 74 74 65 74 30 20 09 61 66 20 68 61 76 72 65 2c 20 08 62 6c 61 6e 64 ┆ Udbyttet0 af havre, bland┆ 0x240…260 73 7b 64 3d 73 0a 70 72 2e 68 61 2c 61 2e 65 2e 9d 00 0d 00 03 09 41 72 65 61 6c 20 6d 65 64 3b ┆sæd=s pr.ha,a.e. Areal med;┆ 0x260…280 07 66 72 7c 20 74 69 6c 20 20 20 09 75 64 73 7b 64 2c 20 68 61 20 00 20 20 20 20 57 48 49 4c 45 ┆ frø til udsæd, ha WHILE┆ 0x280…2a0 20 aa 00 0d 00 03 09 41 72 65 61 6c 20 6d 65 64 41 09 69 6e 64 75 73 74 72 69 2d 4f 07 66 72 7c ┆ Areal medA industri-O frø┆ 0x2a0…2c0 2c 20 68 61 0d 20 20 00 20 20 20 20 20 20 20 73 65 67 b7 00 0d 00 03 09 41 72 65 61 6c 20 6d 65 ┆, ha seg Areal me┆ 0x2c0…2e0 64 6c 07 67 72 7b 73 20 6f 67 2d 28 78 0a 67 72 7c 6e 74 66 6f 64 65 72 0a 6f 6d 64 72 69 66 74 ┆dl græs og-(x grøntfoder omdrift┆ 0x2e0…300 20 68 61 c4 00 0d 00 03 09 41 72 65 61 6c 20 6d 65 64 3d 04 67 72 7b 73 29 20 4f 52 20 28 08 75 ┆ ha Areal med= græs) OR ( u┆ 0x300…320 64 65 6e 20 66 6f 72 29 20 0a 6f 6d 64 72 69 66 74 20 68 61 d1 00 0d 00 03 09 41 72 65 61 6c 20 ┆den for) omdrift ha Areal ┆ 0x320…340 6d 65 64 20 05 61 6e 64 72 65 53 45 20 42 45 08 61 66 67 72 7c 64 65 72 65 67 0a 68 65 6c 62 72 ┆med andreSE BE afgrødereg helbr┆ 0x340…360 61 6b 20 68 61 de 00 0d 01 00 08 55 64 62 79 74 74 65 74 20 20 0a 61 66 20 67 72 7b 73 20 6f 67 ┆ak ha Udbyttet af græs og┆ 0x360…380 0a 67 72 7c 6e 74 66 6f 64 65 72 0a 70 72 2e 68 61 2c 61 2e 65 2e eb 00 0d 00 03 09 41 72 65 61 ┆ grøntfoder pr.ha,a.e. Area┆ 0x380…3a0 6c 20 6d 65 64 44 0a 66 6f 64 65 72 72 6f 65 72 2c 02 68 61 3b 0d 20 20 20 20 28 2a 00 6f 64 6e ┆l medD foderroer, ha; (* odn┆ 0x3a0…3c0 6f 74 65 2a 29 0d 20 f8 00 0d 00 03 09 41 72 65 61 6c 20 6d 65 64 20 0a 73 75 6b 6b 65 72 72 6f ┆ote*) Areal med sukkerro┆ 0x3c0…3e0 65 72 0a 74 69 6c 20 66 61 62 72 69 6b 02 68 61 4f 20 68 6d 33 20 44 4f 05 01 0d 00 03 09 41 72 ┆er til fabrik haO hm3 DO Ar┆ 0x3e0…400 65 61 6c 20 6d 65 64 67 0a 6b 61 72 74 6f 66 6c 65 72 2c 02 68 61 2b 78 2b 79 2a 38 30 2e 00 29 ┆eal medg kartofler, ha+x+y*80. )┆ 0x400…420 3b 0d 20 20 20 20 73 74 72 12 01 0d 01 00 08 55 64 62 79 74 74 65 74 6f 64 02 61 66 28 2e 6e 72 ┆; str Udbyttetod af(.nr┆ 0x420…440 2e 29 2e 66 09 66 6f 64 65 72 72 6f 65 72 0d 0a 70 72 2e 68 61 2c 61 2e 65 2e 1f 01 0d 00 05 0a ┆.).f foderroer pr.ha,a.e. ┆ 0x440…460 42 65 73 74 61 6e 64 20 61 66 08 68 6f 72 6e 6b 76 7b 67 52 45 00 6e 79 28 56 41 52 20 61 6e 74 ┆Bestand af hornkvægRE ny(VAR ant┆ 0x460…480 00 6c 3a 20 62 79 74 65 3b 20 56 2c 01 0d 00 05 0a 42 65 73 74 61 6e 64 20 61 66 06 68 61 6e 64 ┆ l: byte; V, Bestand af hand┆ 0x480…4a0 79 72 69 3a 20 62 05 69 6e 6b 6c 2e 45 47 49 4e 0d 05 73 74 75 64 65 6e 74 61 6c 3d 39 01 0d 00 ┆yri: b inkl.EGIN studental=9 ┆ 0x4a0…4c0 05 05 41 6e 74 61 6c 31 20 45 4c 53 09 6d 61 6c 6b 65 6b 7c 65 72 69 00 3d 61 6e 74 61 6c 20 44 ┆ Antal1 ELS malkekøeri =antal D┆ 0x4c0…4e0 4f 57 00 54 4f 20 6e 72 20 44 4f 20 42 46 01 0d 00 09 05 41 6e 74 61 6c 72 65 67 62 61 09 62 65 ┆OW TO nr DO BF Antalregba be┆ 0x4e0…500 73 7b 74 6e 69 6e 2d 72 07 67 65 72 20 6d 65 64 2e 29 3b 09 6d 61 6c 6b 65 6b 7c 65 72 66 53 01 ┆sætnin-r ger med.); malkekøerfS ┆ 0x500…520 0d 01 00 05 41 6e 74 61 6c 29 3a 3d 72 65 09 6d 61 6c 6b 65 6b 7c 65 72 2e 0a 69 20 67 65 6e 2e ┆ Antal):=re malkekøer. i gen.┆ 0x520…540 73 6e 69 74 0a 70 72 2e 20 62 65 73 7b 74 6e 60 01 0d 01 01 09 4d 7b 6c 6b 65 70 72 6f 64 20 08 ┆snit pr. besætn` Mælkeprod ┆ 0x540…560 6d 69 6c 6c 2e 20 6b 67 67 62 06 34 20 70 63 74 2e 29 3a 3d 6e 04 6d 7b 6c 6b 62 3b 20 72 65 67 ┆mill. kggb 4 pct.):=n mælkb; reg┆ 0x560…580 6d 01 0d 00 00 09 47 65 6e 6e 65 6d 73 6e 2e 75 0a 6d 7b 6c 6b 65 79 64 65 6c 2e 09 6b 67 20 34 ┆m Gennemsn.u mælkeydel. kg 4┆ 0x580…5a0 20 70 63 74 2e 29 0a 6d 7b 6c 6b 20 7d 72 6c 69 67 7a 01 0d 00 01 0a 50 72 6f 64 75 6b 74 69 6f ┆ pct.) mælk årligz Produktio┆ 0x5a0…5c0 6e 02 61 66 20 20 64 69 73 70 6c 61 08 6f 6b 73 65 6b 7c 64 2c 61 74 04 74 6f 6e 73 64 69 74 28 ┆n af displa oksekød,at tonsdit(┆ 0x5c0…5e0 6e 72 87 01 0d 00 05 0a 41 6e 74 61 6c 20 73 7c 65 72 00 20 73 6c 65 74 28 6e 72 3a 20 00 6e 74 ┆nr Antal søer slet(nr: nt┆ 0x5e0…600 65 67 65 72 3b 20 71 3a 00 62 6f 6f 6c 65 61 6e 29 3b 0d 94 01 0d 00 09 05 41 6e 74 61 6c 74 65 ┆eger; q: boolean); Antalte┆ 0x600…620 3b 0d 42 09 62 65 73 7b 74 6e 69 6e 2d 71 07 67 65 72 20 6d 65 64 20 20 52 04 73 7c 65 72 20 70 ┆; B besætnin-q ger med R søer p┆ 0x620…640 72 6f 6d 70 a1 01 0d 01 00 0a 41 6e 74 61 6c 20 73 7c 65 72 0a 69 20 67 65 6e 2e 73 6e 69 74 0a ┆romp Antal søer i gen.snit ┆ 0x640…660 70 72 2e 20 62 65 73 7b 74 2d 04 6e 69 6e 67 20 3f 27 2c 63 68 ae 01 0d 00 05 0a 41 6e 74 61 6c ┆pr. besæt- ning ?',ch Antal┆ 0x660…680 20 73 76 69 6e 00 68 2c 27 4a 4e 27 2b 43 52 2b 00 53 43 29 3c 3e 30 0d 20 20 45 00 53 45 20 63 ┆ svin h,'JN'+CR+ SC)<>0 E SE c┆ 0x680…6a0 68 3a 3d 43 52 3b bb 01 0d 00 09 05 41 6e 74 61 6c 75 64 68 6f 70 09 62 65 73 7b 74 6e 69 6e 2d ┆h:=CR; Antaludhop besætnin-┆ 0x6a0…6c0 27 07 67 65 72 20 6d 65 64 20 20 42 04 73 76 69 6e 6f 70 64 61 74 3a c8 01 0d 00 09 09 41 6e 74 ┆' ger med B svinopdat: Ant┆ 0x6c0…6e0 61 6c 20 62 65 2d 20 09 73 7b 74 6e 69 6e 67 65 72 6e 03 6d 65 64 31 20 44 4f 20 42 45 0a 73 6c ┆al be- sætningern med1 DO BE sl┆ 0x6e0…700 61 67 74 65 73 76 69 6e d5 01 0d 01 00 0a 41 6e 74 61 6c 20 73 76 69 6e 0a 69 20 67 65 6e 2e 73 ┆agtesvin Antal svin i gen.s┆ 0x700…720 6e 69 74 0a 70 72 2e 20 62 65 73 7b 74 2d 04 6e 69 6e 67 2e 69 2e 29 3a 3d e2 01 0d 01 00 05 41 ┆nit pr. besæt- ning.i.):= A┆ 0x720…740 6e 74 61 6c 69 2b 31 2e 29 05 70 72 6f 64 2e 20 20 72 65 67 08 66 65 64 65 73 76 69 6e 3a 3d 0a ┆ntali+1.) prod. reg fedesvin:= ┆ 0x740…760 70 72 2e 20 62 65 73 7b 74 6e ef 01 0d 00 01 08 50 72 6f 64 75 63 65 2d 6e 74 0a 72 65 64 65 20 ┆pr. besætn Produce-nt rede ┆ 0x760…780 73 6c 61 67 2d 07 74 65 73 76 69 6e 2c 4e 44 3b 08 31 30 30 30 20 73 74 6b 52 45 fc 01 0d 01 01 ┆slag- tesvin,ND; 1000 stkRE ┆ 0x780…7a0 0a 50 72 6f 64 75 6b 74 69 6f 6e 02 61 66 29 3b 0d 56 41 52 0d 20 09 73 76 69 6e 65 6b 7c 64 2c ┆ Produktion af); VAR svinekød,┆ 0x7a0…7c0 3b 08 6d 69 6c 6c 2e 20 6b 67 6f 6c 6f 64 2e 20 20 72 65 67 08 66 65 64 65 73 76 69 6e 3a 3d 0a ┆; mill. kgolod. reg fedesvin:= ┆ 0x7c0…7e0 70 72 2e 20 62 65 73 7b 74 6e ef 01 0d 00 01 08 50 72 6f 64 75 63 65 2d 6e 74 0a 72 65 64 65 20 ┆pr. besætn Produce-nt rede ┆ 0x7e0…800 73 6c 61 67 2d 07 74 65 73 76 69 6e 2c 4e 44 3b 08 31 30 30 30 20 73 74 6b 52 45 fc 01 0d 01 01 ┆slag- tesvin,ND; 1000 stkRE ┆