Set Buffer 60 Break Off Amos Lock Request Wb Unpack 11 To 0 Limit Mouse 128,42 To 447,295 AX=$FFF Reserve Zone 50 Set Zone 1,0,0 To 16,10 Set Zone 2,32,2 To 79,22 Set Zone 3,88,2 To 142,22 Set Zone 4,152,2 To 190,22 Set Zone 5,200,2 To 304,22 Set Zone 6,335,2 To 384,22 Set Zone 7,570,62 To 623,115 Set Zone 8,570,120 To 623,174 Show On _START: Do If Mouse Key=2 and _COLO=0 Then _COLO=1 : CZYSC : Wait 5 If Mouse Key=2 and _COLO=1 Then _COLO=0 : CZYSC : Wait 5 If Mouse Key=1 and Mouse Zone=1 Then Edit If Mouse Key=1 and Mouse Zone=2 Then ZMIENNA$="*news" : D=0 : S=0 : G=0 : H=0 : V=1 : Goto 1 If Mouse Key=1 and Mouse Zone=3 Then ZMIENNA$="*varia" : S=0 : G=0 : H=0 : V=0 : D=1 : Goto 1 If Mouse Key=1 and Mouse Zone=4 Then ZMIENNA$="*gry" : G=0 : H=0 : V=0 : D=0 : S=1 : Goto 1 If Mouse Key=1 and Mouse Zone=5 Then ZMIENNA$="*tipsy" : H=0 : V=0 : D=0 : S=0 : G=1 : Goto 1 If Mouse Key=1 and Mouse Zone=6 Then ZMIENNA$="*info" : V=0 : D=0 : S=0 : G=0 : H=1 : Goto 1 If Key State(11) If AX=$CCC Goto QA End If AX=AX-$111 Colour 2,AX Wait 10 QA: End If If Key State(12) If AX=$FFF Goto QS End If AX=AX+$111 Colour 2,AX Wait 10 QS: End If Loop 1 If E=0 Dim NEWS$(200) Dim VARIA$(200) Dim GRY$(200) Dim TIPSY$(200) Dim INFO$(200) Dim A_NEWS$(40) Dim A_VARIA$(40) Dim A_GRY$(40) Dim A_TIPSY$(40) Dim A_INFO$(40) Global _COLO,D,S,V,G,H,Z,K,A_NEWS$(),A_VARIA$(),A_GRY$(),A_TIPSY$(),A_INFO$() Global SX,ZM$,M,NEWS$(),VARIA$(),GRY$(),TIPSY$(),INFO$() Shared _COLO,D,S,V,G,H,Z,K,A_NEWS$(),A_VARIA$(),A_GRY$(),A_TIPSY$(),A_INFO$() Shared SX,ZM$,M,NEWS$(),VARIA$(),GRY$(),TIPSY$(),INFO$() E=1 End If ADRES=Hunt(Start(10) To Start(10)+Length(10),ZMIENNA$) AD=Hunt(ADRES To Start(10)+Length(10),"#") Add AD,1 ZM$=Chr$(Peek(AD)) Add AD,1 ZM$=ZM$+(Chr$(Peek(AD))) ADRES=Hunt(ADRES To Start(10)+Length(10),"{") Add ADRES,1 NR=1 If D=1 A_VARIA$(NR)="" End If If S=1 A_GRY$(NR)="" End If If V=1 A_NEWS$(NR)="" End If If G=1 A_TIPSY$(NR)="" End If If H=1 A_INFO$(NR)="" End If Repeat ZNAK$=Chr$(Peek(ADRES)) If ZNAK$=Chr$(10) Inc NR If D=1 A_VARIA$(NR)="" End If If S=1 A_GRY$(NR)="" End If If V=1 A_NEWS$(NR)="" End If If G=1 A_TIPSY$(NR)="" End If If H=1 A_INFO$(NR)="" End If If NR=100 '"za dlugi tekst" Bell Goto _START End If Else If D=1 A_VARIA$(NR)=A_VARIA$(NR)+ZNAK$ End If If S=1 A_GRY$(NR)=A_GRY$(NR)+ZNAK$ End If If V=1 A_NEWS$(NR)=A_NEWS$(NR)+ZNAK$ End If If G=1 A_TIPSY$(NR)=A_TIPSY$(NR)+ZNAK$ End If If H=1 A_INFO$(NR)=A_INFO$(NR)+ZNAK$ End If End If Inc ADRES Until Chr$(Peek(ADRES))="}" NR=1 If D=1 Repeat NR=NR+1 If A_VARIA$(NR)<>"" SX=SX+1 End If Until A_VARIA$(NR)="" End If If S=1 Repeat NR=NR+1 If A_GRY$(NR)<>"" SX=SX+1 End If Until A_GRY$(NR)="" End If If V=1 Repeat NR=NR+1 If A_NEWS$(NR)<>"" SX=SX+1 End If Until A_NEWS$(NR)="" End If If G=1 Repeat NR=NR+1 If A_TIPSY$(NR)<>"" SX=SX+1 End If Until A_TIPSY$(NR)="" End If If H=1 Repeat NR=NR+1 If A_INFO$(NR)<>"" SX=SX+1 End If Until A_INFO$(NR)="" End If _ZONE Do O=Mouse Zone If Mouse Key=2 and _COLO=0 Then _COLO=1 : CZYSC : Wait 5 If Mouse Key=2 and _COLO=1 Then _COLO=0 : CZYSC : Wait 5 If Mouse Key=1 and Mouse Zone=1 Then Edit If Mouse Key=1 and Mouse Zone=2 Then ZMIENNA$="*news" : D=0 : S=0 : G=0 : H=0 : V=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=3 Then ZMIENNA$="*varia" : S=0 : G=0 : H=0 : V=0 : D=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=4 Then ZMIENNA$="*gry" : G=0 : H=0 : V=0 : D=0 : S=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=5 Then ZMIENNA$="*tipsy" : H=0 : V=0 : D=0 : S=0 : G=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=6 Then ZMIENNA$="*info" : V=0 : D=0 : S=0 : G=0 : H=1 : CZYSC : Goto 1 If Key State(11) If AX=$CCC Goto QO End If AX=AX-$111 Colour 2,AX Wait 10 QO: End If If Key State(12) If AX=$FFF Goto QP End If AX=AX+$111 Colour 2,AX Wait 10 QP: End If If Mouse Key=1 and Mouse Zone>=9 If D=1 ZMIENNA$=A_VARIA$(O-7) End If If S=1 ZMIENNA$=A_GRY$(O-7) End If If V=1 ZMIENNA$=A_NEWS$(O-7) End If If G=1 ZMIENNA$=A_TIPSY$(O-7) End If If H=1 ZMIENNA$=A_INFO$(O-7) End If Goto ALA End If Loop ALA: CZYSC If _COLO=1 Paper 2 Else Paper 0 End If Print At(29,14);"Proszė czekaź..." ADRES=0 NR=0 ADRES=Hunt(Start(10) To Start(10)+Length(10),"@"+ZMIENNA$) ADRES=Hunt(ADRES To Start(10)+Length(10),"[") Add ADRES,1 NR=1 If D=1 VARIA$(NR)="" End If If S=1 GRY$(NR)="" End If If V=1 NEWS$(NR)="" End If If G=1 TIPSY$(NR)="" End If If H=1 INFO$(NR)="" End If Repeat ZNAK$=Chr$(Peek(ADRES)) If ZNAK$=Chr$(10) Inc NR If D=1 VARIA$(NR)="" End If If S=1 GRY$(NR)="" End If If V=1 NEWS$(NR)="" End If If G=1 TIPSY$(NR)="" End If If H=1 INFO$(NR)="" End If If NR=200 '"za dlugi tekst" Bell Wait Key Goto _START End If Else If D=1 VARIA$(NR)=VARIA$(NR)+ZNAK$ End If If S=1 GRY$(NR)=GRY$(NR)+ZNAK$ End If If V=1 NEWS$(NR)=NEWS$(NR)+ZNAK$ End If If G=1 TIPSY$(NR)=TIPSY$(NR)+ZNAK$ End If If H=1 INFO$(NR)=INFO$(NR)+ZNAK$ End If End If Inc ADRES Until Chr$(Peek(ADRES))="]" For NR=NR To 200 If D=1 VARIA$(NR)="" End If If S=1 GRY$(NR)="" End If If V=1 NEWS$(NR)="" End If If G=1 TIPSY$(NR)="" End If If H=1 INFO$(NR)="" End If Next CZYSC MARKS_LINIA=NR-1 POKAZ_TEKST: If _COLO=1 Paper 2 Else Paper 0 End If Locate 3,3 For I=1 To 24 If D=1 Print At(3,);VARIA$(I) End If If S=1 Print At(3,);GRY$(I) End If If V=1 Print At(3,);NEWS$(I) End If If G=1 Print At(3,);TIPSY$(I) End If If H=1 Print At(3,);INFO$(I) End If M=I Next Do If(Mouse Key=1 and Mouse Zone=8) or(Key State(77)) : Clear Key : Ink 3 : Paint 590,150 : Wait 1 : Ink 2 : Paint 590,150 : Wait 1 CZYSC Cdown For I=M+1 To M+24 If D=1 If VARIA$(I)="" P=P+1 If P=24 P=0 CZYSC Cdown For I=M-23 To M TEKST[VARIA$(I)] Next M=I-1 Goto X End If End If TEKST[VARIA$(I)] End If If S=1 If GRY$(I)="" P=P+1 If P=24 P=0 CZYSC Cdown For I=M-23 To M TEKST[GRY$(I)] Next M=I-1 Goto X End If End If TEKST[GRY$(I)] End If If V=1 If NEWS$(I)="" P=P+1 If P=24 P=0 CZYSC Cdown For I=M-23 To M TEKST[NEWS$(I)] Next M=I-1 Goto X End If End If TEKST[NEWS$(I)] End If If G=1 If TIPSY$(I)="" P=P+1 If P=24 P=0 CZYSC Cdown For I=M-23 To M TEKST[TIPSY$(I)] Next M=I-1 Goto X End If End If TEKST[TIPSY$(I)] End If If H=1 If INFO$(I)="" P=P+1 If P=24 P=0 CZYSC Cdown For I=M-23 To M TEKST[INFO$(I)] Next M=I-1 Goto X End If End If TEKST[INFO$(I)] End If Next P=0 M=I-1 End If If(Mouse Key=1 and Mouse Zone=7) or(Key State(76)) : Clear Key : Ink 3 : Paint 590,80 : Wait 1 : Ink 2 : Paint 590,80 : Wait 1 M: If M=24 Goto X End If CZYSC If M>48 Cdown End If For I=M-47 To M-24 If D=1 TEKST[VARIA$(I)] End If If S=1 TEKST[GRY$(I)] End If If V=1 TEKST[NEWS$(I)] End If If G=1 TEKST[TIPSY$(I)] End If If H=1 TEKST[INFO$(I)] End If Next M=I-1 End If X: If Mouse Key=2 and _COLO=0 _COLO=1 : CZYSC If D=1 Cdown For I=M-23 To M TEKST[VARIA$(I)] Next M=I-1 Goto X TEKST[VARIA$(I)] End If If S=1 Cdown For I=M-23 To M TEKST[GRY$(I)] Next M=I-1 End If If V=1 Cdown For I=M-23 To M TEKST[NEWS$(I)] Next M=I-1 End If If G=1 Cdown For I=M-23 To M TEKST[TIPSY$(I)] Next M=I-1 End If If H=1 Cdown For I=M-23 To M TEKST[INFO$(I)] Next M=I-1 End If End If If Mouse Key=2 and _COLO=1 _COLO=0 : CZYSC If D=1 Cdown For I=M-23 To M TEKST[VARIA$(I)] Next M=I-1 Goto X TEKST[VARIA$(I)] End If If S=1 Cdown For I=M-23 To M TEKST[GRY$(I)] Next M=I-1 End If If V=1 Cdown For I=M-23 To M TEKST[NEWS$(I)] Next M=I-1 End If If G=1 Cdown For I=M-23 To M TEKST[TIPSY$(I)] Next M=I-1 End If If H=1 Cdown For I=M-23 To M TEKST[INFO$(I)] Next M=I-1 End If End If If Mouse Key=1 and Mouse Zone=1 Then Edit If Mouse Key=1 and Mouse Zone=2 Then ZMIENNA$="*news" : D=0 : S=0 : G=0 : H=0 : V=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=3 Then ZMIENNA$="*varia" : S=0 : G=0 : H=0 : V=0 : D=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=4 Then ZMIENNA$="*gry" : G=0 : H=0 : V=0 : D=0 : S=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=5 Then ZMIENNA$="*tipsy" : H=0 : V=0 : D=0 : S=0 : G=1 : CZYSC : Goto 1 If Mouse Key=1 and Mouse Zone=6 Then ZMIENNA$="*info" : V=0 : D=0 : S=0 : G=0 : H=1 : CZYSC : Goto 1 If Key State(11) If AX=$CCC Goto QU End If AX=AX-$111 Colour 2,AX Wait 10 QU: End If If Key State(12) If AX=$FFF Goto QI End If AX=AX+$111 Colour 2,AX Wait 10 QI: End If Loop Procedure _ZONE Procedure CZYSC Procedure TEKST[TEKS$]