;   /////////////////////////////
;   AmLinger
;       by 2008 02 05
;   /////////////////////////////

;   將英文站點的一些代碼注釋一下.
;   新手可以進步更快
;   用PureBasic寫一個控制臺程序
;原代碼中,這一個是空的,所以決定寫一點什么..
;這個程序中用 Delay(3000) 延時3000 毫秒后退出
;這里我們模擬用C中的Getch() 請按任意鍵退出

Declare Getch()
OpenConsole()

;原代碼中沒有下面這一句 這一句是我自己加的.
;因為要使用 ConsoleLocate 定位函數 在 4.1 版本以上
;首要要開啟圖形模式才可以正常                                     
EnableGraphicalConsole(#True)

ConsoleTitle("定位輸出")
;定位輸出
ConsoleLocate(35,0)
;
PrintN("定位測試")

ConsoleLocate(30,10)           
 
Print("請把你的名字寫在這里好嗎?(以回車結束): ") 

;接收控制臺輸入內容,以回車結束
Name$ = Input()                                 

;清除之前屏幕顯示,也必須在開啟圖形模式之后才可以正常工作                                                
ClearConsole()                                 

ConsoleLocate(30,10)                            
   
PrintN("哇喔 "+Name$+" 這個名很不錯喲.")  
;延時3000毫秒    

;Delay(3000)
Getch()             

CloseConsole()


Procedure Getch()
    Print("請按任意鍵退出...")
    Repeat
    Key$=Inkey()
    Until Key$
    
EndProcedure

; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 52
; FirstLine = 21
; Folding = -