home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / NEWTEXT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  957b  |  19 lines
  1. 10  REM  PROGRAM NEWTEXT
  2. 20  REM  IT IS A ROUTINE TO DEMONSTRATE A
  3. 30  REM  WORDWRAP TECHNIQUE IN BASIC
  4. 40  REM  IT IS SET FOR A 40 COLUMN SCREEN
  5. 50  REM  BUT CAN HANDLE LINES OF ANY LENGTH
  6. 60  DIM T$(10): REM  TOTAL NUMBER OF LINES
  7. 70  HOME :CHAR = 1
  8. 80  GOTO 100
  9. 90 LN = LN +1:T$(LN) = L$:L$ = "": RETURN 
  10. 100  GET A$: IF A$ =  CHR$(13)  THEN CHAR = 1:SLOC = 0: GOSUB 90
  11. 110 CHAR = CHAR +1:L$ = L$ +A$: IF CHAR <40  OR A$ = " "  THEN 170
  12. 120  IF SLOC = 0  THEN  GOSUB 90:L$ = "": PRINT :CHAR = 1: GOTO 100
  13. 130 SS = 40 -SLOC -1: FOR J = 1 TO SS: PRINT  CHR$(8);: NEXT J: FOR J = 1 TO SS: PRINT " ";: NEXT J
  14. 140  IF SLOC =  LEN(L$)  THEN NXTL$ = "": GOSUB 90: GOTO 100
  15. 150 NXTL$ =  RIGHT$(L$, LEN(L$) -SLOC):L$ =  LEFT$(L$,SLOC): FOR J =  LEN(L$) +1 TO 40:L$ = L$ +" ": NEXT J
  16. 160  GOSUB 90:L$ = NXTL$: PRINT : PRINT L$;:CHAR =  LEN(L$) +1:NXTL$ = "":SLOC = 0: GOTO 100
  17. 170  IF A$ = " "  THEN SLOC = CHAR -1: REM  SPACE LOCATION
  18. 180  PRINT A$;
  19. 190  GOTO 100