Statement p{t$}
  PutStr_ t$+Chr$(10)
End Statement

Statement k{k$,d}
  q=Len(k$)
  For x = 1 To q
    Print Mid$(k$,x,1)
    Delay_ d
  Next
End Statement


p{"Programming: CwC/Sa2k!"}
p{"Khuul Music: X-Ceed/EndZeit+Floppy"}
p{"Dezignation: Shuwi/Sa2k!"}:p{""}
Print "XPK-SQSH"
k{"[........................]",2}
p{"ok!"}:p{""}

FindScreen 0

q=OpenFile (0,"ram:mod"):WriteMem 0,?m,18768:CloseFile 0
q=OpenFile (0,"ram:p"):WriteMem 0,?p,4560:CloseFile 0
Execute_ "ram:p ram:mod >nil:",0,0
Delay_ 10
DeleteFile_ ("ram:mod")
DeleteFile_ ("ram:p")

Screen 0,0,0,320,256,4,$0,"rob",1,2
BitMap 0,320,256,4
ScreensBitMap 0,0

_d

Cls 0

_b

x=Int(Rnd(310))
y=Int(Rnd(250))

x2=Int(Rnd(310))
y2=Int(Rnd(250))

bx=Int(Rnd(320)):by=Int(Rnd(256))
Plot bx,by,3

RGB 1,15,0,0
RGB 2,0,0,15
RGB 3,0,15,0


Repeat

da

If KeyCode=103 Then y-1:q=Point (x,y-1):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d
If KeyCode=101 Then y+1:q=Point (x,y+1):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d
If KeyCode=99 Then x+1:q=Point (x+1,y):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d
If KeyCode=97 Then x-1:q=Point (x-1,y):If q<>0 Then j+1:Cls 1:Delay_ 30:Goto _d

If JVert(1)=-1 Then y2-1:q=Point (x2,y2-1):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d
If JVert(1)=1 Then y2+1:q=Point (x2,y2+1):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d
If JHoriz(1)=1 Then x2+1:q=Point (x2+1,y2):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d
If JHoriz(1)=-1 Then x2-1:q=Point (x2-1,y2):If q<>0 Then o+1:Cls 2:Delay_ 30:Goto _d

If x>320 OR x=0 OR y=0 OR y>256 Then j+1:Cls 1:Delay_ 30:Goto _d
If x2>320 OR x2=0 OR y2=0 OR y2>256 Then o+1:Cls 2:Delay_ 30:Goto _d

If x=bx AND y=by Then o+1:Cls 1:Delay_ 30:Goto _d
If x2=bx AND y2=by Then j+1:Cls 2:Delay_ 30:Goto _d

If Joyb(1)=1 Then Goto _ptk

VWait

Plot x,y,1
Plot x2,y2,2

 Until Joyb(0)<>0
 kon
 q=OpenFile (0,"ram:p"):WriteMem 0,?p,4560:CloseFile 0
 Execute_ "ram:p q >nil:",0,0:DeleteFile_ ("ram:p")
 End

_ptk

w=EasyRequest ("pynquty","Player1:"+Str$(o)+Chr$(10)+"Player2:"+Str$(j),"Dalej?|Poczatek!|Qniec")
If w=1 Then Goto da
If w=0 Then Goto kon
If w=2 Then Goto _b

m:
IncBin "100f:mod.x"
p:
IncBin "c:ptp."