| .READ Statement Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| READ Statement Programming Example |
|
| This example shows how you can use a READ statement to read information |
| into the user-defined type Employee. |
| |
| TYPE Employee |
| EmpName AS STRING * 35 |
| SocSec AS STRING * 11 |
| JobClass AS INTEGER |
| END TYPE |
| |
| CLS ' Clear screen |
| DIM ThisEmp AS Employee |
| DATA "Julia Magruder","300-32-3403",3 |
| DATA "Amelie Reeves Troubetzkoy","777-29-3206",7 |
| |
| ' Read first data input line and verify by printing data |
| READ ThisEmp.EmpName, ThisEmp.SocSec, ThisEmp.JobClass |
| PRINT "Employee is "; ThisEmp.EmpName |
| PRINT "Employee's social security number is "; ThisEmp.SocSec |
| PRINT "Employee's job class is"; ThisEmp.JobClass |
| PRINT ' Print blank line |
| |
| ' Read second data input line and verify |
| READ ThisEmp.EmpName, ThisEmp.SocSec, ThisEmp.JobClass |
| PRINT "Employee is "; ThisEmp.EmpName |
| PRINT "Employee's social security number is "; ThisEmp.SocSec |
| PRINT "Employee's job class is"; ThisEmp.JobClass |
| |
| Sample Output |
| |
| Employee is Julia Magruder |
| Employee's social security number is 300-32-3403 |
| Employee's job class is 3 |
| |
| Employee is Amelie Reeves Troubetzkoy |
| Employee's social security number is 777-29-3206 |
| Employee's job class is 7 |
| |
