DataMuseum.dk

top - metrics - download

    Length: 1271 (0x4f7)
    Types: TextFile
    Names: »FIGUR19.PAS«

└─⟦d4ddf50a0⟧ Bits:30004478 CPI-graf 2.5 til Piccoline/Partner
    └─⟦this⟧ »FIGUR19.PAS« 

TextFile

PROGRAM dialogkasser;
uses crt, cpigraf, cpimenu;

CONST
        dialogtext: ARRAY Æ1..6Å OF STRINGÆ40Å =
        ('Indl▶91◀s en post til databasen',
        '==================================================',
        '',
        'NAVN         :',
        'ADRESSE      :',
        'Tlf          :');

        OkText: stringÆ2Å = 'OK';
TYPE
        PersonPost = RECORD
                navn: STRINGÆ30Å;
                adresse: STRINGÆ25Å;
                telefon: REAL;
        END;
     
VAR
        person: PersonPost;
        Resource: ResourceType;

BEGIN
        WITH person DO BEGIN
                navn:='Jensen';
                adresse:= 'Vestvej 37, K▶9b◀benahavn';
                telefon :=01234567.0;
        END;

        GraphicScreen(IBM_high);
        NewResource(resource,10,10,'Accepter med <retur> - fortryd med <ESC>');
        AdDialog(0,0,5,'');
        Dlg_AddText(0,0,40,6,dialogtext,'0');
        Dlg_AddStr(15,3,30,person.navn,'1');
        Dlg_AddStr(15,4,25,person.adresse,'2');
        Dlg_AddReal(15,5,10,person.telefon,'3');
        Dlg_AddText(30,0,2,1,oktext,'4');

        Selectresource(resource);
        ResourceDisplay;
        IF men_selec= '4' then writeln('Posten er opdataret');
END.

«eof»