0100 SUB PAGE(F$) 0110 ATTN OFF 0115 DIM U,Y,P @ Y=0 @ P=22 @ DIM K$[4] 0120 U=FILESZR(F$) @ IF U<0 THEN CHIRP @ DISP MSG$(ABS(U)) @ GOTO 'ES' 0130 U=U-1 @ P=MIN(P,U) @ ASSIGN #1 TO F$ 0140 PRINT ESC$("H");ESC$("J"); @ VELIST #1,Y,Y+P 0150 K$=KEYWAIT$ 0160 IF K$="#159" THEN Y=MAX(0,Y-P+2) @ GOTO 140 0170 IF K$="#160" THEN Y=MIN(U-P,Y+P-2) @ GOTO 140 0171 IF K$="#162" THEN Y=0 @ GOTO 140 0173 IF K$="#163" THEN Y=U-P @ GOTO 140 0180 IF K$#"#43" THEN CHIRP @ GOTO 150 0190 ASSIGN #1 TO * 0200 'ES': ATTN ON @ END SUB