|
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 - metrics - download
Length: 9600 (0x2580)
Names: »BAGIND50.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »BAGIND50.PAS«
0x0000…0020 (0,) 70 72 6f 67 72 61 6d 20 62 61 67 69 6e 64 3b 0d 0a 74 79 70 65 0d 0a 20 20 20 20 73 74 72 65 6e ┆program bagind; type stren┆
0x0020…0040 67 31 36 20 3d 20 73 74 72 69 6e 67 28 2e 31 36 2e 29 3b 0d 0a 20 20 20 20 72 65 67 5f 74 79 70 ┆g16 = string(.16.); reg_typ┆
0x0040…0060 65 3d 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 61 78 2c 62 78 2c 63 78 2c 64 78 2c 62 70 2c 73 69 ┆e=record ax,bx,cx,dx,bp,si┆
0x0060…0080 2c 64 69 2c 64 73 2c 65 73 2c 66 6c 61 67 73 3a 69 6e 74 65 67 65 72 0d 0a 20 20 20 20 65 6e 64 ┆,di,ds,es,flags:integer end┆
0x0080…00a0 3b 0d 0a 76 61 72 0d 0a 20 20 20 20 72 65 67 3a 72 65 67 5f 74 79 70 65 3b 0d 0a 20 20 20 20 70 ┆; var reg:reg_type; p┆
0x00a0…00c0 69 78 3a 61 72 72 61 79 28 2e 30 2e 2e 31 35 38 33 39 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 20 ┆ix:array(.0..15839.) of integer ┆
0x00c0…00e0 61 74 20 24 64 30 30 30 3a 30 30 30 30 3b 0d 0a 20 20 20 20 74 65 6d 70 3a 61 72 72 61 79 28 2e ┆at $d000:0000; temp:array(.┆
0x00e0…0100 30 2e 2e 31 35 38 33 39 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 63 68 3a 63 ┆0..15839.) of integer; ch:c┆
0x0100…0120 68 61 72 3b 0d 0a 20 20 20 20 62 72 65 64 64 65 2c 68 6f 65 6a 64 65 2c 71 2c 69 2c 6d 2c 6e 2c ┆har; bredde,hoejde,q,i,m,n,┆
0x0120…0140 70 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 2c ┆p:integer; xkoordinat_blok,┆
0x0140…0160 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 2c 76 69 64 65 6f 6c 69 6e 69 65 72 2c 0d 0a 20 ┆ykoordinat_linie,videolinier, ┆
0x0160…0180 20 20 20 62 6c 6f 6b 6b 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 ┆ blokke : integer┆
0x0180…01a0 3b 0d 0a 20 20 20 20 65 66 74 65 72 6e 61 76 6e 5f 68 65 6c 20 20 20 20 20 20 20 20 20 3a 20 73 ┆; efternavn_hel : s┆
0x01a0…01c0 74 72 69 6e 67 28 2e 34 2e 29 3b 0d 0a 20 20 20 20 66 69 6c 6e 61 76 6e 3a 66 69 6c 65 20 6f 66 ┆tring(.4.); filnavn:file of┆
0x01c0…01e0 20 69 6e 74 65 67 65 72 3b 20 20 20 20 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 53 6b 61 65 72 6d ┆ integer; function Skaerm┆
0x01e0…0200 32 32 6b 68 7a 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 76 61 72 0d 0a 20 20 6e 76 6d 20 20 20 20 20 ┆22khz: boolean; var nvm ┆
0x0200…0220 20 20 20 20 20 20 20 20 20 20 20 3a 20 5e 62 79 74 65 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 72 65 ┆ : ^byte; begin re┆
0x0220…0240 67 2e 61 78 3a 3d 34 3b 73 77 69 6e 74 28 24 32 38 2c 72 65 67 29 3b 20 6e 76 6d 3a 3d 70 74 72 ┆g.ax:=4;swint($28,reg); nvm:=ptr┆
0x0240…0260 28 72 65 67 2e 65 73 2c 72 65 67 2e 73 69 2b 31 38 29 3b 20 53 6b 61 65 72 6d 32 32 6b 68 7a 3a ┆(reg.es,reg.si+18); Skaerm22khz:┆
0x0260…0280 3d 28 6e 76 6d 5e 3e 3d 32 29 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 69 ┆=(nvm^>=2); end; procedure i┆
0x0280…02a0 6e 69 74 3b 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 66 20 73 6b 61 65 72 6d 32 32 6b 68 7a 20 ┆nit; begin if skaerm22khz ┆
0x02a0…02c0 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 28 2a 70 61 72 74 6e 65 72 73 6b 61 65 72 6d 2a 29 0d ┆then begin (*partnerskaerm*) ┆
0x02c0…02e0 0a 20 20 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 3a 3d 37 32 38 3b 0d 0a 20 20 79 6b 6f 6f ┆ xkoordinat_blok:=728; ykoo┆
0x02e0…0300 72 64 69 6e 61 74 5f 6c 69 6e 69 65 3a 3d 39 33 3b 0d 0a 20 20 76 69 64 65 6f 6c 69 6e 69 65 72 ┆rdinat_linie:=93; videolinier┆
0x0300…0320 3a 3d 33 35 30 3b 0d 0a 20 20 62 6c 6f 6b 6b 65 3a 3d 34 35 3b 0d 0a 20 20 65 66 74 65 72 6e 61 ┆:=350; blokke:=45; efterna┆
0x0320…0340 76 6e 5f 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 ┆vn_hel:='.P60'; end else begi┆
0x0340…0360 6e 0d 0a 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 78 6b 6f 6f ┆n (*piccolineskaerm*) xkoo┆
0x0360…0380 72 64 69 6e 61 74 5f 62 6c 6f 6b 3a 3d 39 33 36 3b 0d 0a 20 20 79 6b 6f 6f 72 64 69 6e 61 74 5f ┆rdinat_blok:=936; ykoordinat_┆
0x0380…03a0 6c 69 6e 69 65 3a 3d 31 32 38 3b 0d 0a 20 20 76 69 64 65 6f 6c 69 6e 69 65 72 3a 3d 32 35 36 3b ┆linie:=128; videolinier:=256;┆
0x03a0…03c0 0d 0a 20 20 62 6c 6f 6b 6b 65 3a 3d 33 35 3b 0d 0a 20 20 65 66 74 65 72 6e 61 76 6e 5f 68 65 6c ┆ blokke:=35; efternavn_hel┆
0x03c0…03e0 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 70 72 6f 63 65 64 75 ┆:='.P50'; end; end; procedu┆
0x03e0…0400 72 65 20 54 61 65 6e 64 53 74 61 74 75 73 6c 69 6e 69 65 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 ┆re TaendStatuslinie; begin w┆
0x0400…0420 (1,) 72 69 74 65 28 40 32 37 27 31 27 29 3b 0d 0a 65 6e 64 3b 20 20 0d 0a 28 2a 20 ac ac ac ac ac ac ┆rite(@27'1'); end; (* ┆
0x0420…0440 ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 53 6c 75 6b 53 74 61 74 75 73 6c 69 6e ┆ *) procedure SlukStatuslin┆
0x0440…0460 69 65 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 72 69 74 65 28 40 32 37 27 30 27 29 3b 0d 0a 65 6e ┆ie; begin write(@27'0'); en┆
0x0460…0480 64 3b 20 20 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 ┆d; (* *) procedur┆
0x0480…04a0 65 20 66 6a 65 72 6e 28 78 6d 69 6e 2c 78 6d 61 78 2c 79 6d 69 6e 2c 79 6d 61 78 3a 69 6e 74 65 ┆e fjern(xmin,xmax,ymin,ymax:inte┆
0x04a0…04c0 67 65 72 29 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 67 6c 79 6d 69 6e 2c 73 6f 65 6a 6c 65 2c 68 6f ┆ger); var glymin,soejle,ho┆
0x04c0…04e0 65 6a 64 65 2c 0d 0a 20 20 67 65 6d 69 6e 64 65 78 2c 6b 20 20 20 20 20 20 20 20 20 3a 20 69 6e ┆ejde, gemindex,k : in┆
0x04e0…0500 74 65 67 65 72 3b 0d 0a 20 20 70 2c 71 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 63 ┆teger; p,q : c┆
0x0500…0520 68 61 72 3b 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 70 3a 3d 63 68 72 28 30 29 3b 0d 0a 20 20 ┆har; begin p:=chr(0); ┆
0x0520…0540 20 71 3a 3d 63 68 72 28 32 35 35 29 3b 0d 0a 20 20 20 67 6c 79 6d 69 6e 3a 3d 79 6d 69 6e 3b 0d ┆ q:=chr(255); glymin:=ymin; ┆
0x0540…0560 0a 20 20 20 78 6d 69 6e 3a 3d 76 69 64 65 6f 6c 69 6e 69 65 72 2a 72 6f 75 6e 64 28 78 6d 69 6e ┆ xmin:=videolinier*round(xmin┆
0x0560…0580 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 29 3b 0d 0a 20 20 20 78 6d 61 78 3a 3d 76 69 64 ┆/xkoordinat_blok); xmax:=vid┆
0x0580…05a0 65 6f 6c 69 6e 69 65 72 2a 72 6f 75 6e 64 28 78 6d 61 78 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 ┆eolinier*round(xmax/xkoordinat_b┆
0x05a0…05c0 6c 6f 6b 29 3b 0d 0a 20 20 20 79 6d 69 6e 3a 3d 28 76 69 64 65 6f 6c 69 6e 69 65 72 2d 31 29 2d ┆lok); ymin:=(videolinier-1)-┆
0x05c0…05e0 72 6f 75 6e 64 28 79 6d 61 78 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 29 3b 0d 0a 20 ┆round(ymax/ykoordinat_linie); ┆
0x05e0…0600 20 20 79 6d 61 78 3a 3d 28 76 69 64 65 6f 6c 69 6e 69 65 72 2d 31 29 2d 72 6f 75 6e 64 28 67 6c ┆ ymax:=(videolinier-1)-round(gl┆
0x0600…0620 79 6d 69 6e 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 68 6f 65 6a ┆ymin/ykoordinat_linie); hoej┆
0x0620…0640 64 65 3a 3d 79 6d 61 78 2d 79 6d 69 6e 3b 0d 0a 20 20 20 73 6f 65 6a 6c 65 3a 3d 78 6d 69 6e 2b ┆de:=ymax-ymin; soejle:=xmin+┆
0x0640…0660 79 6d 69 6e 3b 0d 0a 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 30 3b 0d 0a 20 20 20 72 65 70 65 61 ┆ymin; gemindex:=0; repea┆
0x0660…0680 74 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 70 69 78 28 2e 73 6f 65 6a 6c 65 2e 29 2c 74 65 ┆t move(pix(.soejle.),te┆
0x0680…06a0 6d 70 28 2e 67 65 6d 69 6e 64 65 78 2e 29 2c 32 2a 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 20 20 ┆mp(.gemindex.),2*hoejde); ┆
0x06a0…06c0 20 20 20 20 66 69 6c 6c 28 70 69 78 28 2e 73 6f 65 6a 6c 65 2e 29 2c 32 2a 68 6f 65 6a 64 65 2c ┆ fill(pix(.soejle.),2*hoejde,┆
0x06c0…06e0 70 29 3b 0d 0a 20 20 20 20 20 20 20 20 73 6f 65 6a 6c 65 3a 3d 73 6f 65 6a 6c 65 2b 76 69 64 65 ┆p); soejle:=soejle+vide┆
0x06e0…0700 6f 6c 69 6e 69 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 67 65 6d 69 ┆olinier; gemindex:=gemi┆
0x0700…0720 6e 64 65 78 2b 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 73 6f 65 6a 6c 65 3e 78 6d ┆ndex+hoejde; until soejle>xm┆
0x0720…0740 61 78 3b 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ┆ax; end; (* ┆
0x0740…0760 88 88 88 88 88 88 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 ┆ *) proced┆
0x0760…0780 75 72 65 20 72 65 74 75 72 28 78 6d 69 6e 2c 78 6d 61 78 2c 79 6d 69 6e 2c 79 6d 61 78 3a 69 6e ┆ure retur(xmin,xmax,ymin,ymax:in┆
0x0780…07a0 74 65 67 65 72 29 3b 0d 0a 76 61 72 20 67 6c 79 6d 69 6e 2c 73 6f 65 6a 6c 65 2c 68 6f 65 6a 64 ┆teger); var glymin,soejle,hoejd┆
0x07a0…07c0 65 2c 67 65 6d 69 6e 64 65 78 3a 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 67 ┆e,gemindex:integer; begin g┆
0x07c0…07e0 6c 79 6d 69 6e 3a 3d 79 6d 69 6e 3b 0d 0a 20 20 20 78 6d 69 6e 3a 3d 32 35 36 2a 72 6f 75 6e 64 ┆lymin:=ymin; xmin:=256*round┆
0x07e0…0800 28 78 6d 69 6e 2f 39 33 36 29 3b 0d 0a 20 20 20 78 6d 61 78 3a 3d 32 35 36 2a 72 6f 75 6e 64 28 ┆(xmin/936); xmax:=256*round(┆
0x0800…0820 (2,) 78 6d 61 78 2f 39 33 36 29 3b 0d 0a 20 20 20 79 6d 69 6e 3a 3d 32 35 35 2d 72 6f 75 6e 64 28 79 ┆xmax/936); ymin:=255-round(y┆
0x0820…0840 6d 61 78 2f 31 32 38 29 3b 0d 0a 20 20 20 79 6d 61 78 3a 3d 32 35 35 2d 72 6f 75 6e 64 28 67 6c ┆max/128); ymax:=255-round(gl┆
0x0840…0860 79 6d 69 6e 2f 31 32 38 29 3b 0d 0a 20 20 20 68 6f 65 6a 64 65 3a 3d 79 6d 61 78 2d 79 6d 69 6e ┆ymin/128); hoejde:=ymax-ymin┆
0x0860…0880 3b 0d 0a 20 20 20 73 6f 65 6a 6c 65 3a 3d 78 6d 69 6e 2b 79 6d 69 6e 3b 0d 0a 20 20 20 67 65 6d ┆; soejle:=xmin+ymin; gem┆
0x0880…08a0 69 6e 64 65 78 3a 3d 30 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 6d 6f ┆index:=0; repeat mo┆
0x08a0…08c0 76 65 28 74 65 6d 70 28 2e 67 65 6d 69 6e 64 65 78 2e 29 2c 70 69 78 28 2e 73 6f 65 6a 6c 65 2e ┆ve(temp(.gemindex.),pix(.soejle.┆
0x08c0…08e0 29 2c 32 2a 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 73 6f 65 6a 6c 65 3a 3d 73 6f ┆),2*hoejde); soejle:=so┆
0x08e0…0900 65 6a 6c 65 2b 32 35 36 3b 0d 0a 20 20 20 20 20 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 67 65 6d ┆ejle+256; gemindex:=gem┆
0x0900…0920 69 6e 64 65 78 2b 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 73 6f 65 6a 6c 65 3e 78 ┆index+hoejde; until soejle>x┆
0x0920…0940 6d 61 78 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 74 79 70 65 0d 0a 20 20 73 74 72 65 6e 67 32 30 3d 73 ┆max; end; type streng20=s┆
0x0940…0960 74 72 69 6e 67 28 2e 32 30 2e 29 3b 0d 0a 20 20 73 74 72 65 6e 67 38 30 3d 73 74 72 69 6e 67 28 ┆tring(.20.); streng80=string(┆
0x0960…0980 2e 38 30 2e 29 3b 0d 0a 76 61 72 0d 0a 20 20 73 74 72 65 6e 67 3a 20 73 74 72 65 6e 67 38 30 3b ┆.80.); var streng: streng80;┆
0x0980…09a0 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 28 2a 24 55 2b 2a 29 20 28 2a 20 43 ┆ (* *) (*$U+*) (* C┆
0x09a0…09c0 54 52 4c 2b 43 20 63 68 65 63 6b 20 66 6f 72 20 68 76 65 72 20 70 72 6f 67 72 61 6d 6c 69 6e 69 ┆TRL+C check for hver programlini┆
0x09c0…09e0 65 20 2a 29 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 ┆e *) (* *) procedur┆
0x09e0…0a00 65 20 54 61 65 6e 64 43 75 72 73 6f 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 72 69 74 65 28 40 ┆e TaendCursor; begin write(@┆
0x0a00…0a20 32 37 27 65 27 29 3b 0d 0a 65 6e 64 3b 20 20 20 20 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac ┆27'e'); end; (* ┆
0x0a20…0a40 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 53 6c 75 6b 43 75 72 73 6f 72 3b 0d 0a 62 65 67 69 ┆ *) procedure SlukCursor; begi┆
0x0a40…0a60 6e 20 20 0d 0a 20 20 77 72 69 74 65 28 40 32 37 27 66 27 29 3b 0d 0a 65 6e 64 3b 20 20 20 20 0d ┆n write(@27'f'); end; ┆
0x0a60…0a80 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 65 64 75 72 65 20 52 61 6d ┆ (* *) procedure Ram┆
0x0a80…0aa0 6d 65 28 78 31 2c 79 31 2c 78 32 2c 79 32 3a 20 69 6e 74 65 67 65 72 29 3b 0d 0a 76 61 72 0d 0a ┆me(x1,y1,x2,y2: integer); var ┆
0x0aa0…0ac0 20 20 78 2c 79 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 67 6f 74 6f 78 79 ┆ x,y: integer; begin gotoxy┆
0x0ac0…0ae0 28 78 31 2c 79 32 29 3b 20 77 72 69 74 65 28 27 8b 27 29 3b 0d 0a 20 20 66 6f 72 20 78 3a 3d 28 ┆(x1,y2); write(' '); for x:=(┆
0x0ae0…0b00 78 31 2b 31 29 20 74 6f 20 28 78 32 2d 31 29 20 64 6f 20 77 72 69 74 65 28 27 88 27 29 3b 20 77 ┆x1+1) to (x2-1) do write(' '); w┆
0x0b00…0b20 72 69 74 65 28 27 8c 27 29 3b 0d 0a 20 20 66 6f 72 20 79 3a 3d 28 79 32 2b 31 29 20 74 6f 20 28 ┆rite(' '); for y:=(y2+1) to (┆
0x0b20…0b40 79 31 2d 31 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 78 31 2c 79 29 ┆y1-1) do begin gotoxy(x1,y)┆
0x0b40…0b60 3b 20 77 72 69 74 65 28 27 89 27 29 3b 0d 0a 20 20 20 20 67 6f 74 6f 78 79 28 78 32 2c 79 29 3b ┆; write(' '); gotoxy(x2,y);┆
0x0b60…0b80 20 77 72 69 74 65 28 27 89 27 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 78 ┆ write(' '); end; gotoxy(x┆
0x0b80…0ba0 31 2c 79 31 29 3b 20 77 72 69 74 65 28 27 8d 27 29 3b 0d 0a 20 20 66 6f 72 20 78 3a 3d 28 78 31 ┆1,y1); write(' '); for x:=(x1┆
0x0ba0…0bc0 2b 31 29 20 74 6f 20 28 78 32 2d 31 29 20 64 6f 20 77 72 69 74 65 28 27 88 27 29 3b 20 77 72 69 ┆+1) to (x2-1) do write(' '); wri┆
0x0bc0…0be0 74 65 28 27 8e 27 29 3b 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 ┆te(' '); end; (* *)┆
0x0be0…0c00 0d 0a 70 72 6f 63 65 64 75 72 65 20 53 65 74 46 75 6e 6b 54 61 73 74 28 61 73 63 69 69 3a 20 62 ┆ procedure SetFunkTast(ascii: b┆
0x0c00…0c20 (3,) 79 74 65 3b 20 73 74 72 65 6e 67 3a 20 73 74 72 65 6e 67 32 30 29 3b 0d 0a 62 65 67 69 6e 0d 0a ┆yte; streng: streng20); begin ┆
0x0c20…0c40 20 20 77 72 69 74 65 28 40 32 37 27 3a 27 2b 63 68 72 28 61 73 63 69 69 29 2b 73 74 72 65 6e 67 ┆ write(@27':'+chr(ascii)+streng┆
0x0c40…0c60 2b 40 30 29 3b 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 ┆+@0); end; (* *) p┆
0x0c60…0c80 72 6f 63 65 64 75 72 65 20 53 65 74 46 75 6e 6b 54 61 73 74 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a ┆rocedure SetFunkTaster; begin ┆
0x0c80…0ca0 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 35 2c 40 39 29 3b 20 20 20 28 2a 20 70 69 6c 20 74 ┆ SetFunkTast(75,@9); (* pil t┆
0x0ca0…0cc0 69 6c 20 76 65 6e 73 74 72 65 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 37 2c ┆il venstre *) SetFunkTast(77,┆
0x0cc0…0ce0 40 32 34 29 3b 20 20 28 2a 20 70 69 6c 20 74 69 6c 20 68 7c 6a 72 65 20 2a 29 0d 0a 20 20 53 65 ┆@24); (* pil til højre *) Se┆
0x0ce0…0d00 74 46 75 6e 6b 54 61 73 74 28 37 32 2c 40 32 36 29 3b 20 20 28 2a 20 70 69 6c 20 6f 70 20 2a 29 ┆tFunkTast(72,@26); (* pil op *)┆
0x0d00…0d20 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 38 30 2c 40 31 30 29 3b 20 20 28 2a 20 70 69 6c ┆ SetFunkTast(80,@10); (* pil┆
0x0d20…0d40 20 6e 65 64 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 31 2c 40 32 39 29 3b 20 ┆ ned *) SetFunkTast(71,@29); ┆
0x0d40…0d60 20 28 2a 20 70 69 6c 20 68 6f 6d 65 20 2a 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 38 ┆ (* pil home *) SetFunkTast(8┆
0x0d60…0d80 32 2c 40 34 29 3b 20 20 20 28 2a 20 74 65 67 6e 20 69 6e 64 20 2a 29 0d 0a 20 20 53 65 74 46 75 ┆2,@4); (* tegn ind *) SetFu┆
0x0d80…0da0 6e 6b 54 61 73 74 28 38 33 2c 40 35 29 3b 20 20 20 28 2a 20 73 6c 65 74 20 74 65 67 6e 20 2a 29 ┆nkTast(83,@5); (* slet tegn *)┆
0x0da0…0dc0 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 33 2c 40 32 31 29 3b 20 28 2a 20 41 31 20 2a ┆ SetFunkTast(73,@21); (* A1 *┆
0x0dc0…0de0 29 0d 0a 20 20 53 65 74 46 75 6e 6b 54 61 73 74 28 37 34 2c 40 32 32 29 3b 20 28 2a 20 41 32 20 ┆) SetFunkTast(74,@22); (* A2 ┆
0x0de0…0e00 2a 29 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 ac ac ac ac ac ac ac ac ac ac 20 2a 29 0d 0a 70 72 6f 63 ┆*) end; (* *) proc┆
0x0e00…0e20 65 64 75 72 65 20 49 6e 70 75 74 53 74 72 65 6e 67 28 6b 6f 6c 6f 6e 6e 65 2c 6c 69 6e 69 65 2c ┆edure InputStreng(kolonne,linie,┆
0x0e20…0e40 6d 61 78 5f 6c 61 65 6e 67 64 65 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆max_laengde:integer; ┆
0x0e40…0e60 20 20 20 20 20 20 20 20 20 20 20 20 74 65 67 6e 5f 73 74 6f 65 72 72 65 6c 73 65 3a 20 69 6e 74 ┆ tegn_stoerrelse: int┆
0x0e60…0e80 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6a 65 ┆eger; fje┆
0x0e80…0ea0 72 6e 5f 6d 65 6c 6c 65 6d 72 75 6d 2c 74 65 67 6e 5f 72 61 6d 6d 65 3a 20 62 6f 6f 6c 65 61 6e ┆rn_mellemrum,tegn_ramme: boolean┆
0x0ea0…0ec0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 41 52 20 73 74 72 ┆; VAR str┆
0x0ec0…0ee0 65 6e 67 3a 73 74 72 65 6e 67 38 30 29 3b 0d 0a 0d 0a 28 2a 20 48 76 69 73 20 27 66 6a 65 72 6e ┆eng:streng80); (* Hvis 'fjern┆
0x0ee0…0f00 5f 6d 65 6c 6c 65 6d 72 75 6d 27 3d 54 52 55 45 20 66 6a 65 72 6e 65 73 20 65 76 74 2e 20 6d 65 ┆_mellemrum'=TRUE fjernes evt. me┆
0x0f00…0f20 6c 6c 65 6d 72 75 6d 20 74 69 6c 20 73 69 64 73 74 2c 20 6f 67 73 7d 20 20 20 20 20 20 2a 29 0d ┆llemrum til sidst, også *) ┆
0x0f20…0f40 0a 28 2a 20 70 7d 20 73 6b 7b 72 6d 65 6e 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (* på skærmen. ┆
0x0f40…0f60 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 ┆ ┆
0x0f60…0f80 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 27 74 65 67 6e 5f 73 74 6f 65 72 72 65 ┆ *) (* 'tegn_stoerre┆
0x0f80…0fa0 6c 73 65 27 3d 30 20 7b 6e 64 72 65 72 20 69 6b 6b 65 20 69 6e 64 74 61 73 74 65 64 65 20 62 6f ┆lse'=0 ændrer ikke indtastede bo┆
0x0fa0…0fc0 67 73 74 61 76 65 72 73 20 73 74 7c 72 72 65 6c 73 65 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 ┆gstavers størrelse *) (┆
0x0fc0…0fe0 2a 20 27 74 65 67 6e 5f 73 74 6f 65 72 72 65 6c 73 65 27 3d 31 20 7b 6e 64 72 65 73 20 61 6c 6c ┆* 'tegn_stoerrelse'=1 ændres all┆
0x0fe0…1000 65 20 73 74 6f 72 65 20 62 6f 67 73 74 61 76 65 72 20 74 69 6c 20 73 6d 7d 20 20 20 20 20 20 20 ┆e store bogstaver til små ┆
0x1000…1020 (4,) 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 27 74 65 67 6e 5f 73 74 6f 65 72 72 65 6c 73 ┆ *) (* 'tegn_stoerrels┆
0x1020…1040 65 27 3d 32 20 7b 6e 64 72 65 73 20 61 6c 6c 65 20 73 6d 7d 20 62 6f 67 73 74 61 76 65 72 20 74 ┆e'=2 ændres alle små bogstaver t┆
0x1040…1060 69 6c 20 73 74 6f 72 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 ┆il store *) (* ┆
0x1060…1080 48 76 69 73 20 64 65 72 20 74 72 79 6b 6b 65 73 20 52 45 54 55 52 4e 20 75 64 65 6e 20 61 74 20 ┆Hvis der trykkes RETURN uden at ┆
0x1080…10a0 64 65 72 20 69 6e 64 74 61 73 74 65 73 20 74 65 67 6e 2c 20 72 65 74 75 72 6e 65 72 65 72 20 27 ┆der indtastes tegn, returnerer '┆
0x10a0…10c0 73 74 72 65 6e 67 27 20 2a 29 0d 0a 28 2a 20 64 65 6e 20 74 6f 6d 6d 65 20 73 74 72 65 6e 67 2e ┆streng' *) (* den tomme streng.┆
0x10c0…10e0 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 ┆ ┆
0x10e0…1100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 48 76 ┆ *) (* Hv┆
0x1100…1120 69 73 20 64 65 72 20 74 72 79 6b 6b 65 73 20 45 53 43 41 50 45 2c 20 72 65 74 75 72 6e 65 72 65 ┆is der trykkes ESCAPE, returnere┆
0x1120…1140 72 20 27 73 74 72 65 6e 67 27 20 6b 75 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆r 'streng' kun ┆
0x1140…1160 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 63 68 72 28 32 37 29 2c 20 61 6c 74 73 7d 20 65 73 63 61 ┆ *) (* chr(27), altså esca┆
0x1160…1180 70 65 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 20 20 20 ┆pe. ┆
0x1180…11a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 0d 0a 63 6f 6e 73 74 ┆ *) const┆
0x11a0…11c0 0d 0a 20 20 50 49 4c 5f 48 4f 45 4a 52 45 3d 40 32 34 3b 0d 0a 20 20 50 49 4c 5f 56 45 4e 53 54 ┆ PIL_HOEJRE=@24; PIL_VENST┆
0x11c0…11e0 52 45 3d 40 39 3b 0d 0a 20 20 50 49 4c 5f 48 4f 4d 45 3d 40 32 39 3b 0d 0a 20 20 54 45 47 4e 5f ┆RE=@9; PIL_HOME=@29; TEGN_┆
0x11e0…1200 49 4e 44 3d 40 34 3b 0d 0a 20 20 42 41 43 4b 5f 53 50 41 43 45 3d 40 38 3b 0d 0a 20 20 53 4c 45 ┆IND=@4; BACK_SPACE=@8; SLE┆
0x1200…1220 54 5f 54 45 47 4e 3d 40 35 3b 0d 0a 20 20 53 4c 45 54 5f 52 45 53 54 5f 4c 49 4e 49 45 3d 40 32 ┆T_TEGN=@5; SLET_REST_LINIE=@2┆
0x1220…1240 31 3b 20 28 2a 20 41 31 2d 74 61 73 74 20 2a 29 20 20 0d 0a 20 20 53 4c 45 54 5f 48 45 4c 5f 4c ┆1; (* A1-tast *) SLET_HEL_L┆
0x1240…1260 49 4e 49 45 3d 40 32 32 3b 20 20 28 2a 20 41 32 2d 74 61 73 74 20 2a 29 0d 0a 20 20 52 45 54 55 ┆INIE=@22; (* A2-tast *) RETU┆
0x1260…1280 52 4e 5f 54 41 53 54 3d 40 31 33 3b 0d 0a 20 20 45 53 43 5f 54 41 53 54 3d 40 32 37 3b 0d 0a 0d ┆RN_TAST=@13; ESC_TAST=@27; ┆
0x1280…12a0 0a 20 20 53 4c 55 4b 5f 43 55 52 53 4f 52 3d 40 32 37 27 66 27 3b 0d 0a 20 20 54 41 45 4e 44 5f ┆ SLUK_CURSOR=@27'f'; TAEND_┆
0x12a0…12c0 43 55 52 53 4f 52 3d 40 32 37 27 65 27 3b 0d 0a 20 20 0d 0a 20 20 74 65 67 6e 73 61 65 74 3a 73 ┆CURSOR=@27'e'; tegnsaet:s┆
0x12c0…12e0 65 74 20 6f 66 20 63 68 61 72 3d 28 2e 27 20 27 2e 2e 27 7e 27 2e 29 3b 0d 0a 0d 0a 76 61 72 0d ┆et of char=(.' '..'ü'.); var ┆
0x12e0…1300 0a 20 20 74 65 67 6e 3a 20 63 68 61 72 3b 0d 0a 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 3a 20 61 ┆ tegn: char; streng_tegn: a┆
0x1300…1320 72 72 61 79 28 2e 31 2e 2e 38 30 2e 29 20 6f 66 20 63 68 61 72 3b 0d 0a 20 20 74 65 6d 70 5f 73 ┆rray(.1..80.) of char; temp_s┆
0x1320…1340 74 72 65 6e 67 3a 20 73 74 72 65 6e 67 38 30 3b 0d 0a 20 20 69 2c 78 70 6f 73 3a 20 69 6e 74 65 ┆treng: streng80; i,xpos: inte┆
0x1340…1360 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 66 20 28 74 65 67 6e 5f 72 61 6d 6d 65 3d 74 72 ┆ger; begin if (tegn_ramme=tr┆
0x1360…1380 75 65 29 20 74 68 65 6e 0d 0a 20 20 20 20 52 61 6d 6d 65 28 28 6b 6f 6c 6f 6e 6e 65 2d 32 29 2c ┆ue) then Ramme((kolonne-2),┆
0x1380…13a0 28 6c 69 6e 69 65 2b 31 29 2c 28 6b 6f 6c 6f 6e 6e 65 2b 6d 61 78 5f 6c 61 65 6e 67 64 65 2b 31 ┆(linie+1),(kolonne+max_laengde+1┆
0x13a0…13c0 29 2c 28 6c 69 6e 69 65 2d 31 29 29 3b 20 0d 0a 20 20 73 74 72 65 6e 67 3a 3d 27 27 3b 0d 0a 20 ┆),(linie-1)); streng:=''; ┆
0x13c0…13e0 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 73 74 72 65 ┆ for i:=1 to max_laengde do stre┆
0x13e0…1400 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 78 70 6f 73 3a 3d 31 3b 74 65 ┆ng_tegn(.i.):=' '; xpos:=1;te┆
0x1400…1420 (5,) 67 6e 3a 3d 63 68 72 28 30 29 3b 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 67 6f 74 6f 78 ┆gn:=chr(0); repeat gotox┆
0x1420…1440 79 28 6b 6f 6c 6f 6e 6e 65 2d 31 2b 78 70 6f 73 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 54 61 ┆y(kolonne-1+xpos,linie); Ta┆
0x1440…1460 65 6e 64 43 75 72 73 6f 72 3b 0d 0a 20 20 20 20 72 65 61 64 28 4b 42 44 2c 74 65 67 6e 29 3b 0d ┆endCursor; read(KBD,tegn); ┆
0x1460…1480 0a 20 20 20 20 53 6c 75 6b 43 75 72 73 6f 72 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 69 66 20 28 ┆ SlukCursor; if (┆
0x1480…14a0 74 65 67 6e 20 69 6e 20 74 65 67 6e 73 61 65 74 29 20 61 6e 64 20 28 78 70 6f 73 3c 3d 6d 61 78 ┆tegn in tegnsaet) and (xpos<=max┆
0x14a0…14c0 5f 6c 61 65 6e 67 64 65 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 73 74 72 65 ┆_laengde) then begin stre┆
0x14c0…14e0 6e 67 5f 74 65 67 6e 28 2e 78 70 6f 73 2e 29 3a 3d 74 65 67 6e 3b 0d 0a 20 20 20 20 20 20 78 70 ┆ng_tegn(.xpos.):=tegn; xp┆
0x14e0…1500 6f 73 3a 3d 78 70 6f 73 2b 31 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 74 65 67 6e 29 3b 0d ┆os:=xpos+1; write(tegn); ┆
0x1500…1520 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 ┆ end else begin if (t┆
0x1520…1540 65 67 6e 3d 50 49 4c 5f 56 45 4e 53 54 52 45 29 20 61 6e 64 20 28 78 70 6f 73 3e 3d 32 29 20 74 ┆egn=PIL_VENSTRE) and (xpos>=2) t┆
0x1540…1560 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 78 70 6f 73 2d 31 3b 0d 0a ┆hen begin xpos:=xpos-1; ┆
0x1560…1580 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 ┆ end else begin if (te┆
0x1580…15a0 67 6e 3d 50 49 4c 5f 48 4f 45 4a 52 45 29 20 61 6e 64 20 28 78 70 6f 73 3c 3d 28 6d 61 78 5f 6c ┆gn=PIL_HOEJRE) and (xpos<=(max_l┆
0x15a0…15c0 61 65 6e 67 64 65 2d 31 29 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 78 70 6f ┆aengde-1)) then begin xpo┆
0x15c0…15e0 73 3a 3d 78 70 6f 73 2b 31 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a ┆s:=xpos+1; end else begin ┆
0x15e0…1600 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 53 4c 45 54 5f 52 45 53 54 5f 4c 49 4e 49 45 29 20 ┆ if (tegn=SLET_REST_LINIE) ┆
0x1600…1620 74 68 65 6e 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 78 70 6f 73 20 74 ┆then begin for i:=xpos t┆
0x1620…1640 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 ┆o max_laengde do begin ┆
0x1640…1660 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 20 20 ┆streng_tegn(.i.):=' '; ┆
0x1660…1680 77 72 69 74 65 28 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 65 6e 64 ┆write(' '); end; end┆
0x1680…16a0 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e 3d 53 4c 45 54 ┆ else begin if (tegn=SLET┆
0x16a0…16c0 5f 48 45 4c 5f 4c 49 4e 49 45 29 20 74 68 65 6e 20 62 65 67 69 6e 20 0d 0a 20 20 20 20 20 20 67 ┆_HEL_LINIE) then begin g┆
0x16c0…16e0 6f 74 6f 78 79 28 6b 6f 6c 6f 6e 6e 65 2c 6c 69 6e 69 65 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 ┆otoxy(kolonne,linie); for┆
0x16e0…1700 20 69 3a 3d 6b 6f 6c 6f 6e 6e 65 20 74 6f 20 28 6d 61 78 5f 6c 61 65 6e 67 64 65 2b 6b 6f 6c 6f ┆ i:=kolonne to (max_laengde+kolo┆
0x1700…1720 6e 6e 65 29 20 64 6f 20 77 72 69 74 65 28 27 20 27 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 ┆nne) do write(' '); for i┆
0x1720…1740 3a 3d 31 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 73 74 72 65 6e 67 5f 74 65 67 ┆:=1 to max_laengde do streng_teg┆
0x1740…1760 6e 28 2e 69 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 78 70 6f 73 3a 3d 31 3b 0d 0a 20 20 ┆n(.i.):=' '; xpos:=1; ┆
0x1760…1780 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 20 69 66 20 28 74 65 67 6e ┆ end else begin if (tegn┆
0x1780…17a0 3d 50 49 4c 5f 48 4f 4d 45 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 78 70 6f ┆=PIL_HOME) then begin xpo┆
0x17a0…17c0 73 3a 3d 31 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d 0a 0d 0a 20 20 20 ┆s:=1; end else begin ┆
0x17c0…17e0 20 69 66 20 28 74 65 67 6e 3d 54 45 47 4e 5f 49 4e 44 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a ┆ if (tegn=TEGN_IND) then begin ┆
0x17e0…1800 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 77 6e 74 6f 20 ┆ for i:=max_laengde downto ┆
0x1800…1820 (6,) 28 78 70 6f 73 2b 31 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 73 74 72 65 6e ┆(xpos+1) do begin stren┆
0x1820…1840 67 5f 74 65 67 6e 28 2e 69 2e 29 3a 3d 73 74 72 65 6e 67 5f 74 65 67 6e 28 2e 69 2d 31 2e 29 3b ┆g_tegn(.i.):=streng_tegn(.i-1.);┆
0x1840…1860 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 73 74 72 65 6e 67 5f 74 65 67 6e 28 ┆ end; streng_tegn(┆
0x1860…1880 2e 78 70 6f 73 2e 29 3a 3d 27 20 27 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 78 70 6f 73 ┆.xpos.):=' '; for i:=xpos┆
0x1880…18a0 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 77 72 69 74 65 28 73 74 72 65 6e 67 5f ┆ to max_laengde do write(streng_┆
0x18a0…18c0 74 65 67 6e 28 2e 69 2e 29 29 3b 0d 0a 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0d ┆tegn(.i.)); end else begin ┆
0x18c0…18e0 0a 20 20 20 20 0d 0a 20 20 20 20 69 66 20 28 28 74 65 67 6e 3d 42 41 43 4b 5f 53 50 41 43 45 29 ┆ if ((tegn=BACK_SPACE)┆
0x18e0…1900 20 61 6e 64 20 28 78 70 6f 73 3e 31 29 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 ┆ and (xpos>1)) then begin ┆
0x1900…1920 20 66 6f 72 20 69 3a 3d 78 70 6f 73 20 74 6f 20 6d 61 78 5f 6c 61 65 6e 67 64 65 20 64 6f 20 62 ┆ for i:=xpos to max_laengde do b┆
[…truncated at 200 lines…]