这个方便的小子例程可以两种方式使用:用重复的材料填充屏幕页面或确定打印语句的屏幕页面的长度。假设第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,所有这些都可以暂停程序以等待进一步的指令。
请关注并喜欢我们: