【程序】 ** 主程序:AAA. PRG SET TALK OFF CLEAR K=20 Y=30 DO BBB X,Y RETURN ** 子程序:BBB. PRG PRIVATE Y X=40 Y=50 RETURN |
【程序说明】 如果在命令窗口输入并执行命令“LIST名称”后在主窗口中显示: 记录号 名称 1 电视机 2 计算机 3 电话线 4 电冰箱 5 电 线 假定名称字段为字符型、宽度为6。 【程序】 GO 2 SCAN NEXT 4 FOR LEFT (名称,2)=“电” IF RIGHT (名称,2)=“线” LOOP ENDIF 名称 ENDSCAN |
【程序说明】 使用如下表的数据:
|