100 SCREEN 0 110 FOR I=0 TO 85:SETTEX I,256,8,32768:NEXT 120 FOR I=0 TO 27:GCOPY 10+I,(0,0)-(255,7) TO A$ 130 GCOPY A$ TO (32,I*8):NEXT 140 *MAIN 150 P=PAD(0,1) 160 IF P AND @PAD_UP AND Y>0 THEN 170 Y=Y-1 172 GCOPY 10+Y,(0,0)-(255,7) TO A$ 175 GCOPY A$ TO (32,Y*8) 180 ENDIF 190 IF P AND @PAD_DOWN AND Y<85-27 THEN 200 Y=Y+1 203 GCOPY 10+Y+27,(0,0)-(255,7) TO A$ 205 GCOPY A$ TO (32,(Y+27)*8) 210 ENDIF 220 SCROLL 0,,Y*8:VSYNC :GOTO *MAIN