ZXTape!0Created with Ramsoft MakeTZXPB-P4 h hq j 7:7:7: 0,0; "s"22528X (%1,0;"     " ->2,19;1;1;0;"PB-P4 wykres" /%21,25;0;"1984" 0-0;18,19;"INTERNATIONAL" 28:8 <"" d"LO"10 n"s"40000@,768 x s @hg ????? ?????????????????????????????? ?????????????????????????????? ?????????????????????????????? ?????????????????????????????? ?????????????????????????????? ?????????????????????????????? ?????????????????????????????? ??????????????????????????????????????????????????????????????????????????? ???????????????????? ?? ????? ????????????????? ?? ????? ????? ?? ????????????????? ????????????????????????? ?????????????????? ?????????????????????????????? ?????????????????????????????? ?? ? ??????????????????? ?? ????? ? ??????????????????? ?? ????? ? ??????????????????? ?? ? ????????????8888888888888888888888888888888888888888888888888888888888888888wykres &   5 ~1:1:6::2,9 ;1;" W Y K R E S ";6,0;" '84 P.Z. POLBRIT-INTERNATIONAL": ^x=10 :da=36067:a(xK\)=x+256*(x+1):xa=a(23627K\)+1 )z(x,l,u)=xuxɺx }3:#0;"PODAJ NAZW ZBIORU ZAWIERAJCEGODANE LICZBOWE : ";F$:F$DA:n=a(da+2):OP=DA+5*(N+1) s3:19,0;"OPISY WYKRESW Z TAMY CZY Z KLAWIATURY ? (T/K) ":7200 :K$="K"1000 K$"T"20 #0;"PODAJ NAZW ZBIORU ZAWIERAJCEGO OPISY WYKRESW : ";F$:F$op:DLUG=A(OP):lr=(op+2):lw=(op+3):lk=(op+4):op1=op+5+7*(lk+lw):n=lk*lw2000 #i18,0;"NIESTETY, TEN ZBIR OPISW NIE JEST ZGODNY ZE ZBIOREM LICZB.":100d:20 g:0,0;"KONSTRUKCJA OPISU ZBIORU LICZB.";4,4;1;" ROZMIAR DANYCH = ";n ?#0;"LICZBA WIERSZY = ";LW:z(lw,0,n)1010 >#0;"LICZBA KOLUMN = ";LK:z(LK,0,n)1020 KNLW*LK#0;"TO NIE JEST PRAWIDOWY OPIS!!!":100d:1010 tOP+2,0:OP+3,LW:OP+4,LK:OP1=OP+5:4,4;1;" NAZWY WIERSZY " lI=1LW:1;10 ,3;"WIERSZ NR ";1;I;:#0;"NAZWA (MAKS. 7 ZNAKW) = ";N$ $$N$<7N$=N$+" ":1060$ .%N$>7N$=N$(17) 86K=17:OP1,N$(K):OP1=OP1+1:K:I B.4,7;1;" NAZWY KOLUMN " LoI=1LK:1;10 ,3;"KOLUMNA NR ";1;I;"":#0;"NAZWA (MAKS. 7 ZNAKW) = ";N$ V$N$<7N$=N$+" ":1110V `%N$>7N$=N$(17) j6K=17:OP1,N$(K):OP1=OP1+1:K:I tDLUG=7*(LK+LW)+5 ~WS=OP1:LR=0 @:0,0;1;" KONSTRUKCJA OPISW WYKRESW " 64,8;"WYKRES NR ";1;LR+1;"" F#0;"KOLOR TA (0-7)=";PAP:z(PAP,0,7)1220 J#0;"KOLOR NAPISW (0-7)=";INK:z(INK,0,7)1230 a#0;"TYTU WYKRESU (MAKS.32 ZNAKI)=";T$:T$>32 T$=T$(132 ):1260 %T$<32 T$=T$+" ":1250 z10 ,5;1;"PODAJ TYP WYKRESU :"'''0;" K - WYKRES KOOWY"''" L - WYKRES W POSTACI AMANEJ" -7200 :K$="L"TYP=1:1300 K$"K"1270  TYP=0 10 ,5;" "'''" "''" ":WS+1,TYP:WS+2,PAP:WS+3,INK:I=132 :WS+I+3,T$(I):I:typ1600@ sWS,38&:#0;"WARTOCI PRZEBIEGAJ WIERSZ (W) CZY KOLUMN (K) ? ":7200 :K$"W"K$"K"1310 (I"O JAKIM NUMERZE?";NR:WS+36$,(K$="W"):WS+37%,NR:1900l @f#0;"WARTOCI PRZEBIEGAJ WIERSZE (W)CZY KOLUMNY (K) ? ":7200 :K$"W"K$"K"1600@ JWS+36$,(K$="W") T^#0;"ILE AMANYCH MA ZAWIERA WYKRES?(1-7) ";LICZ:z(licz,1,7)1620T Y,WS,LICZ*2+39':WS+38&,LICZ ^AI=1LICZ:19,5;"AMANA ";1;1;I h\#0;"JAKIM KOLOREM MA BY OZNACZONA ?(0-7) ";INK:z(ink,0,7)1640h mWS+38&+2*I,INK rN#0;"NUMER WIERSZA (KOLUMNY) WARTOCI=";WW:WS+37%+2*I,WW:I l^#0;0,0;"WYKONA OPISANY WYKRES ? (T/N) ":7200 :K$="N"1930 vK$"T"1900l  8000@ _#0;0,0;" DOCZY TEN OPIS ? (T/N) ";:7200 :K$="N"1945 K$"T"1930 )LR=LR+1:DLUG=DLUG+WS:WS=WS+WS ^#0;0,0;"NASTPNY OPIS ? (T/N) ":7200 :K$="T"1200 K$"N"1945 LR=03000 ~#0;0,0;"NAGRA SPORZDZONY ZBIR OPISW NA TAM? (T/N) ":7200 :K$="N"2000 K$"T"1960 OOP+2,LR:OP,DLUG-16*(DLUG/16):OP+1,(DLUG/16) E#0;"PODAJ NAZW ZBIORU : ";F$:F$=""űF$>10 1967 b20,0;" WCZ MAGNETOFON I WCINIJ DOWOLNY KLAWISZ":F$OP,DLUG h3:10 ,5;1;" REALIZACJA WYKRESW ";13 ,5;" LICZBA WYKRESW = ";LR ]#0;"PODAJ NR OPISU WYKRESU (0 KONCZYDZIAANIE PROGRAMU) :";RA:RA=03000 z(RA,1,lr)2010 t7100:8000@:#0;1,0;1;"WCINIJ DOWOLNY KLAWISZ":0:2000 ]3:21,0;"POWTRZYC PROGRAM ? (T/N) ":7200 :K$="N"0 K$"T"3000 S21,0;"NOWY ZBIR LICZBOWY ? (T/N) ":7200 :K$="T"5 K$="N"20 3000 XJpo=da+5*(bk+lk*(bw-1)):v=04:xa+v,(po+v):v: ws=op1:ra=1 &i=1ra-1:ws=ws+ws:i:  23560\,0 *'23560\=0 7210* 4)k$=:"a"k$k$"z"k$=(k$-32 ) > WI7330 BW=1:BK=NR:7380 %Q=2LW:BW=Q:7390:Q: BW=NR:BK=1:7380 %Q=2LK:BK=Q:7390:Q: 7000X:MIN=X:MAX=X: 7000X:maxxmin=x  e(x@)=(x+.5) @t(ws+2):ھ(ws+2):پ(ws+3)::i=031:¾(ws+4+i);:i:(ws+1)85004! JQwi=(ws+36$):nr=(ws+37%):nazw=op+5+7*lw*wi:su=0 Twi8070 ^bk=nr:bw=1 h#7000X:x<08320 r+su=su+x:bw=bw+1:bwlw8040h | 8100 bw=nr:bk=1 #7000X:x<08320 +su=su+x:bk=bk+1:bklk8080 sU=08300l _20,0;1;" WARTOCI MNIEJSZE NI 2.5 % NIE S UWZGLDNIANE " #wibk=1:bw=nr:8140 bw=1:bk=nr fox=123{:oy=81Q:r=480:lp=19:rp=2:a=0:ox,oy,r:ox,oy:0,r .7000X:b=x/su:b<.025{L8210 Fb=b**2:g=a+b/2:sx=ox+r*g/2:sy=oy+r*g/2 sxwi=(ws+36$) !H3nr=(ws+39'):7300:miny=min:maxy=max !RMi=2licz:nr=(ws+37%+2*i):7300:miny>minminy=min !\maxy10 ,1;"Elementy nie m ycRESM:8 Mlit + -!\ "*O\#! !\*O\+#U!R-\*\ K SPP1PYPP1K1S ^n:\n( n *O\"Q\ ?00(<()0+(+8E2 \>: \7>77>7> ^!͵́8!-O ~  ͚ 00/ ( ! !(# >j *Q\O *Q\^#VS0} } [Ê p Ny=>! O *Q\U  (#!ͺ*O\^#V>!ͺ > 8!\> >&o))) ( #\>1L#/>>>5 8>80>ր >>ŎȌ ACELNOSZZacelnoszz ~~ ~8*O\ s#r( > > 8֥  >0 }(/{ |liczby }Pj -1Zdq"~k  H&Qz# =MiAopisy 5 w1 w2 w3 k1 k2 k3 k4 k5 k6 k7 k8 & wykres 1 ) wykres 2 + wykres 3