|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2816 (0xb00)
Names: »SPAREOP.CSB«
└─⟦b8c2906c0⟧ Bits:30004180 METANIC COMAL v. 1.6 og en del COMAL programmer (Comet)
└─ ⟦this⟧ »SPAREOP.CSB«
0x000…020 07 00 33 0a 15 aa 00 02 00 33 0a f8 0a 00 08 71 f9 00 00 f8 14 00 29 71 f9 21 00 20 20 20 20 20 ┆ 3 3 q )q ! ┆ 0x020…040 20 20 50 72 6f 67 72 61 6d 6d 65 74 20 20 68 65 64 64 65 72 20 53 50 41 52 45 4f 50 f8 1e 00 08 ┆ Programmet hedder SPAREOP ┆ 0x040…060 71 f9 00 00 f8 28 00 08 71 f9 00 00 f8 32 00 05 ac f8 3c 00 4d aa fa 45 45 40 00 20 20 2a 2a 2a ┆q ( q 2 < M EE@ ***┆ 0x060…080 20 4d 7d 6e 65 64 6c 69 67 20 6f 70 73 70 61 72 69 6e 67 20 6d 65 64 20 68 65 6c 7d 72 6c 69 67 ┆ Månedlig opsparing med helårlig┆ 0x080…0a0 20 72 65 6e 74 65 74 69 6c 73 6b 72 69 76 6e 69 6e 67 20 20 2a 2a 2a 20 20 20 20 31 f7 04 f8 46 ┆ rentetilskrivning *** 1 F┆ 0x0a0…0c0 00 05 aa f8 50 00 36 95 45 28 00 48 76 6f 72 20 73 74 6f 72 20 65 72 20 64 65 6e 20 6d 7d 6e 65 ┆ P 6 E( Hvor stor er den måne┆ 0x0c0…0e0 64 6c 69 67 65 20 6f 70 73 70 61 72 69 6e 67 3f 20 20 20 ea fa 04 37 00 31 f8 5a 00 3b 95 45 2d ┆dlige opsparing? 7 1 Z ; E-┆ 0x0e0…100 00 48 76 6f 72 20 73 74 6f 72 20 65 72 20 64 65 6e 20 7d 72 6c 69 67 65 20 72 65 6e 74 65 20 28 ┆ Hvor stor er den årlige rente (┆ 0x100…120 69 20 70 72 6f 63 65 6e 74 29 3f 20 20 20 ea fa 04 37 01 31 f8 64 00 05 aa f8 6e 00 3f aa fa 37 ┆i procent)? 7 1 d n ? 7┆ 0x120…140 45 32 00 48 76 6f 72 20 6d 61 6e 67 65 20 7d 72 20 6f 67 20 6d 7d 6e 65 64 65 72 20 73 6b 61 6c ┆E2 Hvor mange år og måneder skal┆ 0x140…160 20 6f 70 73 70 61 72 69 6e 67 65 6e 20 6c 7c 62 65 3f 20 20 20 31 f7 04 f8 78 00 1b 95 45 0d 00 ┆ opsparingen løbe? 1 x E ┆ 0x160…180 41 6e 74 61 6c 20 7d 72 20 3f 20 20 20 ea fa 04 37 05 31 f8 82 00 1a 95 45 0c 00 4d 7d 6e 65 64 ┆Antal år ? 7 1 E Måned┆ 0x180…1a0 65 72 20 3f 20 20 20 ea fa 04 37 04 31 f8 8c 00 12 9c 46 99 fa 09 38 04 3b 47 0b 00 68 31 dd f8 ┆er ? 7 1 F 8 ;G h1 ┆ 0x1a0…1c0 96 00 05 7c f8 a0 00 49 aa fa 41 45 3c 00 44 65 72 20 73 70 7c 72 67 65 73 20 6f 6d 20 61 6e 74 ┆ ø I AE< Der spørges om ant┆ 0x1c0…1e0 61 6c 20 6d 7d 6e 65 64 65 72 20 75 64 20 6f 76 65 72 20 66 7c 72 6f 6d 74 61 6c 74 65 20 7d 72 ┆al måneder ud over føromtalte år┆ 0x1e0…200 2e 20 44 65 72 20 53 4b 41 4c 31 f7 04 f8 aa 00 40 aa fa 38 45 33 00 73 76 61 72 65 73 20 6d 65 ┆. Der SKAL1 @ 8E3 svares me┆ 0x200…220 64 20 65 74 20 68 65 6c 74 20 61 6e 74 61 6c 20 6d 65 6c 6c 65 6d 20 30 20 6f 67 20 6c 6c 2c 20 ┆d et helt antal mellem 0 og ll, ┆ 0x220…240 64 69 6e 20 69 64 69 2e 2e 21 31 f7 04 f8 b4 00 17 95 45 09 00 4d 7d 6e 65 64 65 72 3f 20 ea fa ┆din idi..!1 E Måneder? ┆ 0x240…260 04 37 04 31 f8 be 00 19 7d 88 98 fa 11 38 04 3b 47 00 00 67 38 04 3b 47 0b 00 65 5b 31 f8 c8 00 ┆ 7 1 å 8 ;G g8 ;G eÆ1 ┆ 0x260…280 05 7b f8 d2 00 05 aa f8 dc 00 4c 95 45 3e 00 53 6b 61 6c 20 64 65 72 20 75 64 73 6b 72 69 76 65 ┆ æ L E> Skal der udskrive┆ 0x280…2a0 73 20 6d 7d 6e 65 64 6c 69 67 65 20 73 61 6c 64 69 20 6d 65 64 20 72 65 6e 74 65 20 74 69 6c 20 ┆s månedlige saldi med rente til ┆ 0x2a0…2c0 64 61 74 6f 3f 20 28 4a 41 3d 31 29 20 ea fa 04 37 06 31 f8 e6 00 38 95 45 2a 00 53 6b 61 6c 20 ┆dato? (JA=1) 7 1 8 E* Skal ┆ 0x2c0…2e0 64 65 72 20 6c 61 76 65 73 20 70 61 70 69 72 2d 75 64 73 6b 72 69 66 74 20 20 28 4a 41 3d 31 29 ┆der laves papir-udskrift (JA=1)┆ 0x2e0…300 20 3f 20 20 20 ea fa 04 37 14 31 f8 f0 00 13 9c f6 99 fa 0a 38 14 3b 47 01 00 33 59 31 dd f8 fa ┆ ? 7 1 8 ;G 3Y1 ┆ 0x300…320 00 0f ab ef fa 08 45 03 00 4c 50 3a 31 f8 04 01 07 7a 02 9a f8 0e 01 05 ac f8 18 01 05 7b f8 22 ┆ E LP:1 z æ "┆ 0x320…340 01 53 aa fa 2b 45 26 00 4f 76 65 72 73 69 67 74 20 6f 76 65 72 20 6f 70 73 70 61 72 69 6e 67 65 ┆ S +E& Oversigt over opsparinge┆ 0x340…360 6e 73 20 66 6f 72 6c 7c 62 20 76 65 64 20 31 f7 04 e7 fa 05 38 01 3b 31 f7 03 e7 fa 13 45 0e 00 ┆ns forløb ved 1 8 ;1 E ┆ 0x360…380 25 20 70 2e 61 2e 20 67 65 6e 6e 65 6d 20 31 f7 04 f8 2c 01 5d aa fa 05 38 05 3b 31 f7 02 e7 fa ┆% p.a. gennem 1 , Å 8 ;1 ┆ 0x380…3a0 0c 45 07 00 20 7d 72 20 6f 67 20 31 f7 04 e7 fa 05 38 04 3b 31 f7 02 e7 fa 12 45 0d 00 20 6d 7d ┆ E år og 1 8 ;1 E må┆ 0x3a0…3c0 6e 65 64 65 72 20 6d 65 64 20 31 f7 04 e7 fa 05 38 00 3b 31 f7 03 e7 fa 14 45 0f 00 20 6b 72 2e ┆neder med 1 8 ;1 E kr.┆ 0x3c0…3e0 20 69 20 6d 7d 6e 65 64 6c 69 67 31 f7 04 f8 36 01 17 aa fa 0f 45 0a 00 6f 70 73 70 61 72 69 6e ┆ i månedlig1 6 E opsparin┆ 0x3e0…400 67 3a 31 f7 04 f8 40 01 05 aa f8 4a 01 4a aa fa 42 45 3d 00 20 20 5d 52 20 20 20 20 20 20 20 20 ┆g:1 @ J J BE= ÅR ┆ 0x400…420 20 49 6e 64 62 2e 20 69 20 61 6c 74 20 20 20 20 52 65 6e 74 65 20 69 20 61 6c 74 20 20 20 20 20 ┆ Indb. i alt Rente i alt ┆ 0x420…440 53 41 4c 44 4f 20 20 20 20 20 20 20 20 20 20 5d 52 31 f7 04 f8 54 01 45 aa fa 3d 45 38 00 20 20 ┆SALDO ÅR1 T E =E8 ┆ 0x440…460 20 20 20 20 20 20 20 20 20 20 65 66 74 65 72 20 6e 79 20 69 6e 64 62 2e 20 20 20 20 20 20 20 20 ┆ efter ny indb. ┆ 0x460…480 20 20 20 20 20 20 20 20 65 66 74 65 72 20 6e 79 20 69 6e 64 62 2e 31 f7 04 f8 5e 01 11 a8 fa 04 ┆ efter ny indb.1 ^ ┆ 0x480…4a0 37 08 31 ec fa 05 38 00 3b 31 f8 68 01 12 a8 fa 04 37 09 31 ec fa 06 47 00 00 33 31 f8 72 01 11 ┆7 1 8 ;1 h 7 1 G 31 r ┆ 0x4a0…4c0 a8 fa 04 37 0a 31 ec fa 05 38 00 3b 31 f8 7c 01 1f 8f 50 9e 00 ff 0e ec fa 06 47 00 00 33 31 e0 ┆ 7 1 8 ;1 ø P G 31 ┆ 0x4c0…4e0 fa 0a 38 05 3b 47 01 00 64 33 31 de f8 86 01 13 9c 40 9d fa 0a 38 06 3b 47 01 00 33 59 31 dd f8 ┆ 8 ;G d31 @ 8 ;G 3Y1 ┆ 0x4e0…500 90 01 11 a8 fa 04 37 0b 31 ec fa 05 38 0e 3b 31 f8 9a 01 12 a8 fa 04 37 12 31 ec fa 06 47 00 00 ┆ 7 1 8 ;1 7 1 G ┆ 0x500…520 33 31 f8 a4 01 1b 8f 36 9d 01 ff 0f ec fa 06 47 01 00 33 31 e0 fa 06 47 0b 00 33 31 de f8 ae 01 ┆31 6 G 31 G 31 ┆ 0x520…540 19 a8 fa 04 37 11 31 ec fa 0d 38 08 3b 38 0f 3b 38 00 3b 4e 52 31 f8 b8 01 24 a8 fa 04 37 0c 31 ┆ 7 1 8 ;8 ;8 ;NR1 $ 7 1┆ 0x540…560 ec fa 18 38 11 3b 38 00 3b 53 4b 38 01 3b 4e 47 0c 00 33 4f 47 64 00 33 4f 31 f8 c2 01 23 a8 fa ┆ 8 ;8 ;SK8 ;NG 3OGd 3O1 # ┆ 0x560…580 04 37 0c 31 ec fa 17 38 0c 3b 47 64 00 33 4e 46 00 00 00 80 52 0f 4b 47 64 00 33 4f 31 f8 cc 01 ┆ 7 1 8 ;Gd 3NF R KGd 3O1 ┆ 0x580…5a0 11 a8 fa 04 37 12 31 ed fa 05 38 0c 3b 31 f8 d6 01 1d a8 fa 04 37 10 31 ec fa 11 38 0a 3b 38 0f ┆ 7 1 8 ;1 7 1 8 ;8 ┆ 0x5a0…5c0 3b 38 00 3b 4e 52 38 12 3b 52 31 f8 e0 01 a2 aa fa 07 45 02 00 20 20 31 f7 04 e7 fa 05 38 0b 3b ┆;8 ;NR8 ;R1 E 1 8 ;┆ 0x5c0…5e0 31 f7 03 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 03 e7 fa 08 45 03 00 2f 31 32 31 ┆1 E -1 8 ;1 E /121┆ 0x5e0…600 f7 04 e7 30 4a fa 05 47 0e 00 31 4b e7 fa 05 38 11 3b 31 f7 03 e7 30 4a fa 05 47 1d 00 31 4b e7 ┆ 0J G 1K 8 ;1 0J G 1K ┆ 0x600…620 fa 05 38 12 3b 31 f7 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 10 3b 31 f7 03 e7 30 4a fa 05 ┆ 8 ;1 0J G- 1K 8 ;1 0J ┆ 0x620…640 47 3c 00 31 4b e7 fa 05 38 0b 3b 31 f7 03 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 ┆G< 1K 8 ;1 E -1 8 ;1 ┆ 0x640…660 03 e7 fa 08 45 03 00 2f 31 32 31 f7 04 f8 ea 01 0a 90 eb 9b 01 ff 0f f8 f4 01 05 7b f8 fe 01 16 ┆ E /121 æ ┆ 0x660…680 a8 fa 04 37 0b 31 ec fa 0a 38 0e 3b 47 01 00 33 52 31 f8 08 02 2e a8 fa 04 37 0c 31 ec fa 22 47 ┆ 7 1 8 ;G 3R1 . 7 1 "G┆ 0x680…6a0 0c 00 38 08 3b 32 4e 47 42 00 38 00 3b 32 4e 52 4b 38 01 3b 4e 47 0c 00 33 4f 47 64 00 33 4f 31 ┆ 8 ;2NGB 8 ;2NRK8 ;NG 3OGd 3O1┆ 0x6a0…6c0 f8 12 02 23 a8 fa 04 37 0c 31 ec fa 17 38 0c 3b 47 64 00 33 4e 46 00 00 00 80 52 0f 4b 47 64 00 ┆ # 7 1 8 ;Gd 3NF R KGd ┆ 0x6c0…6e0 33 4f 31 f8 1c 02 1a a8 fa 04 37 08 31 ec fa 0e 38 08 3b 47 0c 00 38 00 3b 32 4e 52 31 f8 26 02 ┆3O1 7 1 8 ;G 8 ;2NR1 & ┆ 0x6e0…700 11 a8 fa 04 37 09 31 ed fa 05 38 0c 3b 31 f8 30 02 15 a8 fa 04 37 0a 31 ec fa 09 38 08 3b 38 09 ┆ 7 1 8 ;1 0 7 1 8 ;8 ┆ 0x700…720 3b 52 31 f8 3a 02 64 aa fa 07 45 02 00 20 20 31 f7 04 e7 fa 05 38 0b 3b 31 f7 03 e7 30 4a fa 05 ┆;R1 : d E 1 8 ;1 0J ┆ 0x720…740 47 0e 00 31 4b e7 fa 05 38 08 3b 31 f7 03 e7 30 4a fa 05 47 1d 00 31 4b e7 fa 05 38 09 3b 31 f7 ┆G 1K 8 ;1 0J G 1K 8 ;1 ┆ 0x740…760 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 0a 3b 31 f7 03 e7 30 4a fa 05 47 3c 00 31 4b e7 fa ┆ 0J G- 1K 8 ;1 0J G< 1K ┆ 0x760…780 05 38 0b 3b 31 f7 03 f8 44 02 0a 90 96 9b 00 ff 0e f8 4e 02 12 9c b7 a0 fa 09 38 04 3b 47 00 00 ┆ 8 ;1 D N 8 ;G ┆ 0x780…7a0 68 31 dd f8 58 02 12 a8 fa 04 37 12 31 ec fa 06 47 00 00 33 31 f8 62 02 1b 8f e1 9f 00 ff 0f ec ┆h1 X 7 1 G 31 b ┆ 0x7a0…7c0 fa 06 47 01 00 33 31 e0 fa 06 38 04 3b 33 31 de f8 6c 02 19 a8 fa 04 37 11 31 ec fa 0d 38 08 3b ┆ G 31 8 ;31 l 7 1 8 ;┆ 0x7c0…7e0 38 0f 3b 38 00 3b 4e 52 31 f8 76 02 24 a8 fa 04 37 0c 31 ec fa 18 38 11 3b 38 00 3b 53 4b 38 01 ┆8 ;8 ;NR1 v $ 7 1 8 ;8 ;SK8 ┆ 0x7e0…800 3b 4e 47 0c 00 33 4f 47 64 00 33 4f 31 f8 80 02 23 a8 fa 04 37 0c 31 ec fa 17 38 0c 3b 47 64 00 ┆;NG 3OGd 3O1 # 7 1 8 ;Gd ┆ 0x800…820 33 4e 46 00 00 00 80 52 0f 4b 47 64 00 33 4f 31 f8 8a 02 11 a8 fa 04 37 12 31 ed fa 05 38 0c 3b ┆3NF R KGd 3O1 7 1 8 ;┆ 0x820…840 31 f8 94 02 1d a8 fa 04 37 10 31 ec fa 11 38 0a 3b 38 0f 3b 38 00 3b 4e 52 38 12 3b 52 31 f8 9e ┆1 7 1 8 ;8 ;8 ;NR8 ;R1 ┆ 0x840…860 02 13 9c dc 9f fa 0a 38 06 3b 47 01 00 33 59 31 dd f8 a8 02 a2 aa fa 07 45 02 00 20 20 31 f7 04 ┆ 8 ;G 3Y1 E 1 ┆ 0x860…880 e7 fa 05 38 05 3b 31 f7 02 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 03 e7 fa 08 45 ┆ 8 ;1 E -1 8 ;1 E┆ 0x880…8a0 03 00 2f 31 32 31 f7 04 e7 30 4a fa 05 47 0e 00 31 4b e7 fa 05 38 11 3b 31 f7 03 e7 30 4a fa 05 ┆ /121 0J G 1K 8 ;1 0J ┆ 0x8a0…8c0 47 1d 00 31 4b e7 fa 05 38 12 3b 31 f7 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 10 3b 31 f7 ┆G 1K 8 ;1 0J G- 1K 8 ;1 ┆ 0x8c0…8e0 03 e7 30 4a fa 05 47 3c 00 31 4b e7 fa 05 38 05 3b 31 f7 02 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa ┆ 0J G< 1K 8 ;1 E -1 ┆ 0x8e0…900 05 38 0f 3b 31 f7 03 e7 fa 08 45 03 00 2f 31 32 31 f7 04 f8 b2 02 05 7b f8 bc 02 0a 90 7e 9e 00 ┆ 8 ;1 E /121 æ ü ┆ 0x900…920 ff 0f f8 c6 02 13 9c b2 a0 fa 0a 38 06 3b 47 01 00 33 5a 31 dd f8 d0 02 12 a8 fa 04 37 0f 31 ee ┆ 8 ;G 3Z1 7 1 ┆ 0x920…940 fa 06 47 01 00 33 31 f8 da 02 a2 aa fa 07 45 02 00 20 20 31 f7 04 e7 fa 05 38 05 3b 31 f7 02 e7 ┆ G 31 E 1 8 ;1 ┆ 0x940…960 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 03 e7 fa 08 45 03 00 2f 31 32 31 f7 04 e7 30 ┆ E -1 8 ;1 E /121 0┆ 0x960…980 4a fa 05 47 0e 00 31 4b e7 fa 05 38 11 3b 31 f7 03 e7 30 4a fa 05 47 1d 00 31 4b e7 fa 05 38 12 ┆J G 1K 8 ;1 0J G 1K 8 ┆ 0x980…9a0 3b 31 f7 03 e7 30 4a fa 05 47 2d 00 31 4b e7 fa 05 38 10 3b 31 f7 03 e7 30 4a fa 05 47 3c 00 31 ┆;1 0J G- 1K 8 ;1 0J G< 1┆ 0x9a0…9c0 4b e7 fa 05 38 05 3b 31 f7 02 e7 fa 06 45 01 00 2d 31 f7 04 e7 fa 05 38 0f 3b 31 f7 03 e7 fa 08 ┆K 8 ;1 E -1 8 ;1 ┆ 0x9c0…9e0 45 03 00 2f 31 32 31 f7 04 f8 e4 02 05 7b f8 ee 02 05 7b f8 f8 02 13 9c de a0 fa 0a 38 14 3b 47 ┆E /121 æ æ 8 ;G┆ 0x9e0…a00 01 00 33 59 31 dd f8 02 03 0f ab ef fa 08 45 03 00 44 53 3a 31 f8 0c 03 05 7b f8 16 03 05 aa f8 ┆ 3Y1 E DS:1 æ ┆ 0xa00…a20 20 03 12 ad fa 05 47 4d 00 31 e6 fa 05 47 14 00 31 f8 2a 03 11 aa fa 09 45 04 00 53 4c 55 54 31 ┆ GM 1 G 1 * E SLUT1┆ 0xa20…a40 f7 04 f8 34 03 12 ad fa 05 47 4d 00 31 e6 fa 05 47 15 00 31 f8 3e 03 05 91 f8 10 27 00 91 aa 00 ┆ 4 GM 1 G 1 > ' ┆ 0xa40…a60 03 03 03 03 02 02 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 05 53 4b 52 49 56 06 52 45 4e 54 ┆ SKRIV RENT┆ 0xa60…a80 45 33 06 52 45 4e 54 4f 50 04 49 4e 44 42 05 53 41 4c 44 4f 06 54 5b 4c 4d 44 52 05 54 5b 4c 5d ┆E3 RENTOP INDB SALDO TÆLMDR TÆLÅ┆ 0xa80…aa0 52 08 49 4e 4e 44 49 41 4c 54 05 52 45 4e 54 45 02 5d 52 08 53 41 4c 44 49 41 4c 54 08 52 45 4e ┆R INNDIALT RENTE ÅR SALDIALT REN┆ 0xaa0…ac0 54 49 41 4c 54 07 49 4e 44 49 41 4c 54 07 49 4e 44 53 4b 55 44 04 53 56 41 52 06 4c 5c 42 45 5d ┆TIALT INDIALT INDSKUD SVAR LØBEÅ┆ 0xac0…ae0 52 07 4c 5c 42 45 4d 44 52 07 4c 5c 42 45 4d 44 52 06 4c 5c 42 45 5d 52 08 52 45 4e 54 45 46 4f ┆R LØBEMDR LØBEMDR LØBEÅR RENTEFO┆ 0xae0…b00 44 08 4d 5d 4e 45 44 53 4f 50 49 4e 44 42 05 53 41 4c 44 4f 06 54 5b 4c 4d 44 52 05 54 5b 4c 6a ┆D MÅNEDSOPINDB SALDO TÆLMDR TÆLj┆