DIM TEXT$[MAX] FOR I=0 TO MAX-1 REPEAT:UNTIL BUTTON(2)!=0 PRINT TEXT$[I] NEXT とかですね。予めTEXT$[]にはREADかなんかでテキストを代入しておいてください。