|
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: 5120 (0x1400)
Names: »RETSKAT8.CSB«
└─⟦b8c2906c0⟧ Bits:30004180 METANIC COMAL v. 1.6 og en del COMAL programmer (Comet)
└─⟦this⟧ »RETSKAT8.CSB«
0x0000…0020 (0,) 07 00 6a 12 30 65 01 02 00 00 10 f8 0a 00 34 73 ff 00 df fa 05 47 1e 00 31 e6 ff 01 df fa 05 47 ┆ j 0e 4s G 1 G┆ 0x0020…0040 03 00 31 e6 ff 13 df fa 05 47 03 00 31 e6 ff 15 4a fa 05 47 0f 00 31 4b df fa 05 47 14 00 31 f8 ┆ 1 G 1 J G 1K G 1 ┆ 0x0040…0060 14 00 2f 73 ff 16 df fa 05 47 03 00 31 e6 ff 17 4a fa 05 47 0f 00 31 4b e6 ff 18 4a fa 05 47 0f ┆ /s G 1 J G 1K J G ┆ 0x0060…0080 00 31 4b e6 ff 19 4a fa 05 47 0f 00 31 4b f8 18 00 2c 71 f9 24 00 20 70 72 6f 67 72 61 6d 20 74 ┆ 1K J G 1K ,q $ program t┆ 0x0080…00a0 69 6c 20 62 65 72 65 67 6e 69 6e 67 20 61 66 20 73 6c 75 74 73 6b 61 74 2f 2f f8 19 00 34 71 f9 ┆il beregning af slutskat// 4q ┆ 0x00a0…00c0 2c 00 20 4c 61 72 73 20 5a 65 75 74 68 65 6e 20 45 6e 67 72 61 66 2c 20 76 65 72 73 69 6f 6e 20 ┆, Lars Zeuthen Engraf, version ┆ 0x00c0…00e0 32 20 4a 41 4e 2e 20 31 39 38 33 2e 2f 2f f8 1e 00 0a 96 fa 04 41 1f 31 f8 28 00 08 71 f9 00 00 ┆2 JAN. 1983.// A 1 ( q ┆ 0x00e0…0100 f8 32 00 0f ab ef fa 08 45 03 00 44 53 3a 31 f8 3c 00 05 ac f8 46 00 0a 96 fa 04 41 1e 31 f8 50 ┆ 2 E DS:1 < F A 1 P┆ 0x0100…0120 00 0f 80 41 99 04 fa 05 38 13 3b 31 df f8 5a 00 20 81 15 9a b6 99 04 fa 08 45 03 00 20 6a 61 31 ┆ A 8 ;1 Z E ja1┆ 0x0120…0140 f7 04 e6 fa 07 45 02 00 6a 61 31 f7 04 f8 5b 00 0a 96 fa 04 41 2c 31 f8 64 00 0a 96 fa 04 41 1a ┆ E ja1 Æ A,1 d A ┆ 0x0140…0160 31 f8 6e 00 0a 96 fa 04 41 1b 31 f8 78 00 0a 96 fa 04 41 25 31 f8 82 00 0a 96 fa 04 41 21 31 f8 ┆1 n A 1 x A%1 A!1 ┆ 0x0160…0180 8c 00 05 aa f8 96 00 0a 96 fa 04 41 0b 31 f8 a0 00 0a 96 fa 04 41 26 31 f8 aa 00 0a 96 fa 04 41 ┆ A 1 A&1 A┆ 0x0180…01a0 23 31 f8 b4 00 3b 81 15 9a f6 99 04 fa 09 45 04 00 20 6e 65 6a 31 f7 04 e6 fa 08 45 03 00 6e 65 ┆#1 ; E nej1 E ne┆ 0x01a0…01c0 6a 31 f7 04 e6 fa 08 45 03 00 4e 45 4a 31 f7 04 e6 fa 09 45 04 00 20 4e 45 4a 31 f7 04 f8 be 00 ┆j1 E NEJ1 E NEJ1 ┆ 0x01c0…01e0 05 ac f8 d2 00 07 82 15 9a f8 dc 00 0e 96 fa 08 41 2d 38 13 43 00 31 f8 0e 01 0a 96 fa 04 41 24 ┆ A-8 C 1 A$┆ 0x01e0…0200 31 f8 18 01 05 83 f8 22 01 0a 99 fb 32 00 10 99 f8 2c 01 08 71 f9 00 00 f8 36 01 08 71 f9 00 00 ┆1 " 2 , q 6 q ┆ 0x0200…0220 (1,) f8 40 01 09 74 81 9b ff 25 f8 4a 01 0a 96 fa 04 41 1a 31 f8 54 01 05 ac f8 5e 01 2d 95 45 1f 00 ┆ @ t % J A 1 T ^ - E ┆ 0x0220…0240 73 6b 61 74 74 65 70 6c 69 67 74 69 67 20 69 6e 64 6b 6f 6d 73 74 20 69 20 6c 39 38 32 3f 20 ea ┆skattepligtig indkomst i l982? ┆ 0x0240…0260 fa 04 37 28 31 f8 68 01 1d a8 fa 04 37 02 31 ec fa 11 38 28 3b 47 64 00 33 4f 0f 4b 47 64 00 33 ┆ 7(1 h 7 1 8(;Gd 3O KGd 3┆ 0x0260…0280 4e 31 f8 72 01 05 aa f8 7c 01 05 aa f8 86 01 13 9c 22 9b fa 0a 38 02 3b 47 f8 43 33 56 31 dd f8 ┆N1 r ø " 8 ;G C3V1 ┆ 0x0280…02a0 90 01 45 aa fa 15 45 10 00 64 75 20 6b 61 6e 20 6f 76 65 72 66 7c 72 65 20 31 f7 04 e7 fa 0a 47 ┆ E E du kan overføre 1 G┆ 0x02a0…02c0 f8 43 38 02 3b 32 53 31 f7 03 e7 fa 16 45 11 00 20 69 20 70 65 72 73 6f 6e 66 72 61 64 72 61 67 ┆ C8 ;2S1 E i personfradrag┆ 0x02c0…02e0 20 31 f7 04 f8 9a 01 2a aa fa 22 45 1d 00 74 69 6c 20 64 69 6e 20 65 76 65 6e 74 75 65 6c 6c 65 ┆ 1 * "E til din eventuelle┆ 0x02e0…0300 20 7b 67 74 65 66 7b 6c 64 65 2e 31 f7 04 f8 a4 01 05 7b f8 ae 01 05 aa f8 b8 01 2c 95 45 1e 00 ┆ ægtefælde.1 æ , E ┆ 0x0300…0320 73 6b 61 74 74 65 70 6c 69 67 74 69 67 20 66 6f 72 6d 75 65 20 69 20 31 39 38 32 20 3f 20 ea fa ┆skattepligtig formue i 1982 ? ┆ 0x0320…0340 04 37 29 31 f8 c2 01 1c a8 fa 04 37 03 31 ec fa 10 38 29 3b 47 64 00 33 4f 0f 47 64 00 33 4e 31 ┆ 7)1 7 1 8);Gd 3O Gd 3N1┆ 0x0340…0360 f8 cc 01 0d aa fa 05 38 02 3b 31 f7 03 f8 d6 01 07 75 ff 25 f8 e0 01 08 71 f9 00 00 f8 ea 01 08 ┆ 8 ;1 u % q ┆ 0x0360…0380 71 f9 00 00 f8 f4 01 09 74 6e 9d ff 21 f8 fe 01 2b a8 fa 04 37 06 31 ec fa 1f 38 18 38 1c 3b 34 ┆q tn ! + 7 1 8 8 ;4┆ 0x0380…03a0 39 3b 38 19 38 1c 3b 34 39 3b 52 46 70 00 00 83 52 4b 47 64 00 33 4f 31 f8 08 02 0a 96 fa 04 41 ┆9;8 8 ;49;RFp RKGd 3O1 A┆ 0x03a0…03c0 1d 31 f8 12 02 05 aa f8 1c 02 05 aa f8 26 02 14 9c 1d 9c fa 0b 38 02 3b 46 3a 86 00 91 55 31 dd ┆ 1 & 8 ;F: U1 ┆ 0x03c0…03e0 f8 30 02 17 a8 fa 04 37 08 31 ec fa 0b 46 41 89 37 7e 38 02 3b 4e 31 f8 3a 02 12 a8 fa 04 37 2a ┆ 0 7 1 FA 7ü8 ;N1 : 7*┆ 0x03e0…0400 31 ec fa 06 47 00 00 33 31 f8 44 02 07 7a 0b 9d f8 4e 02 1b 9c 75 9c fa 12 46 3a 86 00 91 38 02 ┆1 G 31 D z N u F: 8 ┆ 0x0400…0420 (2,) 3b 56 46 20 41 00 92 32 55 31 dd f8 58 02 24 a8 fa 04 37 08 31 ec fa 18 46 0d 03 00 8f 46 2a 7e ┆;VF A 2U1 X $ 7 1 F F*ü┆ 0x0420…0440 fa 7f 38 02 3b 46 3a 86 00 91 53 4b 4e 52 31 f8 62 02 12 a8 fa 04 37 2a 31 ec fa 06 47 00 00 33 ┆ 8 ;F: SKNR1 b 7*1 G 3┆ 0x0440…0460 31 f8 6c 02 07 7a 06 9d f8 76 02 08 71 f9 00 00 f8 80 02 24 a8 fa 04 37 08 31 ec fa 18 46 1f bd ┆1 l z v q $ 7 1 F ┆ 0x0460…0480 4d 90 46 61 ca c1 7f 38 02 3b 46 20 41 00 92 53 4b 4e 52 31 f8 8a 02 25 9c 01 9d fa 1c 38 19 38 ┆M Fa 8 ;F A SKNR1 % 8 8┆ 0x0480…04a0 1c 3b 34 39 3b 46 70 00 00 83 52 4b 47 64 00 33 4f 46 04 9b a6 7f 58 31 dd f8 94 02 34 a8 fa 04 ┆ ;49;Fp RKGd 3OF X1 4 ┆ 0x04a0…04c0 37 2a 31 ec fa 28 38 02 3b 46 20 41 00 92 53 4b 38 19 38 1c 3b 34 39 3b 46 70 00 00 83 52 46 4f ┆7*1 (8 ;F A SK8 8 ;49;Fp RFO┆ 0x04c0…04e0 33 33 85 53 4b 47 64 00 33 4f 4b 4e 31 f8 9e 02 05 7b f8 a8 02 05 7b f8 b2 02 05 7b f8 bc 02 15 ┆33 SKGd 3OKN1 æ æ æ ┆ 0x04e0…0500 a8 fa 04 37 09 31 ec fa 09 38 06 3b 38 02 3b 4e 31 f8 c6 02 14 9c 50 9d fa 0b 38 03 3b 46 74 2a ┆ 7 1 8 ;8 ;N1 P 8 ;Ft*┆ 0x0500…0520 40 94 57 31 dd f8 d0 02 17 a8 fa 04 37 0e 31 ec fa 0b 46 34 39 58 7b 38 03 3b 4e 31 f8 da 02 07 ┆@ W1 7 1 F49Xæ8 ;N1 ┆ 0x0520…0540 7a 69 9d f8 e4 02 12 a8 fa 04 37 0e 31 ec fa 06 47 00 00 33 31 f8 ee 02 05 7b f8 f8 02 07 75 ff ┆zi 7 1 G 31 æ u ┆ 0x0540…0560 21 f8 02 03 08 71 f9 00 00 f8 0c 03 08 71 f9 00 00 f8 16 03 09 74 51 9e ff 26 f8 20 03 15 a8 fa ┆! q q tQ & ┆ 0x0560…0580 04 37 0a 31 ec fa 09 38 08 3b 38 09 3b 52 31 f8 2a 03 05 aa f8 34 03 1d a8 fa 04 37 0c 31 ec fa ┆ 7 1 8 ;8 ;R1 * 4 7 1 ┆ 0x0580…05a0 11 38 0a 3b 38 0e 3b 52 38 0d 3b 53 38 2a 3b 53 31 f8 3e 03 30 aa fa 1f 45 1a 00 20 44 49 4e 20 ┆ 8 ;8 ;R8 ;S8*;S1 > 0 E DIN ┆ 0x05a0…05c0 53 4c 55 54 53 4b 41 54 20 46 4f 52 20 31 39 38 32 20 45 52 20 31 f7 04 e7 fa 05 38 0c 3b 31 f7 ┆SLUTSKAT FOR 1982 ER 1 8 ;1 ┆ 0x05c0…05e0 03 f8 48 03 05 aa f8 52 03 43 aa fa 3b 45 36 00 20 44 45 54 20 42 4c 49 56 45 52 20 4f 4d 20 45 ┆ H R C ;E6 DET BLIVER OM E┆ 0x05e0…0600 54 20 5c 4a 45 42 4c 49 4b 20 53 4b 52 45 56 45 54 20 55 44 20 50 5d 20 4c 49 4e 49 45 53 4b 52 ┆T ØJEBLIK SKREVET UD PÅ LINIESKR┆ 0x0600…0620 (3,) 49 56 45 52 45 4e 31 f7 04 f8 5c 03 0a 96 fa 04 41 24 31 f8 66 03 05 aa f8 70 03 05 aa f8 7a 03 ┆IVEREN1 Ø A$1 f p z ┆ 0x0620…0640 07 75 ff 26 f8 84 03 08 71 f9 00 00 f8 8e 03 08 71 f9 00 00 f8 98 03 09 74 33 a0 ff 0b f8 a2 03 ┆ u & q q t3 ┆ 0x0640…0660 05 ac f8 ac 03 0a 96 fa 04 41 1a 31 f8 b6 03 4b 95 45 3d 00 73 6b 61 6c 20 64 65 72 20 6f 76 65 ┆ A 1 K E= skal der ove┆ 0x0660…0680 72 66 7c 72 65 73 20 70 65 72 73 6f 6e 66 72 61 64 72 61 67 20 66 72 61 20 64 69 6e 20 7b 67 74 ┆rføres personfradrag fra din ægt┆ 0x0680…06a0 65 66 7b 6c 64 65 3f 20 28 4a 61 2f 6e 65 6a 29 20 ea fa 04 38 01 31 f8 c0 03 36 7e 51 9f fa 2d ┆efælde? (Ja/nej) 8 1 6üQ -┆ 0x06a0…06c0 38 01 3b 45 02 00 6a 61 70 38 01 3b 45 03 00 20 6a 61 70 5b 38 01 3b 45 03 00 6e 65 6a 70 5b 38 ┆8 ;E jap8 ;E japÆ8 ;E nejpÆ8┆ 0x06c0…06e0 01 3b 45 04 00 20 6e 65 6a 70 5b 31 de f8 de 03 0e 96 fa 08 41 2d 38 01 43 00 31 f8 e8 03 42 95 ┆ ;E nejpÆ1 A-8 C 1 B ┆ 0x06e0…0700 45 34 00 20 73 6b 61 6c 20 64 65 72 20 6f 76 65 72 66 7c 72 65 73 20 70 65 72 73 6f 6e 66 72 61 ┆E4 skal der overføres personfra┆ 0x0700…0720 64 72 61 67 20 66 72 61 20 64 69 6e 20 7b 67 74 65 66 7b 6c 64 65 20 ea fa 04 38 01 31 f8 f2 03 ┆drag fra din ægtefælde 8 1 ┆ 0x0720…0740 07 7f cb 9e f8 fc 03 0f 80 67 9f 04 fa 05 38 01 3b 31 df f8 06 04 20 81 02 a0 ce 9f 04 fa 07 45 ┆ g 8 ;1 E┆ 0x0740…0760 02 00 6a 61 31 f7 04 e6 fa 08 45 03 00 20 6a 61 31 f7 04 f8 10 04 05 aa f8 1a 04 2c 95 45 1e 00 ┆ ja1 E ja1 , E ┆ 0x0760…0780 68 76 6f 72 6d 65 67 65 74 20 73 6b 61 6c 20 64 65 72 20 6f 76 65 72 66 7c 72 65 73 3f 20 ea fa ┆hvormeget skal der overføres? ┆ 0x0780…07a0 04 37 2b 31 f8 24 04 16 a8 fa 04 37 10 31 ec fa 0a 47 f8 43 38 2b 3b 32 52 31 f8 2e 04 22 81 02 ┆ 7+1 $ 7 1 G C8+;2R1 . " ┆ 0x07a0…07c0 a0 02 a0 04 fa 08 45 03 00 6e 65 6a 31 f7 04 e6 fa 09 45 04 00 20 6e 65 6a 31 f7 04 f8 38 04 12 ┆ E nej1 E nej1 8 ┆ 0x07c0…07e0 a8 fa 04 37 10 31 ec fa 06 47 f8 43 33 31 f8 42 04 05 83 f8 4c 04 17 a8 fa 04 37 0f 31 ec fa 0b ┆ 7 1 G C31 B L 7 1 ┆ 0x07e0…0800 38 06 3b 46 40 1a 37 7e 52 31 f8 56 04 15 a8 fa 04 37 0d 31 ec fa 09 38 0f 3b 38 10 3b 4e 31 f8 ┆8 ;F@ 7üR1 V 7 1 8 ;8 ;N1 ┆ 0x0800…0820 (4,) 04 fa 08 45 03 00 6e 65 6a 31 f7 04 e6 fa 09 45 04 00 20 6e 65 6a 31 f7 04 f8 ea 06 20 a8 fa 04 ┆ E nej1 E nej1 ┆ 0x0820…0840 37 06 31 ec fa 14 38 06 3b 38 18 38 1c 3b 34 39 3b 47 64 00 33 4f 4b 53 31 f8 f4 06 07 82 9b a6 ┆7 1 8 ;8 8 ;49;Gd 3OKS1 ┆ 0x0840…0860 f8 fe 06 0e 96 fa 08 41 2d 38 16 43 00 31 f8 1c 07 0a 96 fa 04 41 24 31 f8 26 07 05 aa f8 30 07 ┆ A-8 C 1 A$1 & 0 ┆ 0x0860…0880 0a 99 fb b8 06 b7 a5 f8 3a 07 05 83 f8 44 07 07 75 ff 1d f8 4e 07 08 71 f9 00 00 f8 58 07 08 71 ┆ : D u N q X q┆ 0x0880…08a0 f9 00 00 f8 62 07 09 74 9d a7 ff 23 f8 6c 07 0f ab ef fa 08 45 03 00 4c 50 3a 31 f8 71 07 05 aa ┆ b t # l E LP:1 q ┆ 0x08a0…08c0 f8 72 07 05 aa f8 76 07 18 aa fa 06 47 1e 00 15 31 f7 04 e7 fa 06 47 1f 00 15 31 f7 04 f8 77 07 ┆ r v G 1 G 1 w ┆ 0x08c0…08e0 33 aa fa 22 45 1d 00 53 4b 41 54 54 45 30 50 47 5c 52 45 4c 53 45 20 20 20 31 39 38 32 20 20 46 ┆3 "E SKATTE0PGØRELSE 1982 F┆ 0x08e0…0900 4f 52 20 20 31 f7 04 e7 fa 05 38 00 3b 31 f7 04 f8 80 07 31 aa fa 20 45 1b 00 20 20 44 49 4e 20 ┆OR 1 8 ;1 1 E DIN ┆ 0x0900…0920 53 4c 55 54 53 4b 41 54 20 46 4f 52 20 31 39 38 31 20 45 52 20 31 f7 04 e7 fa 05 38 0c 3b 31 f7 ┆SLUTSKAT FOR 1981 ER 1 8 ;1 ┆ 0x0920…0940 03 f8 8a 07 0a 96 fa 04 41 1a 31 f8 94 07 0e aa fa 06 47 1d 00 15 31 f7 04 f8 9e 07 22 aa fa 1a ┆ A 1 G 1 " ┆ 0x0940…0960 45 15 00 42 52 55 4e 44 4c 55 4e 44 20 44 41 54 41 20 43 45 4e 54 45 52 31 f7 04 f8 a8 07 0e aa ┆E BRUNDLUND DATA CENTER1 ┆ 0x0960…0980 fa 06 47 0c 00 15 31 f7 04 f8 b2 07 07 75 ff 23 f8 bc 07 08 71 f9 00 00 f8 c6 07 08 71 f9 00 00 ┆ G 1 u # q q ┆ 0x0980…09a0 f8 d0 07 09 74 e2 a7 ff 24 f8 da 07 1b 8f d8 a7 00 ff 12 ec fa 06 47 01 00 33 31 e0 fa 06 47 dc ┆ t $ G 31 G ┆ 0x09a0…09c0 05 33 31 de f8 e4 07 0a 90 bd a7 00 ff 12 f8 ee 07 07 75 ff 24 f8 ef 07 08 71 f9 00 00 f8 f0 07 ┆ 31 u $ q ┆ 0x09c0…09e0 08 71 f9 00 00 f8 f1 07 09 74 8c a8 ff 2c f8 f2 07 05 ac f8 f3 07 12 ad fa 05 47 05 00 31 e6 fa ┆ q t , G 1 ┆ 0x09e0…0a00 05 47 14 00 31 f8 f4 07 48 aa fa 40 45 3b 00 4e 7d 72 20 64 75 20 68 61 72 20 74 61 73 74 65 74 ┆ G 1 H @E; Når du har tastet┆ 0x0a00…0a20 (5,) 07 00 c2 0b 1c f1 00 02 00 c2 0b f8 0a 00 28 73 ff 16 4a fa 05 47 05 00 31 4b df fa 05 47 28 00 ┆ (s J G 1K G( ┆ 0x0a20…0a40 31 e6 ff 03 4a fa 05 47 05 00 31 4b df fa 05 47 28 00 31 f8 14 00 05 ac f8 1e 00 1b 8f 9e 98 00 ┆1 J G 1K G( 1 ┆ 0x0a40…0a60 ff 17 ec fa 06 47 01 00 33 31 e0 fa 06 47 05 00 33 31 de f8 28 00 08 71 f9 00 00 f8 32 00 0f 95 ┆ G 31 G 31 ( q 2 ┆ 0x0a60…0a80 fa 09 38 16 38 17 3b 34 39 31 f8 3c 00 0a 90 6c 98 00 ff 17 f8 46 00 11 a8 fa 04 37 18 31 ec fa ┆ 8 8 ;491 < l F 7 1 ┆ 0x0a80…0aa0 05 47 01 00 31 f8 50 00 11 a8 fa 04 37 1b 31 ec fa 05 47 0e 00 31 f8 5a 00 11 a8 fa 04 37 07 31 ┆ G 1 P 7 1 G 1 Z 7 1┆ 0x0aa0…0ac0 ec fa 05 47 14 00 31 f8 64 00 12 ad fa 05 47 14 00 31 e6 fa 05 47 0f 00 31 f8 6e 00 1b 8f 61 99 ┆ G 1 d G 1 G 1 n a ┆ 0x0ac0…0ae0 00 ff 17 ec fa 06 47 01 00 33 31 e0 fa 06 47 05 00 33 31 de f8 78 00 12 ad fa 05 38 07 3b 31 e6 ┆ G 31 G 31 x 8 ;1 ┆ 0x0ae0…0b00 fa 05 38 1b 3b 31 f8 82 00 13 aa fa 0a 38 16 38 17 3b 34 39 3b 31 f7 04 e7 f8 8c 00 1f 96 fa 19 ┆ 8 ;1 8 8 ;49;1 ┆ 0x0b00…0b20 41 00 38 07 43 00 38 1b 43 00 38 16 38 17 3b 34 39 43 00 38 18 43 00 31 f8 96 00 15 a8 fa 04 37 ┆A 8 C 8 C 8 8 ;49C 8 C 1 7┆ 0x0b20…0b40 1b 31 ec fa 09 38 1b 3b 47 01 00 63 31 f8 a0 00 0a 90 ed 98 00 ff 17 f8 aa 00 08 71 f9 00 00 f8 ┆ 1 8 ;G c1 q ┆ 0x0b40…0b60 b4 00 08 71 f9 00 00 f8 be 00 08 71 f9 00 00 f8 c8 00 32 71 f9 2a 00 20 53 4b 5b 52 4d 45 4e 2e ┆ q q 2q * SKÆRMEN.┆ 0x0b60…0b80 20 50 52 4f 43 45 44 55 52 45 4e 20 45 52 20 49 20 56 49 52 4b 45 4c 49 47 48 45 44 45 4e 20 45 ┆ PROCEDUREN ER I VIRKELIGHEDEN E┆ 0x0b80…0ba0 4e f8 d2 00 20 71 f9 18 00 20 4c 49 4e 49 45 4f 52 49 45 4e 54 45 52 45 54 20 45 44 45 54 4f 52 ┆N q LINIEORIENTERET EDETOR┆ 0x0ba0…0bc0 2e f8 dc 00 2d 71 f9 25 00 20 50 41 52 41 4d 45 54 52 45 3a 20 4f 52 47 5f 58 23 20 4f 47 20 4f ┆. -q % PARAMETRE: ORG_X# OG O┆ 0x0bc0…0be0 52 47 5f 23 20 45 52 20 48 45 4c 54 41 4c f8 e6 00 33 71 f9 2b 00 20 28 56 5b 52 44 49 50 41 52 ┆RG_# ER HELTAL 3q + (VÆRDIPAR┆ 0x0be0…0c00 41 4d 45 54 52 45 29 20 53 4f 4d 20 41 4e 47 49 56 45 52 20 4b 4f 4f 52 44 49 4e 41 54 45 52 4e ┆AMETRE) SOM ANGIVER KOORDINATERN┆ 0x0c00…0c20 (6,) 45 f8 f0 00 2f 71 f9 27 00 20 46 4f 52 20 44 45 4e 20 50 4f 53 49 54 49 4f 4e 2c 20 48 56 4f 52 ┆E /q ' FOR DEN POSITION, HVOR┆ 0x0c20…0c40 20 20 54 45 4b 53 54 56 41 52 49 41 42 4c 45 4e f8 fa 00 20 71 f9 18 00 20 4f 50 52 49 4e 44 45 ┆ TEKSTVARIABLEN q OPRINDE┆ 0x0c40…0c60 4c 49 47 20 56 41 52 20 53 4b 52 45 56 45 54 2e f8 04 01 3b 71 f9 33 00 20 52 45 46 20 4c 49 4e ┆LIG VAR SKREVET. ;q 3 REF LIN┆ 0x0c60…0c80 45 24 20 45 52 20 45 4e 20 54 45 4b 53 54 56 41 52 49 41 42 45 4c 2e 20 44 45 52 20 45 52 20 45 ┆E$ ER EN TEKSTVARIABEL. DER ER E┆ 0x0c80…0ca0 4e 20 52 45 46 45 52 45 4e 43 45 f8 0e 01 36 71 f9 2e 00 20 50 41 52 41 4d 45 54 45 52 2c 20 53 ┆N REFERENCE 6q . PARAMETER, S┆ 0x0ca0…0cc0 5d 20 5b 4e 44 52 49 4e 47 45 52 20 46 5c 52 45 53 20 54 49 4c 42 41 47 45 20 54 49 4c 20 44 45 ┆Å ÆNDRINGER FØRES TILBAGE TIL DE┆ 0x0cc0…0ce0 4e f8 18 01 1b 71 f9 13 00 20 4b 41 4c 44 45 4e 44 45 20 56 41 52 49 41 42 45 4c 2e f8 22 01 30 ┆N q KALDENDE VARIABEL. " 0┆ 0x0ce0…0d00 71 f9 28 00 20 52 45 46 20 4b 45 59 42 4f 41 52 44 24 20 45 52 20 45 54 20 48 45 4c 54 41 4c 2c ┆q ( REF KEYBOARD$ ER ET HELTAL,┆ 0x0d00…0d20 20 48 56 49 53 20 46 4f 52 4d 5d 4c f8 2c 01 31 71 f9 29 00 20 45 52 20 41 54 20 46 5c 52 20 44 ┆ HVIS FORMÅL , 1q ) ER AT FØR D┆ 0x0d20…0d40 45 4e 20 53 49 44 53 54 45 20 49 4e 44 54 41 53 54 4e 49 4e 47 20 54 49 4c 42 41 47 45 f8 36 01 ┆EN SIDSTE INDTASTNING TILBAGE 6 ┆ 0x0d40…0d60 31 71 f9 29 00 20 46 4f 52 20 59 44 45 52 4c 49 47 45 52 45 20 42 45 48 41 4e 44 4c 49 4e 47 20 ┆1q ) FOR YDERLIGERE BEHANDLING ┆ 0x0d60…0d80 49 20 44 45 54 20 4b 41 4c 44 45 4e 44 45 f8 40 01 34 71 f9 2c 00 20 50 52 4f 47 52 41 4d 2e 20 ┆I DET KALDENDE @ 4q , PROGRAM. ┆ 0x0d80…0da0 49 4e 44 47 41 4e 47 53 56 5b 52 44 49 45 4e 20 45 52 20 55 44 45 4e 20 42 45 54 59 44 4e 49 4e ┆INDGANGSVÆRDIEN ER UDEN BETYDNIN┆ 0x0da0…0dc0 47 2e f8 4a 01 08 71 f9 00 00 f8 54 01 12 71 f9 0a 00 20 45 4b 53 45 4d 50 45 4c 3a f8 5e 01 18 ┆G. J q T q EKSEMPEL: ^ ┆ 0x0dc0…0de0 71 f9 10 00 20 20 20 20 43 55 52 53 4f 52 20 32 30 2c 31 35 f8 68 01 1b 71 f9 13 00 20 20 20 20 ┆q CURSOR 20,15 h q ┆ 0x0de0…0e00 50 52 49 4e 54 20 54 45 58 54 24 28 49 29 3b f8 72 01 2c 71 f9 24 00 20 20 20 20 45 58 45 43 20 ┆PRINT TEXT$(I); r ,q $ EXEC ┆ 0x0e00…0e20 (7,) 60 04 07 75 ff 0b f8 6a 04 0d aa fa 05 38 0d 3b 31 f7 03 f8 74 04 05 9b f8 7e 04 08 71 f9 00 00 ┆` u j 8 ;1 t ü q ┆ 0x0e20…0e40 f8 88 04 08 71 f9 00 00 f8 92 04 09 74 77 a3 ff 1e f8 9c 04 44 aa 30 4a fa 05 47 12 00 31 4b e9 ┆ q tw D 0J G 1K ┆ 0x0e40…0e60 fa 32 45 2d 00 10 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 ┆ 2E- ┆ 0x0e60…0e80 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 11 31 f7 04 f8 a6 04 2c aa 30 4a fa 05 47 12 ┆ 1 , 0J G ┆ 0x0e80…0ea0 00 31 4b e9 fa 06 45 01 00 04 31 f7 04 e7 30 4a fa 05 47 3e 00 31 4b e7 fa 06 45 01 00 04 31 f7 ┆ 1K E 1 0J G> 1K E 1 ┆ 0x0ea0…0ec0 04 f8 b0 04 44 aa 30 4a fa 05 47 12 00 31 4b e7 fa 32 45 2d 00 04 20 20 20 20 20 20 20 20 20 44 ┆ D 0J G 1K 2E- D┆ 0x0ec0…0ee0 45 54 54 45 20 50 52 4f 47 52 41 4d 20 42 45 52 45 47 4e 45 52 20 44 49 4e 20 20 20 20 20 20 20 ┆ETTE PROGRAM BEREGNER DIN ┆ 0x0ee0…0f00 20 04 31 f7 04 f8 ba 04 44 aa 30 4a fa 05 47 12 00 31 4b e9 fa 32 45 2d 00 04 20 20 20 20 20 20 ┆ 1 D 0J G 1K 2E- ┆ 0x0f00…0f20 20 20 20 20 20 20 20 20 20 53 4c 55 54 53 4b 41 54 20 46 4f 52 20 20 20 20 20 20 20 20 20 20 20 ┆ SLUTSKAT FOR ┆ 0x0f20…0f40 20 20 20 20 20 04 31 f7 04 f8 c4 04 44 aa 30 4a fa 05 47 12 00 31 4b e9 fa 32 45 2d 00 04 20 20 ┆ 1 D 0J G 1K 2E- ┆ 0x0f40…0f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 39 38 32 20 20 20 20 20 20 20 20 20 20 20 ┆ 1982 ┆ 0x0f60…0f80 20 20 20 20 20 20 20 20 20 04 31 f7 04 f8 ce 04 44 aa 30 4a fa 05 47 12 00 31 4b e9 fa 32 45 2d ┆ 1 D 0J G 1K 2E-┆ 0x0f80…0fa0 00 0f 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 ┆ ┆ 0x0fa0…0fc0 05 05 05 05 05 05 05 05 05 05 05 05 05 12 31 f7 04 f8 d8 04 08 71 f9 00 00 f8 e2 04 0a 96 fa 04 ┆ 1 q ┆ 0x0fc0…0fe0 41 1a 31 f8 ec 04 2f aa 30 4a fa 05 47 12 00 31 4b e9 fa 1d 45 18 00 44 45 20 4e 5c 44 56 45 4e ┆A 1 / 0J G 1K E DE NØDVEN┆ 0x0fe0…1000 44 49 47 45 20 44 41 54 41 20 45 52 20 3a 20 31 f7 04 f8 f6 04 38 aa 30 4a fa 05 47 12 00 31 4b ┆DIGE DATA ER : 1 8 0J G 1K┆ 0x1000…1020 (8,) 20 20 57 48 45 4e 20 38 0d 39 30 31 35 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 31 29 3b 41 24 ┆ WHEN 8 9015 PRINT A$(1);A$┆ 0x1020…1040 28 33 29 3b 0d 39 30 31 36 20 20 20 57 48 45 4e 20 31 30 0d 39 30 31 37 20 20 20 20 20 50 52 49 ┆(3); 9016 WHEN 10 9017 PRI┆ 0x1040…1060 4e 54 20 41 24 28 32 29 3b 0d 39 30 31 38 20 20 20 57 48 45 4e 20 31 36 0d 39 30 31 39 20 20 20 ┆NT A$(2); 9018 WHEN 16 9019 ┆ 0x1060…1080 20 20 50 52 49 4e 54 20 41 24 28 31 29 3b 0d 39 30 32 30 20 20 20 4f 54 48 45 52 57 49 53 45 20 ┆ PRINT A$(1); 9020 OTHERWISE ┆ 0x1080…10a0 0d 39 30 32 31 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 0d 39 30 32 32 20 20 20 45 4e ┆ 9021 PRINT A$(2); 9022 EN┆ 0x10a0…10c0 44 43 41 53 45 20 0d 39 30 32 33 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 0d 39 30 32 34 ┆DCASE 9023 ENDPROC PRINTER 9024┆ 0x10c0…10e0 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 30 32 35 20 50 52 4f 43 20 ┆ //----------------// 9025 PROC ┆ 0x10e0…1100 50 52 49 4e 54 4f 55 54 28 43 50 49 2c 20 4c 50 49 2c 20 54 45 58 54 24 29 20 43 4c 4f 53 45 44 ┆PRINTOUT(CPI, LPI, TEXT$) CLOSED┆ 0x1100…1120 0d 39 30 32 36 20 20 20 44 49 4d 20 41 24 28 33 29 20 4f 46 20 31 0d 39 30 32 37 20 20 20 41 24 ┆ 9026 DIM A$(3) OF 1 9027 A$┆ 0x1120…1140 28 31 29 3a 3d 43 48 52 24 28 32 39 29 3b 20 41 24 28 32 29 3a 3d 43 48 52 24 28 33 30 29 3b 20 ┆(1):=CHR$(29); A$(2):=CHR$(30); ┆ 0x1140…1160 41 24 28 33 29 3a 3d 43 48 52 24 28 33 31 29 0d 39 30 32 38 20 20 20 50 4f 4b 45 20 31 33 37 39 ┆A$(3):=CHR$(31) 9028 POKE 1379┆ 0x1160…1180 2c 20 31 33 32 0d 39 30 32 39 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 4c 50 3a 22 ┆, 132 9029 SELECT OUTPUT "LP:"┆ 0x1180…11a0 0d 39 30 33 30 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 0d 39 30 33 31 20 20 20 50 52 49 4e ┆ 9030 PRINT A$(2); 9031 PRIN┆ 0x11a0…11c0 54 20 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 35 34 29 3b 0d 39 30 33 32 20 20 20 49 46 20 4c ┆T CHR$(27);CHR$(54); 9032 IF L┆ 0x11c0…11e0 50 49 3d 38 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 35 36 ┆PI=8 THEN PRINT CHR$(27);CHR$(56┆ 0x11e0…1200 29 3b 0d 39 30 33 33 20 20 20 43 41 53 45 20 43 50 49 20 4f 46 20 0d 39 30 33 34 20 20 20 57 48 ┆); 9033 CASE CPI OF 9034 WH┆ 0x1200…1220 (9,) 49 04 54 45 58 54 06 49 4e 44 41 54 41 01 42 0b 52 45 57 52 49 54 45 4c 49 4e 45 08 4c 49 4e 45 ┆I TEXT INDATA B REWRITELINE LINE┆ 0x1220…1240 54 45 53 54 0a 52 45 57 52 49 54 4c 49 4e 45 09 57 52 49 54 45 42 59 54 45 0b 49 4e 53 45 52 54 ┆TEST REWRITLINE WRITEBYTE INSERT┆ 0x1240…1260 42 4c 41 4e 4b 0a 44 45 4c 45 54 45 42 59 54 45 0b 43 55 52 53 4f 52 52 49 47 48 54 0a 43 55 52 ┆BLANK DELETEBYTE CURSORRIGHT CUR┆ 0x1260…1280 53 4f 52 4c 45 46 54 0b 4d 41 43 48 49 4e 45 43 4f 44 45 07 49 4e 44 44 41 54 41 0a 49 4e 44 41 ┆SORLEFT MACHINECODE INDDATA INDA┆ 0x1280…12a0 54 41 49 4e 49 54 0a 52 45 54 55 52 4e 42 41 43 4b 01 58 04 48 45 4c 50 04 43 4f 44 45 08 4b 45 ┆TAINIT RETURNBACK X HELP CODE KE┆ 0x12a0…12c0 59 42 4f 41 52 44 04 4c 49 4e 45 05 4f 52 47 5f 59 05 4f 52 47 5f 58 08 45 44 49 54 4c 49 4e 45 ┆YBOARD LINE ORG_Y ORG_X EDITLINE┆ 0x12c0…12e0 42 4c 41 4e 4b 0a 44 45 4c 45 54 45 42 59 54 45 0b 43 55 52 53 4f 52 52 49 47 48 54 0a 43 55 52 ┆BLANK DELETEBYTE CURSORRIGHT CUR┆ 0x12e0…1300 53 4f 52 4c 45 46 54 0b 4d 41 43 48 49 4e 45 43 4f 44 45 07 49 4e 44 44 41 54 41 0a 49 4e 44 40 ┆SORLEFT MACHINECODE INDDATA IND@┆ 0x1300…1320 00 33 52 31 e6 fa 0b 38 14 3b 47 00 01 33 51 34 31 f8 64 05 1d af fa 0a 38 14 3b 47 0a 00 33 52 ┆ 3R1 8 ;G 3Q41 d 8 ;G 3R┆ 0x1320…1340 31 e6 fa 0b 38 14 3b 47 00 01 33 50 34 31 f8 6e 05 17 af fa 0a 38 14 3b 47 0b 00 33 52 31 e6 fa ┆1 8 ;G 3P41 n 8 ;G 3R1 ┆ 0x1340…1360 05 47 32 00 31 f8 78 05 1d af fa 0a 38 14 3b 47 0c 00 33 52 31 e6 fa 0b 38 04 23 47 00 01 33 51 ┆ G2 1 x 8 ;G 3R1 8 #G 3Q┆ 0x1360…1380 34 31 f8 82 05 1d af fa 0a 38 14 3b 47 0d 00 33 52 31 e6 fa 0b 38 04 23 47 00 01 33 50 34 31 f8 ┆41 8 ;G 3R1 8 #G 3P41 ┆ 0x1380…13a0 8c 05 17 af fa 0a 38 14 3b 47 0e 00 33 52 31 e6 fa 05 47 d2 00 31 f8 96 05 07 75 ff 09 f8 a0 05 ┆ 8 ;G 3R1 G 1 u ┆ 0x13a0…13c0 08 71 f9 00 00 f8 aa 05 11 74 f5 a3 ff 15 4a e4 ff 04 e6 ff 0b 4b f8 b4 05 0b b0 fa 05 38 0b 3b ┆ q t J K 8 ;┆ 0x13c0…13e0 31 f8 be 05 07 75 ff 15 f8 10 27 00 91 f1 00 03 02 02 04 02 04 04 02 03 03 03 03 03 03 03 03 03 ┆1 u ' ┆ 0x13e0…1400 03 03 03 03 03 04 03 02 03 03 02 01 59 01 58 0d 59 55 59 54 54 52 52 52 52 54 54 54 54 01 41 01 ┆ Y X YUYTTRRRRTTTT A ┆