DECLARE SUB boxed_text(x,y,t$) CURSOR 0 SCREEN GRAPHICSCREEN CLS tx=W_PIXEL/5 ty=H_PIXEL/3 boxed_text(tx,ty,"Hallo") cx=tx+((XPOS-tx)/2) cy=ty+6 cr=((XPOS-tx)/2)+3 CIRCLE cx,cy,cr PAINT cx,cy-cr+2 PEN PEN_XOR LINE (cx-cr-2,cy-cr-2)-(cx+cr+2,cy+cr+2),BF IF GRAPHICSCREEN<>0 THEN PAUSE 50 SCREEN 0 END SUB boxed_text(x,y,t$) MOVE x+3,y+2 LABEL t$ LINE (x,y)-(XPOS,y+12),B END SUB |
:'Prozedur deklarieren :'Cursor ausschalten :'Grafikmodus (Grafikbildschirm) einschalten :'Grafikbildschirm loeschen :'eingerahmten Text ausgeben :'Kreis zeichnen :'Kreis ausfuellen :'Bereich mittels XOR-Stift invertieren :'bei separatem Grafikbildschirm warten und dann Bildschirm loeschen :'Textbildschirm einschalten :'Programmende :'Prozedur implementieren :'linke untere Ecke des Textes :'Text ausgeben :'Rahmen zeichnen |