|
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: 2816 (0xb00)
Names: »TILF.PAS«
└─⟦27a1d1812⟧ Bits:30002681 RC-Katalog over EDB-bøger og programmer
└─ ⟦this⟧ »TILF.PAS«
0x000…020 70 72 6f 67 72 61 6d 20 74 69 6c 66 6f 65 6a 3b 0d 0a 0d 0a 74 79 70 65 20 20 70 72 6f 64 75 6b ┆program tilfoej; type produk┆
0x020…040 74 3d 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 70 6c 3a 20 61 72 72 ┆t=record opl: arr┆
0x040…060 61 79 28 2e 31 2e 2e 31 30 2e 29 20 6f 66 20 73 74 72 69 6e 67 28 2e 33 30 2e 29 3b 0d 0a 20 20 ┆ay(.1..10.) of string(.30.); ┆
0x060…080 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 ┆ nr:integer; ┆
0x080…0a0 20 20 20 20 20 20 20 6d 61 72 6b 3a 61 72 72 61 79 28 2e 31 2e 2e 37 2e 29 20 6f 66 20 62 6f 6f ┆ mark:array(.1..7.) of boo┆
0x0a0…0c0 6c 65 61 6e 3b 0d 0a 20 20 20 20 20 20 65 6e 64 3b 0d 0a 0d 0a 0d 0a 76 61 72 20 61 6e 74 61 6c ┆lean; end; var antal┆
0x0c0…0e0 70 6f 73 74 2c 69 2c 6a 3a 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 70 6f 73 74 3a 70 72 6f 64 ┆post,i,j:integer; post:prod┆
0x0e0…100 75 6b 74 3b 0d 0a 20 20 20 20 66 3a 66 69 6c 65 20 6f 66 20 70 72 6f 64 75 6b 74 3b 0d 0a 20 20 ┆ukt; f:file of produkt; ┆
0x100…120 20 20 67 3a 66 69 6c 65 20 6f 66 20 73 74 72 69 6e 67 28 2e 32 35 35 2e 29 3b 0d 0a 20 20 20 20 ┆ g:file of string(.255.); ┆
0x120…140 74 6f 6d 3a 73 74 72 69 6e 67 28 2e 32 30 2e 29 3b 0d 0a 20 20 20 20 63 68 3a 63 68 61 72 3b 0d ┆tom:string(.20.); ch:char; ┆
0x140…160 0a 20 20 20 20 20 20 20 0d 0a 20 20 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 69 6c 66 6f 65 6a ┆ procedure tilfoej┆
0x160…180 6e 79 65 3b 0d 0a 76 61 72 20 6c 69 6e 69 65 3a 73 74 72 69 6e 67 28 2e 36 32 2e 29 3b 0d 0a 20 ┆nye; var linie:string(.62.); ┆
0x180…1a0 20 20 20 62 65 73 6b 72 69 76 65 6c 73 65 3a 61 72 72 61 79 28 2e 31 2e 2e 34 2e 29 20 6f 66 20 ┆ beskrivelse:array(.1..4.) of ┆
0x1a0…1c0 73 74 72 69 6e 67 28 2e 32 35 35 2e 29 3b 0d 0a 20 20 20 20 66 6f 72 6c 61 67 3a 73 74 72 69 6e ┆string(.255.); forlag:strin┆
0x1c0…1e0 67 28 2e 36 30 2e 29 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 77 69 74 68 20 70 6f 73 74 20 64 6f ┆g(.60.); begin with post do┆
0x1e0…200 0d 0a 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 63 6c 72 68 6f 6d 29 3b ┆ begin write(clrhom);┆
0x200…220 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 27 41 4c 4c 45 20 54 45 4b 53 54 45 52 20 42 4f 52 54 ┆ write('ALLE TEKSTER BORT┆
0x220…240 53 45 54 20 46 52 41 20 46 4f 52 4c 41 47 20 45 52 20 4d 41 58 20 33 30 20 54 45 47 4e 2c 20 46 ┆SET FRA FORLAG ER MAX 30 TEGN, F┆
0x240…260 4f 52 4c 41 47 20 45 52 20 36 30 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 33 2c 33 ┆ORLAG ER 60'); gotoxy(3,3┆
0x260…280 29 3b 20 77 72 69 74 65 28 27 54 49 54 45 4c 20 20 20 20 20 20 3a 20 27 29 3b 0d 0a 20 20 20 20 ┆); write('TITEL : '); ┆
0x280…2a0 20 20 67 6f 74 6f 78 79 28 33 2c 35 29 3b 20 77 72 69 74 65 28 27 46 4f 52 46 41 54 54 45 52 20 ┆ gotoxy(3,5); write('FORFATTER ┆
0x2a0…2c0 20 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 33 2c 37 29 3b 20 77 72 69 74 65 ┆ : '); gotoxy(3,7); write┆
0x2c0…2e0 28 27 46 4f 52 4c 41 47 20 20 20 20 20 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 ┆('FORLAG : '); gotoxy┆
0x2e0…300 28 33 2c 39 29 3b 20 77 72 69 74 65 28 27 50 52 49 53 20 20 20 20 20 20 20 3a 20 27 29 3b 0d 0a ┆(3,9); write('PRIS : '); ┆
0x300…320 20 20 20 20 20 20 67 6f 74 6f 78 79 28 33 2c 31 31 29 3b 77 72 69 74 65 28 27 54 45 4c 45 46 4f ┆ gotoxy(3,11);write('TELEFO┆
0x320…340 4e 20 20 20 20 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 33 2c 31 33 29 3b 77 ┆N : '); gotoxy(3,13);w┆
0x340…360 72 69 74 65 28 27 46 41 47 20 20 20 20 20 20 20 20 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f ┆rite('FAG : '); go┆
0x360…380 74 6f 78 79 28 33 2c 31 35 29 3b 77 72 69 74 65 28 27 4b 4c 41 53 53 45 54 52 49 4e 20 3a 20 27 ┆toxy(3,15);write('KLASSETRIN : '┆
0x380…3a0 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 33 2c 31 37 29 3b 77 72 69 74 65 28 27 42 4f ┆); gotoxy(3,17);write('BO┆
0x3a0…3c0 47 2f 53 57 20 20 20 20 20 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 33 2c 31 ┆G/SW : '); gotoxy(3,1┆
0x3c0…3e0 39 29 3b 77 72 69 74 65 28 27 50 52 4f 47 2e 53 50 52 4f 47 20 3a 20 27 29 3b 0d 0a 20 20 20 20 ┆9);write('PROG.SPROG : '); ┆
0x3e0…400 20 20 67 6f 74 6f 78 79 28 31 36 2c 33 29 3b 72 65 61 64 28 6f 70 6c 28 2e 31 2e 29 29 3b 0d 0a ┆ gotoxy(16,3);read(opl(.1.)); ┆
0x400…420 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 36 2c 35 29 3b 72 65 61 64 28 6f 70 6c 28 2e 32 2e 29 ┆ gotoxy(16,5);read(opl(.2.)┆
0x420…440 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 36 2c 37 29 3b 72 65 61 64 28 66 6f 72 6c ┆); gotoxy(16,7);read(forl┆
0x440…460 61 67 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 6c 61 67 3a 3d 66 6f 72 6c 61 67 2b 74 6f 6d 2b 74 ┆ag); forlag:=forlag+tom+t┆
0x460…480 6f 6d 2b 74 6f 6d 3b 0d 0a 20 20 20 20 20 20 6f 70 6c 28 2e 33 2e 29 3a 3d 63 6f 70 79 28 66 6f ┆om+tom; opl(.3.):=copy(fo┆
0x480…4a0 72 6c 61 67 2c 31 2c 33 30 29 3b 0d 0a 20 20 20 20 20 20 6f 70 6c 28 2e 31 30 2e 29 3a 3d 63 6f ┆rlag,1,30); opl(.10.):=co┆
0x4a0…4c0 70 79 28 66 6f 72 6c 61 67 2c 33 31 2c 33 30 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 ┆py(forlag,31,30); gotoxy(┆
0x4c0…4e0 31 36 2c 39 29 3b 72 65 61 64 28 6f 70 6c 28 2e 34 2e 29 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 ┆16,9);read(opl(.4.)); got┆
0x4e0…500 6f 78 79 28 31 36 2c 31 31 29 3b 72 65 61 64 28 6f 70 6c 28 2e 35 2e 29 29 3b 0d 0a 20 20 20 20 ┆oxy(16,11);read(opl(.5.)); ┆
0x500…520 20 20 67 6f 74 6f 78 79 28 31 36 2c 31 33 29 3b 72 65 61 64 28 6f 70 6c 28 2e 36 2e 29 29 3b 0d ┆ gotoxy(16,13);read(opl(.6.)); ┆
0x520…540 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 36 2c 31 35 29 3b 72 65 61 64 28 6f 70 6c 28 2e 37 ┆ gotoxy(16,15);read(opl(.7┆
0x540…560 2e 29 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 36 2c 31 37 29 3b 72 65 61 64 28 6f ┆.)); gotoxy(16,17);read(o┆
0x560…580 70 6c 28 2e 38 2e 29 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 36 2c 31 39 29 3b 72 ┆pl(.8.)); gotoxy(16,19);r┆
0x580…5a0 65 61 64 28 6f 70 6c 28 2e 39 2e 29 29 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 63 6c 72 68 ┆ead(opl(.9.)); write(clrh┆
0x5a0…5c0 6f 6d 29 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 0d 0a 20 20 20 20 20 20 27 49 4e 44 ┆om); writeln( 'IND┆
0x5c0…5e0 54 41 53 54 20 42 45 53 4b 52 49 56 45 4c 53 45 20 3a 20 48 56 45 52 20 4c 49 4e 49 45 20 45 52 ┆TAST BESKRIVELSE : HVER LINIE ER┆
0x5e0…600 20 50 5d 20 36 30 20 54 45 47 4e 2c 20 44 45 52 20 45 52 20 31 36 20 4c 49 4e 49 45 52 27 29 3b ┆ PÅ 60 TEGN, DER ER 16 LINIER');┆
0x600…620 0d 0a 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 56 45 44 20 41 46 53 4c 55 54 4e 49 4e 47 20 ┆ writeln('VED AFSLUTNING ┆
0x620…640 46 5c 52 20 31 36 20 4c 49 4e 49 45 52 2c 20 54 41 53 54 20 45 4e 20 4c 49 4e 49 45 20 4b 55 4e ┆FØR 16 LINIER, TAST EN LINIE KUN┆
0x640…660 20 4d 45 44 20 40 27 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 31 39 20 ┆ MED @'); for i:=1 to 19 ┆
0x660…680 64 6f 0d 0a 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 78 79 ┆do begin gotoxy┆
0x680…6a0 28 36 31 2c 69 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 27 89 27 29 3b 0d 0a 20 ┆(61,i); write(' '); ┆
0x6a0…6c0 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 30 2c 31 39 29 3b 0d 0a ┆ end; gotoxy(0,19); ┆
0x6c0…6e0 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 36 31 20 64 6f 20 77 72 69 74 65 28 27 88 ┆ for i:=1 to 61 do write(' ┆
0x6e0…700 27 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 28 31 2c 33 29 3b 0d 0a 20 20 20 20 20 20 66 ┆'); gotoxy(1,3); f┆
0x700…720 6f 72 20 69 3a 3d 31 20 74 6f 20 34 20 64 6f 20 62 65 73 6b 72 69 76 65 6c 73 65 28 2e 69 2e 29 ┆or i:=1 to 4 do beskrivelse(.i.)┆
0x720…740 3a 3d 27 27 3b 0d 0a 20 20 20 20 20 20 69 3a 3d 30 3b 0d 0a 20 20 20 20 20 20 72 65 70 65 61 74 ┆:=''; i:=0; repeat┆
0x740…760 0d 0a 20 20 20 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 6a 3a 3d ┆ i:=i+1; j:=┆
0x760…780 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆0; repeat ┆
0x780…7a0 20 6a 3a 3d 6a 2b 31 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 61 64 6c 6e 28 6c 69 6e ┆ j:=j+1; readln(lin┆
0x7a0…7c0 69 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6c 69 6e 69 65 3c 3e 27 40 27 20 ┆ie); if linie<>'@' ┆
0x7c0…7e0 74 68 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 73 6b 72 69 76 65 6c 73 65 28 ┆then beskrivelse(┆
0x7e0…800 2e 69 2e 29 3a 3d 62 65 73 6b 72 69 76 65 6c 73 65 28 2e 69 2e 29 2b 6c 69 6e 69 65 2b 63 68 72 ┆.i.):=beskrivelse(.i.)+linie+chr┆
0x800…820 28 31 33 29 2b 63 68 72 28 31 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 75 6e 74 69 6c 20 28 6a ┆(13)+chr(10); until (j┆
0x820…840 3d 34 29 20 6f 72 20 28 6c 69 6e 69 65 3d 27 40 27 29 3b 0d 0a 20 20 20 20 20 20 75 6e 74 69 6c ┆=4) or (linie='@'); until┆
0x840…860 20 28 69 3d 34 29 20 6f 72 20 28 6c 69 6e 69 65 3d 27 40 27 29 3b 0d 0a 20 20 20 20 20 20 61 6e ┆ (i=4) or (linie='@'); an┆
0x860…880 74 61 6c 70 6f 73 74 3a 3d 61 6e 74 61 6c 70 6f 73 74 2b 31 3b 0d 0a 20 20 20 20 20 20 6d 61 72 ┆talpost:=antalpost+1; mar┆
0x880…8a0 6b 28 2e 31 2e 29 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 32 20 74 6f ┆k(.1.):=true; for i:=2 to┆
0x8a0…8c0 20 37 20 64 6f 20 6d 61 72 6b 28 2e 69 2e 29 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 20 20 61 ┆ 7 do mark(.i.):=false; a┆
0x8c0…8e0 73 73 69 67 6e 28 66 2c 27 6b 61 74 64 61 74 61 2e 64 61 74 27 29 3b 0d 0a 20 20 20 20 20 20 72 ┆ssign(f,'katdata.dat'); r┆
0x8e0…900 65 73 65 74 28 66 29 3b 0d 0a 20 20 20 20 20 20 73 65 65 6b 28 66 2c 6c 65 6e 67 74 68 28 66 29 ┆eset(f); seek(f,length(f)┆
0x900…920 29 3b 0d 0a 20 20 20 20 20 20 61 6e 74 61 6c 70 6f 73 74 3a 3d 6c 65 6e 67 74 68 28 66 29 3b 0d ┆); antalpost:=length(f); ┆
0x920…940 0a 20 20 20 20 20 20 6e 72 3a 3d 61 6e 74 61 6c 70 6f 73 74 3b 0d 0a 20 20 20 20 20 20 77 72 69 ┆ nr:=antalpost; wri┆
0x940…960 74 65 28 66 2c 70 6f 73 74 29 3b 0d 0a 20 20 20 20 20 20 63 6c 6f 73 65 28 66 29 3b 0d 0a 20 20 ┆te(f,post); close(f); ┆
0x960…980 20 20 20 20 61 73 73 69 67 6e 28 67 2c 27 62 65 73 6b 72 69 76 2e 64 61 74 27 29 3b 0d 0a 20 20 ┆ assign(g,'beskriv.dat'); ┆
0x980…9a0 20 20 20 20 72 65 73 65 74 28 67 29 3b 0d 0a 20 20 20 20 20 20 73 65 65 6b 28 67 2c 6c 65 6e 67 ┆ reset(g); seek(g,leng┆
0x9a0…9c0 74 68 28 67 29 29 3b 0d 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 34 20 64 6f 20 ┆th(g)); for i:=1 to 4 do ┆
0x9c0…9e0 77 72 69 74 65 28 67 2c 62 65 73 6b 72 69 76 65 6c 73 65 28 2e 69 2e 29 29 3b 0d 0a 20 20 20 20 ┆write(g,beskrivelse(.i.)); ┆
0x9e0…a00 20 20 63 6c 6f 73 65 28 67 29 3b 0d 0a 20 20 20 65 6e 64 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 62 65 ┆ close(g); end; end; be┆
0xa00…a20 67 69 6e 0d 0a 20 20 20 74 6f 6d 3a 3d 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gin tom:=' ┆
0xa20…a40 20 20 27 3b 0d 0a 20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 74 69 6c 66 6f 65 6a 6e 79 ┆ '; repeat tilfoejny┆
0xa40…a60 65 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 72 76 73 6f 6e 2c 27 5c 4e 53 4b 45 53 20 46 4c ┆e; write(rvson,'ØNSKES FL┆
0xa60…a80 45 52 45 20 54 49 4c 46 5c 4a 45 54 20 2d 20 4a 2f 4e 27 2c 72 76 73 6f 66 66 29 3b 0d 0a 20 20 ┆ERE TILFØJET - J/N',rvsoff); ┆
0xa80…aa0 20 20 20 20 72 65 61 64 28 63 68 29 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 6e 6f 74 20 28 63 68 20 ┆ read(ch); until not (ch ┆
0xaa0…ac0 69 6e 20 28 2e 27 4a 27 2c 27 6a 27 2e 29 29 3b 0d 0a 65 6e 64 2e 1a 1a 1a 1a 1a 1a e8 e8 de 02 ┆in (.'J','j'.)); end. ┆
0xac0…ae0 00 40 17 e0 1f 8b ec e8 41 fb f7 06 92 27 e9 54 06 55 8b ec 55 e9 00 00 81 ec 7c 04 e8 72 f2 bf ┆ @ A ' T U U ø r ┆
0xae0…b00 58 00 0e e8 71 e0 b8 00 00 e8 34 f6 e8 cc fe e8 5f f2 e8 60 f6 3c 41 4c 4c 45 20 54 45 4b 53 54 ┆X q 4 _ ` <ALLE TEKST┆