|
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: 2688 (0xa80)
Names: »OVERVGT«
└─⟦48fe3f668⟧ Bits:30003085 Kursus i datalære med COMAL80 på RC700
└─ ⟦this⟧ »OVERVGT«
└─⟦d67b880a0⟧ Bits:30003049 Datalære: 30-timers kursus med COMAL80 og Pascal
└─ ⟦this⟧ »OVERVGT«
└─⟦f94993941⟧ Bits:30003267 COMAL 80 opgaver - Piccolo - CP/M
└─ ⟦this⟧ »OVERVGT«
0x000…020 02 83 71 c7 23 36 0c 0b ba 0a 31 2f 53 41 56 45 2e 24 24 24 20 20 20 20 20 20 0a 00 d3 1d 01 01 ┆ q #6 1/SAVE.$$$ ┆ 0x020…040 20 4f 56 45 52 56 5b 47 54 20 20 20 4b 69 6d 20 43 68 72 2e 20 4d 61 64 73 65 6e 20 26 20 54 42 ┆ OVERVÆGT Kim Chr. Madsen & TB┆ 0x040…060 2c 20 64 65 63 20 38 32 2c 20 20 20 43 4f 4d 41 4c 38 30 00 14 00 d3 1b 01 01 20 45 66 74 65 72 ┆, dec 82, COMAL80 Efter┆ 0x060…080 20 74 69 6c 73 76 61 72 65 6e 64 65 20 70 72 6f 67 72 61 6d 20 69 20 52 43 37 30 30 30 2d 62 69 ┆ tilsvarende program i RC7000-bi┆ 0x080…0a0 62 6c 69 6f 74 65 6b 65 74 00 1e 00 67 07 81 f1 04 00 02 a0 2d 00 01 00 28 00 83 04 00 00 01 00 ┆blioteket g - ( ┆ 0x0a0…0c0 32 00 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 3c 00 86 26 42 c0 3f 00 42 65 72 65 ┆2 U < &B ? Bere┆ 0x0c0…0e0 67 6e 69 6e 67 20 61 66 20 69 64 65 61 6c 76 7b 67 74 2e 20 20 41 6c 6c 65 20 75 6e 64 65 72 20 ┆gning af idealvægt. Alle under ┆ 0x0e0…100 31 38 20 7d 72 20 62 65 74 72 61 67 74 65 73 20 73 6f 6d 20 6b 76 69 6e 64 65 72 00 07 00 01 00 ┆18 år betragtes som kvinder ┆ 0x100…120 46 00 86 04 08 00 01 00 50 00 83 04 00 00 01 00 5a 00 d1 06 06 80 01 e0 1d 00 01 00 64 00 87 12 ┆F P Z d ┆ 0x120…140 16 c0 13 00 48 76 6f 72 20 67 61 6d 6d 65 6c 20 65 72 20 64 75 20 3a 00 12 3a 0b 80 05 00 01 00 ┆ Hvor gammel er du : : ┆ 0x140…160 6e 00 3f 09 00 00 00 00 0b 80 81 f3 26 00 2d 72 01 00 78 00 86 1c 2e c0 2b 00 48 61 72 20 64 75 ┆n ? & -r x . + Har du┆ 0x160…180 20 74 61 67 65 74 20 74 65 72 6d 69 6e 61 6c 65 6e 20 6d 65 64 20 69 20 62 61 72 6e 65 76 6f 67 ┆ taget terminalen med i barnevog┆ 0x180…1a0 6e 65 6e 3f 20 00 07 00 01 00 82 00 d1 06 06 80 00 e0 1d 00 01 00 8c 00 80 03 01 00 96 00 3f 09 ┆nen? ? ┆ 0x1a0…1c0 00 00 00 00 0b 80 83 f1 2a 00 2d 72 01 00 a0 00 86 1a 2a c0 27 00 45 72 20 64 65 20 73 74 75 6b ┆ * -r * ' Er de stuk┆ 0x1c0…1e0 6b 65 74 20 61 66 20 66 72 61 20 61 6c 64 65 72 64 6f 6d 73 68 6a 65 6d 6d 65 74 3f 20 00 07 00 ┆ket af fra alderdomshjemmet? ┆ 0x1e0…200 01 00 aa 00 d1 06 06 80 00 e0 1d 00 01 00 b4 00 80 03 01 00 b9 00 84 08 00 00 06 80 01 e0 28 00 ┆ ( ┆ 0x200…220 2d 0a 01 00 be 00 83 04 00 00 01 00 c8 00 d1 06 06 80 01 e0 1d 00 01 00 d2 00 87 10 12 c0 10 00 ┆- ┆ 0x220…240 48 76 6f 72 20 68 7c 6a 20 65 72 20 64 75 3f 20 12 3a 13 80 05 00 01 00 dc 00 3f 09 00 00 00 00 ┆Hvor høj er du? : ? ┆ 0x240…260 13 80 83 f1 27 00 2d 72 01 00 e6 00 86 24 3e c0 3c 00 44 65 72 20 66 69 6e 64 65 73 20 65 6e 20 ┆ ' -r $> < Der findes en ┆ 0x260…280 68 7c 6a 65 72 65 20 73 74 6f 6c 20 6f 76 72 65 20 69 20 68 6a 7c 72 6e 65 74 20 68 76 69 73 20 ┆højere stol ovre i hjørnet hvis ┆ 0x280…2a0 64 75 20 69 6b 6b 65 20 6b 61 6e 20 6e 7d 07 00 01 00 fa 00 d1 06 06 80 00 e0 1d 00 01 00 04 01 ┆du ikke kan nå ┆ 0x2a0…2c0 80 03 01 00 0e 01 3f 09 00 00 00 00 13 80 83 f2 2a 00 2d 72 01 00 18 01 86 20 36 c0 34 00 50 41 ┆ ? * -r 6 4 PA┆ 0x2c0…2e0 53 20 50 5d 20 21 21 20 44 75 20 73 74 7c 64 65 72 20 68 6f 76 65 64 65 74 20 6d 6f 64 20 64 7c ┆S PÅ !! Du støder hovedet mod dø┆ 0x2e0…300 72 6b 61 72 6d 65 6e 20 6e 7d 72 20 64 75 20 67 7d 72 07 00 01 00 22 01 d1 06 06 80 00 e0 1d 00 ┆rkarmen når du går " ┆ 0x300…320 01 00 2c 01 80 03 01 00 36 01 84 08 00 00 06 80 01 e0 28 00 2d 0a 01 00 40 01 83 04 00 00 01 00 ┆ , 6 ( - @ ┆ 0x320…340 4a 01 d1 06 06 80 01 e0 1d 00 01 00 54 01 87 18 22 c0 20 00 48 76 6f 72 20 6d 65 67 65 74 20 76 ┆J T " Hvor meget v┆ 0x340…360 65 6a 65 72 20 64 75 20 28 68 65 6c 65 20 6b 67 29 20 3a 20 12 3a 1b 80 05 00 01 00 5e 01 3f 09 ┆ejer du (hele kg) : : ^ ? ┆ 0x360…380 00 00 00 00 1b 80 82 f1 27 00 2d 72 01 00 68 01 86 0e 12 c0 0f 00 45 72 20 64 75 20 65 6e 20 62 ┆ ' -r h Er du en b┆ 0x380…3a0 61 62 79 3f 20 00 07 00 01 00 72 01 d1 06 06 80 00 e0 1d 00 01 00 7c 01 80 03 01 00 86 01 3f 0d ┆aby? r ø ? ┆ 0x3a0…3c0 00 00 00 00 1b 80 08 d0 01 50 00 00 00 00 00 83 2a 00 2d 72 01 00 90 01 86 24 3e c0 3c 00 4e 59 ┆ P * -r $> < NY┆ 0x3c0…3e0 20 52 45 4b 4f 52 44 21 21 20 52 69 6e 67 20 73 74 72 61 6b 73 20 74 69 6c 20 47 75 69 6e 65 73 ┆ REKORD!! Ring straks til Guines┆ 0x3e0…400 73 20 52 65 6b 6f 72 64 62 6f 67 20 66 6f 72 20 6f 70 64 61 74 65 72 69 6e 67 07 00 01 00 9a 01 ┆s Rekordbog for opdatering ┆ 0x400…420 d1 06 06 80 00 e0 1d 00 01 00 a4 01 80 03 01 00 ae 01 84 08 00 00 06 80 01 e0 28 00 2d 0a 01 00 ┆ ( - ┆ 0x420…440 b8 01 83 04 00 00 01 00 c2 01 d1 06 06 80 01 e0 1d 00 01 00 cc 01 87 1f 30 c0 2d 00 41 6e 66 7c ┆ 0 - Anfø┆ 0x440…460 72 20 6b 7c 6e 3a 20 4d 61 6e 64 20 3d 20 31 20 20 20 4b 76 69 6e 64 65 20 3d 20 32 20 20 28 74 ┆r køn: Mand = 1 Kvinde = 2 (t┆ 0x460…480 61 73 74 20 31 2f 32 29 20 00 12 3a 22 80 05 00 01 00 d6 01 3e 13 22 80 81 f1 28 00 0b 80 08 d0 ┆ast 1/2) :" > " ( ┆ 0x480…4a0 01 80 00 00 00 00 00 82 27 00 49 00 2d 71 d1 00 22 80 81 f2 1d 00 01 00 e0 01 3f 0d 00 00 00 00 ┆ ' I -q " ? ┆ 0x4a0…4c0 22 80 81 f1 25 00 22 80 81 f2 25 00 49 00 2d 72 01 00 ea 01 86 23 3c c0 39 00 46 69 6b 73 20 2d ┆" % " % I -r #< 9 Fiks -┆ 0x4c0…4e0 20 48 76 61 64 3f 20 54 61 73 74 20 31 20 65 6c 6c 65 72 20 32 20 2c 20 65 6c 6c 65 72 20 62 65 ┆ Hvad? Tast 1 eller 2 , eller be┆ 0x4e0…500 64 20 73 69 64 65 6d 61 6e 64 65 6e 20 61 66 67 7c 72 65 00 07 00 01 00 f4 01 86 14 1e c0 1b 00 ┆d sidemanden afgøre ┆ 0x500…520 64 69 74 20 6b 7c 6e 2c 20 68 76 69 73 20 64 75 20 65 72 20 69 20 74 76 69 76 6c 00 07 00 01 00 ┆dit køn, hvis du er i tvivl ┆ 0x520…540 fe 01 d1 06 06 80 00 e0 1d 00 01 00 08 02 80 03 01 00 12 02 3e 18 22 80 81 f1 28 00 2d 71 d1 00 ┆ > " ( -q ┆ 0x540…560 26 80 08 d0 07 60 00 00 00 00 00 80 13 80 21 00 08 d0 06 10 00 00 00 00 00 82 23 00 4c 00 1d 00 ┆& ` ! # L ┆ 0x560…580 01 00 1c 02 3e 18 22 80 81 f2 28 00 2d 71 d1 00 26 80 08 d0 06 20 00 00 00 00 00 80 13 80 21 00 ┆ > " ( -q & ! ┆ 0x580…5a0 08 d0 04 60 00 00 00 00 00 82 23 00 4c 00 1d 00 01 00 26 02 84 08 00 00 06 80 01 e0 28 00 2d 0a ┆ ` # L & ( - ┆ 0x5a0…5c0 01 00 30 02 d1 08 30 80 1b 80 26 80 23 00 1d 00 01 00 3a 02 3f 0a 00 00 00 00 30 80 4b 00 81 f2 ┆ 0 0 & # : ? 0 K ┆ 0x5c0…5e0 27 00 2d 72 01 00 44 02 86 15 20 c0 1e 00 42 52 41 56 4f 21 20 44 75 20 70 61 73 73 65 72 20 64 ┆' -r D BRAVO! Du passer d┆ 0x5e0…600 69 6e 20 6b 72 6f 70 20 70 7b 6e 74 07 00 01 00 4e 02 3f 1b 00 00 00 00 0b 80 82 f2 23 00 4b 00 ┆in krop pænt N ? # K ┆ 0x600…620 81 f3 27 00 13 80 08 d0 01 72 00 00 00 00 00 83 23 00 4b 00 81 f3 27 00 49 00 22 80 81 f2 28 00 ┆ ' r # K ' I " ( ┆ 0x620…640 49 00 2d 72 01 00 58 02 86 24 3e c0 3b 00 4c 7b 67 20 76 65 6e 6c 69 67 73 74 20 64 69 74 20 74 ┆I -r X $> ; Læg venligst dit t┆ 0x640…660 65 6c 65 66 6f 6e 6e 75 6d 6d 65 72 20 69 20 54 6f 6d 6d 79 20 42 6f 72 63 68 27 73 20 73 6b 61 ┆elefonnummer i Tommy Borch's ska┆ 0x660…680 62 20 28 6e 72 2e 33 39 29 00 07 00 01 00 62 02 80 03 01 00 6c 02 5d 04 00 00 01 00 76 02 3f 09 ┆b (nr.39) b l Å v ? ┆ 0x680…6a0 00 00 00 00 30 80 81 f2 29 00 2d 72 01 00 80 02 d1 36 38 80 30 80 08 d0 03 25 00 00 00 00 00 84 ┆ 0 ) -r 68 0 % ┆ 0x6a0…6c0 21 00 08 d0 03 65 00 00 00 00 00 83 21 00 08 d0 07 24 00 00 00 00 00 82 22 00 1d 1b 3c 80 38 80 ┆! e ! $ " < 8 ┆ 0x6c0…6e0 08 d0 03 25 00 00 00 00 00 84 22 00 80 f5 24 00 4c 00 1d 1b 40 80 38 80 08 d0 01 15 28 00 00 00 ┆ % " $ L @ 8 ( ┆ 0x6e0…700 00 85 22 00 08 d0 01 20 00 00 00 00 00 82 21 00 80 f5 24 00 4c 00 1d 00 01 00 8a 02 d1 1e 44 80 ┆ " ! $ L D ┆ 0x700…720 38 80 84 f6 08 d0 01 02 00 00 00 00 00 85 21 00 08 d0 03 65 00 00 00 00 00 83 22 00 14 00 22 00 ┆8 ! e " " ┆ 0x720…740 08 d0 02 50 00 00 00 00 00 82 21 00 80 f5 24 00 4c 00 1d 00 01 00 94 02 d1 1d 48 80 08 d0 07 30 ┆ P ! $ L H 0┆ 0x740…760 00 00 00 00 00 82 30 80 21 00 1b 80 22 00 80 f5 24 00 4c 00 1d 1b 4c 80 38 80 08 d0 01 70 00 00 ┆ 0 ! " $ L L 8 p ┆ 0x760…780 00 00 00 83 22 00 80 f5 24 00 4c 00 1d 00 01 00 9e 02 86 04 08 00 01 00 a8 02 86 04 08 00 01 00 ┆ " $ L ┆ 0x780…7a0 b2 02 86 1e 32 c0 30 00 44 69 74 20 7d 72 6c 69 67 65 20 65 6b 73 74 72 61 66 6f 72 62 72 75 67 ┆ 2 0 Dit årlige ekstraforbrug┆ 0x7a0…7c0 20 61 66 20 6b 61 6c 6f 72 69 65 72 20 65 72 20 73 7d 20 73 74 6f 72 74 07 00 01 00 bc 02 86 20 ┆ af kalorier er så stort ┆ 0x7c0…7e0 26 c0 23 00 61 74 20 64 75 20 6b 61 6e 20 65 72 6e 7b 72 65 20 65 6e 20 76 6f 6b 73 65 6e 20 69 ┆& # at du kan ernære en voksen i┆ 0x7e0…800 6e 64 65 72 20 69 20 00 07 3b 3c 80 07 3b 08 c0 05 00 20 64 61 67 65 00 07 00 01 00 c6 02 86 23 ┆nder i ;< ; dage #┆ 0x800…820 28 c0 26 00 61 74 20 64 75 20 6b 61 6e 20 66 7d 20 65 6e 20 66 6f 6c 6b 65 76 6f 67 6e 20 74 69 ┆( & at du kan få en folkevogn ti┆ 0x820…840 6c 20 61 74 20 6b 7c 72 65 20 07 3b 40 80 07 3b 0c c0 0a 00 20 6b 69 6c 6f 6d 65 74 65 72 07 00 ┆l at køre ;@ ; kilometer ┆ 0x840…860 01 00 d0 02 86 1f 24 c0 21 00 61 74 20 64 75 20 6b 61 6e 20 6f 70 76 61 72 6d 65 20 65 74 20 70 ┆ $ ! at du kan opvarme et p┆ 0x860…880 61 72 63 65 6c 68 75 73 20 69 20 00 07 3b 44 80 07 3b 08 c0 06 00 20 64 61 67 65 2e 07 00 01 00 ┆arcelhus i ;D ; dage. ┆ 0x880…8a0 da 02 86 25 32 c0 2f 00 44 65 73 75 64 65 6e 20 72 65 64 75 63 65 72 65 72 20 6f 76 65 72 76 7b ┆ %2 / Desuden reducerer overvæ┆ 0x8a0…8c0 67 74 65 6e 20 64 69 6e 20 6c 65 76 65 61 6c 64 65 72 20 6d 65 64 20 00 07 3b 48 80 07 3b 06 c0 ┆gten din levealder med ;H ; ┆ 0x8c0…8e0 03 00 20 7d 72 00 07 00 01 00 e4 02 86 26 28 c0 25 00 6f 67 20 66 6f 72 7c 67 65 72 20 64 69 6e ┆ år &( % og forøger din┆ 0x8e0…900 65 20 6c 65 76 65 6f 6d 6b 6f 73 74 6e 69 6e 67 65 72 20 6d 65 64 20 00 07 3b 4c 80 07 3b 12 c0 ┆e leveomkostninger med ;L ; ┆ 0x900…920 0f 00 20 6b 72 6f 6e 65 72 20 6f 6d 20 7d 72 65 74 00 07 00 01 00 ee 02 86 04 08 00 01 00 f8 02 ┆ kroner om året ┆ 0x920…940 86 19 18 c0 16 00 44 69 6e 20 6e 6f 72 6d 61 6c 76 7b 67 74 20 65 72 20 63 61 2e 20 07 3b 26 80 ┆ Din normalvægt er ca. ;& ┆ 0x940…960 4b 00 07 3b 06 c0 03 00 20 6b 67 00 07 00 01 00 02 03 5d 04 00 00 01 00 0c 03 86 18 0c c0 09 00 ┆K ; kg Å ┆ 0x960…980 44 75 20 76 65 6a 65 72 20 00 07 3b 30 80 4b 00 07 3b 10 c0 0d 00 20 6b 67 20 66 6f 72 20 6c 69 ┆Du vejer ;0 K ; kg for li┆ 0x980…9a0 64 74 2e 00 07 00 01 00 16 03 86 14 1e c0 1b 00 4b 61 6e 74 69 6e 65 6e 20 62 65 74 6a 65 6e 65 ┆dt. Kantinen betjene┆ 0x9a0…9c0 72 20 64 69 67 20 67 65 72 6e 65 00 07 00 01 00 20 03 80 03 01 00 2a 03 80 03 01 00 2f 03 86 04 ┆r dig gerne * / ┆ 0x9c0…9e0 08 00 01 00 30 03 86 04 08 00 01 00 34 03 86 17 24 c0 21 00 54 61 73 74 20 72 65 74 75 72 6e 2c ┆ 0 4 $ ! Tast return,┆ 0x9e0…a00 20 6e 7d 72 20 64 75 20 76 69 6c 20 66 6f 72 74 73 7b 74 74 65 00 07 00 01 00 48 03 87 06 13 00 ┆ når du vil fortsætte H ┆ 0xa00…a20 02 a0 05 00 01 00 5c 03 84 06 00 00 00 e0 2d 0a 01 00 66 03 6b 03 01 00 10 27 d6 00 00 00 02 58 ┆ Ø - f k ' X┆ 0xa20…a40 00 00 03 4f 4b 00 00 06 41 4c 44 45 52 00 00 06 48 5c 4a 44 45 00 00 05 56 5b 47 54 00 00 02 41 ┆ OK ALDER HØJDE VÆGT A┆ 0xa40…a60 00 00 08 4e 4f 52 4d 41 4c 56 00 00 06 4f 56 45 52 56 00 00 02 43 00 00 02 49 00 00 02 42 00 00 ┆ NORMALV OVERV C I B ┆ 0xa60…a80 02 50 00 00 02 4c 00 00 02 55 00 00 00 00 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P L U ┆