' test for redirected console output FOR i = 1 TO 255 v$ = v$; "-" PRINT v$ NEXT i v$ = SPACE$(70) FOR i = 71 TO 255 v$ = v$; "-" PRINT v$ NEXT i v$ = "" FOR i = 2 TO 255 STEP 2 v$ = v$; "- " PRINT v$ NEXT i v$ = "" FOR i = 5 TO 255 STEP 5 v$ = v$; "---- " PRINT v$ NEXT i END
|
|
FOR i = 1 TO 255 v$ = v$; "-" PRINT LEFT$(v$,80); PRINT MID$(v$,81,80); PRINT MID$(v$,161,80); PRINT MID$(v$,241,80) NEXT i
|
FOR i = 1 TO 255 v$ = v$; "-" CALL print v$ NEXT i END SUB print a$ WHILE LEN(a$) > 80 PRINT LEFT$(a$,80); a$ = MID$(a$,81) WEND PRINT a$ END SUB