browse.prg

来自「用汇编语言或高级语言编写的源程序翻译成机器可执行的机器语言程序的工具称为“语言处」· PRG 代码 · 共 21 行

clear typeahead
on escape do escout
on key label escape do escout
set escape on
activate screen
clear

set blink off
do bigchars with 8,20,"Browse"
do apause
for cnt = 1 to 6
	release window ("letter"+alltrim(str(cnt)))
endfor
set blink on
set sysmenu to default
set sysmenu automatic

DEFINE WINDOW browse1 from 18,5 to 21,75 DOUBLE COLOR SCHEME 12 TITLE " FoxPro 2.5 - BROWSE " SHADOW
ACTIVATE WINDOW browse1
@ 0,1 say " FoxPro offers an incredible tool for viewing and editing your" 
@ 1,1 say " data