PC Logo 又称Logo小海龟,是一种面向青少年的程式语言,通过程式控制一个小海龟(箭头)移动并进行绘图。
基本介绍
- 中文名:Logo小海龟
- 外文名:PC Logo
基本语句
DRAW - 清屏、海龟、画布颜色、海龟颜色恢复至初始设定
CLEAN 清屏,海龟、笔色、画布颜色、海龟位置角度不变
CLEARSCREEN CS (CS简写清屏)清屏,海龟回到初始位置,笔色、画布颜色不变
CLEARTEXT CT 清除命令区
FORWARD FD 前进 (fd简写前进)
BACK BK 后退 (bk简写后退)
RIGHT RT 右转 (rt简写右转)
LEFT LT 左转 (lt简写左转)
PENUP PU 抬笔(pu简写抬笔)
PENDOWN PD 落笔(pd简写落笔)
HIDETURTLE HT 藏龟(ht简写藏龟)
SHOWTURTLE ST 显龟
CLEARSCREEN CS 清屏
HOME - 回原点
REPEAT - 重複
SPLITSCREEN SS 图文混合屏
FULLSCREEN FS 全图形屏
TEXTSCREEN TS 全文字屏
NODRAW ND 全文字屏、清屏
WRAP - 环绕状态
WINDOW - 视窗状态
FENCE - 围栏状态
SHOW - 萤幕输出
TT - 在画图区显示文字
TO……END - 过程头、尾
IF…THEN…ELSE
PAUSE
CONTINUE CO
EDIT ALL - 进入编辑部
STOP -
TOPLEVEL -
SETPC - 设定画笔颜色
SETBG - 设定萤幕底色
FILL-填色
坐标作图
SETX - 指定海龟横向位置
SETY - 指定海龟纵向位置
SETXY - 指定海龟任意位置
SETHEADING SETH - 指定海龟方向
XCOR - 显示海龟当前位置的X坐标
YCOR - 显示海龟当前位置的Y坐标
GETXY - 显示海龟当前位置的X,Y坐标
HEADING - 显示海龟指向角度
档案管理
POTS - 显示工作区内所有过程的标题
POPS(PO ALL) - 显示工作区内所有过程的内容
PRINTOUT PO 显示工作区内过程的内容
ERASE(ER ALL) ER 删除工作区中的过程
DIRECTORY DIR 显示磁碟档案目录
DISK - 显示当前盘
SETDISK - 设定当前盘
SAVE - 把程式存档
LOAD - 读程式档案
SAVEPIC - 图形存档
LOADPIC - 读图形档案
DELETE - 删除档案
RENAME REN 档案改名
数值计算
PRINT PR 换行列印
TYPE - 同行列印
SETCURSOR - 列印格式
OUTPUT OP 输出
INT - 取整函式
ROUND - 四捨五入函式
QUOTIENT - 求商函式
REMAINDER - 余数函式
RANDOM - 随机函式
SQRT - 平方根函式
ABS - 绝对值函式
MAKE - 赋值
PRECISION - 数字显示精度
字表处理
FIRST - 取首
LAST - 取尾
BUTFIRST BF 去首
BUTLAST BL 去尾
EMPTY? - 判断是否为空
READ - 从键盘上接受一串字元
READCHAR RC 从键盘上接受一个字元
READLIST RL 从键盘上接受一个表
READQUOTE RQ 从键盘上接受一个字
RESULT: - 结果
TRUE - 真
FALSE - 假
COUNT - 测长函式
MAKE - 赋值
ITEM - 输出表中第:K个元素
TEST - 测试条件
IFTRUE IFT 测试真
IFFALSE IFF 测试假
KEY? - 是否有键盘输入
NUMBER? - 是否是数
WORD? - 是否是字
LIST? - 是否是表
WORD - 连线字
SENTENCE SE 字与表、表与表的连线
FPUT - 连线到表(字)首
LPUT - 连线到表(字)尾
LIST - 组成表
RUN - 运行表
DEFINE - 定义过程
ASCII - 输出字元的ASCII码
CHAR - 输出ASCII码值的字元
示例(基础的几何图形绘製)
正方形
TO ZFX :B
stamprect :b :b
END
长方形
TO CFX :A :B
stamprect :a :b
END
三角形
TO SJX :B
REPEAT 3 [FD :B RT 120]
END
多边形
TO DBX :N :B
REPEAT :N [FD :B RT 360 / :N]
END
圆
TO YUAN :R
REPEAT 360[fd90rt 1]
END
TO LHU :N :R
REPEAT :N [FD :R * PI / 180 LT 1]
END
TO RHU :N :R
REPEAT :N [FD :R * PI / 180 RT 1]
END
TO LY :N :R
REPEAT 2 [LHU :N :R LT 180 - :N]
END
TO RY :N :R
REPEAT 2 [RHU :N :R RT 180 - :N]
END
TO PXSBX :B1 :B2 :J
REPEAT 2 [FD :B1 RT :J FD :B2 RT 180 - :J]
END
TO KXJX :A :B
STAMPRECT :A :B
END
TO SXJX :A :B
(STAMPRECT :A :B ”TRUE)
END
TO KXTY :X :Y
STAMPOVAL :X :Y
END
TO SXTY :X :Y
(STAMPOVAL :X :Y ”TRUE)
END
TO KXJ :N :B
REPEAT :N [FD :B RT 720 / :N FD :B LT 360 / :N]
END
TO YBJ :N :B :K
REPEAT :N [FD :B RT :K * 360 / :N]
END
PC LOGO 4.0常用命令一览表 | |||||
内容: | |||||
编号 | 英文指令 | 英文简码 | 中文指令 | 用法举例 | 用法说明 |
1 | FORWARD | FD | 前进 | FD 100 | 前进 100 步 |
2 | BACK | BK | 后退 | BK 100 | 后退 100 步 |
3 | RIGHT | RT | 右转 | RT 90 | 右转 90 度 |
5 | PENUP | PU | 抬笔 | PU | 把笔提起, 不留痕迹 |
6 | PENDOWN | PD | 落笔 | PD | 把笔放下, 会留痕迹 |
7 | PENERASE | PE | 笔擦 | PE | 将走过的地方擦去,恢复画笔输入PD。 |
8 | SETPC | 笔色 | SETPC 9 | 将笔色设为淡蓝色(n:0-15) | |
9 | SETBG | 背景色 | SETBG 15 | 将底色设为白色(n:0-15) | |
10 | SETWIDTH | SETW | 笔粗 | SETW 1 | 将笔粗设为1点 |
11 | SHOWTURTLE | ST | 出现 | ST | 显示小海龟 |
12 | HIDETURTLE | HT | 隐形 | HT | 不显示小海龟 |
13 | CLEARSCREEN | CS | 清除 | CS | 清除绘图区,小海龟回原点(0,0) |
14 | CLEAN | 清图 | CLEAN | 清除绘图区,小海龟留在最后的地方 | |
15 | CLEARTEXT | CT | 清文 | CT | 清除文字区 |
16 | HOME | 返回母位 | HOME | 小海龟回原点(0,0) | |
17 | SETHEAD | SETH | 定角 | SETH 60 | 设定小海龟的角度为60度(0-360) |
18 | SETXY | 定位 | SETXY 100 100 | 把小海龟定位在坐标 (100,100) | |
19 | SETX | 横坐标 | SETX 100 | 把小海龟定位在横坐标(100,Y) | |
20 | SETY | 纵坐标 | SETY 100 | 把小海龟定位在纵坐标(X,100) | |
21 | SUM | 求和函式 | SUM X Y 或(SUM X Y…) | 求几个数的和 | |
22 | REMAINDER | 余数函式 | REMAINDER X Y | 求X/Y的余数部分 | |
23 | QUOTIENT | 求商函式 | QUOTIENT X Y | 求X/Y的商 | |
24 | DRAW | 初始化 | DRAW | 初始化 | |
25 | TEXTSCREEN | TS | 本文 | TS | 进入本文模式 |
26 | SPLITSCREEN | SS | 图文混合 | SS | 进入图文混合模式 |
27 | FULLSCREEN | FS | 全图 | FS | 进入全图模式 |
28 | WINDOW | WI | 穿透 | WI | 小海龟活动範围可穿过绘图区边界 |
29 | FENCE | FE | 围墙 | FE | 小海龟活动範围限制在绘图区边界 |
30 | WRAP | 绕回 | WRAP | 小海龟活动範围可穿过绘图区边界 | |
31 | PRINT | PR | 印出 | PR "HI" (PR [ A S] [1 2]) | 在文字区印出字串"HI" |
32 | REPEAT | 重複 | RP 4 [ FD 100 RT 90 ] | 重複括弧内指令4次, 完成正方形 | |
33 | WHILE | 当 | WHILE [....][. ...] | while 条件循环 | |
34 | IF~ELSE | 假如~否则 | IF ~ ELSE 条件指令 | ||
35 | TO | 定义 | TO BBB | 定义程式 BBB | |
36 | END | 结束 | END | 程式定义结束 | |
37 | STOP | 停止 | 停止程式(常配合IF ~ ELSE) | ||
38 | POTS | 显示程式名 | POTS | 显示程式名称 | |
39 | PRINTOUT | PO | 显示程式内容 | PO AAA | 显示 AAA 程式内容 |
40 | ER ALL | 删除所有程式 | ER ALL | 删除所有程式 | |
41 | ERASE | ER | 删除程式 | ER AAA | 删除程式AAA |
42 | EDIT | 打开编辑器 | EDIT | 打开编辑器 | |
43 | INT | 取整函式 | INT X | 将X的小数部分截去 | |
44 | WAIT | 等待 | WAIT 1 | 等待0.01秒后继续 | |
45 | ROUND | 四捨五入取整 | ROUND X | 将X按四捨五入取整 | |
46 | MAKE | 赋值函式 | MAKE “x 3 | 给变数x赋值为3 | |
47 | TYPE | 印出 | TYPE ZFX.LGO>PRN | 列印过程ZFX.LGO的内容 | |
48 | FILL | 颜色填充 | FILL | 用当前的颜色填充 | |
49 | TRUE | 真 | :A = TRUE | 设定变数 :A 的值为真 | |
50 | FALSE | 假 | :A = FALSE | 设定变数 :A 的值为假 | |
51 | XCOR | 横坐标的值 | XCOR | 输出小海龟横坐标的值 | |
52 | YCOR | 纵坐标的值 | YCOR | 输出小海龟纵坐标的值 | |
53 | PI | 圆周率 | :A = PI | 设定变数 :A 的值为圆周率 | |
54 | SQRT | 开平方根 | :A = SQRT 4 | 设定变数 :A 的值为 4 的平方根 | |
55 | RANDOM | 取随机数 | :A = RANDOM 100 | 设定变数:A的值为取1到100间的随机数 | |
56 | EXP | 指数 | :A = EXP 1 | 设定变数 :A 的值为取 1 的自然指数 | |
57 | LOG | 对数 | :A = LOG 1 | 设定变数 :A 的值为取 1 的自然对数 | |
58 | SIN | 正弦 | :A = SIN 90 | 设定变数 :A 的值为取90度的SIN值 | |
59 | COS | 余弦 | :A = COS 90 | 设定变数 :A 的值为取90度的COS值 | |
60 | FIRST | 字首 | FIRST "HELLO | 显示 "HELLO 的字首 H | |
61 | BUTFIRST | BF | 去首 | BF "HELLO | 显示 "HELLO 的去首字串 ELLO |
62 | LAST | 字尾 | LAST "HELLO | 显示 "HELLO 的字尾 O | |
63 | BUTLAST | BL | 去尾 | BL "HELLO | 显示 "HELLO 的去尾字串 HELL |
64 | LOAD | 装载程式 | LOAD "AAA.LGO | 装载程式AAA.LGO | |
65 | SAVE | 保存程式 | SAVE "AAA.LGO | 保存程式AAA.LGO | |
66 | COUNT | 计数 | COUNT “12fd43g | 计数字元串中的有效字元数量 | |
67 | LSH | LSH 160 3 | 160除以2的3次方的商 | ||
68 | ASK | 多龟作图 | ASK [海龟代号表] [命令组] | ||
69 | TELL | 激活海龟 | TELL [海龟代号表] | 激活哪些海龟为活动海龟 | |
70 | DOT | 显示点 | DOT [:X :Y] | 在坐标[:X :Y]出显示一个点 | |
71 | GETXY | 输出坐标 | GETXY | 输出小海龟的坐标的值 | |
72 | HEADING | 输出方向 | HEADING | 输出小海龟的方向 | |
73 | STAMPOVAL | 画圆 | STAMPOVAL 100 50 | 画横向半径为100,纵向半径为50的圆 | |
74 | STAMPRECT | 画长方形 | STAMPRECT 50 100 | 画长为100,宽为50的长方形 | |
75 | BYE | 退出LOGO | |||
76 | (DOS) | 暂时退出 | 暂时退出LOGO进入DOS | ||
77 | EXIT | 返回LOGO | 由DOS中返回LOGO | ||
78 | SAVEPIC | 保存图像 | SAVEPIC “123 | 将萤幕图像保存为123.PCX | |
79 | LOADPIC | 打开图像 | LOADPIC “123 | 将图像123.PCX打开 | |
80 | OUTPUT | OP | 结束程式并赋值 | OP :A | 结束程式并把A的值赋给程式 |
81 | TEST | 测试 | TEST 10>90 | 测试10是否>90 | |
82 | IFTRUE | IFT | 测试执行 | IFTRUE [命令串] | 当测试结果为真时执行命令串 |
83 | IFFALSE | IFF | 测试执行 | IFFALSE [命令串] | 当测试结果为假时执行命令串 |
84 | FOR | 循环语句 | FOR “变数 初值 终值 [循环体] (步长) | ||
85 | ABS | 绝对值函式 | ABS 12 | 输出12的绝对值 | |
86 | PRODUCT | 求积函式 | PRODUCT X1 X2 | PRODUCT (X1 X2 X3……) | |
87 | SETPRINTER | 激活印表机 | SETPRINTER 印表机代码 | ||
88 | PRINTSCREEN | PS | 列印萤幕图形 | PS | PS “TRUE (列印萤幕上全部内容) |
89 | POPS | 显示过程清单 | POPS | 显示工作区中所有过程清单 | |
90 | PO ALL | 显示过程清单 | PO ALL | 显示工作区中所有过程清单和变数 | |
91 | DIR | 列磁碟目录 | DIR “A\:”*.LGO | 显示A:\*.LGO档案 | |
92 | DISK | 显示当前磁碟 | DISK | 显示当前磁碟 | |
93 | SETDISK | 设定当前磁碟 | SETDISK “A | 设定当前磁碟为A盘 | |
94 | DELETE | 删除档案 | DELETE “档案名称 | 不能省略扩展名 | |
95 | RENAME | 档案改名 | RENAME “原档案名称 “新档案名称 | ||
96 | BACKGROUND | BG | 背景色 | BG | 输出背景色代码 |
97 | BGPATTERN | 背景图案 | |||
98 | DOTCOLOR | 输出萤幕颜色 | DOTCOLOR [X Y] | 输出萤幕某一点的颜色代码 | |
99 | EACH | 每只海龟 | EACH [命令串] | 每只海龟都执行命令串 | |
100 | PF | 列印档案 | PF 档案名称 | ||
101 | PP | 显示图形或结果 | PP ABC | 显示ABC过程的图形 | |
102 | OR | 或者 | X OR Y | X或者Y | |
103 | RC | 记录键盘操作 | RC | 记录键盘操作的第一个键 | |
104 | RQ | 记录键盘操作 | RQ | 记录第一次键盘操作 | |
105 | SF | 萤幕状态信息 | |||
106 | TF | 海龟状态信息 | |||
107 | PENPAINT | 进入绘图状态 | |||
108 | GO | 转到并执行程式 | GO ABC | 转到并执行程式ABC | |
109 | AND | 并且 | IF AND ... IF (AND ...) | ||
110 | FM | ||||
111 | SETPATTERN | 设定背景图案 | SETPATTERN 1~11 |
LOGO语言 是一种早期的程式语言,也是一种与自然语言非常接近的程式语言,它通过“绘图”的方式来学习编程,对初学者特别是儿童进行寓教于乐的教学方式。
语言
LOGO语言创始于1968年,是美国国家科学基金会所资助的一项专案研究,在麻省理工学院(MIT)的人工智慧研究室完成。LOGO源自希腊文,原意即为思想,是由一名叫佩伯特的心理学家在从事儿童学习的研究中,发现一些与他的想法相反的教学方法,并在一个假日中出外散步时,偶然间看到一个像海龟的机械装置触发灵感,于是利用他广博的知识及聪明的才智而最终完成了LOGO语言的设计。
绘图是LOGO语言中最主要的功能,佩伯特博士就是希望能通过绘图的方式来培养学生学习电脑的兴趣和正确的学习观念。LOGO语言从开始发展到现在,已有Windows版本——MSWLogo,包括Windows 3.X版及Windows9X版等。在以前的LOGO语言中有一个海龟,它有位置与指向两个重要参数,海龟按程式中的LOGO指令或用户的操作命令在萤幕上执行一定的动作,现在,图中的海龟由小三角形所替代。
中文LOGO语言
上世纪90年代,台湾推出繁体版的LOGO语言,称之为:【葛拉堡/Gerlabau】,其后中国大陆也推出了中文化的LOGO语言,分别是“易乐谷/ELOGO”和“创新CX-LOGO/微世界”,发扬了中文编程的优势。
【创新LOGO】
CX-LOGO语言是一种结构化程式设计语言。它是互动式的,为少年儿童提供了良好的编程环境;它是模组化的,便于程式的修改与扩充;它是过程化的,包含了过程、参数、变数等重要概念,并允许递归调用;它有丰富的数据结构类型,有生动的图形处理功能。
CX-LOGO语言独创的流程图工作方式和过程库的建立,可方便的使用“搭积木”的方法,构建“知识”,使学习更容易、操作更简便,学生只需简单的学习就可以操作。
CX-LOGO语言不仅具备多种优秀程式设计语言的优点,而且更接近自然语言,生动有趣,简单易学,它能用直观的运动来体现编程的结果,让少年儿童在游戏中进行思考,在趣味中学习,深受少年儿童的欢迎。通过CX-LOGO语言的教学,以学习一种“玩具”为出发点,可以培养学生学习计算机的兴趣,使他们初步了解计算机是如何工作的,为他们今后学习其他高级程式语言设计铺设道路
CX-LOGO语言是专为我国少年儿童开发的创新平台,孩子们可以在电脑上指挥七色瓢虫移动、转向、行走、发光、回响外界刺激等。这些具有创造性的学习工具所倡导的“做中学”的学习理念,非常适合课堂教学,极大地激发了孩子们学习的兴趣。
优秀作品
特点
LOGO语言之所以是儿童学习计算机编程最好的一种语言,就因为它是针对儿童而製作的程式语言,能使儿童在认知与技能上得到较大的发展。LOGO语言具有较强的针对性,因为对于儿童来说,“画画”比“文字处理”更具有活力,充分发挥自己的想像进行创作,而文字处理却比较枯燥,不适合儿童。LOGO则主要用于“图画”製作,并且採用了“海龟绘图”的方式,适合儿童的特点,能充分引起他们的兴趣和学习该门语言的积极性,达到寓教于乐的目的。在LOGO语言中,它的作图方式与现在所用的作图软体不一样,主要区别就在于LOGO语言的基本作图的方法可以不採用坐标方式,而是通过向前,后退、向左转、向右转、回家等儿童易于理解的语言和命令,这非常适合儿童的知识水平,使这些还未接触坐标为何物的儿童更容易上手。在用LOGO语言作图时,需要学习者对一些常见的几何特性进行理解,了解常用的距离、角度和度数的概念。
编程
一般的程式语言都需要编写程式,当然,LOGO语言也不例外。由于指令容易输入错误,不易修改且无法保存,更不能重複使用,如果需要重新绘製相同的图形,那幺必须输入与以前相同的指令,并且这些曾输入的指令不能加以组合。至于程式的内容,是由解决问题的步骤所需要的指令组合而成的,需由设计者赋予该程式以名称,以供识别。使用LOGO语言作图,虽然可以通过命令行方式进行,但这仅针对初学LOGO语言时,可以开始学一些常用命令,作出一些简单的图形,以引起儿童的兴趣。在对命令比较了解及熟悉以后,就可以进行针对性地学习一些简单的程式编写,作出更加漂亮的图形。 下面我将以MSWLogo V6.4为例来介绍如何建立一个程式的基本语法:
1.作为一个程式是以“起始”为开始,“终止”为结束。当选择“编辑新程式”时,在程式编辑区中将会出现以下的字元,供程式者填入相应的命令。
To(起始) 程式名称 N //修改程式名称以供识别
…………..
…………..//输入解决问题所用到的命令
…………..
End(终止)
2.绘製不同大小的图形时需要选择不同的参数,所以使用者在设计程式时,需要使用一个比较适合的并有意义的名称来代表,传给参数的数值资料不同则执行结果也就不同,并且程式在执行过程中,也会不断地变化参数的内容。在选择参数时,需要在参数名称前面加上冒号,用来与一般程式中的命令区别开。如:
起始 程式名称 N :参数1 :(参数2)(可有可无的参数) … //定义列
…………….
Repeat :参数 1[Forward :参数2 …] //输入解决问题所需的命令
…………….
终止
当程式内容含有参数时,必须将所有参数写在定义列之后,以便执行时能接收必要的资料。
3.IF…THEN …ELSE…条件执行语句
基本格式为:IF 条件表达式 THEN [命令行1] ELSE [命令行2]
[命令行3]
当条件表达式:成立时,执行[命令行1]内的命令;不成立时,执行[命令行2]内的指令;在执行完[命令行1]或[命令行2]之后,则继续执行[命令行3]
LOGO命令的简写和功能
基本绘图
DRAW - 清屏、海龟回母位
CLEAN
CLEARSCREEN CS
CLEARTEXT CT
FORWARD FD 前进
BACK BK 后退
RIGHT RT 右转
LEFT LT 左转
PENUP PU 抬笔
PENDOWN PD 落笔
HIDETURTLE HT 藏龟
SHOWTURTLE ST 显龟
CLEARSCREEN CS 清屏
HOME - 回家
REPEAT - 重複
SPLITSCREEN SS 图文混合屏
FULLSCREEN FS 全图形屏
TEXTSCREEN TS 全文字屏
NODRAW ND 全文字屏、清屏
WRAP - 环绕状态
WINDOW - 视窗状态
FENCE - 围栏状态
SHOW - 萤幕输出
TT - 在画图区显示文字
TO……END - 过程头、尾
IF…THEN…ELSE
PAUSE
CONTINUE CO
EDIT ALL - 进入编辑部
STOP -
TOPLEVEL -
SETPC - 设定画笔颜色
SETBG - 设定萤幕底色
坐标作图
SETX - 指定海龟横向位置
SETY - 指定海龟纵向位置
SETXY - 指定海龟任意位置
SETHEADING SETH - 指定海龟方向
XCOR - 显示海龟当前位置的X坐标
YCOR - 显示海龟当前位置的Y坐标
GETXY - 显示海龟当前位置的X,Y坐标
HEADING - 显示海龟指向角度
档案管理
POTS - 显示工作区内所有过程的标题
POPS(PO ALL) - 显示工作区内所有过程的内容
PRINTOUT PO 显示工作区内过程的内容
ERASE(ER ALL) ER 删除工作区中的过程
DIRECTORY DIR 显示磁碟档案目录
DISK - 显示当前盘
SETDISK - 设定当前盘
SAVE - 把程式存档
LOAD - 读程式档案
SAVEPIC - 图形存档
LOADPIC - 读图形档案
DELETE - 删除档案
RENAME REN 档案改名
数值计算
PRINT PR 换行列印
TYPE - 同行列印
SETCURSOR - 列印格式
OUTPUT OP 输出
INT - 取整函式
ROUND - 四捨五入函式
QUOTIENT - 求商函式
REMAINDER - 余数函式
RANDOM - 随机函式
SQRT - 平方根函式
ABS - 绝对值函式
MAKE - 赋值
PRECISION - 数字显示精度
字表处理
FIRST - 取首
LAST - 取尾
BUTFIRST BF 去首
BUTLAST BL 去尾
EMPTY? - 判断是否为空
READ - 从键盘上接受一串字元
READCHAR RC 从键盘上接受一个字元
READLIST RL 从键盘上接受一个表
READQUOTE RQ 从键盘上接受一个字
RESULT: - 结果
TRUE - 真
FALSE - 假
COUNT - 测长函式
MAKE - 赋值
ITEM - 输出表中第:K个元素
TEST - 测试条件
IFTRUE IFT 测试真
IFFALSE IFF 测试假
KEY? - 是否有键盘输入
NUMBER? - 是否是数
WORD? - 是否是字
LIST? - 是否是表
WORD - 连线字
SENTENCE SE 字与表、表与表的连线
FPUT - 连线到表(字)首
LPUT - 连线到表(字)尾
LIST - 组成表
RUN - 运行表
DEFINE - 定义过程
ASCII - 输出字元的ASCII码
CHAR - 输出ASCII码值的字元