|
Ответ: Input...
If KeyHit(64) And ts=1 Then
SetFont fontA
Sd$=Input$(" Save map to: ")
While Len(sd$)=0
Locate 400, 100
Print "Enter File Name"
Locate 100, 200
sd$=Input(" Save map to: ")
Cls
Wend
WriteMap(Sd$)
EndIf
__________________
Самый первый и самый великий программист - это Бог.
|