DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦fef0e23fa⟧

    Length: 19584 (0x4c80)
    Names: »TEGN001.BAK«

Derivation

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »TEGN001.BAK« 

Hex Dump

0x0000…0020 (0,)  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 70 72 6f   ┆                             pro┆
0x0020…0040       67 72 61 6d 20 74 65 67 6e 3b 0d 0a 0d 0a 20 20 28 2a 24 56 2d 2c 49 20 47 53 58 20 2a 29 20 0d   ┆gram tegn;      (*$V-,I GSX *)  ┆
0x0040…0060       0a 0d 0a 20 20 28 2a 20 64 65 6e 20 30 34 2e 31 31 2e 38 36 20 2a 29 0d 0a 0d 0a 0d 0a 0d 0a 54   ┆     (* den 04.11.86 *)        T┆
0x0060…0080       59 50 45 0d 0a 20 20 20 20 73 74 72 65 6e 67 74 79 70 65 20 20 20 20 20 20 20 3d 20 73 74 72 69   ┆YPE      strengtype       = stri┆
0x0080…00a0       6e 67 28 2e 33 35 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 31 35 20 20 20 20 20 20 20 20 20   ┆ng(.35.);      streng15         ┆
0x00a0…00c0       3d 20 73 74 72 69 6e 67 28 2e 31 35 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 32 30 20 20 20   ┆= string(.15.);      streng20   ┆
0x00c0…00e0       20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 32 30 2e 29 3b 0d 0a 20 20 20 20 73 74 72 65 6e   ┆      = string(.20.);      stren┆
0x00e0…0100       67 38 20 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 38 2e 29 3b 0d 0a 20 20 20 20   ┆g8          = string(.8.);      ┆
0x0100…0120       73 74 72 65 6e 67 34 20 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e 34 2e 29 3b 0d   ┆streng4          = string(.4.); ┆
0x0120…0140       0a 20 20 20 20 73 74 72 65 6e 67 38 30 20 20 20 20 20 20 20 20 20 3d 20 73 74 72 69 6e 67 28 2e   ┆     streng80         = string(.┆
0x0140…0160       38 30 2e 29 3b 0d 0a 20 20 20 20 72 65 67 5f 74 79 70 65 20 20 20 20 20 20 20 20 20 3d 20 72 65   ┆80.);      reg_type         = re┆
0x0160…0180       63 6f 72 64 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 61   ┆cord                           a┆
0x0180…01a0       78 2c 62 78 2c 63 78 2c 64 78 2c 62 70 2c 73 69 2c 64 69 2c 64 73 2c 65 73 2c 66 6c 61 67 73 3a   ┆x,bx,cx,dx,bp,si,di,ds,es,flags:┆
0x01a0…01c0       69 6e 74 65 67 65 72 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   ┆integer                         ┆
0x01c0…01e0       65 6e 64 3b 0d 0a 20 20 20 20 66 61 72 76 65 74 79 70 65 72 20 20 20 20 20 20 20 3d 20 61 72 72   ┆end;      farvetyper       = arr┆
0x01e0…0200       61 79 28 2e 31 2e 2e 34 2e 29 20 6f 66 20 63 68 61 72 3b 0d 0a 76 61 72 0d 0a 20 20 20 20 65 66   ┆ay(.1..4.) of char;  var      ef┆
0x0200…0220       74 65 72 6e 61 76 6e 5f 64 65 6c 2c 65 66 74 65 72 6e 61 76 6e 5f 68 65 6c 20 20 20 20 20 20 20   ┆ternavn_del,efternavn_hel       ┆
0x0220…0240       20 20 3a 20 73 74 72 65 6e 67 34 3b 0d 0a 20 20 20 20 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e   ┆  : streng4;      ykoordinat_lin┆
0x0240…0260       69 65 2c 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 2c 76 69 64 65 6f 6c 69 6e 69 65 72 2c 62   ┆ie,xkoordinat_blok,videolinier,b┆
0x0260…0280       6c 6f 6b 6b 65 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 63 6f 6c 6f 72 73 20 20 20 20   ┆lokke : integer;      colors    ┆
0x0280…02a0       20 20 20 20 20 20 20 3a 20 66 61 72 76 65 74 79 70 65 72 3b 0d 0a 20 20 20 20 66 61 72 76 65 66   ┆       : farvetyper;      farvef┆
0x02a0…02c0       69 6c 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 20 20   ┆il         : file of char;      ┆
0x02c0…02e0       66 69 6c 6e 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 3b 0d 0a 20 20 20   ┆filnavn             : file;     ┆
0x02e0…0300       20 66 69 6c 6e 61 76 6e 32 20 20 20 20 20 20 20 20 20 3a 20 66 69 6c 65 20 6f 66 20 69 6e 74 65   ┆ filnavn2         : file of inte┆
0x0300…0320       67 65 72 3b 20 0d 0a 20 20 20 20 73 74 72 65 6e 67 5f 69 64 20 20 20 20 20 20 20 20 3a 20 73 74   ┆ger;       streng_id        : st┆
0x0320…0340       72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 20 20 20 20 72 65 67 20 20 20 20 20 20 20 20 20 20 20 20   ┆ring(.30.);      reg            ┆
0x0340…0360       20 20 3a 20 72 65 67 5f 74 79 70 65 3b 0d 0a 20 20 20 20 70 6f 69 6e 74 2c 78 2c 79 2c 0d 0a 20   ┆  : reg_type;      point,x,y,   ┆
0x0360…0380       20 20 20 69 6f 66 65 6a 6c 2c 6e 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c   ┆   iofejl,n,xin,yin,status,term,┆
0x0380…03a0       0d 0a 20 20 20 20 78 6f 75 74 2c 79 6f 75 74 2c 78 6d 69 6e 2c 79 6d 69 6e 20 20 20 20 20 20 20   ┆      xout,yout,xmin,ymin       ┆
0x03a0…03c0       20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 6d 61 72 6b 6f 65 72 2c 0d 0a 20 20 20 20 75   ┆ : integer;      markoer,      u┆
0x03c0…03e0       64 66 2c 74 79 62 65 2c 66 61 72 76 65 2c 73 74 79 6c 65 2c 0d 0a 20 20 20 20 62 72 65 64 64 65   ┆df,tybe,farve,style,      bredde┆
0x03e0…0400       2c 68 6f 65 6a 64 65 2c 77 73 5f 69 64 2c 61 6b 74 75 65 6c 5f 66 61 72 76 65 20 20 20 20 20 3a   ┆,hoejde,ws_id,aktuel_farve     :┆
0x0400…0420 (1,)  20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 70 72 69 6e 74 65 72 6e 72 2c 70 72 69 6e 74 65 72   ┆ integer;      printernr,printer┆
0x0420…0440       74 79 70 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20   ┆type               :integer;    ┆
0x0440…0460       20 20 6c 65 6e 67 64 65 2c 74 61 6c 2c 74 6a 65 6b 73 75 6d 2c 73 75 6d 20 20 20 20 20 20 20 20   ┆  lengde,tal,tjeksum,sum        ┆
0x0460…0480       20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 72 65 74 75 72 6d 6f 64 65 20 20 20 20 20 20   ┆ : integer;      returmode      ┆
0x0480…04a0       20 20 3a 20 62 79 74 65 3b 0d 0a 20 20 20 20 66 69 6c 6e 61 76 6e 73 74 72 65 6e 67 20 20 20 20   ┆  : byte;      filnavnstreng    ┆
0x04a0…04c0       3a 20 73 74 72 65 6e 67 31 35 3b 0d 0a 20 20 20 20 74 65 6b 73 74 73 74 72 2c 73 74 72 65 6e 67   ┆: streng15;      tekststr,streng┆
0x04c0…04e0       31 2c 0d 0a 20 20 20 20 73 74 72 65 6e 67 32 20 20 20 20 20 20 20 20 20 20 3a 20 73 74 72 65 6e   ┆1,      streng2          : stren┆
0x04e0…0500       67 74 79 70 65 3b 0d 0a 20 20 20 20 73 74 72 65 6e 67 20 20 20 20 20 20 20 20 20 20 20 3a 20 73   ┆gtype;      streng           : s┆
0x0500…0520       74 72 65 6e 67 38 30 3b 0d 0a 20 20 20 20 6d 61 73 6b 65 2c 68 6f 6c 64 6f 70 2c 66 6c 61 67 3a   ┆treng80;      maske,holdop,flag:┆
0x0520…0540       20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 20 20 73 74 61 72 74 64 72 65 76 2c 64 69 73 6b 64 72 65   ┆ boolean;      startdrev,diskdre┆
0x0540…0560       76 2c 74 61 73 74 2c 63 68 20 3a 20 63 68 61 72 3b 0d 0a 20 20 20 20 70 69 78 20 20 20 20 20 20   ┆v,tast,ch : char;      pix      ┆
0x0560…0580       20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 30 2e 2e 31 35 38 33 39 2e 29 20 6f 66 20 69   ┆        : array(.0..15839.) of i┆
0x0580…05a0       6e 74 65 67 65 72 20 61 74 20 24 64 30 30 30 3a 30 30 30 30 3b 0d 0a 20 20 20 20 74 65 6d 70 20   ┆nteger at $d000:0000;      temp ┆
0x05a0…05c0       20 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 30 2e 2e 31 35 38 33 39 2e 29 20   ┆            : array(.0..15839.) ┆
0x05c0…05e0       6f 66 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 71 2c 69 2c 6d 2c 70 20 20 20 20 20 20 20 20   ┆of integer;      q,i,m,p        ┆
0x05e0…0600       20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 30 30 35 2a   ┆  : integer;       (*$I tegn005*┆
0x0600…0620       29 0d 0a 20 20 20 28 2a 24 49 20 70 72 69 6e 74 65 72 2a 29 0d 0a 20 20 20 28 2a 24 49 20 74 65   ┆)     (*$I printer*)     (*$I te┆
0x0620…0640       67 6e 30 30 32 2a 29 0d 0a 20 20 20 28 2a 24 49 20 74 65 67 6e 30 30 33 2a 29 0d 0a 20 20 20 28   ┆gn002*)     (*$I tegn003*)     (┆
0x0640…0660       2a 24 49 20 74 65 67 6e 30 30 34 2a 29 0d 0a 20 20 20 28 2a 24 49 20 66 6c 79 74 2a 29 0d 0a 28   ┆*$I tegn004*)     (*$I flyt*)  (┆
0x0660…0680       2a 20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88   ┆*                               ┆
0x0680…06a0       88 88 88 88 88 88 88 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 69 6e 69 74 3b 0d 0a 0d 0a 62   ┆        *)  procedure init;    b┆
0x06a0…06c0       65 67 69 6e 0d 0a 20 20 69 66 20 73 6b 61 65 72 6d 32 32 6b 68 7a 20 74 68 65 6e 20 62 65 67 69   ┆egin    if skaerm22khz then begi┆
0x06c0…06e0       6e 0d 0a 20 20 28 2a 70 61 72 74 6e 65 72 73 6b 61 65 72 6d 2a 29 0d 0a 20 20 20 20 78 6b 6f 6f   ┆n    (*partnerskaerm*)      xkoo┆
0x06e0…0700       72 64 69 6e 61 74 5f 62 6c 6f 6b 3a 3d 37 32 38 3b 0d 0a 20 20 20 20 79 6b 6f 6f 72 64 69 6e 61   ┆rdinat_blok:=728;      ykoordina┆
0x0700…0720       74 5f 6c 69 6e 69 65 3a 3d 39 33 3b 0d 0a 20 20 20 20 76 69 64 65 6f 6c 69 6e 69 65 72 3a 3d 33   ┆t_linie:=93;      videolinier:=3┆
0x0720…0740       35 30 3b 0d 0a 20 20 20 20 62 6c 6f 6b 6b 65 3a 3d 34 35 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e   ┆50;      blokke:=45;      eftern┆
0x0740…0760       61 76 6e 5f 64 65 6c 3a 3d 27 2e 44 36 30 27 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e 61 76 6e 5f   ┆avn_del:='.D60';      efternavn_┆
0x0760…0780       68 65 6c 3a 3d 27 2e 50 36 30 27 3b 0d 0a 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a   ┆hel:='.P60';    end else begin  ┆
0x0780…07a0       20 20 28 2a 70 69 63 63 6f 6c 69 6e 65 73 6b 61 65 72 6d 2a 29 0d 0a 20 20 20 20 78 6b 6f 6f 72   ┆  (*piccolineskaerm*)      xkoor┆
0x07a0…07c0       64 69 6e 61 74 5f 62 6c 6f 6b 3a 3d 39 33 36 3b 0d 0a 20 20 20 20 79 6b 6f 6f 72 64 69 6e 61 74   ┆dinat_blok:=936;      ykoordinat┆
0x07c0…07e0       5f 6c 69 6e 69 65 3a 3d 31 32 38 3b 0d 0a 20 20 20 20 76 69 64 65 6f 6c 69 6e 69 65 72 3a 3d 32   ┆_linie:=128;      videolinier:=2┆
0x07e0…0800       35 36 3b 0d 0a 20 20 20 20 62 6c 6f 6b 6b 65 3a 3d 33 35 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e   ┆56;      blokke:=35;      eftern┆
0x0800…0820 (2,)  61 76 6e 5f 64 65 6c 3a 3d 27 2e 44 35 30 27 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e 61 76 6e 5f   ┆avn_del:='.D50';      efternavn_┆
0x0820…0840       68 65 6c 3a 3d 27 2e 50 35 30 27 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72   ┆hel:='.P50';    end;  end;    pr┆
0x0840…0860       6f 63 65 64 75 72 65 20 6c 69 6e 69 65 74 79 70 65 28 76 61 72 20 78 69 6e 2c 79 69 6e 2c 74 79   ┆ocedure linietype(var xin,yin,ty┆
0x0860…0880       62 65 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 0d 0a 76 61 72 0d 0a 20 20 6d 2c 74 65 6c 20 20   ┆be:integer);      var    m,tel  ┆
0x0880…08a0       20 20 20 20 20 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 73 74 72 65 67 20   ┆            : integer;    streg ┆
0x08a0…08c0       20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 32 2e 29 20 6f 66 20   ┆             : array(.1..2.) of ┆
0x08c0…08e0       63 6f 6f 72 3b 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 73 6c 65 74 68 61 6c 76 73 74 61 74 75 73   ┆coor;    begin    slethalvstatus┆
0x08e0…0900       3b 0d 0a 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20   ┆;    linecolor(aktuel_farve);   ┆
0x0900…0920       20 69 66 20 61 6b 74 75 65 6c 5f 66 61 72 76 65 3d 30 20 74 68 65 6e 20 6c 69 6e 65 63 6f 6c 6f   ┆ if aktuel_farve=0 then linecolo┆
0x0920…0940       72 28 31 29 3b 0d 0a 20 20 73 74 72 65 67 28 2e 31 2e 29 2e 79 3a 3d 33 30 36 35 30 3b 73 74 72   ┆r(1);    streg(.1.).y:=30650;str┆
0x0940…0960       65 67 28 2e 32 2e 29 2e 79 3a 3d 33 30 36 35 30 3b 20 20 20 20 0d 0a 20 20 20 20 66 6f 72 20 6d   ┆eg(.2.).y:=30650;          for m┆
0x0960…0980       3a 3d 31 20 74 6f 20 36 20 64 6f 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20   ┆:=1 to 6 do        begin        ┆
0x0980…09a0       20 20 66 69 6c 6c 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 20   ┆  fillcolor(aktuel_farve);      ┆
0x09a0…09c0       20 20 20 20 69 66 20 61 6b 74 75 65 6c 5f 66 61 72 76 65 3d 30 20 74 68 65 6e 20 66 69 6c 6c 63   ┆    if aktuel_farve=0 then fillc┆
0x09c0…09e0       6f 6c 6f 72 28 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 62 61 72 28 28 6d 2d 31 29 2a 34 30 30 30   ┆olor(1);          bar((m-1)*4000┆
0x09e0…0a00       2b 38 36 37 30 2c 32 39 38 35 30 2c 28 6d 29 2a 34 30 30 30 2b 38 36 37 30 2c 33 31 35 35 30 29   ┆+8670,29850,(m)*4000+8670,31550)┆
0x0a00…0a20       3b 0d 0a 20 20 20 20 20 20 20 20 73 74 72 65 67 28 2e 31 2e 29 2e 78 3a 3d 28 6d 2d 31 29 2a 34   ┆;          streg(.1.).x:=(m-1)*4┆
0x0a20…0a40       30 30 30 2b 38 36 37 30 3b 0d 0a 20 20 20 20 20 20 20 20 73 74 72 65 67 28 2e 32 2e 29 2e 78 3a   ┆000+8670;          streg(.2.).x:┆
0x0a40…0a60       3d 73 74 72 65 67 28 2e 31 2e 29 2e 78 2b 34 30 30 30 3b 0d 0a 20 20 20 20 20 20 20 20 6c 69 6e   ┆=streg(.1.).x+4000;          lin┆
0x0a60…0a80       65 74 79 70 65 28 6d 29 3b 0d 0a 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 73 74   ┆etype(m);          polyline(2,st┆
0x0a80…0aa0       72 65 67 29 3b 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 65 6e 64 3b 20 0d 0a 20 20 6c 69   ┆reg);                end;     li┆
0x0aa0…0ac0       6e 65 74 79 70 65 28 30 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 72 71 6c 6f 63 61   ┆netype(0);    repeat      rqloca┆
0x0ac0…0ae0       74 6f 72 28 32 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79   ┆tor(2,xin,yin,status,term,xout,y┆
0x0ae0…0b00       6f 75 74 29 3b 0d 0a 20 20 20 20 78 69 6e 3a 3d 78 6f 75 74 3b 79 69 6e 3a 3d 79 6f 75 74 3b 0d   ┆out);      xin:=xout;yin:=yout; ┆
0x0b00…0b20       0a 20 20 75 6e 74 69 6c 20 28 28 79 6f 75 74 3e 3d 32 39 38 35 30 29 20 61 6e 64 20 28 78 6f 75   ┆   until ((yout>=29850) and (xou┆
0x0b20…0b40       74 3e 3d 38 36 37 30 29 29 20 6f 72 20 28 74 65 72 6d 3d 33 33 29 3b 0d 0a 20 20 63 61 73 65 20   ┆t>=8670)) or (term=33);    case ┆
0x0b40…0b60       78 6f 75 74 20 6f 66 0d 0a 20 20 20 38 36 37 30 2e 2e 31 32 36 36 39 3a 20 74 79 62 65 3a 3d 31   ┆xout of     8670..12669: tybe:=1┆
0x0b60…0b80       3b 0d 0a 20 20 31 32 36 37 30 2e 2e 31 36 36 36 39 3a 74 79 62 65 3a 3d 32 3b 0d 0a 20 20 31 36   ┆;    12670..16669:tybe:=2;    16┆
0x0b80…0ba0       36 37 30 2e 2e 32 30 36 36 39 3a 74 79 62 65 3a 3d 33 3b 0d 0a 20 20 32 30 36 37 30 2e 2e 32 34   ┆670..20669:tybe:=3;    20670..24┆
0x0ba0…0bc0       36 36 39 3a 74 79 62 65 3a 3d 34 3b 0d 0a 20 20 32 34 36 37 30 2e 2e 32 38 36 36 39 3a 74 79 62   ┆669:tybe:=4;    24670..28669:tyb┆
0x0bc0…0be0       65 3a 3d 35 3b 0d 0a 20 20 32 38 36 37 30 2e 2e 33 32 36 36 39 3a 74 79 62 65 3a 3d 36 3b 0d 0a   ┆e:=5;    28670..32669:tybe:=6;  ┆
0x0be0…0c00       20 20 65 6e 64 20 20 28 2a 20 63 61 73 65 20 2a 29 3b 0d 0a 20 20 69 66 20 74 65 72 6d 3d 33 33   ┆  end  (* case *);    if term=33┆
0x0c00…0c20 (3,)  20 74 68 65 6e 20 74 79 62 65 3a 3d 31 3b 28 2a 64 65 66 61 75 6c 74 2a 29 0d 0a 20 20 78 69 6e   ┆ then tybe:=1;(*default*)    xin┆
0x0c20…0c40       3a 3d 78 6f 75 74 3b 79 69 6e 3a 3d 79 6f 75 74 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 0d 0a 28 2a 20   ┆:=xout;yin:=yout;    end;    (* ┆
0x0c40…0c60       88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88   ┆                                ┆
0x0c60…0c80       88 88 88 88 88 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 73 74 72 65 67 65 72 28 61 6b   ┆      *)    procedure streger(ak┆
0x0c80…0ca0       74 75 65 6c 5f 66 61 72 76 65 3a 69 6e 74 65 67 65 72 3b 76 61 72 20 78 69 6e 2c 79 69 6e 3a 69   ┆tuel_farve:integer;var xin,yin:i┆
0x0ca0…0cc0       6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 74 65 6c 2c 73 74 61 74 75 73 2c 74 65   ┆nteger);    var    tel,status,te┆
0x0cc0…0ce0       72 6d 2c 0d 0a 20 20 78 6f 75 74 2c 79 6f 75 74 20 20 20 20 20 20 20 20 20 20 3a 20 69 6e 74 65   ┆rm,    xout,yout          : inte┆
0x0ce0…0d00       67 65 72 3b 0d 0a 20 20 6c 69 6e 69 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72   ┆ger;    linie              : arr┆
0x0d00…0d20       61 79 28 2e 31 2e 2e 32 2e 29 20 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 68 65 6c 6c 69 6e 69 65 20   ┆ay(.1..2.) of coor;    hellinie ┆
0x0d20…0d40       20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 38 30 2e 29 20 6f 66 20 63 6f   ┆          : array(.1..80.) of co┆
0x0d40…0d60       6f 72 3b 0d 0a 20 20 66 6c 61 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 62 6f 6f 6c   ┆or;    flag               : bool┆
0x0d60…0d80       65 61 6e 3b 0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a 20 20 6f 72 64 72 65 28 27 4c 49 4e 49 45 52   ┆ean;      begin    ordre('LINIER┆
0x0d80…0da0       27 2c 27 27 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28   ┆','');    repeat      rqlocator(┆
0x0da0…0dc0       31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29   ┆1,xin,yin,status,term,xout,yout)┆
0x0dc0…0de0       3b 0d 0a 20 20 20 20 79 69 6e 3a 3d 79 6f 75 74 3b 78 69 6e 3a 3d 78 6f 75 74 3b 0d 0a 20 20 20   ┆;      yin:=yout;xin:=xout;     ┆
0x0de0…0e00       20 6c 69 6e 69 65 28 2e 31 2e 29 2e 78 3a 3d 78 6f 75 74 3b 6c 69 6e 69 65 28 2e 31 2e 29 2e 79   ┆ linie(.1.).x:=xout;linie(.1.).y┆
0x0e00…0e20       3a 3d 79 6f 75 74 3b 0d 0a 20 20 75 6e 74 69 6c 20 28 79 6f 75 74 3c 3d 32 39 38 35 30 29 20 6f   ┆:=yout;    until (yout<=29850) o┆
0x0e20…0e40       72 20 28 74 65 72 6d 3d 33 33 29 3b 0d 0a 20 20 69 66 20 74 65 72 6d 3c 3e 33 33 20 74 68 65 6e   ┆r (term=33);    if term<>33 then┆
0x0e40…0e60       20 62 65 67 69 6e 0d 0a 20 20 20 20 74 65 6c 3a 3d 31 3b 0d 0a 20 20 20 20 77 72 69 74 65 6d 6f   ┆ begin      tel:=1;      writemo┆
0x0e60…0e80       64 65 28 33 29 3b 0d 0a 20 20 20 20 69 6e 70 75 74 6d 6f 64 65 28 31 2c 32 29 3b 0d 0a 20 20 20   ┆de(3);      inputmode(1,2);     ┆
0x0e80…0ea0       20 6c 69 6e 69 65 28 2e 32 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 68 65   ┆ linie(.2.):=linie(.1.);      he┆
0x0ea0…0ec0       6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20   ┆llinie(.tel.):=linie(.1.);      ┆
0x0ec0…0ee0       66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75   ┆flag:=false;      linecolor(aktu┆
0x0ee0…0f00       65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 72 71   ┆el_farve);      repeat        rq┆
0x0f00…0f20       6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f   ┆locator(1,xin,yin,status,term,xo┆
0x0f20…0f40       75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 20 20 69 66 20 63 6f 6e 74 72 6c 28 2e 33 2e 29 3e   ┆ut,yout);        if contrl(.3.)>┆
0x0f40…0f60       30 0d 0a 20 20 20 20 20 20 20 20 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e   ┆0          then            begin┆
0x0f60…0f80       0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b   ┆              polyline(2,linie);┆
0x0f80…0fa0       0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3a 3d 78 6f 75 74   ┆              linie(.2.).x:=xout┆
0x0fa0…0fc0       3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29 2e 79 3a 3d 79 6f 75   ┆;              linie(.2.).y:=you┆
0x0fc0…0fe0       74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65   ┆t;              polyline(2,linie┆
0x0fe0…1000       29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 78 69 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e   ┆);              xin:=linie(.2.).┆
0x1000…1020 (4,)  78 3b 79 69 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e 79 3b 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆x;yin:=linie(.2.).y;            ┆
0x1020…1040       65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 63 61 73 65 20 74 65 72 6d 20 6f 66 0d 0a 20 20 20 20 20   ┆end;         case term of       ┆
0x1040…1060       20 20 33 32 3a 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20   ┆  32:           begin           ┆
0x1060…1080       20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 70 6f 6c 79   ┆  writemode(1);             poly┆
0x1080…10a0       6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65   ┆line(2,linie);             write┆
0x10a0…10c0       6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29 3a   ┆mode(3);             linie(.1.):┆
0x10c0…10e0       3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 74 65 6c 3a 3d 74 65   ┆=linie(.2.);             tel:=te┆
0x10e0…1100       6c 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29   ┆l+1;             hellinie(.tel.)┆
0x1100…1120       3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 69 66 20 74 65 6c   ┆:=linie(.2.);             if tel┆
0x1120…1140       20 3e 3d 38 30 20 74 68 65 6e 20 66 6c 61 67 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 20 20   ┆ >=80 then flag:=true;          ┆
0x1140…1160       20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 33 33 3a 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69   ┆ end;         33:           begi┆
0x1160…1180       6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 20 20   ┆n             tel:=tel+1;       ┆
0x1180…11a0       20 20 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 2e 32 2e   ┆      hellinie(.tel.):=linie(.2.┆
0x11a0…11c0       29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 66 6c 61 67 3a 3d 74 72 75 65 0d 0a 20 20 20 20 20   ┆);             flag:=true       ┆
0x11c0…11e0       20 20 20 20 65 6e 64 3b 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a   ┆    end;                  end;  ┆
0x11e0…1200       20 20 20 20 75 6e 74 69 6c 20 66 6c 61 67 3d 74 72 75 65 3b 0d 0a 20 20 20 20 77 72 69 74 65 6d   ┆    until flag=true;      writem┆
0x1200…1220       6f 64 65 28 31 29 3b 20 20 0d 0a 20 20 20 20 69 6e 70 75 74 6d 6f 64 65 28 31 2c 31 29 3b 0d 0a   ┆ode(1);        inputmode(1,1);  ┆
0x1220…1240       20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 74 65 6c 2c 68 65 6c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20   ┆    polyline(tel,hellinie);     ┆
0x1240…1260       20 74 79 62 65 3a 3d 30 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 74 79 70 65 28 78 69 6e 2c 79 69 6e   ┆ tybe:=0;      linietype(xin,yin┆
0x1260…1280       2c 74 79 62 65 29 3b 0d 0a 20 20 20 20 6c 69 6e 65 74 79 70 65 28 74 79 62 65 29 3b 0d 0a 20 20   ┆,tybe);      linetype(tybe);    ┆
0x1280…12a0       20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 20 20   ┆  linecolor(aktuel_farve);      ┆
0x12a0…12c0       70 6f 6c 79 6c 69 6e 65 28 74 65 6c 2c 68 65 6c 6c 69 6e 69 65 29 3b 0d 0a 20 20 65 6e 64 3b 0d   ┆polyline(tel,hellinie);    end; ┆
0x12c0…12e0       0a 20 20 6c 69 6e 65 74 79 70 65 28 30 29 3b 0d 0a 20 20 73 6b 61 65 72 6d 31 3b 0d 0a 65 6e 64   ┆   linetype(0);    skaerm1;  end┆
0x12e0…1300       3b 0d 0a 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88   ┆;    (*                         ┆
0x1300…1320       88 88 88 88 88 88 88 88 88 88 88 88 88 20 2a 29 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 70 6f   ┆              *)    procedure po┆
0x1320…1340       6c 79 67 6f 6e 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 3a 69 6e 74 65 67 65 72 3b 76 61 72 20 78   ┆lygon(aktuel_farve:integer;var x┆
0x1340…1360       69 6e 2c 79 69 6e 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 74 65 6c 2c 73   ┆in,yin:integer);    var    tel,s┆
0x1360…1380       74 61 74 75 73 2c 74 65 72 6d 2c 0d 0a 20 20 78 6f 75 74 2c 79 6f 75 74 20 20 20 20 20 20 20 20   ┆tatus,term,    xout,yout        ┆
0x1380…13a0       20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 6c 69 6e 69 65 20 20 20 20 20 20 20 20 20 20 20   ┆  : integer;    linie           ┆
0x13a0…13c0       20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 32 2e 29 20 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 68   ┆   : array(.1..2.) of coor;    h┆
0x13c0…13e0       65 6c 6c 69 6e 69 65 20 20 20 20 20 20 20 20 20 20 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 38 30   ┆ellinie           : array(.1..80┆
0x13e0…1400       2e 29 20 6f 66 20 63 6f 6f 72 3b 0d 0a 20 20 66 6c 61 67 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆.) of coor;    flag             ┆
0x1400…1420 (5,)  20 20 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 0d 0a 62 65 67 69 6e 0d 0a 20 20 6f 72 64 72 65   ┆  : boolean;      begin    ordre┆
0x1420…1440       28 27 50 4f 4c 59 47 4f 4e 27 2c 27 27 29 3b 0d 0a 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65 3b 0d   ┆('POLYGON','');    flag:=false; ┆
0x1440…1460       0a 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d 0a 20 20 72   ┆   linecolor(aktuel_farve);    r┆
0x1460…1480       65 70 65 61 74 0d 0a 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78 69 6e 2c 79 69 6e 2c 73   ┆epeat      rqlocator(1,xin,yin,s┆
0x1480…14a0       74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a 20 20 20 20 79 69 6e 3a   ┆tatus,term,xout,yout);      yin:┆
0x14a0…14c0       3d 79 6f 75 74 3b 78 69 6e 3a 3d 78 6f 75 74 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29   ┆=yout;xin:=xout;      linie(.1.)┆
0x14c0…14e0       2e 78 3a 3d 78 6f 75 74 3b 6c 69 6e 69 65 28 2e 31 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20   ┆.x:=xout;linie(.1.).y:=yout;    ┆
0x14e0…1500       75 6e 74 69 6c 20 28 79 6f 75 74 3c 3d 32 39 38 35 30 29 20 6f 72 20 28 74 65 72 6d 3d 33 33 29   ┆until (yout<=29850) or (term=33)┆
0x1500…1520       3b 0d 0a 20 20 69 66 20 74 65 72 6d 3c 3e 33 33 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20   ┆;    if term<>33 then begin     ┆
0x1520…1540       20 74 65 6c 3a 3d 31 3b 0d 0a 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20   ┆ tel:=1;      writemode(3);     ┆
0x1540…1560       20 69 6e 70 75 74 6d 6f 64 65 28 31 2c 32 29 3b 0d 0a 20 20 20 20 6c 69 6e 69 65 28 2e 32 2e 29   ┆ inputmode(1,2);      linie(.2.)┆
0x1560…1580       3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c   ┆:=linie(.1.);      hellinie(.tel┆
0x1580…15a0       2e 29 3a 3d 6c 69 6e 69 65 28 2e 31 2e 29 3b 0d 0a 20 20 20 20 66 6c 61 67 3a 3d 66 61 6c 73 65   ┆.):=linie(.1.);      flag:=false┆
0x15a0…15c0       3b 0d 0a 20 20 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65 29 3b 0d   ┆;      linecolor(aktuel_farve); ┆
0x15c0…15e0       0a 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 72 71 6c 6f 63 61 74 6f 72 28 31 2c 78   ┆     repeat        rqlocator(1,x┆
0x15e0…1600       69 6e 2c 79 69 6e 2c 73 74 61 74 75 73 2c 74 65 72 6d 2c 78 6f 75 74 2c 79 6f 75 74 29 3b 0d 0a   ┆in,yin,status,term,xout,yout);  ┆
0x1600…1620       20 20 20 20 20 20 69 66 20 63 6f 6e 74 72 6c 28 2e 33 2e 29 3e 30 0d 0a 20 20 20 20 20 20 20 20   ┆      if contrl(.3.)>0          ┆
0x1620…1640       74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20   ┆then           begin            ┆
0x1640…1660       20 70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20   ┆ polyline(2,linie);             ┆
0x1660…1680       6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3a 3d 78 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20   ┆linie(.2.).x:=xout;             ┆
0x1680…16a0       6c 69 6e 69 65 28 2e 32 2e 29 2e 79 3a 3d 79 6f 75 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20   ┆linie(.2.).y:=yout;             ┆
0x16a0…16c0       70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 78   ┆polyline(2,linie);             x┆
0x16c0…16e0       69 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 2e 78 3b 79 69 6e 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29   ┆in:=linie(.2.).x;yin:=linie(.2.)┆
0x16e0…1700       2e 79 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 63 61 73 65 20   ┆.y;           end;         case ┆
0x1700…1720       74 65 72 6d 20 6f 66 0d 0a 20 20 20 20 20 20 20 33 32 3a 0d 0a 20 20 20 20 20 20 20 20 20 62 65   ┆term of         32:           be┆
0x1720…1740       67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 3b 0d 0a 20   ┆gin             writemode(1);   ┆
0x1740…1760       20 20 20 20 20 20 20 20 20 20 70 6f 6c 79 6c 69 6e 65 28 32 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20   ┆          polyline(2,linie);    ┆
0x1760…1780       20 20 20 20 20 20 20 20 20 77 72 69 74 65 6d 6f 64 65 28 33 29 3b 0d 0a 20 20 20 20 20 20 20 20   ┆         writemode(3);          ┆
0x1780…17a0       20 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 6c 69   ┆   tel:=tel+1;             helli┆
0x17a0…17c0       6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20   ┆nie(.tel.):=linie(.2.);         ┆
0x17c0…17e0       20 20 20 20 6c 69 6e 69 65 28 2e 31 2e 29 3a 3d 6c 69 6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20   ┆    linie(.1.):=linie(.2.);     ┆
0x17e0…1800       20 20 20 20 20 20 20 20 69 66 20 74 65 6c 20 3e 3d 37 39 20 74 68 65 6e 20 66 6c 61 67 3a 3d 74   ┆        if tel >=79 then flag:=t┆
0x1800…1820 (6,)  72 75 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 33 33 3a 20   ┆rue;           end;         33: ┆
0x1820…1840       0d 0a 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 66 6c 61   ┆           begin             fla┆
0x1840…1860       67 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b   ┆g:=true;             tel:=tel+1;┆
0x1860…1880       0d 0a 20 20 20 20 20 20 20 20 20 20 20 68 65 6c 6c 69 6e 69 65 28 2e 74 65 6c 2e 29 3a 3d 6c 69   ┆             hellinie(.tel.):=li┆
0x1880…18a0       6e 69 65 28 2e 32 2e 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 65 6e 64 3b 20 20 20 20 20 20 20 20   ┆nie(.2.);           end;        ┆
0x18a0…18c0       20 0d 0a 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 75 6e 74 69 6c 20 66 6c 61 67 3d   ┆          end;       until flag=┆
0x18c0…18e0       74 72 75 65 3b 0d 0a 20 20 20 6c 69 6e 65 63 6f 6c 6f 72 28 61 6b 74 75 65 6c 5f 66 61 72 76 65   ┆true;     linecolor(aktuel_farve┆
0x18e0…1900       29 3b 0d 0a 20 20 20 77 72 69 74 65 6d 6f 64 65 28 31 29 3b 20 20 0d 0a 20 20 20 69 6e 70 75 74   ┆);     writemode(1);       input┆
0x1900…1920       6d 6f 64 65 28 31 2c 31 29 3b 0d 0a 20 20 20 74 65 6c 3a 3d 74 65 6c 2b 31 3b 0d 0a 20 20 20 68   ┆mode(1,1);     tel:=tel+1;     h┆
[…truncated at 200 lines…]