home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / tutor / l6p140 < prev    next >
Encoding:
Text File  |  1990-07-15  |  1.8 KB  |  83 lines
  1.        ╔════════════════════════════════════════════════════╗
  2.        ║ Lesson 6 Part 140  F-PC 3.5 Tutorial by Jack Brown ║
  3.        ╚════════════════════════════════════════════════════╝
  4.  
  5. ╓───────────────╖
  6. ║ Problem 6.16  ║
  7. ╙───────────────╜
  8. Test the Simple String Package and capture the output in a file.
  9.  
  10. ( Sample of the string operations )
  11. DECIMAL  ( Set system base to decimal )
  12.  
  13. ( Create a string ALPHA with a maximum length of 50 )
  14. 50 STRING ALPHA
  15. ( Create a string BETA  with a maximum length of 25 )
  16. 25 STRING BETA
  17.  
  18. ( Store the literal string NOW IS THE TIME in BETA )
  19. " NOW IS THE TIME" BETA S!
  20.  
  21. ( Output the contents of BETA )
  22. BETA TYPE
  23.  
  24. ( Print the current and maximum length of BETA )
  25. BETA LEN .
  26. BETA MLEN .
  27.  
  28. ( Output sub string of BETA, characters 5 thru 10 )
  29. 5 10 BETA MID$ TYPE
  30.  
  31. ( Replace sub string IS with sub string AT in the string BETA )
  32. " AT" 5 6 BETA MID$ SUB!
  33.  
  34. ( Output changed contents of BETA )
  35. BETA TYPE
  36.  
  37. ( Store sub string of characters 1 thru 6 of BETA into ALPHA )
  38. 6 BETA LEFT$ ALPHA S!
  39.  
  40. ( Output ALPHA )
  41. ALPHA TYPE
  42.  
  43. ( Output rightmost 5 characters of ALPHA )
  44. 5 ALPHA RIGHT$ TYPE
  45.  
  46. ( Concatenate BETA and ALPHA and store result in ALPHA )
  47. BETA ALPHA S+ ALPHA S!
  48.  
  49. ( Display the result )
  50. ALPHA TYPE
  51.  
  52. ( New data for BETA )
  53. " 12345" BETA S!
  54.  
  55. ( Convert string BETA to a number )
  56. BETA VAL .
  57.  
  58. ( Convert number to a string )
  59. 4321 STR$ BETA S!
  60.  
  61. ( Output BETA )
  62. BETA TYPE
  63.  
  64. ( Create a string array of 5 strings of 10 characters each )
  65. 5 10 SARRAY NAME
  66.  
  67. ( Store some name in the array )
  68. " Jack " 1 NAME S!
  69. " John " 3 NAME S!
  70.  
  71. ( Display them )
  72. 1 NAME TYPE  3 NAME TYPE
  73.  
  74. ( Now try this )
  75. 1 NAME 3 NAME S+ 2 NAME S!  2 NAME TYPE
  76.  
  77. ( You are on your own! )
  78.  
  79. ┌─────────────────────────────────────┐
  80. │   Please Move to Lesson 6 Part 150  │
  81. └─────────────────────────────────────┘
  82.  
  83.