home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / SR114-CENTERSPREAD.txt < prev    next >
Text File  |  2023-02-26  |  610b  |  7 lines
  1.  
  2.  114 L =  PEEK (37):SP$ = "": FOR X = 1 TO 20 -  LEN (ST$) / 2:SP$ = SP$ + " ": NEXT :ST$ = SP$ + ST$ + SP$: IF  LEN (ST$) / 2 <  >  INT ( LEN (ST$) / 2) THEN ST$ = ST$ + " "
  3.  115  FOR X = 1 TO 20:PR$ =  LEFT$ (ST$,X) +  RIGHT$ (ST$,X): VTAB L: HTAB 21 - X: PRINT PR$: NEXT : RETURN 
  4.  116 L =  PEEK (37):SP$ = "": FOR X = 1 TO 20 -  LEN (ST$) / 2:SP$ = SP$ + " ": NEXT :ST$ = SP$ + ST$ + SP$: IF  LEN (ST$) / 2 <  >  INT ( LEN (ST$) / 2) THEN ST$ = ST$ + " "
  5.  117  FOR X = 1 TO 20:PR$ =  LEFT$ (ST$,X) +  RIGHT$ (ST$,X): VTAB L: HTAB 21 - X:Q =  PEEK ( - 16336) +  PEEK ( - 16336): PRINT PR$: NEXT : RETURN 
  6.  
  7.