常规查找页面长度

这个方便的小子例程可以两种方式使用:用重复的材料填充屏幕页面或确定打印语句的屏幕页面的长度。假设第100行是一个打印语句,您希望使用它填写页面。

100打印” “:GOSUB 400
400 IF PEEK(37)< 18 THEN RETURN
410 POP:PRINT“用于新页面命中任何键”:CALL 756:GOTO 000

第400行读取光标并在页面上找到位置。如果少于18行,请打印更多行。 410线“Pops”堆栈的返回地址。可以使用INPUT A $或Call -676代替Call 756,所有这些都可以暂停程序以等待进一步的指令。

请关注并喜欢我们:

关于作者

比尔·马滕斯

苹果。董事会主席兼俱乐部主席-Bill为创始人Val J.Golding和A.P.P.L.E.工作从1981年到1982年。1999年,他开始对A.P.P.L.E.分发和出售的材料进行存档。 Bill曾在东京从事金融行业,并以他的名字从事过20多个大型办公基础设施项目。 2001年3月,他退休,写书,花更多时间追求个人兴趣。作为用户小组的主席,Bill负责Call-A.P.P.L.E。的分发。杂志以及本网站的组织。比尔目前居住在日本东京和华盛顿州谢尔顿,两地之间的时间不一样。