i have a text file with a game ending credits
i wish to LINE INPUT it into and array and then print it to the screen (screen 19) as a movie ending credits - i tried but it doesn't work i get a black screen
here are my pieces of code:
Code: Select all
'append to the string array the string item
SUB sAppend (arr() AS STRING, item AS STRING)
REDIM Preserve arr(LBOUND(arr) TO UBOUND(arr) + 1) AS STRING
arr(UBOUND(arr)) = item
end sub
'SUB upper (f as string)
' redim lines(0) as string
' dim as integer r,c, i
' dim fline as string
' OPEN f FOR INPUT AS #1
' WHILE Not EOF(1)
' LINE INPUT #1, fline
' sAppend lines(), fline
' wend
' close #1
'r= 35
'c = 5
'i = 0
' DO
' LOCATE r, c
' PRINT lines(i)
' _ sleep(100)
' r = r - 1
' i = i + 1
' LOOP UNTIL r = 3
'Sleep
'end sub