home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 August / PCWorld_2000-08_cd.bin / Software / TemaCD / xbasic / xbpro.exe / xb / aformat.x < prev    next >
Encoding:
Text File  |  1998-01-08  |  1.1 KB  |  39 lines
  1. '
  2. ' ####################
  3. ' #####  PROLOG  #####
  4. ' ####################
  5. '
  6. PROGRAM "aformat"
  7. VERSION "0.0000"
  8. '
  9. IMPORT    "xst"
  10. '
  11. DECLARE FUNCTION  Entry ()
  12. '
  13. '
  14. ' ######################
  15. ' #####  Entry ()  #####
  16. ' ######################
  17. '
  18. '
  19. FUNCTION  Entry ()
  20.     left$ = "left"
  21.     center$ = "center"
  22.     right$ = "right"
  23.     PRINT
  24.     PRINT "<"; FORMAT$ ("  ######.#####", 23);              ">"
  25.     PRINT "<"; FORMAT$ (" $######.#####", 234567$$);        ">"
  26.     PRINT "<"; FORMAT$ ("*#######.#####", 23.456789!);      ">"
  27.     PRINT "<"; FORMAT$ ("*#######.#####", 23.456789#);      ">"
  28.     PRINT "<"; FORMAT$ ("<<<<<<<<<<<<<<", "left");          ">"
  29.     PRINT "<"; FORMAT$ ("||||||||||||||", "center");        ">"
  30.     PRINT "<"; FORMAT$ (">>>>>>>>>>>>>>", "right");         ">"
  31.     PRINT "<"; FORMAT$ ("<<<<<<<<<<<<<<", left$);           ">"
  32.     PRINT "<"; FORMAT$ ("||||||||||||||", center$);         ">"
  33.     PRINT "<"; FORMAT$ (">>>>>>>>>>>>>>", right$);          ">"
  34.     PRINT "<"; FORMAT$ ("<<<<<<<<<<<<<<", left$+left$);     ">"
  35.     PRINT "<"; FORMAT$ ("||||||||||||||", center$+center$); ">"
  36.     PRINT "<"; FORMAT$ (">>>>>>>>>>>>>>", right$+right$);   ">"
  37. END FUNCTION
  38. END PROGRAM
  39.