10-18-2004, 12:37 AM
10-19-2004, 08:18 AM
This should be pretty easy to figure out... Just play around with it.
Code:
DEFINT A-Z
SCREEN 13
DIM Array(1 TO 223) AS STRING
FOR A = 1 TO 223
Array(A) = CHR$(A + 32)
NEXT
DO
In$ = INKEY$
IF In$ = "8" THEN StartPosition = StartPosition - 1
IF In$ = "2" THEN StartPosition = StartPosition + 1
IF StartPosition > 200 THEN StartPosition = 200
IF StartPosition < 0 THEN StartPosition = 0
FOR T = 1 TO 23
ArrayPosition = StartPosition + T
LOCATE T, 1
PRINT LTRIM$(STR$(ArrayPosition)); SPACE$(1); STRING$(5, Array(ArrayPosition)); SPACE$(5)
NEXT
LOOP