Copy and paste

that still didn't work.
heres my code:

Select event
	Case 1
		Notify "you selected new"
	
	Case 2
			filelocation$ = RequestFile("Open a File","bb,cpp,crx,c,h,hpp,b3d,doc,txt,htm,html")
			file = ReadFile(filelocation$)
			
			SetGadgetText(codearea,"")
			
			
			While Not Eof(file)
				tmp1$ = ReadLine(file)
				tmp2$ = tmp2$ +Chr$(13)+tmp1$
			Wend
			AddTextAreaText(codearea,tmp2$)
			CloseFile(file)
	Case 4
			filedir$ = RequestFile("Save Your Script","",True)
			file = WriteFile(filedir$)
			WriteString(file,code)
			CloseFile(file)
	
	Case 6
		End
	End Select
EndIf

Forever

Well part of it. Case 2 is where the open file code is.