[求助]高手看看BASIC的超快绘图法适合3000吗

十七·烈行风

3000已经有这个了,而且还不错

der-mond

近日正在刻苦学习GVBASIC，然后发现了一个GVB的超快绘图方法，在2600上测试相当好使，但是由于手中没有3000（同学的也被没收了），所以哪位大虾小虾看看程序或是在3000上运行一下（没把握就不要试了），然后说一声3000能否使用，效果如何？

DAT文件可以用 去了文件头的b16文件



10 OPEN "XXX" FOR RANDOM AS#1 LEN=100
20 POKE 26254,192OKE 26258,25:REM 读到图片显存
30 POKE 26262,64OKE 26267,6:REM 每次读的大小
40 P=LOF(1)/1600-1:REM 图片张数
50 FOR Q=0 TO P
60 SE=Q*1600:REM 读文件的位置.当SE以20为步长递增或递减时可以实现滚图(SE=定值*1600+N:N=N+20)
70 H=INT(SE/256)=SE-H*256
80 POKE 47446,LOKE 47447,H:CALL 26207
90 NEXT:GOTO 20