' AUTOGREETS
' (C) by PKF
'
' Place the .PRG file in the AUTO folder
'
Reserve 3000
Deftext 1,0,0,6
A$="PKF greets all the /\tarians"
A%=1
Do
  B$=B$+Mid$(A$,A%,1)
  Text 412,10,B$
  Lpoke Gintin+2,400
  Dpoke Gintin,400
  Gemsys 24
  Inc A%
  If A%>28
    A%=1
    B$=""
    Deffill 0,2,8
    Pbox 412,2,639,12
    Deffill 1,2,6
  Endif
Loop