;        The code in Appendix F, page 557, has been augmented 
;        to make a complete program
GPA:     .FLOAT   1
Letter:  .BYTE    1
Name:    .ASCII   "JOE BLOW    "
NumChar: .WORD    8
         .ENTRY   Test   0
         Input    <Enter GPA: >, Float = GPA
         Input    ASCII = Letter
         Input    <Enter name - >, ASCII = Name, Length = #12
         Output                             ; print a blank line
         Output   <The student is>
         Output   <Name:   >, ASCII = Name, Length = NumChar
         Output   <GPA:    >, Float = GPA
         Output   ASCII = Letter
         $EXIT_S
         .END     TEST