|
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: 8192 (0x2000)
Names: »JET80F.DOC«
└─⟦6cf793dfc⟧ Bits:30003506 JET80 Grafik og fontprogrammering
└─ ⟦this⟧ »JET80F.DOC«
0x0000…0020 2e 70 6c 37 32 0d 0a 2e 68 65 20 20 20 20 20 20 20 49 6e 74 65 72 66 61 63 65 20 54 75 72 62 6f ┆.pl72 .he Interface Turbo┆
0x0020…0040 20 2d 2d 20 4a 65 74 20 38 30 20 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ -- Jet 80 F ┆
0x0040…0060 20 20 20 20 20 20 23 0d 0a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ # _______________________┆
0x0060…0080 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x0080…00a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_________ ┆
0x00a0…00c0 13 53 55 42 52 55 54 49 4e 50 41 4b 45 54 5f 46 5c 52 5f 4a 45 54 38 30 46 13 0d 0a 0d 0a 44 65 ┆ SUBRUTINPAKET_FØR_JET80F De┆
0x00c0…00e0 f4 20 68 7b f2 20 73 75 62 72 75 74 69 6e 70 61 6b 65 74 65 f4 20 7b f2 20 73 6b 72 69 76 65 f4 ┆ hæ subrutinpakete æ skrive ┆
0x00e0…0100 20 e9 20 54 55 52 42 cf 20 50 41 53 43 41 cc 20 6f 63 e8 20 7b f2 20 74 7b 6e 6b f4 20 8d 0a 73 ┆ TURB PASCA oc æ tænk s┆
0x0100…0120 6f ed 20 65 74 f4 20 65 6e 6b 65 6c f4 20 69 6e 74 65 72 66 61 63 e5 20 6d 65 6c 6c 61 ee 20 54 ┆o et enkel interfac mella T┆
0x0120…0140 55 52 42 cf 20 50 41 53 43 41 cc 20 6f 63 e8 20 64 65 20 66 7b 72 64 69 67 e1 20 8d 0a 72 75 74 ┆URB PASCA oc de færdig rut┆
0x0140…0160 69 6e 65 f2 20 73 6f ed 20 6d 65 64 66 7c 6c 6a 65 f2 20 6b 6f 72 74 65 f4 20 28 67 72 61 66 6c ┆ine so medfølje korte (grafl┆
0x0160…0180 69 62 29 ae 20 52 75 74 69 6e 65 72 6e e1 20 7b f2 20 73 6b 72 69 76 6e e1 20 73 6f 6d 8d 0a 70 ┆ib) Rutinern æ skrivn som p┆
0x0180…01a0 72 6f 63 65 64 75 72 65 f2 20 6f 63 e8 20 6e 7d f3 20 65 6e 6b 6c 61 73 f4 20 6f ed 20 70 61 6b ┆rocedure oc nå enklas o pak┆
0x01a0…01c0 65 74 65 f4 20 64 65 6b 6c 61 72 65 72 61 f3 20 73 6f ed 20 69 6e 63 6c 75 64 65 66 69 ec 20 e9 ┆ete deklarera so includefi ┆
0x01c0…01e0 20 8d 0a 64 65 74 20 61 6e 72 6f 70 61 6e 64 65 20 70 72 6f 67 72 61 6d 6d 65 74 2e 0d 0a 0d 0a ┆ det anropande programmet. ┆
0x01e0…0200 52 75 74 69 6e 65 72 6e e1 20 73 6f ed 20 70 61 6b 65 74 65 f4 20 69 6e 6e 65 68 7d 6c 6c 65 f2 ┆Rutinern so pakete innehålle ┆
0x0200…0220 20 7b f2 20 69 64 65 6e 74 69 73 6b e1 20 6d 65 e4 20 64 e5 20 73 6f ed 20 7b f2 20 8d 0a 6d 65 ┆ æ identisk me d so æ me┆
0x0220…0240 64 74 61 67 6e e1 20 e9 20 4a 45 54 38 30 46 27 f3 20 6d 61 6e 75 61 ec 20 73 fd 20 6e 7b f2 20 ┆dtagn JET80F' manua s næ ┆
0x0240…0260 73 6f ed 20 70 fd 20 61 74 f4 20 73 74 72 69 6e e7 20 e9 20 70 61 6b 65 74 65 f4 20 68 61 f2 20 ┆so p at strin pakete ha ┆
0x0260…0280 8d 0a 66 7d 74 74 20 6c 6f 76 20 61 74 74 20 62 79 74 61 20 6e 61 6d 6e 20 74 69 6c 6c 20 73 74 ┆ fått lov att byta namn till st┆
0x0280…02a0 72 6e 67 2e 0d 0a 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 13 44 45 54 5f 41 4e ┆rng. DET_AN┆
0x02a0…02c0 52 4f 50 41 4e 44 45 5f 50 52 4f 47 52 41 4d 4d 45 54 13 0d 0a 0d 0a 46 7c f2 20 61 74 f4 20 70 ┆ROPANDE_PROGRAMMET Fø at p┆
0x02c0…02e0 61 6b 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 ┆aketet rutine skal kunn anro┆
0x02e0…0300 70 61 f3 20 61 f6 20 65 74 f4 20 70 72 6f 67 72 61 ed 20 8d 0a 73 6b 72 69 76 65 72 20 6d 61 6e ┆pa a et progra skriver man┆
0x0300…0320 3a 0d 0a 0d 0a 28 2a 24 49 20 4a 45 54 38 30 46 20 2a 29 0d 0a 0d 0a 6e 7d 67 6f 6e 73 74 61 6e ┆: (*$I JET80F *) någonstan┆
0x0320…0340 f3 20 e9 20 64 65 f4 20 61 6e 72 6f 70 61 6e 64 e5 20 70 72 6f 67 72 61 6d 6d 65 74 ac 20 6c 7b ┆ de anropand programmet læ┆
0x0340…0360 6d 70 6c 69 67 74 76 69 f3 20 65 66 74 65 f2 20 64 e5 20 8d 0a 67 6c 6f 62 61 6c e1 20 56 41 d2 ┆mpligtvi efte d global VA ┆
0x0360…0380 20 64 65 6b 6c 61 72 61 74 69 6f 6e 65 72 6e 61 ae 20 44 65 74 74 e1 20 66 7d f2 20 54 75 72 62 ┆ deklarationerna Dett få Turb┆
0x0380…03a0 ef 20 50 61 73 63 61 ec 20 61 74 f4 20 69 6e 6b 6c 75 64 65 72 e1 20 8d 0a 66 69 6c 65 6e 20 4a ┆ Pasca at inkluder filen J┆
0x03a0…03c0 45 54 38 30 46 2e 50 41 53 20 76 69 64 20 6b 6f 6d 70 69 6c 65 72 69 6e 67 2e 0d 0a 0d 0a 0d 0a ┆ET80F.PAS vid kompilering. ┆
0x03c0…03e0 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 02 4f 42 53 20 4f 42 53 ┆ OBS OBS┆
0x03e0…0400 20 4f 42 53 02 0d 0a 0d 0a 52 75 74 69 6e 65 72 6e e1 20 e9 20 70 61 6b 65 74 65 f4 20 4a 45 54 ┆ OBS Rutinern pakete JET┆
0x0400…0420 38 30 c6 20 75 74 6e 79 74 74 6a 61 f2 20 64 e5 20 72 75 74 69 6e 65 f2 20 73 6f ed 20 66 69 6e ┆80 utnyttja d rutine so fin┆
0x0420…0440 6e f3 20 e9 20 8d 0a 47 52 41 46 4c 49 42 ae 20 41 6c 6c 74 73 fd 20 6d 7d 73 74 e5 20 47 52 41 ┆n GRAFLIB Allts måst GRA┆
0x0440…0460 46 4c 49 42 20 66 69 6e 6e 61 f3 20 74 69 6c 6c 67 7b 6e 67 6c 69 67 f4 20 e9 20 64 61 74 6f 72 ┆FLIB finna tillgænglig dator┆
0x0460…0480 6e f3 20 6d 69 6e 6e e5 20 8d 0a 6e 7b f2 20 70 61 6b 65 74 65 f4 20 75 74 6e 79 74 74 6a 61 73 ┆n minn næ pakete utnyttjas┆
0x0480…04a0 ae 20 44 65 74 74 e1 20 68 61 f2 20 76 e9 20 6c 7c 73 f4 20 67 65 6e 6f ed 20 61 74 f4 20 73 6b ┆ Dett ha v løs geno at sk┆
0x04a0…04c0 61 70 e1 20 65 ee 20 52 53 d8 2c 8d 0a 73 6f ed 20 7b f2 20 64 69 72 65 6b f4 20 6b 7c 72 62 61 ┆ap e RS , so æ direk kørba┆
0x04c0…04e0 72 ac 20 6d 65 e4 20 6e 61 6d 6e 65 f4 20 47 52 2e 43 4f 4d ae 20 44 65 6e 6e e1 20 52 53 d8 20 ┆r me namne GR.COM Denn RS ┆
0x04e0…0500 69 6e 6e 65 68 7d 6c 6c 65 f2 20 8d 0a 64 65 6c f3 20 65 ee 20 70 72 6f 67 72 61 6d 73 6e 75 74 ┆innehålle del e programsnut┆
0x0500…0520 f4 20 73 6f ed 20 6c 7b 67 67 65 f2 20 75 70 f0 20 70 61 72 61 6d 65 74 72 61 72 6e e1 20 73 6f ┆ so lægge up parametrarn so┆
0x0520…0540 ed 20 47 52 41 46 4c 49 c2 20 76 69 6c ec 20 8d 0a 68 e1 20 64 65 6d 20 6f 63 68 20 64 65 6c 73 ┆ GRAFLI vil h dem och dels┆
0x0540…0560 20 4a 4d 50 54 41 42 20 73 61 6d 74 20 47 52 41 46 4c 49 42 2e 20 0d 0a 49 6e 6e 61 ee 20 6d 61 ┆ JMPTAB samt GRAFLIB. Inna ma┆
0x0560…0580 ee 20 61 6e 76 7b 6e 64 65 f2 20 70 61 6b 65 74 65 f4 20 4a 45 54 38 30 c6 20 73 6b 61 6c ec 20 ┆ anvænde pakete JET80 skal ┆
0x0580…05a0 6d 61 ee 20 64 7b 72 66 7c f2 20 6b 7c 72 e1 20 47 52 ae 20 44 fd 20 8d 0a 6c 7b 67 67 f3 20 67 ┆ma dærfø kør GR D lægg g┆
0x05a0…05c0 72 61 66 69 6b 72 75 74 69 6e 65 72 6e e1 20 75 70 f0 20 68 7c 67 f4 20 75 70 f0 20 e9 20 6d 69 ┆rafikrutinern up høg up mi┆
0x05c0…05e0 6e 6e 65 74 ae 20 44 65 73 73 e1 20 6b 6f 6d 6d 65 f2 20 73 65 ee 20 61 74 f4 20 8d 0a 6c 69 67 ┆nnet Dess komme se at lig┆
0x05e0…0600 67 e1 20 64 7b f2 20 6e 7b f2 20 6d 61 ee 20 6b 7c f2 20 6e 7b 73 74 e1 20 70 72 6f 67 72 61 6d ┆g dæ næ ma kø næst program┆
0x0600…0620 ae 20 44 65 f4 20 6e 6f 72 6d 61 6c e1 20 66 7c 72 66 61 72 61 6e 64 65 74 ac 20 6e 7b f2 20 8d ┆ De normal førfarandet næ ┆
0x0620…0640 0a 6d 61 ee 20 75 74 76 65 63 6b 6c 61 f2 20 70 72 6f 67 72 61 ed 20 66 7c f2 20 66 7b 72 67 67 ┆ ma utveckla progra fø færgg┆
0x0640…0660 72 61 66 69 6b 65 6e ac 20 62 6c 69 f2 20 64 7b 72 66 7c f2 20 61 74 f4 20 66 7c 72 73 f4 20 8d ┆rafiken bli dærfø at førs ┆
0x0660…0680 0a 6b 7c 72 e1 20 47 d2 20 6f 63 e8 20 73 65 ee 20 64 69 72 65 6b f4 20 73 74 61 72 74 e1 20 54 ┆ kør G oc se direk start T┆
0x0680…06a0 75 72 62 ef ae 20 4d 61 ee 20 6b 61 ee 20 6b 6f 6e 74 72 6f 6c 6c 65 72 e1 20 61 74 f4 20 8d 0a ┆urb Ma ka kontroller at ┆
0x06a0…06c0 52 53 58 27 65 ee 20 76 65 72 6b 6c 69 67 65 ee 20 6c 69 67 67 65 f2 20 64 7b f2 20 69 6e 69 66 ┆RSX'e verklige ligge dæ inif┆
0x06c0…06e0 72 7d ee 20 54 75 72 62 ef 20 2d 2d 20 4e 7b f2 20 6d 61 ee 20 76 7b 6c 6a 65 f2 20 8d 0a 6b 6f ┆rå Turb -- Næ ma vælje ko┆
0x06e0…0700 6d 70 69 6c 65 72 69 6e 67 73 64 69 72 65 6b 74 69 f6 20 74 69 6c ec 20 43 4f cd 20 66 69 6c ac ┆mpileringsdirekti til CO fil ┆
0x0700…0720 20 61 6e 67 65 f2 20 54 75 72 62 ef 20 6d 61 f8 20 73 6c 75 74 61 64 72 65 73 73 2e 0d 0a 44 65 ┆ ange Turb ma slutadress. De┆
0x0720…0740 ee 20 7b f2 20 6e 6f 72 6d 61 6c f4 20 45 45 34 30 ac 20 6d 65 e4 20 52 53 58 27 65 ee 20 69 6e ┆ æ normal EE40 me RSX'e in┆
0x0740…0760 6e e5 20 7b f2 20 64 65 ee 20 44 46 30 36 ae 20 8d 0a 4e 7b f2 20 6d 61 ee 20 7b f2 20 6b 6c 61 ┆n æ de DF06 Næ ma æ kla┆
0x0760…0780 f2 20 6d 65 e4 20 65 74 f4 20 70 72 6f 67 72 61 ed 20 66 7c f2 20 66 7b 72 67 67 72 61 66 69 6b ┆ me et progra fø færggrafik┆
0x0780…07a0 65 6e ac 20 6b 6f 6d 70 69 6c 65 72 61 f2 20 6d 61 ee 20 8d 0a 64 65 f4 20 6c 7b 6d 70 6c 69 67 ┆en kompilera ma de læmplig┆
0x07a0…07c0 74 76 69 f3 20 74 69 6c ec 20 43 4f cd 20 66 69 ec 20 6f 63 e8 20 68 61 6b 61 f2 20 73 65 ee 20 ┆tvi til CO fi oc haka se ┆
0x07c0…07e0 70 fd 20 52 53 58 27 65 ee 20 64 69 72 65 6b f4 20 70 fd 20 8d 0a 64 65 ee 20 43 4f cd 20 66 69 ┆p RSX'e direk p de CO fi┆
0x07e0…0800 6c 65 ee 20 73 fd 20 61 74 f4 20 61 6e 76 7b 6e 64 61 72 65 ee 20 6b 61 ee 20 6b 7c 72 e1 20 70 ┆le s at anvændare ka kør p┆
0x0800…0820 72 6f 67 72 61 6d 6d 65 f4 20 75 74 61 ee 20 61 74 f4 20 8d 0a 6b 72 7d 6e 67 6c 61 ae 20 4b 6f ┆rogramme uta at krångla Ko┆
0x0820…0840 6d 70 69 6c 65 72 69 6e 67 65 ee 20 67 7c 72 f3 20 70 fd 20 76 61 6e 6c 69 67 f4 20 73 7b 74 f4 ┆mpileringe gør p vanlig sæt ┆
0x0840…0860 20 66 72 7d ee 20 54 75 72 62 6f ac 20 74 61 6b 65 f4 20 62 7c f2 20 8d 0a 64 6f 63 eb 20 73 7b ┆ frå Turbo take bø doc sæ┆
0x0860…0880 74 74 61 f3 20 74 69 6c ec 20 6d 61 f8 20 43 30 30 30 20 66 7c f2 20 61 74 f4 20 70 72 6f 67 72 ┆tta til ma C000 fø at progr┆
0x0880…08a0 61 6d 6d 65 f4 20 73 6b 61 6c ec 20 62 6c e9 20 67 65 6e 65 72 65 6c 6c f4 20 8d 0a 6b 7c 72 62 ┆amme skal bl generell kørb┆
0x08a0…08c0 61 72 74 ae 20 4b 6f 70 70 6c 69 6e 67 65 ee 20 61 f6 20 52 53 58 27 65 ee 20 74 69 6c ec 20 43 ┆art Kopplinge a RSX'e til C┆
0x08c0…08e0 4f cd 20 66 69 6c 65 ee 20 67 7c 72 f3 20 6d 65 e4 20 70 72 6f 67 72 61 6d 6d 65 f4 20 8d 0a 47 ┆O file gør me programme G┆
0x08e0…0900 45 4e 43 4f 4d 20 73 6f 6d 20 66 69 6e 6e 73 20 62 6c 61 6e 64 20 73 79 73 74 65 6d 66 69 6c 65 ┆ENCOM som finns bland systemfile┆
0x0900…0920 72 6e 61 20 70 7d 20 43 50 4d 20 64 69 73 6b 65 74 74 65 6e 2e 20 41 6e 74 61 67 20 61 74 74 0d ┆rna på CPM disketten. Antag att ┆
0x0920…0940 0a 64 69 6e 20 43 4f 4d 20 66 69 6c 20 68 65 74 65 72 20 54 45 53 54 20 6f 63 68 20 6c 69 67 67 ┆ din COM fil heter TEST och ligg┆
0x0940…0960 65 72 20 70 7d 20 42 3a 20 64 7b 72 20 7b 76 65 6e 20 66 69 6c 65 6e 20 47 52 2e 52 53 58 0d 0a ┆er på B: dær æven filen GR.RSX ┆
0x0960…0980 66 69 6e 6e 73 2c 20 69 20 41 20 64 72 69 76 65 6e 20 68 61 72 20 64 75 20 64 69 6e 20 73 79 73 ┆finns, i A driven har du din sys┆
0x0980…09a0 74 65 6d 73 6b 69 76 61 20 6f 63 68 20 42 3a 20 7b 72 20 61 6b 74 75 65 6c 6c 20 65 6e 68 65 74 ┆temskiva och B: ær aktuell enhet┆
0x09a0…09c0 2e 0d 0a 4b 6f 6d 6d 61 6e 64 6f 74 20 73 65 72 20 64 7d 20 75 74 20 73 7d 20 68 7b 72 20 3a 0d ┆. Kommandot ser då ut så hær : ┆
0x09c0…09e0 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 3a 47 45 4e 43 4f 4d 20 ┆ A:GENCOM ┆
0x09e0…0a00 54 45 53 54 20 47 52 0d 0a 8d 0a 2e 70 61 0d 8a 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆TEST GR .pa ________________┆
0x0a00…0a20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x0a20…0a40 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 0d 0a 44 65 74 61 6c 6a 62 65 ┆________________ Detaljbe┆
0x0a40…0a60 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 0d 0a 0d 0a 0d ┆skrivning av procedurerna : ┆
0x0a60…0a80 0a 02 69 6e 69 74 02 0d 0a 20 20 49 6e 69 74 69 65 72 61 f2 20 47 44 43 ee 20 76 61 e4 20 67 7b ┆ init Initiera GDC va gæ┆
0x0a80…0aa0 6c 6c 65 f2 20 64 69 73 70 6c 61 79 70 61 72 61 6d 65 74 72 61 f2 20 28 61 6e 74 61 ec 20 6c 69 ┆lle displayparametra (anta li┆
0x0aa0…0ac0 6e 6a 65 72 ac 20 8d 0a 61 6e 74 61 ec 20 70 69 78 65 6c f3 20 70 65 f2 20 6c 69 6e 6a 65 ac 20 ┆njer anta pixel pe linje ┆
0x0ac0…0ae0 73 79 6e 6b 74 69 64 65 72 ac 20 6b 61 72 61 6b 74 7b 72 73 73 65 74 a9 20 73 61 6d f4 20 74 7c ┆synktider karaktærsset sam tø┆
0x0ae0…0b00 6d 6d 65 f2 20 8d 0a 73 6b 7b 72 6d 65 6e ae 20 44 65 6e 6e e1 20 72 75 74 69 ee 20 6d 7d 73 74 ┆mme skærmen Denn ruti måst┆
0x0b00…0b20 e5 20 61 6e 72 6f 70 61 f3 20 66 7c 72 e5 20 61 6c 6c e1 20 61 6e 64 72 e1 20 72 75 74 69 6e 65 ┆ anropa før all andr rutine┆
0x0b20…0b40 72 ae 20 8d 0a 4e 7b f2 20 73 74 72 7c 6d 6d 65 ee 20 73 6c 7d f3 20 70 fd 20 74 69 6c ec 20 64 ┆r Næ strømme slå p til d┆
0x0b40…0b60 61 74 6f 72 73 79 73 74 65 6d 65 f4 20 62 65 66 69 6e 6e 65 f2 20 73 69 e7 20 67 72 61 66 69 6b ┆atorsysteme befinne si grafik┆
0x0b60…0b80 1f 8d 0a 6b 6f 72 74 65 f4 20 e9 20 65 ee 20 22 76 69 6c 6f 6d 6f 64 a2 20 6d 65 e4 20 68 65 6c ┆ korte e "vilomod me hel┆
0x0b80…0ba0 f4 20 73 6c 7b 63 6b f4 20 73 6b 7b 72 6d ac 20 7b 76 65 ee 20 6f ed 20 73 6a 7b 6c 76 e1 20 8d ┆ slæck skærm æve o sjælv ┆
0x0ba0…0bc0 0a 76 69 64 65 6f 6d 69 6e 6e 65 f4 20 69 6e 74 e5 20 7b f2 20 6e 6f 6c 6c 73 74 7b 6c 6c 74 ae ┆ videominne int æ nollstællt ┆
0x0bc0…0be0 20 0d 0a 0d 0a 46 7c 6c 6a 61 6e 64 e5 20 69 6e 69 74 69 65 72 69 6e 67 61 f2 20 67 7c 72 f3 20 ┆ Føljand initieringa gør ┆
0x0be0…0c00 61 f6 20 02 49 4e 49 54 02 0d 0a 0d 0a 20 20 20 20 20 44 52 41 57 50 c1 20 28 50 a9 20 20 20 20 ┆a INIT DRAWP (P ┆
0x0c00…0c20 20 20 20 20 20 20 50 3d 36 35 35 33 b6 20 20 20 20 20 20 20 20 68 65 6c 64 72 61 67 65 ee 20 6c ┆ P=6553 heldrage l┆
0x0c20…0c40 69 6e 6a 65 0d 0a 20 20 20 20 20 4d 4f 44 44 45 c6 20 28 4d a9 20 20 20 20 20 20 20 20 20 20 4d ┆inje MODDE (M M┆
0x0c40…0c60 3d b3 20 20 20 20 20 20 20 20 20 20 20 20 72 69 74 6d 6f 64 0d 0a 20 20 20 20 20 53 49 5a 45 44 ┆= ritmod SIZED┆
0x0c60…0c80 c6 20 28 53 a9 20 20 20 20 20 20 20 20 20 20 53 3d b0 20 20 20 20 20 20 20 20 20 20 20 20 72 69 ┆ (S S= ri┆
0x0c80…0ca0 74 73 74 6f 72 6c 65 eb 20 6e 6f 6c 6c 0d 0a 20 20 20 20 20 5a 4f 4f 4d 44 c6 20 28 4e a9 20 20 ┆tstorle noll ZOOMD (N ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 20 4e 3d b0 20 20 20 20 20 20 20 20 20 20 20 20 5a 4f 4f 4d 2d 66 61 6b 74 ┆ N= ZOOM-fakt┆
0x0cc0…0ce0 6f f2 20 6e 6f 6c 6c 0d 0a 20 20 20 20 20 4d 4f 56 c5 20 20 20 28 58 2c 59 a9 20 20 20 20 20 20 ┆o noll MOV (X,Y ┆
0x0ce0…0d00 20 20 58 3d 59 3d b0 20 20 20 20 20 20 20 20 20 20 63 75 72 73 6f f2 20 e9 20 7c 76 72 e5 20 0d ┆ X=Y= curso øvr ┆
0x0d00…0d20 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 ┆ ┆
0x0d20…0d40 20 20 20 20 20 20 20 20 20 76 7b 6e 73 74 72 e1 20 68 7c 72 6e 65 74 0d 0a 20 20 20 20 20 43 48 ┆ vænstr hørnet CH┆
0x0d40…0d60 52 54 59 d0 20 28 54 a9 20 20 20 20 20 20 20 20 20 20 54 3d b0 20 20 20 20 20 20 20 20 20 20 20 ┆RTY (T T= ┆
0x0d60…0d80 20 72 61 eb 20 73 74 69 6c 0d 0a 0d 0a 0d 0a 02 62 6c 61 6e 6b 02 0d 0a 20 20 53 6c 7b 63 6b 65 ┆ ra stil blank Slæcke┆
0x0d80…0da0 f2 20 73 6b 7b 72 6d 65 ee 20 75 74 61 ee 20 61 74 f4 20 74 7c 6d 6d e1 20 69 6e 6e 65 68 7d 6c ┆ skærme uta at tømm innehål┆
0x0da0…0dc0 6c 65 74 ae 20 5d 74 65 72 67 7d 6e e7 20 73 6b 65 f2 20 8d 0a 76 69 e1 20 72 75 74 69 6e 65 ee ┆let Återgån ske vi rutine ┆
0x0dc0…0de0 20 44 49 53 50 4c ae 20 0d 0a 0d 0a 0d 0a 02 64 69 73 70 6c 02 0d 0a 20 20 54 7b 6e 64 65 f2 20 ┆ DISPL displ Tænde ┆
0x0de0…0e00 73 6b 7b 72 6d 65 ee 20 69 67 65 ee 20 65 66 74 65 f2 20 61 74 f4 20 72 75 74 69 6e 65 ee 20 42 ┆skærme ige efte at rutine B┆
0x0e00…0e20 4c 41 4e cb 20 68 61 f2 20 61 6e 72 6f 70 61 74 73 ae 20 0d 0a 0d 0a 0d 0a 02 73 65 6c 63 68 72 ┆LAN ha anropats selchr┆
0x0e20…0e40 28 61 64 72 29 02 0d 0a 20 20 5b 6e 64 72 61 f2 20 73 74 61 72 74 61 64 72 65 73 f3 20 74 69 6c ┆(adr) Ændra startadres til┆
0x0e40…0e60 ec 20 64 65 f4 20 62 69 74 6d 7c 6e 73 74 65 f2 20 73 6f ed 20 61 6e 76 7b 6e 64 f3 20 76 69 e4 ┆ de bitmønste so anvænd vi ┆
0x0e60…0e80 20 8d 0a 73 6b 72 69 76 6e 69 6e e7 20 61 f6 20 6b 61 72 61 6b 74 7b 72 65 f2 20 70 fd 20 73 6b ┆ skrivnin a karaktære p sk┆
0x0e80…0ea0 7b 72 6d 65 ee 20 74 69 6c ec 20 61 64 72 ae 20 49 4e 49 d4 20 67 65 f2 20 73 74 61 72 74 1f 8d ┆ærme til adr INI ge start ┆
0x0ea0…0ec0 0a 61 64 72 65 73 f3 20 74 69 6c ec 20 64 65 ee 20 76 69 e4 20 6c 7b 6e 6b 6e 69 6e e7 20 6d 65 ┆ adres til de vi lænknin me┆
0x0ec0…0ee0 64 74 61 67 6e e1 20 62 69 74 6d 7c 6e 73 74 65 72 ae 20 56 69 e4 20 7d 74 65 72 1f 8d 0a 67 7d ┆dtagn bitmønster Vi åter gå┆
0x0ee0…0f00 6e e7 20 66 72 7d ee 20 72 75 74 69 6e 65 ee 20 66 7d f3 20 66 7c 72 65 67 7d 65 6e 64 e5 20 61 ┆n frå rutine få føregåend a┆
0x0f00…0f20 64 72 65 73 f3 20 73 6f ed 20 72 65 74 75 72 70 61 72 61 6d 65 74 65 72 2e 0d 0a 0d 0a 0d 0a 02 ┆dres so returparameter. ┆
0x0f20…0f40 65 6d 70 74 79 02 0d 0a 20 20 54 7c 6d 6d 65 f2 20 73 6b 7b 72 6d 65 ee 20 70 fd 20 69 6e 6e 65 ┆empty Tømme skærme p inne┆
0x0f40…0f60 68 7d 6c 6c ae 20 0d 0a 0d 0a 0d 0a 02 7a 6f 6f 6d 75 70 02 0d 0a 20 20 5c 6b 61 f2 20 7a 6f 6f ┆håll zoomup Øka zoo┆
0x0f60…0f80 6d 66 61 6b 74 6f 72 ee 20 6d 65 e4 20 65 74 f4 20 73 74 65 67 ae 20 4f ed 20 73 74 7c 72 73 74 ┆mfaktor me et steg O størst┆
0x0f80…0fa0 e1 20 7a 6f 6f 6d 66 61 6b 74 6f f2 20 75 70 70 1f 8d 0a 6e 7d 64 e4 20 73 6b 65 f2 20 69 6e 67 ┆ zoomfakto upp nåd ske ing┆
0x0fa0…0fc0 65 6e 74 69 6e 67 ae 20 0d 0a 0d 0a 0d 0a 02 7a 6f 6f 6d 64 6e 02 0d 0a 20 20 4d 69 6e 73 6b 61 ┆enting zoomdn Minska┆
0x0fc0…0fe0 f2 20 7a 6f 6f 6d 66 61 6b 74 6f 72 ee 20 6d 65 e4 20 65 74 f4 20 73 74 65 67 ae 20 4f ed 20 6d ┆ zoomfaktor me et steg O m┆
0x0fe0…1000 69 6e 73 74 e1 20 7a 6f 6f 6d 66 61 6b 74 6f 72 ee 20 8d 0a 75 70 70 6e 7d 64 e4 20 73 6b 65 f2 ┆inst zoomfaktor uppnåd ske ┆
0x1000…1020 20 69 6e 67 65 6e 74 69 6e 67 ae 20 0d 0a 0d 0a 0d 0a 02 7a 6f 6f 6d 64 66 28 6e 29 02 0d 0a 20 ┆ ingenting zoomdf(n) ┆
0x1020…1040 20 53 7b 74 74 65 f2 20 7a 6f 6f 6d 66 61 6b 74 6f 72 ee 20 74 69 6c ec 20 6e 20 28 b0 20 74 69 ┆ Sætte zoomfaktor til n ( ti┆
0x1040…1060 6c ec 20 31 b5 20 64 65 63 69 6d 61 6c 74 29 ae 20 0d 0a 2e 70 61 0d 8a 5f 5f 5f 5f 5f 5f 5f 5f ┆l 1 decimalt) .pa ________┆
0x1060…1080 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1080…10a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 0d 0a ┆________________________ ┆
0x10a0…10c0 02 73 63 72 75 70 02 0d 0a 20 20 46 6c 79 74 74 61 72 20 28 22 73 6b 72 6f 6c 6c 61 72 22 29 20 ┆ scrup Flyttar ("skrollar") ┆
0x10c0…10e0 62 69 6c 64 65 6e 20 75 70 70 20 65 6e 20 6c 69 6e 6a 65 2e 0d 0a 0d 0a 0d 0a 02 73 63 72 64 6e ┆bilden upp en linje. scrdn┆
0x10e0…1100 02 0d 0a 20 20 46 6c 79 74 74 61 72 20 28 22 73 6b 72 6f 6c 6c 61 72 22 29 20 62 69 6c 64 65 6e ┆ Flyttar ("skrollar") bilden┆
0x1100…1120 20 6e 65 72 20 65 6e 20 6c 69 6e 6a 65 2e 0d 0a 0d 0a 0d 0a 02 70 61 6e 72 02 0d 0a 20 20 46 6c ┆ ner en linje. panr Fl┆
0x1120…1140 79 74 74 61 72 20 28 70 61 6e 6f 72 65 72 61 72 29 20 62 69 6c 64 65 6e 20 31 36 20 70 69 78 65 ┆yttar (panorerar) bilden 16 pixe┆
0x1140…1160 6c 73 20 74 69 6c 6c 20 68 7c 67 65 72 2e 0d 0a 0d 0a 0d 0a 02 70 61 6e 6c 02 0d 0a 20 20 46 6c ┆ls till høger. panl Fl┆
0x1160…1180 79 74 74 61 72 20 28 70 61 6e 6f 72 65 72 61 72 29 20 62 69 6c 64 65 6e 20 31 36 20 70 69 78 65 ┆yttar (panorerar) bilden 16 pixe┆
0x1180…11a0 6c 73 20 74 69 6c 6c 20 76 7b 6e 73 74 65 72 2e 0d 0a 0d 0a 0d 0a 02 6d 6f 76 65 28 78 2c 79 29 ┆ls till vænster. move(x,y)┆
0x11a0…11c0 02 0d 0a 46 6c 79 74 74 61 72 20 63 75 72 73 6f 72 6e 20 74 69 6c 6c 20 6b 6f 6f 72 64 69 6e 61 ┆ Flyttar cursorn till koordina┆
0x11c0…11e0 74 65 6e 20 78 2c 79 20 28 75 74 61 6e 20 61 74 74 20 72 69 74 61 29 2e 0d 0a 0d 0a 0d 0a 02 64 ┆ten x,y (utan att rita). d┆
0x11e0…1200 72 61 77 28 78 2c 79 29 02 0d 0a 20 20 44 72 61 f2 20 65 ee 20 6c 69 6e 6a e5 20 66 72 7d ee 20 ┆raw(x,y) Dra e linj frå ┆
0x1200…1220 6e 75 76 61 72 61 6e 64 e5 20 63 75 72 73 6f 72 f3 20 6c 7b 67 e5 20 74 69 6c ec 20 6b 6f 6f 72 ┆nuvarand cursor læg til koor┆
0x1220…1240 64 69 6e 61 74 65 ee 20 8d 0a 78 2c 79 20 6d 65 e4 20 76 61 6c e4 20 46 5b 52 47 ac 20 4c 49 4e ┆dinate x,y me val FÆRG LIN┆
0x1240…1260 4a 45 4d 5c 4e 53 54 45 d2 20 6f 63 e8 20 4d 4f 44 2e 0d 0a 0d 0a 0d 0a 02 6f 63 74 61 6e 74 28 ┆JEMØNSTE oc MOD. octant(┆
0x1260…1280 72 2c 6f 2c 74 68 65 74 61 2c 70 68 69 29 02 0d 0a 20 20 52 69 74 61 f2 20 65 ee 20 63 69 72 6b ┆r,o,theta,phi) Rita e cirk┆
0x1280…12a0 65 6c 73 65 67 6d 65 6e f4 20 a8 20 b0 20 2d 20 34 b5 20 a9 20 6d 65 e4 20 72 61 64 69 65 ee 20 ┆elsegmen - 4 me radie ┆
0x12a0…12c0 d2 20 e9 20 6f 6b 74 61 6e f4 20 cf 20 8d 0a 6d 65 e4 20 76 61 6c e4 20 46 5b 52 47 ac 20 4c 49 ┆ oktan me val FÆRG LI┆
0x12c0…12e0 4e 4a 45 4d 5c 4e 53 54 45 d2 20 6f 63 e8 20 4d 4f 44 ae 20 50 68 e9 20 6f 63 e8 20 74 68 65 74 ┆NJEMØNSTE oc MOD Ph oc thet┆
0x12e0…1300 e1 20 7b f2 20 76 69 6e 6b 6c 61 72 6e e1 20 8d 0a 6d 65 6c 6c 61 ee 20 6b 6f 6f 72 64 69 6e 61 ┆ æ vinklarn mella koordina┆
0x1300…1320 74 61 78 65 6c ee 20 6f 63 e8 20 73 74 61 72 f4 20 6f 63 e8 20 73 74 6f 70 70 76 69 6e 6b 65 6c ┆taxel oc star oc stoppvinkel┆
0x1320…1340 ee 20 66 7c f2 20 73 65 67 6d 65 6e 74 65 f4 20 8d 0a 28 74 68 65 74 61 3e 70 68 69 29 ae 20 43 ┆ fø segmente (theta>phi) C┆
0x1340…1360 69 72 6b 65 6c 73 65 67 6d 65 6e 74 65 f4 20 72 69 74 61 f3 20 6d 65 e4 20 63 75 72 73 6f 72 ee ┆irkelsegmente rita me cursor ┆
0x1360…1380 20 6c 7b 67 e5 20 73 6f ed 20 6d 65 64 65 6c 1f 8d 0a 70 75 6e 6b 74 2e 0d 0a 4f 6b 74 61 6e 74 ┆ læg so medel punkt. Oktant┆
0x1380…13a0 65 72 6e 61 20 6e 75 6d 72 65 72 61 73 20 65 6e 6c 69 67 74 20 3a 20 20 20 20 20 20 20 20 20 20 ┆erna numreras enligt : ┆
0x13a0…13c0 20 20 36 20 20 49 20 20 31 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 6 I 1 ┆
0x13c0…13e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 0d 0a 20 20 20 20 20 20 20 ┆ I ┆
0x13e0…1400 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 33 ┆ 3┆
0x1400…1420 20 20 20 20 49 20 20 20 20 34 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I 4 ┆
0x1420…1440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 20 ┆ ----------- ┆
0x1440…1460 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 ┆ ┆
0x1460…1480 20 20 20 20 20 30 20 20 20 20 49 20 20 20 20 37 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 0 I 7 ┆
0x1480…14a0 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 49 0d 0a ┆ I ┆
0x14a0…14c0 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 ┆ ┆
0x14c0…14e0 20 20 20 20 20 20 20 20 35 20 20 49 20 20 32 0d 0a 0d 0a 0d 0a 02 63 69 72 63 6c 65 28 78 2c 79 ┆ 5 I 2 circle(x,y┆
0x14e0…1500 2c 72 29 02 0d 0a 20 20 52 69 74 61 f2 20 65 ee 20 63 69 72 6b 65 ec 20 6d 65 e4 20 72 61 64 69 ┆,r) Rita e cirke me radi┆
0x1500…1520 65 ee 20 72 20 6d 65 e4 20 63 65 6e 74 72 75 ed 20 e9 20 6b 6f 6f 72 64 69 6e 61 74 65 72 6e e1 ┆e r me centru koordinatern ┆
0x1520…1540 20 8d 0a 78 2c 79 20 6d 65 e4 20 76 61 6c e4 20 46 5b 52 47 ac 20 4c 49 4e 4a 45 4d 5c 4e 53 54 ┆ x,y me val FÆRG LINJEMØNST┆
0x1540…1560 45 d2 20 6f 63 e8 20 4d 4f 44 2e 0d 0a 0d 0a 0d 0a 02 64 72 6c 69 6e 65 28 78 31 2c 79 31 2c 78 ┆E oc MOD. drline(x1,y1,x┆
0x1560…1580 32 2c 79 32 29 02 0d 0a 20 20 44 72 61 f2 20 65 ee 20 6c 69 6e 6a e5 20 66 72 7d ee 20 6b 6f 6f ┆2,y2) Dra e linj frå koo┆
0x1580…15a0 72 64 69 6e 61 74 65 ee 20 78 31 2c 79 b1 20 74 69 6c ec 20 6b 6f 6f 72 64 69 6e 61 74 65 ee 20 ┆rdinate x1,y til koordinate ┆
0x15a0…15c0 8d 0a 78 32 2c 79 b2 20 6d 65 e4 20 76 61 6c e4 20 46 5b 52 47 ac 20 4c 49 4e 4a 45 4d 5c 4e 53 ┆ x2,y me val FÆRG LINJEMØNS┆
0x15c0…15e0 54 45 d2 20 6f 63 e8 20 4d 4f 44 2e 0d 0a 0d 0a 0d 0a 02 72 65 63 74 28 78 2c 79 2c 68 2c 62 2c ┆TE oc MOD. rect(x,y,h,b,┆
0x15e0…1600 64 69 72 29 02 0d 0a 20 20 52 69 74 61 f2 20 65 ee 20 72 65 6b 74 61 6e 67 65 ec 20 6d 65 e4 20 ┆dir) Rita e rektange me ┆
0x1600…1620 73 74 61 72 f4 20 e9 20 6b 6f 6f 72 64 69 6e 61 74 65 ee 20 78 2c 79 20 6d 65 e4 20 68 7c 6a 64 ┆star koordinate x,y me højd┆
0x1620…1640 65 ee 20 8d 0a 68 20 6f 63 e8 20 6d 65 e4 20 62 72 65 64 64 65 ee 20 62 20 e9 20 72 69 6b 74 6e ┆e h oc me bredde b riktn┆
0x1640…1660 69 6e 67 65 ee 20 64 69 72 20 6d 65 e4 20 76 61 6c e4 20 46 5b 52 47 ac 20 4c 49 4e 4a 45 1f 8d ┆inge dir me val FÆRG LINJE ┆
0x1660…1680 0a 4d 5c 4e 53 54 45 d2 20 6f 63 e8 20 4d 4f 44 2e 0d 0a 2e 70 61 0d 8a 5f 5f 5f 5f 5f 5f 5f 5f ┆ MØNSTE oc MOD. .pa ________┆
0x1680…16a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x16a0…16c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0a 0d 0a 0d 0a 0d 0a ┆________________________ ┆
0x16c0…16e0 02 70 6f 6c 79 6c 6e 28 61 64 72 65 73 73 29 02 0d 0a 20 20 52 69 74 61 f2 20 65 ee 20 66 69 67 ┆ polyln(adress) Rita e fig┆
0x16e0…1700 75 f2 20 6d 65 e4 20 76 61 6c e4 20 46 5b 52 47 ac 20 4c 49 4e 4a 45 4d 5c 4e 53 54 45 d2 20 6f ┆u me val FÆRG LINJEMØNSTE o┆
0x1700…1720 63 e8 20 4d 4f c4 20 64 65 66 69 1f 8d 0a 6e 69 65 72 61 e4 20 61 f6 20 65 ee 20 73 65 6b 76 65 ┆c MO defi niera a e sekve┆
0x1720…1740 6e f3 20 61 f6 20 78 2c 79 20 6b 6f 6f 72 64 69 6e 61 74 65 f2 20 6d 65 e4 20 73 74 61 72 f4 20 ┆n a x,y koordinate me star ┆
0x1740…1760 e9 20 61 64 72 65 73 73 ae 20 8d 0a 46 69 67 75 72 65 ee 20 62 7c 72 6a 61 f2 20 72 69 74 61 f3 ┆ adress Figure børja rita ┆
0x1760…1780 20 64 7b f2 20 63 75 72 73 6f 72 ee 20 73 74 7d 72 ae 20 78 20 6f 63 e8 20 79 20 6b 61 ee 20 61 ┆ dæ cursor står x oc y ka a┆
0x1780…17a0 6e 74 e1 20 62 7d 64 e5 20 8d 0a 70 6f 73 69 74 69 76 e1 20 6f 63 e8 20 6e 65 67 61 74 69 76 e1 ┆nt båd positiv oc negativ ┆
0x17a0…17c0 20 76 7b 72 64 65 ee 20 61 6e 67 69 76 6e e1 20 e9 20 74 76 7d 6b 6f 6d 70 6c 65 6d 65 6e f4 20 ┆ værde angivn tvåkomplemen ┆
0x17c0…17e0 66 6f 72 6d ae 20 8d 0a 53 6c 75 f4 20 70 fd 20 73 65 6b 76 65 6e 73 65 ee 20 61 6e 67 65 f3 20 ┆form Slu p sekvense ange ┆
0x17e0…1800 6d 65 e4 20 62 69 f4 20 31 b1 20 28 30 2d 31 35 29 ae 20 52 75 74 69 6e 65 ee 20 61 76 73 6c 75 ┆me bi 1 (0-15) Rutine avslu┆
0x1800…1820 74 61 f3 20 8d 0a 6f ed 20 62 69 f4 20 31 b1 20 bd 20 45 54 d4 20 66 7c f2 20 70 6f 73 69 74 69 ┆ta o bi 1 ET fø positi┆
0x1820…1840 76 e1 20 74 61 ec 20 65 6c 6c 65 f2 20 6f ed 20 62 69 f4 20 31 b1 20 bd 20 4e 4f 4c cc 20 66 7c ┆v ta elle o bi 1 NOL fø┆
0x1840…1860 f2 20 8d 0a 6e 65 67 61 74 69 76 e1 20 74 61 6c 2e 0d 0a 0d 0a 02 63 68 61 72 28 6e 2c 64 69 72 ┆ negativ tal. char(n,dir┆
0x1860…1880 29 02 0d 0a 20 20 53 6b 72 69 76 65 f2 20 6b 61 72 61 6b 74 7b 72 65 ee 20 ee 20 28 61 73 63 69 ┆) Skrive karaktære (asci┆
0x1880…18a0 69 a9 20 e9 20 72 69 6b 74 6e 69 6e 67 65 ee 20 64 69 f2 20 64 7b f2 20 63 75 72 73 6f 72 ee 20 ┆i riktninge di dæ cursor ┆
0x18a0…18c0 8d 0a 62 65 66 69 6e 6e 65 f2 20 73 69 e7 20 6d 65 e4 20 76 61 6c e4 20 46 5b 52 47 ac 20 53 54 ┆ befinne si me val FÆRG ST┆
0x18c0…18e0 4f 52 4c 45 cb 20 6f 63 e8 20 4d 4f 44 2e 0d 0a 0d 0a 0d 0a 02 73 74 72 6e 67 28 74 65 78 74 2c ┆ORLE oc MOD. strng(text,┆
0x18e0…1900 64 69 72 29 02 0d 0a 0d 0a 20 20 53 6b 72 69 76 65 f2 20 73 74 72 7b 6e 67 65 ee 20 74 65 78 f4 ┆dir) Skrive strænge tex ┆
0x1900…1920 20 e9 20 72 69 6b 74 6e 69 6e 67 65 ee 20 64 69 f2 20 64 7b f2 20 63 75 72 73 6f 72 ee 20 62 65 ┆ riktninge di dæ cursor be┆
[…truncated at 200 lines…]