Filename: PATIENT
For 0I To 170:Next
While Getkey31
WhileEnd