04-06-88/TFS

Home » CEEFAX disks » telesoftware7.adl » 04-06-88/TFS

04-06-88/TFS

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware7.adl
Filename:	04-06-88/TFS
Read OK:	✔
File size:	1712 bytes
Load address:	FFFF1200
Exec address:	FFFF802B

Duplicates

There is 1 duplicate copy of this file in the archive:

CEEFAX disks » telesoftware12.adl » 27-01-89/TFS
CEEFAX disks » telesoftware7.adl » 04-06-88/TFS

File contents

  150H$="2.0":d1%=2*16+0:I$="TELETEXT":N=&B3:G=&B2:O=&B4:Q=&B0:S=&B1:ONERRORGOTO5160
  230*FX 200,1
  240X%=0:Y%=255:A%=&EA:u0%=(USR(&FFF4)AND&FF00)>0:*FX 20
  260X%=0:Y%=255:A%=&B4:v0%=USR(&FFF4)AND&FF00:IFu0%w0%=&7800-v0%ELSEw0%=HIMEM-TOP-&1900
  280m%=w0%/&594:IFm%>20m%=20
  300MODE7:VDU28,0,24,39,2:DIMl%16,x0%10,f%&40,b%(4),f0%(4),d%(4,20),k%(4,20),a%&50,w%(20),i%(20),_0%(20),g0%(20),o%(20),`0%(4,20),a0%(4,20),y0%(20):DIMq%(4,20),_%&30:h0%=&0FFFFFFF:READT:b0%=0:FORI%=1TO4:READf0%(I%):q%(I%,1)=h0%:NEXT:VDU23,1,0;0;0;0;
  420IFu0%H=v0%:c0%=H+&400ELSEDIMc0%&594*(m%),H&400
  430PROCA:?_%=5:_%?1=255:X%=_%:Y%=X%DIV256:A%=&13:CALLI:r%=0:*TTXON
  500*HON
  510*CH1
  520TIME=0:PROC5:PROCB(30):*/CODE
  560B%=FN0(N,0,a%,&50):i0%=FN0(Q,0,l%,8):`%=1:REPEAT:`%=FN3:PROCC:REPEAT:PROCD:PROCE:IFTIME>y0%(i%(1))+f0%(`%)PROCF
  660UNTIL(FN3<>`%)OR((TIME-j0%>60*60*100)ANDr%=0):IFTIME-j0%>60*60*100PROC5
  680UNTILFALSE:END
  710DEFPROCC:PROCG("CH"+STR$(`%)):PROCH:FORI%=0TO20:o%(I%)=0:_0%(I%)=0:g0%(I%)=0:NEXT:IFb%(`%)>0PROCI
  800ENDPROC
  820DEFFN4(e1%):k0%=FALSE:g%=-1:REPEAT:g%=g%+1:IF_0%(g%)=e1%k0%=TRUE:f1%=g%
  880UNTILk0%=TRUEORg%=m%:IFk0%=TRUETHEN=f1%
  900g%=-1:REPEAT:g%=g%+1:UNTILg0%(g%)=0ORg%=m%:IFg%<m%THEN=g%
  950g%=-1:REPEAT:g%=g%+1:UNTILo%(g%)=0:=g%
 1010DEFPROCF:IFb%(`%)=0ENDPROC
 1030$(x0%)="Timed out":PROC@(O,&81,d%(`%,1),x0%,10):PROC2(1,`%):ENDPROC
 1080DEFFN3:z0%=h0%:_1%=FN9:FORl0%=1TO4:IFq%(l0%,1)<z0%z0%=q%(l0%,1):_1%=l0%
 1130NEXT:=_1%
 1160DEFPROCI:FORR%=1TOb%(`%):x%=FN5(R%-1,k%(`%,R%)):IFx%=-1PROC6(R%)ELSEPROC7(R%,x%)
 1200NEXT:ENDPROC
 1230DEFPROC6(U%):s%=FN4(k%(`%,U%)):i%(U%)=s%:y0%(s%)=TIME:o%(s%)=o%(s%)+1:w%(U%)=c0%+&594*s%:PROCJ(k%(`%,U%),s%,c0%+&594*s%):ENDPROC
 1320DEFPROC7(U%,L%):i%(U%)=i%(L%):o%(i%(L%))=o%(i%(L%))+1:w%(U%)=c0%+&594*i%(L%):ENDPROC
 1380DEFFN5(`1%,h%):IF`1%=0THEN=-1
 1400m0%=FALSE:y%=0:REPEAT:y%=y%+1:IFk%(`%,y%)=h%m0%=TRUE
 1450UNTILy%=`1%ORm0%=TRUE:IFm0%=TRUE=y%
 1470=-1
 1490DEFPROCE:IFb%(`%)>0PROCK
 1510ENDPROC
 1530DEFPROCK:R%=0:REPEAT:R%=R%+1:g1%=FN6(i%(R%)):IF(g1%AND2)=2PROCL
 1590UNTILR%>=b%(`%):ENDPROC
 1620DEFPROCL:IF((TIME-a0%(`%,R%))/f0%(`%)<T)AND`0%(`%,R%)ENDPROC
 1640h1%=TIME:REPEAT:n0%=FN6(i%(R%)):UNTIL(n0%AND4)=0ORTIME>h1%+50:PROC3(i%(R%),n0%OR1):PROCM(w%(R%)):PRINT'FN1(d%(`%,R%));TAB(8)"..Receiving page ";k%(`%,R%);" on ";`%;"..";:PROC3(i%(R%),n0%AND254):PROC@(O,&80,d%(`%,R%),HOR&FFFF0000,&400):VDU23,1,0;0;0;0;:PROC2(R%,`%):R%=R%-1:ENDPROC
 1780DEFPROCA:I=&FFF1:R=&FFF4:`=&FFEE:ENDPROC
 1840DEFPROC0(i1%):?_%=i1%:X%=_%:Y%=X%DIV256:A%=&7A:CALLI:ENDPROC
 1900DEFPROCH:PROC0(14):ENDPROC
 1940DEFPROCB(j%):_%?1=j%:PROC0(7):ENDPROC
 1990DEFFN6(h%):_%?1=h%:PROC0(2):=_%?2
 2040DEFPROCJ(h%,j%,p%):IFj%=m%ENDPROC
 2060IF_0%(j%)=h%ENDPROC
 2070PROC0(16):_%?1=j%:_%?2=h%DIV100:j1%=h%MOD10:k1%=(h%MOD100)DIV10:_%?3=&10*k1%+j1%:_%?4=h%MOD10:_%?4=&3F:_%?5=&7F:_%!6=p%:PROC0(5):PROC3(j%,&80):_0%(j%)=h%:g0%(j%)=1:ENDPROC
 2230DEFPROC3(h%,l1%):_%?1=h%:_%?2=l1%:PROC0(3):ENDPROC
 2290DEFPROCM(o0%):J$=FNA(o0%):U=LEN(J$):!f%=14+1+40:f%!2=o0%:f%!4=H:f%!6=H+40:f%!8=H+&3FE:f%!10=H+24*40-14:f%!12=o0%!3:$(f%+14)=STRING$(39-U," ")+J$:X%=f%:Y%=X%DIV256:A%=&E0:CALLI:ENDPROC
 2380DEFPROC2(p0%,e%):LOCALI%:IFb%(e%)=0ENDPROC
 2410IF`%=e%o%(i%(p0%))=o%(i%(p0%))-1
 2420FORI%=p0%TOb%(e%)-1:k%(e%,I%)=k%(e%,I%+1):d%(e%,I%)=d%(e%,I%+1):IFe%=`%w%(I%)=w%(I%+1)
 2460IFe%=`%i%(I%)=i%(I%+1)
 2470q%(e%,I%)=q%(e%,I%+1):`0%(e%,I%)=`0%(e%,I%+1):a0%(e%,I%)=a0%(e%,I%+1):NEXT:r%=r%-1:b%(e%)=b%(e%)-1:IFb%(e%)=0q%(e%,1)=h0%
 2540ENDPROC
 2560DEFPROCN(V):T%=TIME:REPEATUNTILTIME>T%+V:ENDPROC
 2610DEFFNA(p%):_%?1=p%MOD256:_%?2=p%DIV256:PROC0(23):IF_%?3=0THEN="No check"
 2660IF_%?3=1THEN="Good check"
 2670IF_%?3=&FFTHEN="Bad data"
 2680="Bad check"
 2700DEFPROCG(L$):$_%=L$:X%=_%:Y%=X%DIV256:CALL&FFF7:ENDPROC
 2750DEFPROC@(h%,m1%,d0%,z%,p%):q0%=0:REPEAT:q0%=q0%+1:?_%=m1%:_%?1=h%:_%!2=d0%:_%!4=z%:_%!8=z%+p%:X%=_%:Y%=X%DIV256:A%=&10:CALLI:UNTILq0%>5ORFN7=0:IFFN7<>0PRINT'"Not listening (";FN1(d0%);")";
 2880ENDPROC
 2900DEFFN7:REPEAT:A%=&32:j%=(USR(R)AND&FF00)DIV&100:UNTILj%<128:=j%
 2970DEFFN0(h%,d0%,z%,p%):?_%=0:_%?1=&7F:_%?2=h%:_%!3=d0%:_%!5=z%:_%!9=z%+p%:X%=_%:Y%=X%DIV256:A%=&11:CALLI:=?_%
 3080DEFFN8(j%):A%=&33:X%=j%:=USR(R)AND&8000
 3120DEFPROC8(j%):?_%=j%:X%=_%:Y%=X%DIV256:A%=&11:CALLI:ENDPROC
 3180DEFPROCD:IFFN8(B%)>0PROCO
 3200IFFN8(i0%)>0PROCQ
 3210ENDPROC
 3230DEFPROCQ:PROC8(i0%):l%?8=13:IF$l%=I$PROCR
 3270i0%=FN0(Q,0,l%,8):ENDPROC
 3300DEFPROCR:d%=_%!3AND&FFFF:PRINT'FN1(d%);TAB(8);"--FIND SERVER--";:?l%=0:l%?1=&B2:l%?2=d1%:$(l%+3)=I$:l%?11=0:$(l%+12)=H$:PROC@(S,&80,d%,l%,&20):ENDPROC
 3420DEFPROCO:PROC8(B%):d%=_%!3AND&FFFF:n%=_%?1:!f%=!a%:PRINT'FN1(d%);TAB(8);"CODE :";~n%;"  ";:IFn%=&81PROC9(FALSE,&81)
 3490IFn%=&80PROCS
 3500IFn%=&82PROCT
 3510IFn%=&83PROCU
 3520IFn%=&84PROCV
 3530IFn%=&85PROCW
 3540IFn%=&86PROC9(TRUE,&86)
 3550IFn%=&87PROCX
 3560B%=FN0(N,0,a%,&50):ENDPROC
 3590DEFFN1(a1%):M$=FN@(3,a1%DIV256)+".":=M$+FN@(3,a1%MOD256)
 3630DEFFN@(n1%,o1%):K$=STR$(o1%):=STRING$(n1%-LEN(K$),"0")+K$
 3680DEFPROCU:PRINT"Max users";:?a%=0:a%?1=m%:PROC@(G,&83,d%,a%,2):ENDPROC
 3750DEFPROCX:e0%=?f%:PRINT"Request port ";e0%;:IFe0%<0ORe0%>3PROC1(&87,5,"Bad port"):ENDPROC
 3790?a%=0:a%!1=ADVAL(e0%):PROC@(G,&87,d%,a%,3):ENDPROC
 3840DEFPROCY:x%=FN5(b%(`%)-1,k%(`%,b%(`%))):IFx%=-1PROC6(b%(c%))ELSEPROC7(b%(c%),x%)
 3870ENDPROC
 3890DEFPROCS:PRINT"Version number";:?a%=0:$(a%+1)=H$:PROC@(G,&80,d%,a%,&20):ENDPROC
 3960DEFPROCZ:r0%=TIME-j0%:N$=FN@(2,(p1%+((r0%+100*s0%+6000*b1%)DIV360000))MOD24):O$=FN@(2,(b1%+((r0%+100*s0%)DIV6000))MOD60):Q$=FN@(2,(s0%+(r0%DIV100))MOD60):R$=N$+":"+O$+":"+Q$+S$:?a%=0:$(a%+1)=R$:PROC@(G,&84,d%,a%,22):ENDPROC
 4070DEFPROC5:*CH1
 4090IFr%=0TIME=0
 4100c1%=FALSE:PROCN(150):PROC0(21):j0%=TIME:IF_%?10=&FFc1%=TRUE:ENDPROC
 4150_%?3=13:_%?6=13:_%?9=13:p1%=VAL($(_%+1)):b1%=VAL($(_%+4)):s0%=VAL($(_%+7)):PROC0(15):W=(10*(_%?8AND&F0)DIV&10)+(_%?8AND&F):X=(_%?9AND&F0)DIV&10:Y=_%?9AND&F:Z=(_%?10AND&F0)DIV&10:_=_%?10AND&F:J=10000*W+1000*X+100*Y+10*Z+_:K=(100*(J-15078.2))DIV36525
 4270L=INT((J-14956.1-INT(365.25*K))/30.6001):IFL<14M=0ELSEM=1
 4290q1%=J-14956-INT(365.25*K)-INT(30.6*L):r1%=L-1-12*M:s1%=K+M:S$=FN@(2,q1%)+"/"+FN@(2,r1%)+"/"+FN@(4,s1%+1900):ENDPROC
 4350DEFPROC_:?a%=4:$(a%+1)="Time unavailable":PROC@(G,&84,d%,a%,22):ENDPROC
 4410DEFPROCV:PRINT"Request time";:IFc1%=TRUEPROC_ELSEPROCZ
 4440ENDPROC
 4460DEFFN9:PROC0(0):=(_%?1)+1
 4500DEFFN2(t0%):IFt0%<32t0%=255
 4520=t0%
 4540DEFPROC9(t1%,u%):G$=CHR$(FN2(f%?1))+CHR$(FN2(f%?2))+CHR$(FN2(f%?3)):k%=VAL(G$):c%=?f%-48:PRINT"Request page ";G$;" on ";c%;:G$=CHR$(f%?1)+CHR$(f%?2)+CHR$(f%?3):PROC4:IFc%<1ORc%>4PROC1(u%,2,"Bad channel"):ENDPROC
 4620IFk%<100PROC1(u%,1,"Bad page number"):ENDPROC
 4630IFb%(c%)=19PROC1(u%,3,"Channel busy"):ENDPROC
 4640IF(`%=c%)AND(FN4(k%)=m%)PROC1(u%,3,"Channel busy"):ENDPROC
 4650IF(`%<>c%)AND(b%(c%)=m%)PROC1(u%,3,"Channel busy"):ENDPROC
 4660b%(c%)=b%(c%)+1:r%=r%+1:b0%=b0%+1:d%(c%,b%(c%))=d%:k%(c%,b%(c%))=k%:q%(c%,b%(c%))=b0%:a0%(c%,b%(c%))=TIME:`0%(c%,b%(c%))=t1%:w1%=b0%:IF`%=c%PROCY
 4760?a%=0:a%?1=r%:PROC@(G,u%,d%(c%,b%(c%)),a%,&20):ENDPROC
 4810DEFPROCT:PRINT"Cancel pages";:PROC@(G,&82,d%,a%,1):PROC4:ENDPROC
 4870DEFPROCW:PRINT"Logoff";:PROC@(G,&85,d%,a%,1):PROC4:ENDPROC
 4930DEFPROC4:v%=0:REPEAT:v%=v%+1:t%=0:REPEAT:t%=t%+1:IFFNBPROC2(t%,v%):t%=t%-1
 5010UNTILt%>=b%(v%):UNTILv%=4:ENDPROC
 5050DEFFNB:IFd%(v%,t%)=d%THEN=TRUE
 5070=FALSE
 5090DEFPROC1(u1%,v1%,T$):?a%=v1%:$(a%+1)=T$:PRINT'"ERROR : ";$(a%+1);:PROC@(G,u1%,d%,a%,&20):ENDPROC
 5160*FX 13,5
 5170*HOFF
 5180*TTXOFF
 5190REPORT:PRINT" at line ";ERL:END
 5210DATA 0.5
 5220DATA 4000,4000,4000,4000

�KH$="2.0":d1%=2*16+0:I$="TELETEXT":N=&B3:G=&B2:O=&B4:Q=&B0:S=&B1:��ThT
�
*FX 200,1
�4X%=0:Y%=255:A%=&EA:u0%=(�(&FFF4)�&FF00)>0:*FX 20
JX%=0:Y%=255:A%=&B4:v0%=�(&FFF4)�&FF00:�u0%w0%=&7800-v0%�w0%=�-�P-&1900
m%=w0%/&594:�m%>20m%=20
,��7:�28,0,24,39,2:�l%16,x0%10,f%&40,b%(4),f0%(4),d%(4,20),k%(4,20),a%&50,w%(20),i%(20),_0%(20),g0%(20),o%(20),`0%(4,20),a0%(4,20),y0%(20):�q%(4,20),_%&30:h0%=&0FFFFFFF:�T:b0%=0:�I%=1�4:�f0%(I%):q%(I%,1)=h0%:�:�23,1,0;0;0;0;
�,�u0%H=v0%:c0%=H+&400��c0%&594*(m%),H&400
�;�A:?_%=5:_%?1=255:X%=_%:Y%=X%�256:A%=&13:�I:r%=0:*TTXON
�*HON
�*CH1
�=0:�5:�B(30):*/CODE
0VB%=�0(N,0,a%,&50):i0%=�0(Q,0,l%,8):`%=1:�:`%=�3:�C:�:�D:�E:�>y0%(i%(1))+f0%(`%)�F
�9�(�3<>`%)�((�-j0%>60*60*100)�r%=0):�-j0%>60*60*100�5
���:�
�M��C:�G("CH"+�(`%)):�H:�I%=0�20:o%(I%)=0:_0%(I%)=0:g0%(I%)=0:�:�b%(`%)>0�I
 �
4;ݤ4(e1%):k0%=�:g%=-1:�:g%=g%+1:�_0%(g%)=e1%k0%=�:f1%=g%
p�k0%=��g%=m%:�k0%=��=f1%
�/g%=-1:�:g%=g%+1:�g0%(g%)=0�g%=m%:�g%<m%�=g%
�!g%=-1:�:g%=g%+1:�o%(g%)=0:=g%
���F:�b%(`%)=0�
;$(x0%)="Timed out":�@(O,&81,d%(`%,1),x0%,10):�2(1,`%):�
8Cݤ3:z0%=h0%:_1%=�9:�l0%=1�4:�q%(l0%,1)<z0%z0%=q%(l0%,1):_1%=l0%
j
�:=_1%
�A��I:�R%=1�b%(`%):x%=�5(R%-1,k%(`%,R%)):�x%=-1�6(R%)��7(R%,x%)
��:�
�r��6(U%):s%=�4(k%(`%,U%)):i%(U%)=s%:y0%(s%)=�:o%(s%)=o%(s%)+1:w%(U%)=c0%+&594*s%:�J(k%(`%,U%),s%,c0%+&594*s%):�
(M��7(U%,L%):i%(U%)=i%(L%):o%(i%(L%))=o%(i%(L%))+1:w%(U%)=c0%+&594*i%(L%):�
dݤ5(`1%,h%):�`1%=0�=-1
x+m0%=�:y%=0:�:y%=y%+1:�k%(`%,y%)=h%m0%=�
��y%=`1%�m0%=�:�m0%=�=y%
�=-1
���E:�b%(`%)>0�K
��
�2��K:R%=0:�:R%=R%+1:g1%=�6(i%(R%)):�(g1%�2)=2�L
6�R%>=b%(`%):�
T/��L:�((�-a0%(`%,R%))/f0%(`%)<T)�`0%(`%,R%)�
h�h1%=�:�:n0%=�6(i%(R%)):�(n0%�4)=0��>h1%+50:�3(i%(R%),n0%�1):�M(w%(R%)):�'�1(d%(`%,R%));�8)"..Receiving page ";k%(`%,R%);" on ";`%;"..";:�3(i%(R%),n0%�254):�@(O,&80,d%(`%,R%),H�&FFFF0000,&400):�23,1,0;0;0;0;:�2(R%,`%):R%=R%-1:�
�!��A:I=&FFF1:R=&FFF4:`=&FFEE:�
00��0(i1%):?_%=i1%:X%=_%:Y%=X%�256:A%=&7A:�I:�
l��H:�0(14):�
���B(j%):_%?1=j%:�0(7):�
�ݤ6(h%):_%?1=h%:�0(2):=_%?2
���J(h%,j%,p%):�j%=m%�
�_0%(j%)=h%�
��0(16):_%?1=j%:_%?2=h%�100:j1%=h%�10:k1%=(h%�100)�10:_%?3=&10*k1%+j1%:_%?4=h%�10:_%?4=&3F:_%?5=&7F:_%!6=p%:�0(5):�3(j%,&80):_0%(j%)=h%:g0%(j%)=1:�
�(��3(h%,l1%):_%?1=h%:_%?2=l1%:�0(3):�
���M(o0%):J$=�A(o0%):U=�(J$):!f%=14+1+40:f%!2=o0%:f%!4=H:f%!6=H+40:f%!8=H+&3FE:f%!10=H+24*40-14:f%!12=o0%!3:$(f%+14)=�39-U," ")+J$:X%=f%:Y%=X%�256:A%=&E0:�I:�
	L��2(p0%,e%):�I%:�b%(e%)=0�
	j#�`%=e%o%(i%(p0%))=o%(i%(p0%))-1
	tV�I%=p0%�b%(e%)-1:k%(e%,I%)=k%(e%,I%+1):d%(e%,I%)=d%(e%,I%+1):�e%=`%w%(I%)=w%(I%+1)
	��e%=`%i%(I%)=i%(I%+1)
	�yq%(e%,I%)=q%(e%,I%+1):`0%(e%,I%)=`0%(e%,I%+1):a0%(e%,I%)=a0%(e%,I%+1):�:r%=r%-1:b%(e%)=b%(e%)-1:�b%(e%)=0q%(e%,1)=h0%
	��
��N(V):T%=�:���>T%+V:�
2>ݤA(p%):_%?1=p%�256:_%?2=p%�256:�0(23):�_%?3=0�="No check"
d�_%?3=1�="Good check"
n�_%?3=&FF�="Bad data"
x="Bad check"
�+��G(L$):$_%=L$:X%=_%:Y%=X%�256:�&FFF7:�
����@(h%,m1%,d0%,z%,p%):q0%=0:�:q0%=q0%+1:?_%=m1%:_%?1=h%:_%!2=d0%:_%!4=z%:_%!8=z%+p%:X%=_%:Y%=X%�256:A%=&10:�I:�q0%>5��7=0:�7<>0�'"Not listening (";�1(d0%);")";
@�
T1ݤ7:�:A%=&32:j%=(�(R)�&FF00)�&100:�j%<128:=j%
�gݤ0(h%,d0%,z%,p%):?_%=0:_%?1=&7F:_%?2=h%:_%!3=d0%:_%!5=z%:_%!9=z%+p%:X%=_%:Y%=X%�256:A%=&11:�I:=?_%
$ݤ8(j%):A%=&33:X%=j%:=�(R)�&8000
0.��8(j%):?_%=j%:X%=_%:Y%=X%�256:A%=&11:�I:�
l��D:�8(B%)>0�O
��8(i0%)>0�Q
��
�!��Q:�8(i0%):l%?8=13:�$l%=I$�R
�i0%=�0(Q,0,l%,8):�
���R:d%=_%!3�&FFFF:�'�1(d%);�8);"--FIND SERVER--";:?l%=0:l%?1=&B2:l%?2=d1%:$(l%+3)=I$:l%?11=0:$(l%+12)=H$:�@(S,&80,d%,l%,&20):�

\]��O:�8(B%):d%=_%!3�&FFFF:n%=_%?1:!f%=!a%:�'�1(d%);�8);"CODE :";~n%;"  ";:�n%=&81�9(�,&81)

�
�n%=&80�S

�
�n%=&82�T

�
�n%=&83�U

�
�n%=&84�V

�
�n%=&85�W

��n%=&86�9(�,&86)

�
�n%=&87�X

�B%=�0(N,0,a%,&50):�
3ݤ1(a1%):M$=�@(3,a1%�256)+".":=M$+�@(3,a1%�256)
..ݤ@(n1%,o1%):K$=�(o1%):=�n1%-�(K$),"0")+K$
`7��U:�"Max users";:?a%=0:a%?1=m%:�@(G,&83,d%,a%,2):�
�H��X:e0%=?f%:�"Request port ";e0%;:�e0%<0�e0%>3�1(&87,5,"Bad port"):�
�)?a%=0:a%!1=�(e0%):�@(G,&87,d%,a%,3):�
D��Y:x%=�5(b%(`%)-1,k%(`%,b%(`%))):�x%=-1�6(b%(c%))��7(b%(c%),x%)
�
2A��S:�"Version number";:?a%=0:$(a%+1)=H$:�@(G,&80,d%,a%,&20):�
x���Z:r0%=�-j0%:N$=�@(2,(p1%+((r0%+100*s0%+6000*b1%)�360000))�24):O$=�@(2,(b1%+((r0%+100*s0%)�6000))�60):Q$=�@(2,(s0%+(r0%�100))�60):R$=N$+":"+O$+":"+Q$+S$:?a%=0:$(a%+1)=R$:�@(G,&84,d%,a%,22):�
���5:*CH1
��r%=0�=0
0c1%=�:�N(150):�0(21):j0%=�:�_%?10=&FFc1%=�:�
6�_%?3=13:_%?6=13:_%?9=13:p1%=�($(_%+1)):b1%=�($(_%+4)):s0%=�($(_%+7)):�0(15):W=(10*(_%?8�&F0)�&10)+(_%?8�&F):X=(_%?9�&F0)�&10:Y=_%?9�&F:Z=(_%?10�&F0)�&10:_=_%?10�&F:J=10000*W+1000*X+100*Y+10*Z+_:K=(100*(J-15078.2))�36525
�5L=�((J-14956.1-�(365.25*K))/30.6001):�L<14M=0�M=1
�jq1%=J-14956-�(365.25*K)-�(30.6*L):r1%=L-1-12*M:s1%=K+M:S$=�@(2,q1%)+"/"+�@(2,r1%)+"/"+�@(4,s1%+1900):�
�=��_:?a%=4:$(a%+1)="Time unavailable":�@(G,&84,d%,a%,22):�
:$��V:�"Request time";:�c1%=��_��Z
X�
lݤ9:�0(0):=(_%?1)+1
�ݤ2(t0%):�t0%<32t0%=255
�=t0%
����9(t1%,u%):G$=�(�2(f%?1))+�(�2(f%?2))+�(�2(f%?3)):k%=�(G$):c%=?f%-48:�"Request page ";G$;" on ";c%;:G$=�(f%?1)+�(f%?2)+�(f%?3):�4:�c%<1�c%>4�1(u%,2,"Bad channel"):�
'�k%<100�1(u%,1,"Bad page number"):�
'�b%(c%)=19�1(u%,3,"Channel busy"):�
 1�(`%=c%)�(�4(k%)=m%)�1(u%,3,"Channel busy"):�
*2�(`%<>c%)�(b%(c%)=m%)�1(u%,3,"Channel busy"):�
4�b%(c%)=b%(c%)+1:r%=r%+1:b0%=b0%+1:d%(c%,b%(c%))=d%:k%(c%,b%(c%))=k%:q%(c%,b%(c%))=b0%:a0%(c%,b%(c%))=�:`0%(c%,b%(c%))=t1%:w1%=b0%:�`%=c%�Y
�1?a%=0:a%?1=r%:�@(G,u%,d%(c%,b%(c%)),a%,&20):�
�/��T:�"Cancel pages";:�@(G,&82,d%,a%,1):�4:�
)��W:�"Logoff";:�@(G,&85,d%,a%,1):�4:�
B:��4:v%=0:�:v%=v%+1:t%=0:�:t%=t%+1:�B�2(t%,v%):t%=t%-1
��t%>=b%(v%):�v%=4:�
�ݤB:�d%(v%,t%)=d%�=�
�=�
�R��1(u1%,v1%,T$):?a%=v1%:$(a%+1)=T$:�'"ERROR : ";$(a%+1);:�@(G,u1%,d%,a%,&20):�
(*FX 13,5
2	*HOFF
<*TTXOFF
F�:�" at line ";�:�
Z	� 0.5
d� 4000,4000,4000,4000
�

00000000  0d 00 96 4b 48 24 3d 22  32 2e 30 22 3a 64 31 25  |...KH$="2.0":d1%|
00000010  3d 32 2a 31 36 2b 30 3a  49 24 3d 22 54 45 4c 45  |=2*16+0:I$="TELE|
00000020  54 45 58 54 22 3a 4e 3d  26 42 33 3a 47 3d 26 42  |TEXT":N=&B3:G=&B|
00000030  32 3a 4f 3d 26 42 34 3a  51 3d 26 42 30 3a 53 3d  |2:O=&B4:Q=&B0:S=|
00000040  26 42 31 3a ee 85 e5 8d  54 68 54 0d 00 e6 0d 2a  |&B1:....ThT....*|
00000050  46 58 20 32 30 30 2c 31  0d 00 f0 34 58 25 3d 30  |FX 200,1...4X%=0|
00000060  3a 59 25 3d 32 35 35 3a  41 25 3d 26 45 41 3a 75  |:Y%=255:A%=&EA:u|
00000070  30 25 3d 28 ba 28 26 46  46 46 34 29 80 26 46 46  |0%=(.(&FFF4).&FF|
00000080  30 30 29 3e 30 3a 2a 46  58 20 32 30 0d 01 04 4a  |00)>0:*FX 20...J|
00000090  58 25 3d 30 3a 59 25 3d  32 35 35 3a 41 25 3d 26  |X%=0:Y%=255:A%=&|
000000a0  42 34 3a 76 30 25 3d ba  28 26 46 46 46 34 29 80  |B4:v0%=.(&FFF4).|
000000b0  26 46 46 30 30 3a e7 75  30 25 77 30 25 3d 26 37  |&FF00:.u0%w0%=&7|
000000c0  38 30 30 2d 76 30 25 8b  77 30 25 3d 93 2d b8 50  |800-v0%.w0%=.-.P|
000000d0  2d 26 31 39 30 30 0d 01  18 1b 6d 25 3d 77 30 25  |-&1900....m%=w0%|
000000e0  2f 26 35 39 34 3a e7 6d  25 3e 32 30 6d 25 3d 32  |/&594:.m%>20m%=2|
000000f0  30 0d 01 2c e2 eb 37 3a  ef 32 38 2c 30 2c 32 34  |0..,..7:.28,0,24|
00000100  2c 33 39 2c 32 3a de 6c  25 31 36 2c 78 30 25 31  |,39,2:.l%16,x0%1|
00000110  30 2c 66 25 26 34 30 2c  62 25 28 34 29 2c 66 30  |0,f%&40,b%(4),f0|
00000120  25 28 34 29 2c 64 25 28  34 2c 32 30 29 2c 6b 25  |%(4),d%(4,20),k%|
00000130  28 34 2c 32 30 29 2c 61  25 26 35 30 2c 77 25 28  |(4,20),a%&50,w%(|
00000140  32 30 29 2c 69 25 28 32  30 29 2c 5f 30 25 28 32  |20),i%(20),_0%(2|
00000150  30 29 2c 67 30 25 28 32  30 29 2c 6f 25 28 32 30  |0),g0%(20),o%(20|
00000160  29 2c 60 30 25 28 34 2c  32 30 29 2c 61 30 25 28  |),`0%(4,20),a0%(|
00000170  34 2c 32 30 29 2c 79 30  25 28 32 30 29 3a de 71  |4,20),y0%(20):.q|
00000180  25 28 34 2c 32 30 29 2c  5f 25 26 33 30 3a 68 30  |%(4,20),_%&30:h0|
00000190  25 3d 26 30 46 46 46 46  46 46 46 3a f3 54 3a 62  |%=&0FFFFFFF:.T:b|
000001a0  30 25 3d 30 3a e3 49 25  3d 31 b8 34 3a f3 66 30  |0%=0:.I%=1.4:.f0|
000001b0  25 28 49 25 29 3a 71 25  28 49 25 2c 31 29 3d 68  |%(I%):q%(I%,1)=h|
000001c0  30 25 3a ed 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |0%:.:.23,1,0;0;0|
000001d0  3b 30 3b 0d 01 a4 2c e7  75 30 25 48 3d 76 30 25  |;0;...,.u0%H=v0%|
000001e0  3a 63 30 25 3d 48 2b 26  34 30 30 8b de 63 30 25  |:c0%=H+&400..c0%|
000001f0  26 35 39 34 2a 28 6d 25  29 2c 48 26 34 30 30 0d  |&594*(m%),H&400.|
00000200  01 ae 3b f2 41 3a 3f 5f  25 3d 35 3a 5f 25 3f 31  |..;.A:?_%=5:_%?1|
00000210  3d 32 35 35 3a 58 25 3d  5f 25 3a 59 25 3d 58 25  |=255:X%=_%:Y%=X%|
00000220  81 32 35 36 3a 41 25 3d  26 31 33 3a d6 49 3a 72  |.256:A%=&13:.I:r|
00000230  25 3d 30 3a 2a 54 54 58  4f 4e 0d 01 f4 08 2a 48  |%=0:*TTXON....*H|
00000240  4f 4e 0d 01 fe 08 2a 43  48 31 0d 02 08 18 d1 3d  |ON....*CH1.....=|
00000250  30 3a f2 35 3a f2 42 28  33 30 29 3a 2a 2f 43 4f  |0:.5:.B(30):*/CO|
00000260  44 45 0d 02 30 56 42 25  3d a4 30 28 4e 2c 30 2c  |DE..0VB%=.0(N,0,|
00000270  61 25 2c 26 35 30 29 3a  69 30 25 3d a4 30 28 51  |a%,&50):i0%=.0(Q|
00000280  2c 30 2c 6c 25 2c 38 29  3a 60 25 3d 31 3a f5 3a  |,0,l%,8):`%=1:.:|
00000290  60 25 3d a4 33 3a f2 43  3a f5 3a f2 44 3a f2 45  |`%=.3:.C:.:.D:.E|
000002a0  3a e7 91 3e 79 30 25 28  69 25 28 31 29 29 2b 66  |:..>y0%(i%(1))+f|
000002b0  30 25 28 60 25 29 f2 46  0d 02 94 39 fd 28 a4 33  |0%(`%).F...9.(.3|
000002c0  3c 3e 60 25 29 84 28 28  91 2d 6a 30 25 3e 36 30  |<>`%).((.-j0%>60|
000002d0  2a 36 30 2a 31 30 30 29  80 72 25 3d 30 29 3a e7  |*60*100).r%=0):.|
000002e0  91 2d 6a 30 25 3e 36 30  2a 36 30 2a 31 30 30 f2  |.-j0%>60*60*100.|
000002f0  35 0d 02 a8 08 fd a3 3a  e0 0d 02 c6 4d dd f2 43  |5......:....M..C|
00000300  3a f2 47 28 22 43 48 22  2b c3 28 60 25 29 29 3a  |:.G("CH"+.(`%)):|
00000310  f2 48 3a e3 49 25 3d 30  b8 32 30 3a 6f 25 28 49  |.H:.I%=0.20:o%(I|
00000320  25 29 3d 30 3a 5f 30 25  28 49 25 29 3d 30 3a 67  |%)=0:_0%(I%)=0:g|
00000330  30 25 28 49 25 29 3d 30  3a ed 3a e7 62 25 28 60  |0%(I%)=0:.:.b%(`|
00000340  25 29 3e 30 f2 49 0d 03  20 05 e1 0d 03 34 3b dd  |%)>0.I.. ....4;.|
00000350  a4 34 28 65 31 25 29 3a  6b 30 25 3d a3 3a 67 25  |.4(e1%):k0%=.:g%|
00000360  3d 2d 31 3a f5 3a 67 25  3d 67 25 2b 31 3a e7 5f  |=-1:.:g%=g%+1:._|
00000370  30 25 28 67 25 29 3d 65  31 25 6b 30 25 3d b9 3a  |0%(g%)=e1%k0%=.:|
00000380  66 31 25 3d 67 25 0d 03  70 1c fd 6b 30 25 3d b9  |f1%=g%..p..k0%=.|
00000390  84 67 25 3d 6d 25 3a e7  6b 30 25 3d b9 8c 3d 66  |.g%=m%:.k0%=..=f|
000003a0  31 25 0d 03 84 2f 67 25  3d 2d 31 3a f5 3a 67 25  |1%.../g%=-1:.:g%|
000003b0  3d 67 25 2b 31 3a fd 67  30 25 28 67 25 29 3d 30  |=g%+1:.g0%(g%)=0|
000003c0  84 67 25 3d 6d 25 3a e7  67 25 3c 6d 25 8c 3d 67  |.g%=m%:.g%<m%.=g|
000003d0  25 0d 03 b6 21 67 25 3d  2d 31 3a f5 3a 67 25 3d  |%...!g%=-1:.:g%=|
000003e0  67 25 2b 31 3a fd 6f 25  28 67 25 29 3d 30 3a 3d  |g%+1:.o%(g%)=0:=|
000003f0  67 25 0d 03 f2 12 dd f2  46 3a e7 62 25 28 60 25  |g%......F:.b%(`%|
00000400  29 3d 30 e1 0d 04 06 3b  24 28 78 30 25 29 3d 22  |)=0....;$(x0%)="|
00000410  54 69 6d 65 64 20 6f 75  74 22 3a f2 40 28 4f 2c  |Timed out":.@(O,|
00000420  26 38 31 2c 64 25 28 60  25 2c 31 29 2c 78 30 25  |&81,d%(`%,1),x0%|
00000430  2c 31 30 29 3a f2 32 28  31 2c 60 25 29 3a e1 0d  |,10):.2(1,`%):..|
00000440  04 38 43 dd a4 33 3a 7a  30 25 3d 68 30 25 3a 5f  |.8C..3:z0%=h0%:_|
00000450  31 25 3d a4 39 3a e3 6c  30 25 3d 31 b8 34 3a e7  |1%=.9:.l0%=1.4:.|
00000460  71 25 28 6c 30 25 2c 31  29 3c 7a 30 25 7a 30 25  |q%(l0%,1)<z0%z0%|
00000470  3d 71 25 28 6c 30 25 2c  31 29 3a 5f 31 25 3d 6c  |=q%(l0%,1):_1%=l|
00000480  30 25 0d 04 6a 0a ed 3a  3d 5f 31 25 0d 04 88 41  |0%..j..:=_1%...A|
00000490  dd f2 49 3a e3 52 25 3d  31 b8 62 25 28 60 25 29  |..I:.R%=1.b%(`%)|
000004a0  3a 78 25 3d a4 35 28 52  25 2d 31 2c 6b 25 28 60  |:x%=.5(R%-1,k%(`|
000004b0  25 2c 52 25 29 29 3a e7  78 25 3d 2d 31 f2 36 28  |%,R%)):.x%=-1.6(|
000004c0  52 25 29 8b f2 37 28 52  25 2c 78 25 29 0d 04 b0  |R%)..7(R%,x%)...|
000004d0  07 ed 3a e1 0d 04 ce 72  dd f2 36 28 55 25 29 3a  |..:....r..6(U%):|
000004e0  73 25 3d a4 34 28 6b 25  28 60 25 2c 55 25 29 29  |s%=.4(k%(`%,U%))|
000004f0  3a 69 25 28 55 25 29 3d  73 25 3a 79 30 25 28 73  |:i%(U%)=s%:y0%(s|
00000500  25 29 3d 91 3a 6f 25 28  73 25 29 3d 6f 25 28 73  |%)=.:o%(s%)=o%(s|
00000510  25 29 2b 31 3a 77 25 28  55 25 29 3d 63 30 25 2b  |%)+1:w%(U%)=c0%+|
00000520  26 35 39 34 2a 73 25 3a  f2 4a 28 6b 25 28 60 25  |&594*s%:.J(k%(`%|
00000530  2c 55 25 29 2c 73 25 2c  63 30 25 2b 26 35 39 34  |,U%),s%,c0%+&594|
00000540  2a 73 25 29 3a e1 0d 05  28 4d dd f2 37 28 55 25  |*s%):...(M..7(U%|
00000550  2c 4c 25 29 3a 69 25 28  55 25 29 3d 69 25 28 4c  |,L%):i%(U%)=i%(L|
00000560  25 29 3a 6f 25 28 69 25  28 4c 25 29 29 3d 6f 25  |%):o%(i%(L%))=o%|
00000570  28 69 25 28 4c 25 29 29  2b 31 3a 77 25 28 55 25  |(i%(L%))+1:w%(U%|
00000580  29 3d 63 30 25 2b 26 35  39 34 2a 69 25 28 4c 25  |)=c0%+&594*i%(L%|
00000590  29 3a e1 0d 05 64 1a dd  a4 35 28 60 31 25 2c 68  |):...d...5(`1%,h|
000005a0  25 29 3a e7 60 31 25 3d  30 8c 3d 2d 31 0d 05 78  |%):.`1%=0.=-1..x|
000005b0  2b 6d 30 25 3d a3 3a 79  25 3d 30 3a f5 3a 79 25  |+m0%=.:y%=0:.:y%|
000005c0  3d 79 25 2b 31 3a e7 6b  25 28 60 25 2c 79 25 29  |=y%+1:.k%(`%,y%)|
000005d0  3d 68 25 6d 30 25 3d b9  0d 05 aa 1b fd 79 25 3d  |=h%m0%=......y%=|
000005e0  60 31 25 84 6d 30 25 3d  b9 3a e7 6d 30 25 3d b9  |`1%.m0%=.:.m0%=.|
000005f0  3d 79 25 0d 05 be 07 3d  2d 31 0d 05 d2 13 dd f2  |=y%....=-1......|
00000600  45 3a e7 62 25 28 60 25  29 3e 30 f2 4b 0d 05 e6  |E:.b%(`%)>0.K...|
00000610  05 e1 0d 05 fa 32 dd f2  4b 3a 52 25 3d 30 3a f5  |.....2..K:R%=0:.|
00000620  3a 52 25 3d 52 25 2b 31  3a 67 31 25 3d a4 36 28  |:R%=R%+1:g1%=.6(|
00000630  69 25 28 52 25 29 29 3a  e7 28 67 31 25 80 32 29  |i%(R%)):.(g1%.2)|
00000640  3d 32 f2 4c 0d 06 36 11  fd 52 25 3e 3d 62 25 28  |=2.L..6..R%>=b%(|
00000650  60 25 29 3a e1 0d 06 54  2f dd f2 4c 3a e7 28 28  |`%):...T/..L:.((|
00000660  91 2d 61 30 25 28 60 25  2c 52 25 29 29 2f 66 30  |.-a0%(`%,R%))/f0|
00000670  25 28 60 25 29 3c 54 29  80 60 30 25 28 60 25 2c  |%(`%)<T).`0%(`%,|
00000680  52 25 29 e1 0d 06 68 e6  68 31 25 3d 91 3a f5 3a  |R%)...h.h1%=.:.:|
00000690  6e 30 25 3d a4 36 28 69  25 28 52 25 29 29 3a fd  |n0%=.6(i%(R%)):.|
000006a0  28 6e 30 25 80 34 29 3d  30 84 91 3e 68 31 25 2b  |(n0%.4)=0..>h1%+|
000006b0  35 30 3a f2 33 28 69 25  28 52 25 29 2c 6e 30 25  |50:.3(i%(R%),n0%|
000006c0  84 31 29 3a f2 4d 28 77  25 28 52 25 29 29 3a f1  |.1):.M(w%(R%)):.|
000006d0  27 a4 31 28 64 25 28 60  25 2c 52 25 29 29 3b 8a  |'.1(d%(`%,R%));.|
000006e0  38 29 22 2e 2e 52 65 63  65 69 76 69 6e 67 20 70  |8)"..Receiving p|
000006f0  61 67 65 20 22 3b 6b 25  28 60 25 2c 52 25 29 3b  |age ";k%(`%,R%);|
00000700  22 20 6f 6e 20 22 3b 60  25 3b 22 2e 2e 22 3b 3a  |" on ";`%;"..";:|
00000710  f2 33 28 69 25 28 52 25  29 2c 6e 30 25 80 32 35  |.3(i%(R%),n0%.25|
00000720  34 29 3a f2 40 28 4f 2c  26 38 30 2c 64 25 28 60  |4):.@(O,&80,d%(`|
00000730  25 2c 52 25 29 2c 48 84  26 46 46 46 46 30 30 30  |%,R%),H.&FFFF000|
00000740  30 2c 26 34 30 30 29 3a  ef 32 33 2c 31 2c 30 3b  |0,&400):.23,1,0;|
00000750  30 3b 30 3b 30 3b 3a f2  32 28 52 25 2c 60 25 29  |0;0;0;:.2(R%,`%)|
00000760  3a 52 25 3d 52 25 2d 31  3a e1 0d 06 f4 21 dd f2  |:R%=R%-1:....!..|
00000770  41 3a 49 3d 26 46 46 46  31 3a 52 3d 26 46 46 46  |A:I=&FFF1:R=&FFF|
00000780  34 3a 60 3d 26 46 46 45  45 3a e1 0d 07 30 30 dd  |4:`=&FFEE:...00.|
00000790  f2 30 28 69 31 25 29 3a  3f 5f 25 3d 69 31 25 3a  |.0(i1%):?_%=i1%:|
000007a0  58 25 3d 5f 25 3a 59 25  3d 58 25 81 32 35 36 3a  |X%=_%:Y%=X%.256:|
000007b0  41 25 3d 26 37 41 3a d6  49 3a e1 0d 07 6c 10 dd  |A%=&7A:.I:...l..|
000007c0  f2 48 3a f2 30 28 31 34  29 3a e1 0d 07 94 1b dd  |.H:.0(14):......|
000007d0  f2 42 28 6a 25 29 3a 5f  25 3f 31 3d 6a 25 3a f2  |.B(j%):_%?1=j%:.|
000007e0  30 28 37 29 3a e1 0d 07  c6 1f dd a4 36 28 68 25  |0(7):.......6(h%|
000007f0  29 3a 5f 25 3f 31 3d 68  25 3a f2 30 28 32 29 3a  |):_%?1=h%:.0(2):|
00000800  3d 5f 25 3f 32 0d 07 f8  19 dd f2 4a 28 68 25 2c  |=_%?2......J(h%,|
00000810  6a 25 2c 70 25 29 3a e7  6a 25 3d 6d 25 e1 0d 08  |j%,p%):.j%=m%...|
00000820  0c 10 e7 5f 30 25 28 6a  25 29 3d 68 25 e1 0d 08  |..._0%(j%)=h%...|
00000830  16 96 f2 30 28 31 36 29  3a 5f 25 3f 31 3d 6a 25  |...0(16):_%?1=j%|
00000840  3a 5f 25 3f 32 3d 68 25  81 31 30 30 3a 6a 31 25  |:_%?2=h%.100:j1%|
00000850  3d 68 25 83 31 30 3a 6b  31 25 3d 28 68 25 83 31  |=h%.10:k1%=(h%.1|
00000860  30 30 29 81 31 30 3a 5f  25 3f 33 3d 26 31 30 2a  |00).10:_%?3=&10*|
00000870  6b 31 25 2b 6a 31 25 3a  5f 25 3f 34 3d 68 25 83  |k1%+j1%:_%?4=h%.|
00000880  31 30 3a 5f 25 3f 34 3d  26 33 46 3a 5f 25 3f 35  |10:_%?4=&3F:_%?5|
00000890  3d 26 37 46 3a 5f 25 21  36 3d 70 25 3a f2 30 28  |=&7F:_%!6=p%:.0(|
000008a0  35 29 3a f2 33 28 6a 25  2c 26 38 30 29 3a 5f 30  |5):.3(j%,&80):_0|
000008b0  25 28 6a 25 29 3d 68 25  3a 67 30 25 28 6a 25 29  |%(j%)=h%:g0%(j%)|
000008c0  3d 31 3a e1 0d 08 b6 28  dd f2 33 28 68 25 2c 6c  |=1:....(..3(h%,l|
000008d0  31 25 29 3a 5f 25 3f 31  3d 68 25 3a 5f 25 3f 32  |1%):_%?1=h%:_%?2|
000008e0  3d 6c 31 25 3a f2 30 28  33 29 3a e1 0d 08 f2 a1  |=l1%:.0(3):.....|
000008f0  dd f2 4d 28 6f 30 25 29  3a 4a 24 3d a4 41 28 6f  |..M(o0%):J$=.A(o|
00000900  30 25 29 3a 55 3d a9 28  4a 24 29 3a 21 66 25 3d  |0%):U=.(J$):!f%=|
00000910  31 34 2b 31 2b 34 30 3a  66 25 21 32 3d 6f 30 25  |14+1+40:f%!2=o0%|
00000920  3a 66 25 21 34 3d 48 3a  66 25 21 36 3d 48 2b 34  |:f%!4=H:f%!6=H+4|
00000930  30 3a 66 25 21 38 3d 48  2b 26 33 46 45 3a 66 25  |0:f%!8=H+&3FE:f%|
00000940  21 31 30 3d 48 2b 32 34  2a 34 30 2d 31 34 3a 66  |!10=H+24*40-14:f|
00000950  25 21 31 32 3d 6f 30 25  21 33 3a 24 28 66 25 2b  |%!12=o0%!3:$(f%+|
00000960  31 34 29 3d c4 33 39 2d  55 2c 22 20 22 29 2b 4a  |14)=.39-U," ")+J|
00000970  24 3a 58 25 3d 66 25 3a  59 25 3d 58 25 81 32 35  |$:X%=f%:Y%=X%.25|
00000980  36 3a 41 25 3d 26 45 30  3a d6 49 3a e1 0d 09 4c  |6:A%=&E0:.I:...L|
00000990  1e dd f2 32 28 70 30 25  2c 65 25 29 3a ea 49 25  |...2(p0%,e%):.I%|
000009a0  3a e7 62 25 28 65 25 29  3d 30 e1 0d 09 6a 23 e7  |:.b%(e%)=0...j#.|
000009b0  60 25 3d 65 25 6f 25 28  69 25 28 70 30 25 29 29  |`%=e%o%(i%(p0%))|
000009c0  3d 6f 25 28 69 25 28 70  30 25 29 29 2d 31 0d 09  |=o%(i%(p0%))-1..|
000009d0  74 56 e3 49 25 3d 70 30  25 b8 62 25 28 65 25 29  |tV.I%=p0%.b%(e%)|
000009e0  2d 31 3a 6b 25 28 65 25  2c 49 25 29 3d 6b 25 28  |-1:k%(e%,I%)=k%(|
000009f0  65 25 2c 49 25 2b 31 29  3a 64 25 28 65 25 2c 49  |e%,I%+1):d%(e%,I|
00000a00  25 29 3d 64 25 28 65 25  2c 49 25 2b 31 29 3a e7  |%)=d%(e%,I%+1):.|
00000a10  65 25 3d 60 25 77 25 28  49 25 29 3d 77 25 28 49  |e%=`%w%(I%)=w%(I|
00000a20  25 2b 31 29 0d 09 9c 19  e7 65 25 3d 60 25 69 25  |%+1).....e%=`%i%|
00000a30  28 49 25 29 3d 69 25 28  49 25 2b 31 29 0d 09 a6  |(I%)=i%(I%+1)...|
00000a40  79 71 25 28 65 25 2c 49  25 29 3d 71 25 28 65 25  |yq%(e%,I%)=q%(e%|
00000a50  2c 49 25 2b 31 29 3a 60  30 25 28 65 25 2c 49 25  |,I%+1):`0%(e%,I%|
00000a60  29 3d 60 30 25 28 65 25  2c 49 25 2b 31 29 3a 61  |)=`0%(e%,I%+1):a|
00000a70  30 25 28 65 25 2c 49 25  29 3d 61 30 25 28 65 25  |0%(e%,I%)=a0%(e%|
00000a80  2c 49 25 2b 31 29 3a ed  3a 72 25 3d 72 25 2d 31  |,I%+1):.:r%=r%-1|
00000a90  3a 62 25 28 65 25 29 3d  62 25 28 65 25 29 2d 31  |:b%(e%)=b%(e%)-1|
00000aa0  3a e7 62 25 28 65 25 29  3d 30 71 25 28 65 25 2c  |:.b%(e%)=0q%(e%,|
00000ab0  31 29 3d 68 30 25 0d 09  ec 05 e1 0d 0a 00 1a dd  |1)=h0%..........|
00000ac0  f2 4e 28 56 29 3a 54 25  3d 91 3a f5 fd 91 3e 54  |.N(V):T%=.:...>T|
00000ad0  25 2b 56 3a e1 0d 0a 32  3e dd a4 41 28 70 25 29  |%+V:...2>..A(p%)|
00000ae0  3a 5f 25 3f 31 3d 70 25  83 32 35 36 3a 5f 25 3f  |:_%?1=p%.256:_%?|
00000af0  32 3d 70 25 81 32 35 36  3a f2 30 28 32 33 29 3a  |2=p%.256:.0(23):|
00000b00  e7 5f 25 3f 33 3d 30 8c  3d 22 4e 6f 20 63 68 65  |._%?3=0.="No che|
00000b10  63 6b 22 0d 0a 64 19 e7  5f 25 3f 33 3d 31 8c 3d  |ck"..d.._%?3=1.=|
00000b20  22 47 6f 6f 64 20 63 68  65 63 6b 22 0d 0a 6e 19  |"Good check"..n.|
00000b30  e7 5f 25 3f 33 3d 26 46  46 8c 3d 22 42 61 64 20  |._%?3=&FF.="Bad |
00000b40  64 61 74 61 22 0d 0a 78  10 3d 22 42 61 64 20 63  |data"..x.="Bad c|
00000b50  68 65 63 6b 22 0d 0a 8c  2b dd f2 47 28 4c 24 29  |heck"...+..G(L$)|
00000b60  3a 24 5f 25 3d 4c 24 3a  58 25 3d 5f 25 3a 59 25  |:$_%=L$:X%=_%:Y%|
00000b70  3d 58 25 81 32 35 36 3a  d6 26 46 46 46 37 3a e1  |=X%.256:.&FFF7:.|
00000b80  0d 0a be a4 dd f2 40 28  68 25 2c 6d 31 25 2c 64  |......@(h%,m1%,d|
00000b90  30 25 2c 7a 25 2c 70 25  29 3a 71 30 25 3d 30 3a  |0%,z%,p%):q0%=0:|
00000ba0  f5 3a 71 30 25 3d 71 30  25 2b 31 3a 3f 5f 25 3d  |.:q0%=q0%+1:?_%=|
00000bb0  6d 31 25 3a 5f 25 3f 31  3d 68 25 3a 5f 25 21 32  |m1%:_%?1=h%:_%!2|
00000bc0  3d 64 30 25 3a 5f 25 21  34 3d 7a 25 3a 5f 25 21  |=d0%:_%!4=z%:_%!|
00000bd0  38 3d 7a 25 2b 70 25 3a  58 25 3d 5f 25 3a 59 25  |8=z%+p%:X%=_%:Y%|
00000be0  3d 58 25 81 32 35 36 3a  41 25 3d 26 31 30 3a d6  |=X%.256:A%=&10:.|
00000bf0  49 3a fd 71 30 25 3e 35  84 a4 37 3d 30 3a e7 a4  |I:.q0%>5..7=0:..|
00000c00  37 3c 3e 30 f1 27 22 4e  6f 74 20 6c 69 73 74 65  |7<>0.'"Not liste|
00000c10  6e 69 6e 67 20 28 22 3b  a4 31 28 64 30 25 29 3b  |ning (";.1(d0%);|
00000c20  22 29 22 3b 0d 0b 40 05  e1 0d 0b 54 31 dd a4 37  |")";..@....T1..7|
00000c30  3a f5 3a 41 25 3d 26 33  32 3a 6a 25 3d 28 ba 28  |:.:A%=&32:j%=(.(|
00000c40  52 29 80 26 46 46 30 30  29 81 26 31 30 30 3a fd  |R).&FF00).&100:.|
00000c50  6a 25 3c 31 32 38 3a 3d  6a 25 0d 0b 9a 67 dd a4  |j%<128:=j%...g..|
00000c60  30 28 68 25 2c 64 30 25  2c 7a 25 2c 70 25 29 3a  |0(h%,d0%,z%,p%):|
00000c70  3f 5f 25 3d 30 3a 5f 25  3f 31 3d 26 37 46 3a 5f  |?_%=0:_%?1=&7F:_|
00000c80  25 3f 32 3d 68 25 3a 5f  25 21 33 3d 64 30 25 3a  |%?2=h%:_%!3=d0%:|
00000c90  5f 25 21 35 3d 7a 25 3a  5f 25 21 39 3d 7a 25 2b  |_%!5=z%:_%!9=z%+|
00000ca0  70 25 3a 58 25 3d 5f 25  3a 59 25 3d 58 25 81 32  |p%:X%=_%:Y%=X%.2|
00000cb0  35 36 3a 41 25 3d 26 31  31 3a d6 49 3a 3d 3f 5f  |56:A%=&11:.I:=?_|
00000cc0  25 0d 0c 08 24 dd a4 38  28 6a 25 29 3a 41 25 3d  |%...$..8(j%):A%=|
00000cd0  26 33 33 3a 58 25 3d 6a  25 3a 3d ba 28 52 29 80  |&33:X%=j%:=.(R).|
00000ce0  26 38 30 30 30 0d 0c 30  2e dd f2 38 28 6a 25 29  |&8000..0...8(j%)|
00000cf0  3a 3f 5f 25 3d 6a 25 3a  58 25 3d 5f 25 3a 59 25  |:?_%=j%:X%=_%:Y%|
00000d00  3d 58 25 81 32 35 36 3a  41 25 3d 26 31 31 3a d6  |=X%.256:A%=&11:.|
00000d10  49 3a e1 0d 0c 6c 13 dd  f2 44 3a e7 a4 38 28 42  |I:...l...D:..8(B|
00000d20  25 29 3e 30 f2 4f 0d 0c  80 10 e7 a4 38 28 69 30  |%)>0.O......8(i0|
00000d30  25 29 3e 30 f2 51 0d 0c  8a 05 e1 0d 0c 9e 21 dd  |%)>0.Q........!.|
00000d40  f2 51 3a f2 38 28 69 30  25 29 3a 6c 25 3f 38 3d  |.Q:.8(i0%):l%?8=|
00000d50  31 33 3a e7 24 6c 25 3d  49 24 f2 52 0d 0c c6 16  |13:.$l%=I$.R....|
00000d60  69 30 25 3d a4 30 28 51  2c 30 2c 6c 25 2c 38 29  |i0%=.0(Q,0,l%,8)|
00000d70  3a e1 0d 0c e4 82 dd f2  52 3a 64 25 3d 5f 25 21  |:.......R:d%=_%!|
00000d80  33 80 26 46 46 46 46 3a  f1 27 a4 31 28 64 25 29  |3.&FFFF:.'.1(d%)|
00000d90  3b 8a 38 29 3b 22 2d 2d  46 49 4e 44 20 53 45 52  |;.8);"--FIND SER|
00000da0  56 45 52 2d 2d 22 3b 3a  3f 6c 25 3d 30 3a 6c 25  |VER--";:?l%=0:l%|
00000db0  3f 31 3d 26 42 32 3a 6c  25 3f 32 3d 64 31 25 3a  |?1=&B2:l%?2=d1%:|
00000dc0  24 28 6c 25 2b 33 29 3d  49 24 3a 6c 25 3f 31 31  |$(l%+3)=I$:l%?11|
00000dd0  3d 30 3a 24 28 6c 25 2b  31 32 29 3d 48 24 3a f2  |=0:$(l%+12)=H$:.|
00000de0  40 28 53 2c 26 38 30 2c  64 25 2c 6c 25 2c 26 32  |@(S,&80,d%,l%,&2|
00000df0  30 29 3a e1 0d 0d 5c 5d  dd f2 4f 3a f2 38 28 42  |0):...\]..O:.8(B|
00000e00  25 29 3a 64 25 3d 5f 25  21 33 80 26 46 46 46 46  |%):d%=_%!3.&FFFF|
00000e10  3a 6e 25 3d 5f 25 3f 31  3a 21 66 25 3d 21 61 25  |:n%=_%?1:!f%=!a%|
00000e20  3a f1 27 a4 31 28 64 25  29 3b 8a 38 29 3b 22 43  |:.'.1(d%);.8);"C|
00000e30  4f 44 45 20 3a 22 3b 7e  6e 25 3b 22 20 20 22 3b  |ODE :";~n%;"  ";|
00000e40  3a e7 6e 25 3d 26 38 31  f2 39 28 a3 2c 26 38 31  |:.n%=&81.9(.,&81|
00000e50  29 0d 0d a2 0d e7 6e 25  3d 26 38 30 f2 53 0d 0d  |).....n%=&80.S..|
00000e60  ac 0d e7 6e 25 3d 26 38  32 f2 54 0d 0d b6 0d e7  |...n%=&82.T.....|
00000e70  6e 25 3d 26 38 33 f2 55  0d 0d c0 0d e7 6e 25 3d  |n%=&83.U.....n%=|
00000e80  26 38 34 f2 56 0d 0d ca  0d e7 6e 25 3d 26 38 35  |&84.V.....n%=&85|
00000e90  f2 57 0d 0d d4 14 e7 6e  25 3d 26 38 36 f2 39 28  |.W.....n%=&86.9(|
00000ea0  b9 2c 26 38 36 29 0d 0d  de 0d e7 6e 25 3d 26 38  |.,&86).....n%=&8|
00000eb0  37 f2 58 0d 0d e8 17 42  25 3d a4 30 28 4e 2c 30  |7.X....B%=.0(N,0|
00000ec0  2c 61 25 2c 26 35 30 29  3a e1 0d 0e 06 33 dd a4  |,a%,&50):....3..|
00000ed0  31 28 61 31 25 29 3a 4d  24 3d a4 40 28 33 2c 61  |1(a1%):M$=.@(3,a|
00000ee0  31 25 81 32 35 36 29 2b  22 2e 22 3a 3d 4d 24 2b  |1%.256)+".":=M$+|
00000ef0  a4 40 28 33 2c 61 31 25  83 32 35 36 29 0d 0e 2e  |.@(3,a1%.256)...|
00000f00  2e dd a4 40 28 6e 31 25  2c 6f 31 25 29 3a 4b 24  |...@(n1%,o1%):K$|
00000f10  3d c3 28 6f 31 25 29 3a  3d c4 6e 31 25 2d a9 28  |=.(o1%):=.n1%-.(|
00000f20  4b 24 29 2c 22 30 22 29  2b 4b 24 0d 0e 60 37 dd  |K$),"0")+K$..`7.|
00000f30  f2 55 3a f1 22 4d 61 78  20 75 73 65 72 73 22 3b  |.U:."Max users";|
00000f40  3a 3f 61 25 3d 30 3a 61  25 3f 31 3d 6d 25 3a f2  |:?a%=0:a%?1=m%:.|
00000f50  40 28 47 2c 26 38 33 2c  64 25 2c 61 25 2c 32 29  |@(G,&83,d%,a%,2)|
00000f60  3a e1 0d 0e a6 48 dd f2  58 3a 65 30 25 3d 3f 66  |:....H..X:e0%=?f|
00000f70  25 3a f1 22 52 65 71 75  65 73 74 20 70 6f 72 74  |%:."Request port|
00000f80  20 22 3b 65 30 25 3b 3a  e7 65 30 25 3c 30 84 65  | ";e0%;:.e0%<0.e|
00000f90  30 25 3e 33 f2 31 28 26  38 37 2c 35 2c 22 42 61  |0%>3.1(&87,5,"Ba|
00000fa0  64 20 70 6f 72 74 22 29  3a e1 0d 0e ce 29 3f 61  |d port"):....)?a|
00000fb0  25 3d 30 3a 61 25 21 31  3d 96 28 65 30 25 29 3a  |%=0:a%!1=.(e0%):|
00000fc0  f2 40 28 47 2c 26 38 37  2c 64 25 2c 61 25 2c 33  |.@(G,&87,d%,a%,3|
00000fd0  29 3a e1 0d 0f 00 44 dd  f2 59 3a 78 25 3d a4 35  |):....D..Y:x%=.5|
00000fe0  28 62 25 28 60 25 29 2d  31 2c 6b 25 28 60 25 2c  |(b%(`%)-1,k%(`%,|
00000ff0  62 25 28 60 25 29 29 29  3a e7 78 25 3d 2d 31 f2  |b%(`%))):.x%=-1.|
00001000  36 28 62 25 28 63 25 29  29 8b f2 37 28 62 25 28  |6(b%(c%))..7(b%(|
00001010  63 25 29 2c 78 25 29 0d  0f 1e 05 e1 0d 0f 32 41  |c%),x%).......2A|
00001020  dd f2 53 3a f1 22 56 65  72 73 69 6f 6e 20 6e 75  |..S:."Version nu|
00001030  6d 62 65 72 22 3b 3a 3f  61 25 3d 30 3a 24 28 61  |mber";:?a%=0:$(a|
00001040  25 2b 31 29 3d 48 24 3a  f2 40 28 47 2c 26 38 30  |%+1)=H$:.@(G,&80|
00001050  2c 64 25 2c 61 25 2c 26  32 30 29 3a e1 0d 0f 78  |,d%,a%,&20):...x|
00001060  c3 dd f2 5a 3a 72 30 25  3d 91 2d 6a 30 25 3a 4e  |...Z:r0%=.-j0%:N|
00001070  24 3d a4 40 28 32 2c 28  70 31 25 2b 28 28 72 30  |$=.@(2,(p1%+((r0|
00001080  25 2b 31 30 30 2a 73 30  25 2b 36 30 30 30 2a 62  |%+100*s0%+6000*b|
00001090  31 25 29 81 33 36 30 30  30 30 29 29 83 32 34 29  |1%).360000)).24)|
000010a0  3a 4f 24 3d a4 40 28 32  2c 28 62 31 25 2b 28 28  |:O$=.@(2,(b1%+((|
000010b0  72 30 25 2b 31 30 30 2a  73 30 25 29 81 36 30 30  |r0%+100*s0%).600|
000010c0  30 29 29 83 36 30 29 3a  51 24 3d a4 40 28 32 2c  |0)).60):Q$=.@(2,|
000010d0  28 73 30 25 2b 28 72 30  25 81 31 30 30 29 29 83  |(s0%+(r0%.100)).|
000010e0  36 30 29 3a 52 24 3d 4e  24 2b 22 3a 22 2b 4f 24  |60):R$=N$+":"+O$|
000010f0  2b 22 3a 22 2b 51 24 2b  53 24 3a 3f 61 25 3d 30  |+":"+Q$+S$:?a%=0|
00001100  3a 24 28 61 25 2b 31 29  3d 52 24 3a f2 40 28 47  |:$(a%+1)=R$:.@(G|
00001110  2c 26 38 34 2c 64 25 2c  61 25 2c 32 32 29 3a e1  |,&84,d%,a%,22):.|
00001120  0d 0f e6 0c dd f2 35 3a  2a 43 48 31 0d 0f fa 0c  |......5:*CH1....|
00001130  e7 72 25 3d 30 d1 3d 30  0d 10 04 30 63 31 25 3d  |.r%=0.=0...0c1%=|
00001140  a3 3a f2 4e 28 31 35 30  29 3a f2 30 28 32 31 29  |.:.N(150):.0(21)|
00001150  3a 6a 30 25 3d 91 3a e7  5f 25 3f 31 30 3d 26 46  |:j0%=.:._%?10=&F|
00001160  46 63 31 25 3d b9 3a e1  0d 10 36 df 5f 25 3f 33  |Fc1%=.:...6._%?3|
00001170  3d 31 33 3a 5f 25 3f 36  3d 31 33 3a 5f 25 3f 39  |=13:_%?6=13:_%?9|
00001180  3d 31 33 3a 70 31 25 3d  bb 28 24 28 5f 25 2b 31  |=13:p1%=.($(_%+1|
00001190  29 29 3a 62 31 25 3d bb  28 24 28 5f 25 2b 34 29  |)):b1%=.($(_%+4)|
000011a0  29 3a 73 30 25 3d bb 28  24 28 5f 25 2b 37 29 29  |):s0%=.($(_%+7))|
000011b0  3a f2 30 28 31 35 29 3a  57 3d 28 31 30 2a 28 5f  |:.0(15):W=(10*(_|
000011c0  25 3f 38 80 26 46 30 29  81 26 31 30 29 2b 28 5f  |%?8.&F0).&10)+(_|
000011d0  25 3f 38 80 26 46 29 3a  58 3d 28 5f 25 3f 39 80  |%?8.&F):X=(_%?9.|
000011e0  26 46 30 29 81 26 31 30  3a 59 3d 5f 25 3f 39 80  |&F0).&10:Y=_%?9.|
000011f0  26 46 3a 5a 3d 28 5f 25  3f 31 30 80 26 46 30 29  |&F:Z=(_%?10.&F0)|
00001200  81 26 31 30 3a 5f 3d 5f  25 3f 31 30 80 26 46 3a  |.&10:_=_%?10.&F:|
00001210  4a 3d 31 30 30 30 30 2a  57 2b 31 30 30 30 2a 58  |J=10000*W+1000*X|
00001220  2b 31 30 30 2a 59 2b 31  30 2a 5a 2b 5f 3a 4b 3d  |+100*Y+10*Z+_:K=|
00001230  28 31 30 30 2a 28 4a 2d  31 35 30 37 38 2e 32 29  |(100*(J-15078.2)|
00001240  29 81 33 36 35 32 35 0d  10 ae 35 4c 3d a8 28 28  |).36525...5L=.((|
00001250  4a 2d 31 34 39 35 36 2e  31 2d a8 28 33 36 35 2e  |J-14956.1-.(365.|
00001260  32 35 2a 4b 29 29 2f 33  30 2e 36 30 30 31 29 3a  |25*K))/30.6001):|
00001270  e7 4c 3c 31 34 4d 3d 30  8b 4d 3d 31 0d 10 c2 6a  |.L<14M=0.M=1...j|
00001280  71 31 25 3d 4a 2d 31 34  39 35 36 2d a8 28 33 36  |q1%=J-14956-.(36|
00001290  35 2e 32 35 2a 4b 29 2d  a8 28 33 30 2e 36 2a 4c  |5.25*K)-.(30.6*L|
000012a0  29 3a 72 31 25 3d 4c 2d  31 2d 31 32 2a 4d 3a 73  |):r1%=L-1-12*M:s|
000012b0  31 25 3d 4b 2b 4d 3a 53  24 3d a4 40 28 32 2c 71  |1%=K+M:S$=.@(2,q|
000012c0  31 25 29 2b 22 2f 22 2b  a4 40 28 32 2c 72 31 25  |1%)+"/"+.@(2,r1%|
000012d0  29 2b 22 2f 22 2b a4 40  28 34 2c 73 31 25 2b 31  |)+"/"+.@(4,s1%+1|
000012e0  39 30 30 29 3a e1 0d 10  fe 3d dd f2 5f 3a 3f 61  |900):....=.._:?a|
000012f0  25 3d 34 3a 24 28 61 25  2b 31 29 3d 22 54 69 6d  |%=4:$(a%+1)="Tim|
00001300  65 20 75 6e 61 76 61 69  6c 61 62 6c 65 22 3a f2  |e unavailable":.|
00001310  40 28 47 2c 26 38 34 2c  64 25 2c 61 25 2c 32 32  |@(G,&84,d%,a%,22|
00001320  29 3a e1 0d 11 3a 24 dd  f2 56 3a f1 22 52 65 71  |):...:$..V:."Req|
00001330  75 65 73 74 20 74 69 6d  65 22 3b 3a e7 63 31 25  |uest time";:.c1%|
00001340  3d b9 f2 5f 8b f2 5a 0d  11 58 05 e1 0d 11 6c 17  |=.._..Z..X....l.|
00001350  dd a4 39 3a f2 30 28 30  29 3a 3d 28 5f 25 3f 31  |..9:.0(0):=(_%?1|
00001360  29 2b 31 0d 11 94 1b dd  a4 32 28 74 30 25 29 3a  |)+1......2(t0%):|
00001370  e7 74 30 25 3c 33 32 74  30 25 3d 32 35 35 0d 11  |.t0%<32t0%=255..|
00001380  a8 08 3d 74 30 25 0d 11  bc a9 dd f2 39 28 74 31  |..=t0%......9(t1|
00001390  25 2c 75 25 29 3a 47 24  3d bd 28 a4 32 28 66 25  |%,u%):G$=.(.2(f%|
000013a0  3f 31 29 29 2b bd 28 a4  32 28 66 25 3f 32 29 29  |?1))+.(.2(f%?2))|
000013b0  2b bd 28 a4 32 28 66 25  3f 33 29 29 3a 6b 25 3d  |+.(.2(f%?3)):k%=|
000013c0  bb 28 47 24 29 3a 63 25  3d 3f 66 25 2d 34 38 3a  |.(G$):c%=?f%-48:|
000013d0  f1 22 52 65 71 75 65 73  74 20 70 61 67 65 20 22  |."Request page "|
000013e0  3b 47 24 3b 22 20 6f 6e  20 22 3b 63 25 3b 3a 47  |;G$;" on ";c%;:G|
000013f0  24 3d bd 28 66 25 3f 31  29 2b bd 28 66 25 3f 32  |$=.(f%?1)+.(f%?2|
00001400  29 2b bd 28 66 25 3f 33  29 3a f2 34 3a e7 63 25  |)+.(f%?3):.4:.c%|
00001410  3c 31 84 63 25 3e 34 f2  31 28 75 25 2c 32 2c 22  |<1.c%>4.1(u%,2,"|
00001420  42 61 64 20 63 68 61 6e  6e 65 6c 22 29 3a e1 0d  |Bad channel"):..|
00001430  12 0c 27 e7 6b 25 3c 31  30 30 f2 31 28 75 25 2c  |..'.k%<100.1(u%,|
00001440  31 2c 22 42 61 64 20 70  61 67 65 20 6e 75 6d 62  |1,"Bad page numb|
00001450  65 72 22 29 3a e1 0d 12  16 27 e7 62 25 28 63 25  |er"):....'.b%(c%|
00001460  29 3d 31 39 f2 31 28 75  25 2c 33 2c 22 43 68 61  |)=19.1(u%,3,"Cha|
00001470  6e 6e 65 6c 20 62 75 73  79 22 29 3a e1 0d 12 20  |nnel busy"):... |
00001480  31 e7 28 60 25 3d 63 25  29 80 28 a4 34 28 6b 25  |1.(`%=c%).(.4(k%|
00001490  29 3d 6d 25 29 f2 31 28  75 25 2c 33 2c 22 43 68  |)=m%).1(u%,3,"Ch|
000014a0  61 6e 6e 65 6c 20 62 75  73 79 22 29 3a e1 0d 12  |annel busy"):...|
000014b0  2a 32 e7 28 60 25 3c 3e  63 25 29 80 28 62 25 28  |*2.(`%<>c%).(b%(|
000014c0  63 25 29 3d 6d 25 29 f2  31 28 75 25 2c 33 2c 22  |c%)=m%).1(u%,3,"|
000014d0  43 68 61 6e 6e 65 6c 20  62 75 73 79 22 29 3a e1  |Channel busy"):.|
000014e0  0d 12 34 8e 62 25 28 63  25 29 3d 62 25 28 63 25  |..4.b%(c%)=b%(c%|
000014f0  29 2b 31 3a 72 25 3d 72  25 2b 31 3a 62 30 25 3d  |)+1:r%=r%+1:b0%=|
00001500  62 30 25 2b 31 3a 64 25  28 63 25 2c 62 25 28 63  |b0%+1:d%(c%,b%(c|
00001510  25 29 29 3d 64 25 3a 6b  25 28 63 25 2c 62 25 28  |%))=d%:k%(c%,b%(|
00001520  63 25 29 29 3d 6b 25 3a  71 25 28 63 25 2c 62 25  |c%))=k%:q%(c%,b%|
00001530  28 63 25 29 29 3d 62 30  25 3a 61 30 25 28 63 25  |(c%))=b0%:a0%(c%|
00001540  2c 62 25 28 63 25 29 29  3d 91 3a 60 30 25 28 63  |,b%(c%))=.:`0%(c|
00001550  25 2c 62 25 28 63 25 29  29 3d 74 31 25 3a 77 31  |%,b%(c%))=t1%:w1|
00001560  25 3d 62 30 25 3a e7 60  25 3d 63 25 f2 59 0d 12  |%=b0%:.`%=c%.Y..|
00001570  98 31 3f 61 25 3d 30 3a  61 25 3f 31 3d 72 25 3a  |.1?a%=0:a%?1=r%:|
00001580  f2 40 28 47 2c 75 25 2c  64 25 28 63 25 2c 62 25  |.@(G,u%,d%(c%,b%|
00001590  28 63 25 29 29 2c 61 25  2c 26 32 30 29 3a e1 0d  |(c%)),a%,&20):..|
000015a0  12 ca 2f dd f2 54 3a f1  22 43 61 6e 63 65 6c 20  |../..T:."Cancel |
000015b0  70 61 67 65 73 22 3b 3a  f2 40 28 47 2c 26 38 32  |pages";:.@(G,&82|
000015c0  2c 64 25 2c 61 25 2c 31  29 3a f2 34 3a e1 0d 13  |,d%,a%,1):.4:...|
000015d0  06 29 dd f2 57 3a f1 22  4c 6f 67 6f 66 66 22 3b  |.)..W:."Logoff";|
000015e0  3a f2 40 28 47 2c 26 38  35 2c 64 25 2c 61 25 2c  |:.@(G,&85,d%,a%,|
000015f0  31 29 3a f2 34 3a e1 0d  13 42 3a dd f2 34 3a 76  |1):.4:...B:..4:v|
00001600  25 3d 30 3a f5 3a 76 25  3d 76 25 2b 31 3a 74 25  |%=0:.:v%=v%+1:t%|
00001610  3d 30 3a f5 3a 74 25 3d  74 25 2b 31 3a e7 a4 42  |=0:.:t%=t%+1:..B|
00001620  f2 32 28 74 25 2c 76 25  29 3a 74 25 3d 74 25 2d  |.2(t%,v%):t%=t%-|
00001630  31 0d 13 92 17 fd 74 25  3e 3d 62 25 28 76 25 29  |1.....t%>=b%(v%)|
00001640  3a fd 76 25 3d 34 3a e1  0d 13 ba 18 dd a4 42 3a  |:.v%=4:.......B:|
00001650  e7 64 25 28 76 25 2c 74  25 29 3d 64 25 8c 3d b9  |.d%(v%,t%)=d%.=.|
00001660  0d 13 ce 06 3d a3 0d 13  e2 52 dd f2 31 28 75 31  |....=....R..1(u1|
00001670  25 2c 76 31 25 2c 54 24  29 3a 3f 61 25 3d 76 31  |%,v1%,T$):?a%=v1|
00001680  25 3a 24 28 61 25 2b 31  29 3d 54 24 3a f1 27 22  |%:$(a%+1)=T$:.'"|
00001690  45 52 52 4f 52 20 3a 20  22 3b 24 28 61 25 2b 31  |ERROR : ";$(a%+1|
000016a0  29 3b 3a f2 40 28 47 2c  75 31 25 2c 64 25 2c 61  |);:.@(G,u1%,d%,a|
000016b0  25 2c 26 32 30 29 3a e1  0d 14 28 0c 2a 46 58 20  |%,&20):...(.*FX |
000016c0  31 33 2c 35 0d 14 32 09  2a 48 4f 46 46 0d 14 3c  |13,5..2.*HOFF..<|
000016d0  0b 2a 54 54 58 4f 46 46  0d 14 46 16 f6 3a f1 22  |.*TTXOFF..F..:."|
000016e0  20 61 74 20 6c 69 6e 65  20 22 3b 9e 3a e0 0d 14  | at line ";.:...|
000016f0  5a 09 dc 20 30 2e 35 0d  14 64 19 dc 20 34 30 30  |Z.. 0.5..d.. 400|
00001700  30 2c 34 30 30 30 2c 34  30 30 30 2c 34 30 30 30  |0,4000,4000,4000|
00001710  0d ff                                             |..|
00001712

04-06-88/TFS.m0

04-06-88/TFS.m1

04-06-88/TFS.m2

04-06-88/TFS.m4

04-06-88/TFS.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .