;Read Me macro opens the README.TXT file in an sedit box

STOP
CLEAR
var1$ = "welcome.txt"
   DIALOGBOX 44, 20, 250, 178, 21, "WinComm Read Me"
      LTEXT 86, 8, 20, 9, "File:"
      VTEXT 107, 8, 50, 9, VAR1$
      DEFPUSHBUTTON 196, 149, 50, 14, "&Exit"
      UPDATEPB 9, 149, 50, 14, "&Welcome"
      UPDATEPB 70, 149, 50, 14, "&Updates"
      STEXT 9, 25, 236, 113, VAR1$
      UPDATEPB 133, 149, 50, 14, "&Version 1.5"
   DEND
ENABLECTL(100,0)
again:

DO i = DIALOG? UNTIL(i != 255)
IF(i == 1) HALT
IF(i == 100){
	var1$ = "welcome.txt" ENABLECTL(100,0) ENABLECTL(101,1) ENABLECTL(102,1)
}
ELSE IF(i == 101){
	var1$ = "updates.txt" ENABLECTL(100,1) ENABLECTL(101,0) ENABLECTL(102,1)
}
ELSE IF(i == 102){
	var1$ = "update2.txt" ENABLECTL(100,1) ENABLECTL(101,1) ENABLECTL(102,0)
}
UPDATEDLG(18)
GOTO again
END