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