home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / STRING.CENTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  516b  |  9 lines
  1. 10  REM  CENTER A STRING OF UNKNOWN LENGTH IN A SPACE OF KNOWN WIDTH
  2. 20  REM  THIS DEMO WILL CENTER THE STRING ON THE 40 COLUMN SCREEN
  3. 30  HOME : PRINT "ENTER A STRING OF CHARACTERS": PRINT : PRINT "==> ";: INPUT A$
  4. 40  IF A$ = ""  THEN 30
  5. 50  IF  LEN(A$) >40  THEN 30
  6. 60  HOME : VTAB 12:W = 20: REM  W IS 1/2 THE WIDTH OF THE SPACE THE TEXT WILL BE CENTERED IN
  7. 70 D = (W -( LEN(A$)/2)): REM  CALCULATE HOW FAR OVER TO MOVE
  8. 80  HTAB D: PRINT A$
  9. 90  VTAB 22: HTAB 8: PRINT "PRESS RETURN TO CONTINUE";: GET K$: GOTO 30