01 Open "(G)Basic.txt" For InPut As #1
02 Let LINESCOUNT=1
03 While Not EOF(#1)
04 Print INPUT$(#1)
05 Let LINESCOUNT=LINESCOUNT+1
06 If LINESCOUNT=24 Then Go Sub 10
07 WEnd
08 Close #1
09 End
10 Let LINESCOUNT=1
11 Print "Please press the ENTER key to continue or ESC to cancel."
12 Let KEYLINE$=""
13 While KEYLINE$=""
14 Let KEYLINE$=INKEY$
15 WEnd
16 If KEYLIN$=CHR$(27) Then Go To 19
17 If KEYLINE$=CHR$(13) Then Return
18 Go To 12
19 Close #1
20 End