[转帖]实现滚屏的BASIC代码！

大豆超人

我喜欢关于nc1020的,更喜欢6502+bas的,好东西,先顶一下

yoyohenry

0  ：

5  REM 滚屏 FOR NC1020n

10  GRAPH

20  S=x：REM x为数据区数据的个数，跟滚屏方向有关

30  FOR I = 1 TO S：READ P：POKE I+5599，P：NEXT

40  LOCATE 3，5：PRINT  “爱你亿万年！”

50  T=40：REM T为滚屏距离，单位为像素

60  FOR I = 1 TO T：CALL 5600：NEXT

70  END

99  REM 以下是数据区，请把后边对应的滚屏数据写在这

100 DATA  ……

110 DATA ……

……

-------------------------------------------------------

1.上滚屏  x=41   滚屏数据如下

169，192，133，128，169，9，133，129，169，212，133，130，169，9，133，131，160，0，177，130，145，128，230，128，208，2，230，129，230，130，208，2，230，131，165，131，201，16，208，234，96

2.下滚屏 x=55  滚屏数据如下

169，255，133，128，169，15，133，129，169，235，133，130，169，15，133，131，160，0，177，130，145，128，198，128，165，128，201，255，208，2，198，129，198，130，165，130，201，255，208，2，198，131，165，130，201，191，208，226，165，131，201，9，208，220，96

3.左滚屏 x=36  滚屏数据如下

162，80，169，191，133，128，169，9，133，129，24，160，20，177，128，42，145，128，136，208，248，24，165，128，105，20，133，128，144，2，230，129，202，208，231，96

4.右滚屏 x=36  滚屏数据如下

162，80，169，212，133，128，169，8，133，129，24，160，236，177，128，106，145，128，200，208，248，24，165，128，105，20，133，128，144，2，230，129，202，208，231，96

以上适用于显示缓存为$09CO--$0FFF的机子，其他机子请修改一下上面数据中的红字部分就也可以用了！