... ..- -.-. -.-. . ... ... ..-. ..- .-.. ... ..- -.-. -.-. . ... ... ..-. ..- .-.. .-- .. ... .....-- .. ... ....-.-- --- ..- .-.-.-- --- ..- .-.- .... .- .... ..... .. .... .. --. ....--. ....... -.-. .... --- --- .-..... -.-. .... --- --- .-... -. - .-. .- -. -.-. .. -. - .-. .- -. -.-. .. -..- .- -- .. -. .- - .. --- -.. -..- .- -- .. -. .- - .. --- -.字符 代码 字符 代码 字符 代码 字符 代码A·-B-···C-·-·D-··E·F··-·G--·H····I··J·---K-·-L·-··M--N-·O---P·--·Q--·-R·-·S···T-U··-V···-W·--X-··-Y-·--Z--··... ..- -.-. -.-. . ... ... ..-. ..- .-.. .-- .. ... ....-.-- --- ..- .-.- .... ..... .. --. ....... -.-. .... --- --- .-... -. - .-. .- -. -.-. .. -..- .- -- .. -. .- - .. --- -.01000010 010001010 01010011010101000101011101001001010100110100100001000101001010011include windows.incinclude user32.incincludelib user32.libinclude kernel32.incincludelib kernel32.libCaptiondb ' 抬头串 ',0Textdb 'Hello!',0.codepublic startstartproc nearpush0;uTypepushoffset Captionpushoffset Textpush0;hWndcallMessageBoxApush0;uExitCodecallExitProcessstartendpend startdirb0=%11100000pinb0=0 dirb1=%11110000pinb1=0pause 1000 loop1: if pin14=0 then lt if pin15=0 then rt pinb0=%00000101 pin4=1 pause 10 pin4=0 pause 10 goto loop1lt: pinb0=%00000110 pin4=1 pause 30 pin4=0 pause 10 goto loop1rt: pinb0=%00001001 pin4=1 pause 30 pin4=0 pause 10 goto loop1•程序设计语言的发展史第一代语言：机器语言和汇编语言第二代语言：早期的高级语言，如 BASIC ，FORTRAN ， COBOL 等第三代语言：具有很强的数据结构和过程描述能力，支持结构化编程，如Pascal ， C ， Ada 等•程序设计语言的发展史第四代语言（ 4GL ）：这类语言出现于七十年代，其目的是为了提高程序开发速度，以及让非专业用户能直接编制计算机程序典型的 4GL 有：数据库查询语言、报表生成程序、应用生成程序、电子表格、图形语言等。 多数 4GL 是面向领域的，很少是通用的。
