Turbo Toolbox/Turbo_Toolbox.iso/dtx9101/diskarch/rahmen.prg

Text File | 1991-09-25 | 281 b | 15 lines

* Unter Programm:  R A H M E N
SET COLOR TO (FARBE7)
@ 3,1,21,78 BOX space(40)
@ 2,0,21,79 BOX Rahme_ein
@ 0,0 TO 2,79 double
@ 2,0 SAY "╠"
@ 2,79 SAY "╣"
@ 21,0 TO 23,79 DOUBLE
@ 21,0 say "╠"
@ 21,79 say "╣"
@ 24,0
set color to (farbe4)
*@ 3,1 clear to 20,78
return