home *** CD-ROM | disk | FTP | other *** search
- ;Read Me macro opens the README.TXT file in an sedit box
-
-
- 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 177, 149, 50, 14, "&Finished"
- UPDATEPB 32, 149, 50, 14, "&Welcome"
- UPDATEPB 106, 149, 50, 14, "&Updates"
- STEXT 9, 25, 235, 113, VAR1$
- DEND
-
- again:
-
- DO i = DIALOG? UNTIL(i != 255)
- IF(i == 1) HALT
- IF(i == 100) var1$ = "welcome.txt"
- ELSE IF(i == 101) var1$ = "updates.txt"
- UPDATEDLG(18)
- GOTO again
- END
-