|
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: 8320 (0x2080)
Names: »JET80G.DOC«
└─⟦6cf793dfc⟧ Bits:30003506 JET80 Grafik og fontprogrammering
└─ ⟦this⟧ »JET80G.DOC«
0x0000…0020 2e 70 6c 37 32 0d 0a 2e 70 6f 31 30 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆.pl72 .po10 ┆
0x0020…0040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0040…0060 20 20 20 20 20 31 28 34 29 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 13 47 52 41 ┆ 1(4) GRA┆
0x0060…0080 46 49 53 4b 54 5f 53 55 42 52 55 54 49 4e 50 41 4b 45 54 5f 46 5c 52 5f 4a 45 54 38 30 47 13 20 ┆FISKT_SUBRUTINPAKET_FØR_JET80G ┆
0x0080…00a0 20 20 20 20 20 38 35 30 39 32 39 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 850929 ┆
0x00a0…00c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x00e0…0100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0100…0120 20 20 20 20 20 20 20 20 20 0d 0a 44 65 74 74 e1 20 73 75 62 72 75 74 69 6e 70 61 6b 65 74 65 f4 ┆ Dett subrutinpakete ┆
0x0120…0140 20 7b f2 20 73 6b 72 69 76 65 f4 20 e9 20 54 75 72 62 ef 20 50 61 73 63 61 6c ae 20 47 65 6e 6f ┆ æ skrive Turb Pascal Geno┆
0x0140…0160 ed 20 61 74 f4 20 6c 7b 67 67 e1 20 8d 0a 69 ee 20 70 61 6b 65 74 65 f4 20 73 6f ed 20 69 6e 63 ┆ at lægg i pakete so inc┆
0x0160…0180 6c 75 64 65 66 69 ec 20 e9 20 65 74 f4 20 65 67 65 f4 20 70 72 6f 67 72 61 ed 20 6b 61 ee 20 64 ┆ludefi et ege progra ka d┆
0x0180…01a0 e5 20 6e 65 64 61 ee 20 62 65 1f 8d 0a 73 6b 72 69 76 6e e1 20 72 75 74 69 6e 65 72 6e e1 20 61 ┆ neda be skrivn rutinern a┆
0x01a0…01c0 6e 72 6f 70 61 f3 20 70 fd 20 76 61 6e 6c 69 67 f4 20 50 61 73 63 61 ec 20 6d 61 6e 65 72 ae 20 ┆nropa p vanlig Pasca maner ┆
0x01c0…01e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01e0…0200 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0200…0220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d ┆ ┆
0x0220…0240 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0240…0260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a ┆ ┆
0x0260…0280 20 20 20 20 20 20 20 50 61 6b 65 74 65 74 20 69 6e 6e 65 68 7d 6c 6c 65 72 20 72 75 74 69 6e 65 ┆ Paketet innehåller rutine┆
0x0280…02a0 72 20 66 7c 72 20 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 ┆r før : ┆
0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02c0…02e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d ┆ -┆
0x02e0…0300 20 20 20 20 20 66 7c 72 66 6c 79 74 74 6e 69 6e 67 20 61 76 20 70 65 6e 6e 61 6e 20 28 72 65 6c ┆ førflyttning av pennan (rel┆
0x0300…0320 61 74 69 76 74 20 6f 63 68 20 61 62 73 6f 6c 75 74 29 2e 20 20 20 20 20 20 20 20 0d 0a 20 20 20 ┆ativt och absolut). ┆
0x0320…0340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0340…0360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 ┆ - ┆
0x0360…0380 20 20 20 6c 69 6e 6a 65 72 69 74 6e 69 6e 67 20 28 72 65 6c 61 74 69 76 74 20 6f 63 68 20 61 62 ┆ linjeritning (relativt och ab┆
0x0380…03a0 73 6f 6c 75 74 29 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 ┆solut). ┆
0x03a0…03c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03c0…03e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 ┆ - ┆
0x03e0…0400 20 70 6c 6f 74 74 6e 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ plottning. ┆
0x0400…0420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 ┆ ┆
0x0420…0440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0440…0460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 72 ┆ - r┆
0x0460…0480 65 6b 74 61 6e 67 65 6c 72 69 74 6e 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ektangelritning. ┆
0x0480…04a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04a0…04c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 63 69 72 ┆ - cir┆
0x04e0…0500 6b 65 6c 72 69 74 6e 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kelritning. ┆
0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0520…0540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0540…0560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 63 69 72 6b 65 ┆ - cirke┆
0x0560…0580 6c 62 7d 67 73 72 69 74 6e 69 6e 67 2e 0d 0a 0d 0a 20 2d 20 20 20 20 20 76 61 6c 20 61 76 20 72 ┆lbågsritning. - val av r┆
0x0580…05a0 69 74 6d 6f 64 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆itmod. ┆
0x05a0…05c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05c0…05e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05e0…0600 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 76 61 6c 20 61 76 20 6c 69 6e ┆ - val av lin┆
0x0600…0620 6a 65 6d 7c 6e 73 74 65 72 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆jemønster. ┆
0x0620…0640 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0640…0660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0660…0680 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 73 6c 7b 63 6b 6e 69 6e 67 20 6f 63 ┆ - slæckning oc┆
0x0680…06a0 68 20 74 7b 6e 64 6e 69 6e 67 20 61 76 20 62 69 6c 64 70 6c 61 6e 2e 20 20 20 20 20 20 20 20 20 ┆h tændning av bildplan. ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06c0…06e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06e0…0700 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 72 65 6e 73 6e 69 6e 67 20 61 76 20 67 72 ┆ - rensning av gr┆
0x0700…0720 61 66 69 6b 70 6c 61 6e 65 74 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆afikplanet. ┆
0x0720…0740 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0740…0760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0760…0780 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 68 7d 72 6b 6f 72 73 20 73 74 79 72 74 20 66 72 ┆ - hårkors styrt fr┆
0x0780…07a0 7d 6e 20 6e 75 6d 65 72 69 73 6b 61 20 74 61 6e 67 65 6e 74 62 6f 72 64 65 74 2e 20 20 20 20 20 ┆ån numeriska tangentbordet. ┆
0x07a0…07c0 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07c0…07e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x07e0…0800 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 64 75 6d 70 6e 69 6e 67 20 61 76 20 73 6b 7b 72 6d 65 ┆ - dumpning av skærme┆
0x0800…0820 6e 73 20 67 72 61 66 69 6b 70 6c 61 6e 20 74 69 6c 6c 20 65 6e 20 20 20 20 20 20 20 20 20 20 20 ┆ns grafikplan till en ┆
0x0820…0840 20 20 20 20 0d 0a 20 20 20 20 20 20 20 66 69 6c 20 73 6f 6d 20 6b 61 6e 20 73 6b 72 69 76 61 73 ┆ fil som kan skrivas┆
0x0840…0860 20 75 74 20 61 76 20 43 50 41 38 30 2f 43 50 38 30 2e 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a ┆ ut av CPA80/CP80. ┆
0x0860…0880 0d 0a 20 2d 20 20 20 20 20 72 7d 64 75 6d 70 6e 69 6e 67 20 61 76 20 62 69 6c 64 6d 69 6e 6e 65 ┆ - rådumpning av bildminne┆
0x0880…08a0 74 73 20 62 69 74 6d 61 70 20 74 69 6c 6c 20 66 69 6c 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ts bitmap till fil. ┆
0x08a0…08c0 20 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 13 44 45 54 20 41 4e 52 4f 50 41 4e ┆ DET ANROPAN┆
0x08c0…08e0 44 45 20 50 52 4f 47 52 41 4d 4d 45 54 13 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DE PROGRAMMET ┆
0x08e0…0900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0900…0920 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0920…0940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0940…0960 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 20 20 20 20 46 7c f2 20 61 74 f4 20 70 61 6b ┆ - Fø at pak┆
0x0960…0980 65 74 65 74 f3 20 72 75 74 69 6e 65 f2 20 73 6b 61 6c ec 20 6b 75 6e 6e e1 20 61 6e 72 6f 70 61 ┆etet rutine skal kunn anropa┆
0x0980…09a0 f3 20 61 f6 20 65 74 f4 20 8d 0a 20 20 20 20 20 20 20 70 72 6f 67 72 61 ed 20 73 6b 72 69 76 65 ┆ a et progra skrive┆
0x09a0…09c0 f2 20 6d 61 ee 20 3a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ma : ┆
0x09c0…09e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09e0…0a00 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 28 2a 24 49 20 4a 45 54 38 30 47 20 2a 29 20 20 20 ┆ (*$I JET80G *) ┆
0x0a00…0a20 20 20 20 20 0d 0a 0d 0a 20 20 20 20 20 20 20 e9 20 64 65 f4 20 61 6e 72 6f 70 61 6e 64 e5 20 70 ┆ de anropand p┆
0x0a20…0a40 72 6f 67 72 61 6d 6d 65 74 ae 20 44 65 74 74 e1 20 66 7d f2 20 54 75 72 62 ef 20 50 61 73 63 61 ┆rogrammet Dett få Turb Pasca┆
0x0a40…0a60 ec 20 61 74 f4 20 8d 0a 20 20 20 20 20 20 20 69 6e 6b 6c 75 64 65 72 e1 20 66 69 6c 65 ee 20 4a ┆ at inkluder file J┆
0x0a60…0a80 45 54 38 30 47 2e 50 41 d3 20 76 69 e4 20 6b 6f 6d 70 69 6c 65 72 69 6e 67 65 6e 2e 0d 0a 20 20 ┆ET80G.PA vi kompileringen. ┆
0x0a80…0aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0aa0…0ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 2d 20 ┆ - ┆
0x0ac0…0ae0 20 20 20 20 44 65 73 73 75 74 6f ed 20 6d 7d 73 74 e5 20 72 75 74 69 6e 65 ee 20 63 69 72 6b 65 ┆ Dessuto måst rutine cirke┆
0x0ae0…0b00 6c 5f 69 6e 69 f4 20 61 6e 72 6f 70 61 f3 20 6e 7d 67 6f 6e 73 74 61 6e f3 20 e9 20 8d 0a 20 20 ┆l_ini anropa någonstan ┆
0x0b00…0b20 20 20 20 20 20 62 7c 72 6a 61 ee 20 61 f6 20 70 72 6f 67 72 61 6d 6d 65 74 ac 20 6f ed 20 6d 61 ┆ børja a programmet o ma┆
0x0b20…0b40 ee 20 68 61 f2 20 66 7c f2 20 61 76 73 69 6b f4 20 61 74 f4 20 61 6e 72 6f 70 e1 20 8d 0a 20 20 ┆ ha fø avsik at anrop ┆
0x0b40…0b60 20 20 20 20 20 72 75 74 69 6e 65 ee 20 66 7c f2 20 63 69 72 6b 65 6c 72 69 74 6e 69 6e 67 ae 20 ┆ rutine fø cirkelritning ┆
0x0b60…0b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 2e 70 61 20 20 20 20 20 20 20 20 20 20 20 ┆ .pa ┆
0x0b80…0ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ba0…0bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 8a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bc0…0be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0be0…0c00 20 20 20 20 20 20 20 20 20 20 20 32 28 34 29 0d 0a 0d 0a 0d 0a 0d 0a 13 44 65 74 61 6c 6a 62 65 ┆ 2(4) Detaljbe┆
0x0c00…0c20 73 6b 72 69 76 6e 69 6e 67 20 61 76 20 70 72 6f 63 65 64 75 72 65 72 6e 61 20 3a 13 0d 0a 0d 0a ┆skrivning av procedurerna : ┆
0x0c20…0c40 2d 20 02 65 6e 74 65 72 5f 67 72 61 70 68 69 63 73 02 0d 0a 20 20 41 6e 72 6f 70 61 f3 20 66 7c ┆- enter_graphics Anropa fø┆
0x0c40…0c60 f2 20 61 74 f4 20 67 fd 20 66 72 7d ee 20 74 65 78 74 74 65 72 6d 69 6e 61 6c 6d 6f e4 20 74 69 ┆ at g frå textterminalmo ti┆
0x0c60…0c80 6c ec 20 67 72 61 66 69 6b 74 65 72 6d 69 6e 61 6c 6d 6f 64 ae 20 8d 0a 20 20 4d 7d 73 74 e5 20 ┆l grafikterminalmod Måst ┆
0x0c80…0ca0 61 6e 72 6f 70 61 f3 20 66 7c f2 20 61 74 f4 20 64 e5 20 67 72 61 66 69 73 6b e1 20 6b 6f 6d 6d ┆anropa fø at d grafisk komm┆
0x0ca0…0cc0 61 6e 64 6f 6e 61 20 73 6b 61 6c 6c 20 66 75 6e 67 65 72 61 2e 0d 0a 0d 0a 2d 20 02 65 78 69 74 ┆andona skall fungera. - exit┆
0x0cc0…0ce0 5f 67 72 61 70 68 69 63 73 02 0d 0a 20 20 41 6e 72 6f 70 61 f3 20 66 7c f2 20 61 74 f4 20 6b 6f ┆_graphics Anropa fø at ko┆
0x0ce0…0d00 6d 6d e1 20 74 69 6c 6c 62 61 6b e1 20 74 69 6c ec 20 74 65 78 74 6d 6f e4 20 6e 7b f2 20 6d 61 ┆mm tillbak til textmo næ ma┆
0x0d00…0d20 ee 20 7b f2 20 e9 20 67 72 61 66 69 1f 8d 0a 20 20 6b 6d 6f 64 ae 20 4f ed 20 6d 61 ee 20 67 6c ┆ æ grafi kmod O ma gl┆
0x0d20…0d40 7c 6d 6d 65 f2 20 62 6f 72 f4 20 61 74 f4 20 67 e5 20 6b 6f 6d 6d 61 6e 64 6f 74 ac 20 66 7c 72 ┆ømme bor at g kommandot før┆
0x0d40…0d60 73 7c 6b 65 f2 20 74 65 72 6d 69 6e 61 6c 65 ee 20 8d 0a 20 20 61 74 f4 20 74 6f 6c 6b e1 20 7b ┆søke terminale at tolk æ┆
0x0d60…0d80 76 65 ee 20 76 61 6e 6c 69 67 e1 20 75 74 73 6b 72 69 66 74 65 f2 20 73 6f ed 20 72 69 74 6b 6f ┆ve vanlig utskrifte so ritko┆
0x0d80…0da0 6d 6d 61 6e 64 6f 6e ae 20 0d 0a 20 20 4f 62 73 65 72 76 65 72 e1 20 61 74 f4 20 61 6c 6c e1 20 ┆mmandon Observer at all ┆
0x0da0…0dc0 69 63 6b e5 20 73 6b 72 69 76 62 61 72 e1 20 74 65 63 6b 65 6e 6b 6f 64 65 f2 20 28 30 2d 33 31 ┆ick skrivbar teckenkode (0-31┆
0x0dc0…0de0 a9 20 67 65 f2 20 8d 0a 20 20 7c 76 65 72 67 7d 6e e7 20 74 69 6c ec 20 74 65 78 74 6d 6f 64 2e ┆ ge øvergån til textmod.┆
0x0de0…0e00 0d 0a 0d 0a 2d 20 02 61 62 73 5f 6d 6f 76 65 28 78 2c 79 2c 70 65 6e 29 02 0d 0a 20 20 55 74 66 ┆ - abs_move(x,y,pen) Utf┆
0x0e00…0e20 7c f2 20 61 62 73 6f 6c 75 f4 20 66 7c 72 66 6c 79 74 74 6e 69 6e e7 20 74 69 6c ec 20 61 6e 67 ┆ø absolu førflyttnin til ang┆
0x0e20…0e40 69 76 65 ee 20 70 75 6e 6b 74 ac 20 6d 65 e4 20 70 65 6e 6e 61 ee 20 75 70 70 e5 20 8d 0a 20 20 ┆ive punkt me penna upp ┆
0x0e40…0e60 65 6c 6c 65 f2 20 6e 65 72 e5 20 a8 20 70 65 ee 20 bd 20 54 72 75 65 2f 46 61 6c 73 65 29 2e 0d ┆elle ner pe True/False). ┆
0x0e60…0e80 0a 20 20 30 20 3c 3d 20 78 20 3c 3d 20 36 33 39 20 3b 20 30 20 3c 3d 20 79 20 3c 3d 33 39 39 0d ┆ 0 <= x <= 639 ; 0 <= y <=399 ┆
0x0e80…0ea0 0a 0d 0a 2d 20 02 72 65 6c 5f 6d 6f 76 65 5f 6c 28 78 2c 79 2c 70 65 6e 29 02 0d 0a 20 20 55 74 ┆ - rel_move_l(x,y,pen) Ut┆
0x0ea0…0ec0 66 7c f2 20 66 7c 72 66 6c 79 74 74 6e 69 6e e7 20 72 65 6c 61 74 69 76 f4 20 6e 75 76 61 72 61 ┆fø førflyttnin relativ nuvara┆
0x0ec0…0ee0 6e 64 e5 20 70 75 6e 6b f4 20 65 6e 6c 69 67 f4 20 61 6e 67 69 76 6e e1 20 8d 0a 20 20 6b 6f 6f ┆nd punk enlig angivn koo┆
0x0ee0…0f00 72 64 69 6e 61 74 65 72 ac 20 6d 65 e4 20 70 65 6e 6e 61 ee 20 75 70 70 e5 20 65 6c 6c 65 f2 20 ┆rdinater me penna upp elle ┆
0x0f00…0f20 6e 65 72 e5 20 a8 20 70 65 ee 20 bd 20 54 72 75 65 2f 46 61 6c 73 e5 20 29 2e 0d 0a 20 20 2d 36 ┆ner pe True/Fals ). -6┆
0x0f20…0f40 33 39 20 3c 3d 20 78 20 3c 3d 20 36 33 39 20 3b 20 2d 33 39 39 20 3c 3d 20 79 20 3c 3d 20 33 39 ┆39 <= x <= 639 ; -399 <= y <= 39┆
0x0f40…0f60 39 0d 0a 0d 0a 2d 20 02 72 65 6c 5f 6d 6f 76 65 5f 73 28 78 2c 79 2c 70 65 6e 29 02 0d 0a 20 20 ┆9 - rel_move_s(x,y,pen) ┆
0x0f60…0f80 53 6f 6d 20 6f 76 61 6e 2c 20 6d 65 6e 20 6b 6f 72 74 61 72 65 20 66 7c 72 66 6c 79 74 74 6e 69 ┆Som ovan, men kortare førflyttni┆
0x0f80…0fa0 6e 67 61 72 2e 0d 0a 20 20 2d 36 33 20 3c 3d 20 78 20 3c 3d 20 36 33 20 3b 20 2d 33 31 20 3c 3d ┆ngar. -63 <= x <= 63 ; -31 <=┆
0x0fa0…0fc0 20 79 20 3c 3d 20 33 31 0d 0a 0d 0a 2d 20 02 70 6c 6f 74 28 78 2c 79 29 02 0d 0a 20 20 54 7b 6e ┆ y <= 31 - plot(x,y) Tæn┆
0x0fc0…0fe0 64 65 72 20 61 6e 67 69 76 65 6e 20 70 75 6e 6b 74 2e 0d 0a 20 20 30 20 3c 3d 20 78 20 3c 3d 20 ┆der angiven punkt. 0 <= x <= ┆
0x0fe0…1000 36 33 39 20 3b 20 30 20 3c 3d 20 79 20 3c 3d 20 33 39 39 0d 0a 20 20 28 20 41 6e 72 6f 70 61 72 ┆639 ; 0 <= y <= 399 ( Anropar┆
0x1000…1020 20 61 62 73 5f 6d 6f 76 65 2e 20 29 0d 0a 0d 0a 2d 20 02 6c 69 6e 6a 65 28 78 31 2c 79 31 2c 78 ┆ abs_move. ) - linje(x1,y1,x┆
0x1020…1040 32 2c 79 32 29 02 0d 0a 20 20 52 69 74 61 72 20 65 6e 20 6c 69 6e 6a 65 20 61 62 73 6f 6c 75 74 ┆2,y2) Ritar en linje absolut┆
0x1040…1060 2c 20 66 72 7d 6e 20 28 78 31 2c 79 31 29 20 74 69 6c 6c 20 28 78 32 2c 79 32 29 2e 0d 0a 0d 0a ┆, från (x1,y1) till (x2,y2). ┆
0x1060…1080 2d 20 02 72 65 6b 74 61 6e 67 65 6c 28 78 31 2c 79 31 2c 78 32 2c 79 32 29 02 0d 0a 20 20 52 69 ┆- rektangel(x1,y1,x2,y2) Ri┆
0x1080…10a0 74 61 f2 20 65 ee 20 72 65 6b 74 61 6e 67 65 ec 20 6d 65 e4 20 28 78 31 2c 79 31 a9 20 73 6f ed ┆ta e rektange me (x1,y1 so ┆
0x10a0…10c0 20 6e 65 64 72 e5 20 76 7b 6e 73 74 72 e1 20 68 7c 72 6e ac 20 6f 63 e8 20 8d 0a 20 20 28 78 32 ┆ nedr vænstr hørn oc (x2┆
0x10c0…10e0 2c 79 32 a9 20 73 6f ed 20 7c 76 72 e5 20 68 7c 67 72 e1 20 68 7c 72 6e 2e 0d 0a 0d 0a 2d 20 02 ┆,y2 so øvr høgr hørn. - ┆
0x10e0…1100 63 69 72 6b 65 6c 5f 69 6e 69 74 02 0d 0a 20 20 49 6e 69 74 69 65 72 61 f2 20 65 ee 20 74 61 62 ┆cirkel_init Initiera e tab┆
0x1100…1120 65 6c ec 20 73 6f ed 20 75 74 6e 79 74 74 6a 61 f3 20 61 f6 20 63 69 72 6b 65 6c 72 75 74 69 6e ┆el so utnyttja a cirkelrutin┆
0x1120…1140 65 6e ae 20 4f ed 20 63 69 72 6b 6c 61 f2 20 8d 0a 20 20 73 6b 61 6c ec 20 72 69 74 61 73 ac 20 ┆en O cirkla skal ritas ┆
0x1140…1160 6d 7d 73 74 e5 20 63 69 72 6b 65 6c 5f 69 6e 69 f4 20 68 e1 20 61 6e 72 6f 70 61 74 f3 20 69 6e ┆måst cirkel_ini h anropat in┆
0x1160…1180 6e 61 6e ae 20 28 41 6e 72 6f 70 65 f4 20 8d 0a 20 20 62 65 68 7c 76 65 f2 20 62 61 72 e1 20 67 ┆nan (Anrope behøve bar g┆
0x1180…11a0 7c 72 61 f3 20 65 ee 20 67 7d 6e 67 2e 29 0d 0a 0d 0a 2d 20 02 63 69 72 6b 65 6c 28 78 31 2c 79 ┆øra e gång.) - cirkel(x1,y┆
0x11a0…11c0 31 2c 78 32 2c 79 32 29 02 0d 0a 20 20 52 69 74 61 72 20 65 6e 20 63 69 72 6b 65 6c 20 6d 65 64 ┆1,x2,y2) Ritar en cirkel med┆
0x11c0…11e0 20 64 69 61 6d 65 74 65 72 6e 20 28 78 31 2c 79 31 29 20 74 69 6c 6c 20 28 78 32 2c 79 32 29 2e ┆ diametern (x1,y1) till (x2,y2).┆
0x11e0…1200 0d 0a 0d 0a 2d 20 02 63 69 72 6b 65 6c 5f 62 61 67 65 28 78 31 2c 79 31 2c 78 32 2c 79 32 2c 78 ┆ - cirkel_bage(x1,y1,x2,y2,x┆
0x1200…1220 33 2c 79 33 29 3b 02 0d 0a 20 20 52 69 74 61 f2 20 65 ee 20 63 69 72 6b 65 6c 62 7d 67 e5 20 6d ┆3,y3); Rita e cirkelbåg m┆
0x1220…1240 65 e4 20 28 78 31 2c 79 31 a9 20 73 6f ed 20 63 65 6e 74 72 75 6d 70 75 6e 6b 74 ae 20 28 78 32 ┆e (x1,y1 so centrumpunkt (x2┆
0x1240…1260 2c 79 32 a9 20 8d 0a 20 20 6d 61 72 6b 65 72 61 f2 20 65 ee 20 73 6b 7b 72 6e 69 6e 67 73 70 75 ┆,y2 markera e skærningspu┆
0x1260…1280 6e 6b f4 20 6d 65 6c 6c 61 ee 20 65 ee 20 74 7b 6e 6b f4 20 72 61 64 69 e5 20 6f 63 e8 20 63 69 ┆nk mella e tænk radi oc ci┆
0x1280…12a0 72 6b 65 6c 1f 8d 0a 20 20 62 7d 67 65 6e f3 20 65 6e e1 20 7b 6e 64 70 75 6e 6b 74 ae 20 43 69 ┆rkel bågen en ændpunkt Ci┆
0x12a0…12c0 72 6b 65 6c 62 7d 67 65 ee 20 72 69 74 61 f3 20 66 72 7d ee 20 64 65 ee 20 70 75 6e 6b 74 65 ee ┆rkelbåge rita frå de punkte ┆
0x12c0…12e0 20 6f 63 e8 20 8d 0a 20 20 76 69 64 61 72 e5 20 6d 6f 74 75 72 f3 20 74 69 6c 6c f3 20 64 65 ee ┆ oc vidar motur till de ┆
0x12e0…1300 20 73 6b 7b f2 20 6e 7b 73 74 e1 20 74 7b 6e 6b 74 e1 20 72 61 64 69 e5 20 73 6f ed 20 6d 61 72 ┆ skæ næst tænkt radi so mar┆
0x1300…1320 6b 65 72 61 f3 20 61 f6 20 8d 0a 20 20 28 78 33 2c 79 33 29 ae 20 28 78 33 2c 79 33 a9 20 66 7d ┆kera a (x3,y3) (x3,y3 få┆
0x1320…1340 f2 20 6c 69 67 67 e1 20 76 61 f2 20 73 6f ed 20 68 65 6c 73 74 20 70 7d 20 64 65 6e 20 61 6e 64 ┆ ligg va so helst på den and┆
0x1340…1360 72 61 20 72 61 64 69 65 6e 2e 0d 0a 2e 70 61 0d 8a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ra radien. .pa ┆
0x1360…1380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1380…13a0 20 20 20 20 20 20 20 20 33 28 34 29 0d 0a 0d 0a 0d 0a 0d 0a 2d 20 02 73 65 6c 65 63 74 5f 64 72 ┆ 3(4) - select_dr┆
0x13a0…13c0 61 77 5f 6d 6f 64 65 28 76 61 6c 29 02 0d 0a 20 20 56 7b 6c 6a 65 72 20 72 69 74 6d 6f 64 20 65 ┆aw_mode(val) Væljer ritmod e┆
0x13c0…13e0 6e 6c 69 67 74 20 3a 0d 0a 0d 0a 20 20 76 61 6c 20 20 20 20 72 69 74 6d 6f 64 0d 0a 0d 0a 20 20 ┆nligt : val ritmod ┆
0x13e0…1400 20 30 20 20 20 20 20 42 79 74 20 75 74 20 6d 6f 74 20 64 65 74 20 73 6f 6d 20 72 69 74 61 73 20 ┆ 0 Byt ut mot det som ritas ┆
0x1400…1420 6d 65 64 20 70 65 6e 6e 61 6e 2e 0d 0a 20 20 20 31 20 20 20 20 20 4b 6f 6d 70 6c 65 6d 65 6e 74 ┆med pennan. 1 Komplement┆
0x1420…1440 65 72 61 20 6d 65 64 20 64 65 74 20 73 6f 6d 20 72 69 74 61 73 20 6d 65 64 20 70 65 6e 6e 61 6e ┆era med det som ritas med pennan┆
0x1440…1460 0d 0a 20 20 20 32 20 20 20 20 20 53 75 64 64 61 20 64 7b 72 20 70 65 6e 6e 61 6e 20 72 69 74 61 ┆ 2 Sudda dær pennan rita┆
0x1460…1480 72 2e 0d 0a 20 20 20 33 20 20 20 20 20 52 69 74 61 20 64 7b 72 20 70 65 6e 6e 61 6e 20 72 69 74 ┆r. 3 Rita dær pennan rit┆
0x1480…14a0 61 72 2e 0d 0a 0d 0a 2d 20 02 73 65 74 5f 6c 69 6e 65 5f 70 61 74 74 65 72 6e 28 6d 6f 6e 73 74 ┆ar. - set_line_pattern(monst┆
0x14a0…14c0 65 72 29 02 0d 0a 20 20 53 7b 74 74 65 f2 20 6c 69 6e 6a e5 20 6d 7c 6e 73 74 65 72 ae 20 4d 6f ┆er) Sætte linj mønster Mo┆
0x14c0…14e0 6e 73 74 65 f2 20 7b f2 20 65 ee 20 73 74 72 7b 6e e7 20 6f ed 20 31 b6 20 74 6b ee 20 6f 63 e8 ┆nste æ e stræn o 1 tk oc ┆
0x14e0…1500 20 73 6b 61 6c ec 20 8d 0a 20 20 69 6e 6e 65 68 7d 6c 6c e1 20 7c 6e 73 6b 61 f4 20 6c 69 6e 6a ┆ skal innehåll ønska linj┆
0x1500…1520 65 6d 7c 6e 73 74 65 f2 20 e9 20 66 6f 72 ed 20 61 f6 20 65 74 74 6f 72 20 6f 63 68 20 6e 6f 6c ┆emønste for a ettor och nol┆
0x1520…1540 6c 6f 72 2e 0d 0a 20 20 0d 0a 20 20 45 78 65 6d 70 65 6c 20 3a 20 20 20 20 73 65 74 5f 6c 69 6e ┆lor. Exempel : set_lin┆
0x1540…1560 65 5f 70 61 74 74 65 72 6e 28 27 31 31 30 30 31 31 30 30 31 31 30 30 31 31 30 30 27 29 3b 0d 0a ┆e_pattern('1100110011001100'); ┆
0x1560…1580 0d 0a 20 20 45 66 74 65 f2 20 6f 76 61 6e 73 74 7d 65 6e 64 e5 20 61 6e 72 6f f0 20 6b 6f 6d 6d ┆ Efte ovanståend anro komm┆
0x1580…15a0 65 f2 20 61 6c 6c e1 20 6c 69 6e 6a 65 f2 20 73 6f ed 20 72 69 74 61 f3 20 61 74 f4 20 72 69 74 ┆e all linje so rita at rit┆
0x15a0…15c0 61 f3 20 8d 0a 20 20 6d 65 e4 20 6d 7c 6e 73 74 72 65 f4 20 74 76 fd 20 70 69 78 65 ec 20 74 7b ┆a me mønstre tv pixe tæ┆
0x15c0…15e0 6e 64 61 ac 20 74 76 fd 20 70 69 78 65 ec 20 73 6c 7b 63 6b 74 e1 20 6f 73 76 ae 20 46 7c f2 20 ┆nda tv pixe slæckt osv Fø ┆
0x15e0…1600 61 74 f4 20 8d 0a 20 20 7d 74 65 72 73 74 7b 6c 6c e1 20 6c 69 6e 6a 65 6d 7c 6e 73 74 72 65 f4 ┆at återstæll linjemønstre ┆
0x1600…1620 20 74 69 6c ec 20 6e 6f 72 6d 61 6c 6c 7b 67 65 f4 20 67 7c 72 73 20 61 6e 72 6f 70 65 74 20 3a ┆ til normallæge gørs anropet :┆
0x1620…1640 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 5f 6c 69 6e 65 5f 70 61 74 74 ┆ set_line_patt┆
0x1640…1660 65 72 6e 28 27 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 27 29 3b 0d 0a 0d 0a 2d 20 02 73 ┆ern('1111111111111111'); - s┆
0x1660…1680 65 6c 65 63 74 5f 73 63 72 65 65 6e 28 76 61 6c 29 02 0d 0a 20 20 56 7b 6c 6a 65 72 20 68 75 72 ┆elect_screen(val) Væljer hur┆
0x1680…16a0 20 62 6c 61 6e 64 6e 69 6e 67 65 6e 20 61 76 20 74 65 78 74 2d 20 6f 63 68 20 67 72 61 66 69 6b ┆ blandningen av text- och grafik┆
0x16a0…16c0 70 6c 61 6e 20 73 6b 61 6c 6c 20 67 7c 72 61 73 20 3a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆plan skall gøras : ┆
0x16c0…16e0 20 20 20 20 20 76 61 6c 20 20 20 20 20 20 20 65 72 68 7d 6c 6c 65 6e 20 62 69 6c 64 0d 0a 0d 0a ┆ val erhållen bild ┆
0x16e0…1700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 20 67 72 61 66 69 6b 20 ┆ 0 grafik ┆
0x1700…1720 58 4f 52 20 74 65 78 74 20 20 20 20 20 20 20 20 28 44 65 66 61 75 6c 74 29 0d 0a 20 20 20 20 20 ┆XOR text (Default) ┆
0x1720…1740 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 20 20 20 20 20 67 72 61 66 69 6b 20 4f 52 20 74 65 ┆ 1 grafik OR te┆
0x1740…1760 78 74 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 20 20 20 65 6e 62 ┆xt 2 enb┆
0x1760…1780 61 72 74 20 74 65 78 74 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 20 20 20 20 ┆art text 3 ┆
0x1780…17a0 20 20 20 65 6e 62 61 72 74 20 67 72 61 66 69 6b 0d 0a 0d 0a 20 20 4f 42 53 0d 0a 20 20 44 65 f4 ┆ enbart grafik OBS De ┆
0x17a0…17c0 20 7b f2 20 74 69 6c 6c 7d 74 65 f4 20 61 74 f4 20 62 79 67 67 e1 20 75 70 f0 20 65 ee 20 67 72 ┆ æ tillåte at bygg up e gr┆
0x17c0…17e0 61 66 69 73 eb 20 62 69 6c e4 20 6d 65 e4 20 67 72 61 66 69 6b 70 6c 61 6e 65 f4 20 8d 0a 20 20 ┆afis bil me grafikplane ┆
0x17e0…1800 73 6c 7b 63 6b f4 20 28 76 61 6c 3d 32 29 ae 20 4e 7b f2 20 62 69 6c 64 65 ee 20 7b f2 20 66 7b ┆slæck (val=2) Næ bilde æ fæ┆
0x1800…1820 72 64 69 e7 20 74 7b 6e 64 65 f2 20 6d 61 ee 20 67 72 61 66 69 6b 70 6c 61 6e 65 f4 20 8d 0a 20 ┆rdi tænde ma grafikplane ┆
0x1820…1840 20 6f 63 e8 20 76 69 70 f3 20 68 61 f2 20 6d 61 ee 20 65 ee 20 62 69 6c 64 20 66 72 61 6d 66 7c ┆ oc vip ha ma e bild framfø┆
0x1840…1860 72 20 73 69 67 2e 0d 0a 0d 0a 2d 20 02 63 6c 5f 67 72 61 66 02 0d 0a 20 20 52 65 6e 73 61 72 20 ┆r sig. - cl_graf Rensar ┆
0x1860…1880 73 6b 7b 72 6d 65 6e 73 20 67 72 61 66 69 6b 70 6c 61 6e 2e 0d 0a 0d 0a 2d 20 02 63 72 6f 73 73 ┆skærmens grafikplan. - cross┆
0x1880…18a0 28 78 2c 79 2c 74 6b 6e 2c 6d 69 6e 5f 78 2c 6d 69 6e 5f 79 2c 6d 61 78 5f 78 2c 6d 61 78 5f 79 ┆(x,y,tkn,min_x,min_y,max_x,max_y┆
0x18a0…18c0 2c 64 5f 6d 69 6e 2c 64 5f 6d 61 78 29 02 0d 0a 20 20 56 69 e4 20 61 6e 72 6f f0 20 72 69 74 61 ┆,d_min,d_max) Vi anro rita┆
0x18c0…18e0 f3 20 65 74 f4 20 68 7d 72 6b 6f 72 f3 20 e9 20 61 6e 67 69 76 65 ee 20 70 6f 73 69 74 69 6f ee ┆ et hårkor angive positio ┆
0x18e0…1900 20 28 78 2c 79 29 ae 20 48 7d 72 6b 6f 72 73 65 f4 20 8d 0a 20 20 66 6c 79 74 74 61 f3 20 6d 65 ┆ (x,y) Hårkorse flytta me┆
0x1900…1920 e4 20 68 6a 7b 6c f0 20 61 f6 20 74 61 6e 67 65 6e 74 65 72 6e e1 20 70 fd 20 64 65 f4 20 6e 75 ┆ hjæl a tangentern p de nu┆
[…truncated at 200 lines…]