Module: HelloWorld			Group: Program




Word: TheUserProgram

Text: TheUserProgram 
 -  樮 ணࠬ, 
뢠 אַ ⢨,   Holon'. 
ணࠬ 뢠  ப稢 textstring.





Word: HelloMessage
\   ⥪ ( a䮢),    ࠭.

: HelloMessage 
." ....... Welcome to Holon4th ........"  ;





Word: WriteMessage
\  ப稢 ࠭   뢠  ᮮ饭.

: WriteMessage   ( u1 -- u2 )
     0 0 78 23 1 scrolldn
     1+ 50 mod dup 0 xy HelloMessage
     50 msec  ; 





Word: Commandline
\  頥 ࠭  뢠 ப ﭨ   .

: Commandline
     	Console page 0 is #out inverse 0 24 xy 20 spaces 
     ." Press 0 to restart, Esc to end" 
     79 #out - spaces normal  ; 

Word: UserMain
\  ᭮ ᫮ ணࠬ 짮⥫.

: UserMain 
     	Commandline  
     0                   \  室   ப
     begin     key? 
               if key case
                    27 of drop exit endof
                    09 of halt endof
                    48 of Commandline drop 0 endof
                    drop endcase
               then 
               WriteMessage CursorOff
     again  ; 





Word: SetUser

\  । ⮢ ᫮ (startword)  turnkey-ணࠬ.
\
\   祭 쭮 ணࠬ 
\  (<code stripping> -- 㤠 ) 
\    Ctl+F2=InitCode,  F3=Load  (㧨  ᫮).  
\
\  Holon 㦠 ⠪  ᫮, 室   ᫮.
\
\       Ctl+F7, ⮡ ᤥ  ਬ
\      ᠬ-⮢ ணࠬ TURNKEY.EXE.
\

( SetUser )
    				 Program: UserMain 












Group: Task



Word: UserTask

\  A Task  ணࠬ돮짮⥫.
\
\  ᫨  塞 ணࠬ 믮  a task , 
\     ࠡ  ,    ⨢.

Task UserTask 




Word: StartUserTask

\  믮 UserMain   
\  ࠫ쭮  祩   .

: StartUserTask
     	make UserTask UserMain
     Screen Taskkeys
     start UserTask  ; 




Word: StopUserProg
\  ⠭ (६ halts) the UserTask.

: StopUserProg
     	stop UserTask  ; 




Word: ContinueUserProg
\  ஡㦤 ணࠬ 짮⥫.

: ContinueUserProg
     		continue UserTask  ; 



