xc>J?0h!6i:\b! p fUUUT aa3uP  UUU@T? ` |* 033; 0ꪪ2@ xUP xUU@ l?33aUTSUUPUd? * vap 8x1 > = cUT oawUT@? UUU U_@_P  c ? c3  ꪪ< b>@| 0 @ cUP a63P  UUPP T`@<   c aaf3  ꪪ0 ?Q@<@@? ~l?C ? _߲_ ?ϾUU`2@7[UW7?? 0UuUՌ@0A@@~7 @4`? ? =00? ?W1ڪ?, <0:  @0``/@ꪪ? xaj? @U@V W  UT_ U@T=U?`{|uU]UUt? ܀@`U_UU@ ^@ |]"?  }/ ꪠ */<`j?_@@ \`W\6_p _ }UU@uG /UP=]T%aC ?00UWUWUt? c= u}uU` p< ]/+p }p0 @/ꪨ0j*8? ꫪ? :8 j꺺? ,`5]UUP@ UU@|^2P@<'<?ߌO?| UUPzW? , `@#??pPcA"/  yT? ? .W? :(0]UU`@OUP Lp?Ͽ?8@@ Àp>>80UGU@0(uUAp? 8@{x?':0?1 `y| WWAyyx  .uq 6X _UUU@0<(sB@ <1??~uU@v UP=U"U> :d8 @O?@! (?Ug((v  "@d|W]oc@@_?-  EK<WU@wvw ? }5@0UTTp@|@@ ` (@??|?? FD|?}~~<T @   ꪁ?99L 9L 9L9  989988889888888888:888:888:::88: 88:8< 898:<891888::::<871122211118::2888888::823>>688:88823>>68::884 22233444<>07::044 224444<<<>7>>>444 42224<>70>>>440707>>>440422220444040 20 2000# # <@L&&\\\\cfyhhh\`X![!PP!!00"O K SR P :2:0,0;: &64043+,513:64040(: &64043+,32 :64040(: d(x)=(64623o+x) u(x)=(64778 +x) Kuhajmo Janez Jaklic, 1985 $1:9 :0:1 pp=7 b$(513)  j(15) p(150)  q$(7) >1:''" Prosim, ozna#i `ivila, ki jih ima$ v shrambi !"  4500  8001A  9001)#  1 #!0,0;:64426 (v=6:h=27 2v,h;"1 - Izpis jedilnika" <(v+1,h;"2 - Sprememba jedilnika" F&v+2,h;"3 - Izra#un jedilnika" P%v+3,h;"4 - Kaj je v shrambi" U&v+4,h;"5 - Iskanje jedilnika" ZA4100:q$=q$(27)+o$:q$="barbara"9999' no$="1"4900$:30 xo$="2"6000p:30 o$="3"7000X:30 o$="4"8001A:30 o$="5"9060d# 35# .o$="":0:o$=:0.005y# =,20: d22,0;b$;23,0;" Pritisni ozna#eno tipko pri `eljeni izbiri !":4000 hZ"Pritisni tipko skupine, v kateri je izbrana jed!"''"(#e `eli$ kon#ati, pritisni 'V')"'' ri=115 |" ";(i+64@);" - ";g$(i) i  4000  o$="v" o$<"a"o$>"o"4240 g=o$-96` 0od=r(g,1) :do=r(g,2) D W22,0;b$;23,0;" Pritisni katerokoli tipko za nadaljevanje !"  4000 22,0;" Pritisni 'K', #e `eli$ kon#ati, oziroma";23,0;" katerokoli drugo tipko za prehod na novo stran"  4000 $ 5000:o$"k"4500 . izpis jedilnika  1 "J E D I L N I K:"''  c=0 i=115 5j(i)0j(i);4;j$(j(i))'':c=c+1 cpp5046  4600  o$="k" *1:c=0:"J E D I L N I K:"'' i o psprememba jedilnika z 1 '''' )'" 1 - Dodajanje jedi s kombiniranjem"' +'" 2 - Dodajanje jedi brez kombiniranja"' '" 3 - Odvzemanje jedi"' '" 4 - Izpis mo`nih jedi" '" 5 - Konec"'  4100  o$="1"6100:6090  o$="2"6700,:6090  o$="3"6500d:6090  o$="4"6900:6090  o$="5"  6010z 'o$="":5000:o$"k"4500  1  4200h  o$="v" 1:p=0  c=0 ?g$(g);"(";od;"-";do;")"'':3:1,0:2 a=64439 i=115  a,j(i):a=a+1  i  i=oddo  64438,i +64454p(p+1)=i:p=p+1 i _p=01:"Nobena jed iz te skupine ne ustreza jedilniku !":4500:6100 $ i=1p )E3:ڨu(p(i))*6+1;b$(132 )::2: .'p(i);4;j$(p(i))'':c=c+1 3cpp6230V 4i=p6250j 8 4600 Bo$="k"6250j LT1:3:2,0;:2:g$(g);"(";od;"-";do;")"'':c=0 Vi j20,0;"Vpi$i $tevilko jedi, ki jo `eli$ dodati jedilniku!";21,0;"(#e ne `eli$ dodati nobene jedi, vpi$i $tevilko 0)" tjed yjed=06100 ~`jeddo1:'"Ta jed ni iz skupine"'"'";g$(g);"'":4500:1:6147  ok1=0  i=1p p(i)=jedok1=1 i Lok11:'"Ta jed iz te skupine ne ustreza.":4500:6147 u(jed)6325 s1:"Za to jed nima$ vseh potrebnih `ivil."'"#e jo kljub temu `eli$ dodati jedilniku,"'"pritisni tipko 'D'!"  4000:o$"d"6100  j(g)=jed  6100 d 5000 n20,0;"Vpi$i $tevilko jedi, ki jo `eli$ odvzeti jedilniku!";21,0;"(#e ne `eli$ odvzeti nobene jedi, vpi$i $tevilko 0)" xjed jed=0  ok=0 i=115 $j(i)=jedj(i)=0:ok=1 i ?ok=01:'"Te jedi ni v jedilniku !"':4500  6500d ,'o$="":5000:o$"k"4500 6 1 @ 4200h J o$="v" T 1 ^ c=0 h@g$(g);"(";od;"-";do;")"'':3:2,0;:2 r i=oddo wA3:ڨu(i)*6+1;b$(132 )'':2 |!i;4;j$(i)'':c=c+1 cpp6850 i=do6860  4600 o$="k"6860 T1:g$(g);"(";od;"-";do;")"'':3:2,0;:2:c=0 i ̏20,0;"Vpi$i $tevilko jedi, ki jo `eli$ dodati jedilniku!";21,0;"(#e ne `eli$ dodati nobene jedi, vpi$i $tevilko 0)" jed jed=06700, Vjeddo1:"Ta jed ni iz skupine"'"'";g$(g);"'":4500:6740T u(jed)6890 s1:"Za to jed nima$ vseh potrebnih `ivil."'"#e jo kljub temu `eli$ dodati jedilniku,"'"pritisni tipko 'D'!"  4000:o$"d"6700, j(g)=jed:6700, I1:''" Prosim, po#akaj nekaj trenutkov...":64929:1 D"Iz sestavin, ki so v shrambi, lahko naredi$"'"naslednje jedi:"'''  c=0 i=1150 3(64778 +i)i;4;j$(i)'':c=c+1 cpp6990N  c=0 i=1506995S ! 4600 & o$="k" 0M1:"Iz sestavin, ki so v shrambi, lahko naredi$"'"naslednje jedi:"''' Ni S 4500 Xracunanje energij b 1 l''' vM'" 1 - Izra#un energetskih vrednosti ter sestavin"'" za posamezno jed" H'" 2 - Izra#un energetskih vrednosti ter sestavin"'" za jedilnik" '" 3 - Konec"  4100 +o$="1"q=0:7100:7010b  o$="2"7500L:7010b  o$="3"  7010b  1  4200h  o$="v"  1  c=0 g$(g);"(";od;"-";do;")"''  i=oddo i;4;j$(i)''  c=c+1 cpp7170  4600 o$="k"7190 $1:g$(g);"(";od;"-";do;")"''  c=0 i 20,0;"Vpi$i $tevilko jedi, za katero `eli$ izra#un !";21,0;"(#e izra#una ne `eli$, vpi$i $tevilko '0'!)" jed jed=0 jeddo7190  A1:21,0;"Za koliko oseb naj velja izra#un ?" %os *64546",jed 4n=64547# 9 ev=0 >1:jed;" ";j$(jed)''' Ha=64991 M c=0 R i=1n \s=a:a=a+1 f*k=a+256*(a+1):a=a+2 p s$(s);" "; u)k<10000'(k/4*os);" g, "; zOk<10000'e=e(s)/100d*k/4:ev=ev+e:30;e;" kJ/osebo"; {:èd(s)" nima$ doma !"; ::c=c+1 =c>(pp/1.5@)4500:1:j$(jed)'':c=0 i Q"3-"'30;ev;" kJ/osebo" #q=04500:7100  LA1:21,0;"Za koliko oseb naj velja izra#un ?" Qos V q=1 [ es=0 `h=115 jj(h)=07700 tjed=j(h):7210* ~ es=es+ev 4600:o$="k" h .1:'''"energetska vrednost jedilnika:" ('" ";es;" kJ/osebo" - 4500 2 @ 9901& Akatere sestavine so tle  pos=0  pg=0  p=1  1 22,0;"pomik: 1/Z - gor/dol ena stran Q/A - gor/dol";23,0;"ENTER - je doma/ni doma S/L - save/load K-konec" 80,0;:3:0,0;:2 ,i=pg*18+1pg*18+18 gi1553:3;ڨd(i)*6+1;b$(115):2:i;5;s$(i) i pos,3;"*";  4000 pos,3;" "; 2o$="a"p<162p=p+1:pos=pos+1 0o$="q"p>1p=p-1:pos=pos-1 o$="k"6900  o$=13 p<15664623o+p,èd(p):3:pos,3;ڨd(p)*6+1;b$(115):2:pos,5;s$(p) <o$="1"pg>0pg=pg-1:p=p-18:8105 <o$="z"pg<8pg=pg+1:p=p+18:8105 so$="s"21,0;"Pod katerim imenom `eli$ shraniti podatke ?":n$:n$64624p,155:8105 so$="l"21,0;"Pod katerim imenom `eli$ nalo`iti podatke ?":n$:n$64624p,155:8105 D((p-1)/18)>pgpg=pg+1:pos=0:8105 &E((p-1)/18)v> p fUUUT aa3uP  UUU@T? ` |* 033; 0ꪪ2@ xUP xUU@ l?33aUTSUUPUd? * vap 8x1 > = cUT oawUT@? UUU U_@_P  c ? c3  ꪪ< b>@| 0 @ cUP a63P  UUPP T`@<   c aaf3  ꪪ0 ?Q@<@@? ~l?C ? _߲_ ?ϾUU`2@7[UW7?? 0UuUՌ@0A@@~7 @4`? ? =00? ?W1ڪ?, <0:  @0``/@ꪪ? xaj? @U@V W  UT_ U@T=U?`{|uU]UUt? ܀@`U_UU@ ^@ |]"?  }/ ꪠ */<`j?_@@ \`W\6_p _ }UU@uG /UP=]T%aC ?00UWUWUt? c= u}uU` p< ]/+p }p0 @/ꪨ0j*8? ꫪ? :8 j꺺? ,`5]UUP@ UU@|^2P@<'<?ߌO?| UUPzW? , `@#??pPcA"/  yT? ? .W? :(0]UU`@OUP Lp?Ͽ?8@@ Àp>>80UGU@0(uUAp? 8@{x?':0?1 `y| WWAyyx  .uq 6X _UUU@0<(sB@ <1??~uU@v UP=U"U> :d8 @O?@! (?Ug((v  "@d|W]oc@@_?-  EK<WU@wvw ? }5@0UTTp@|@@ ` (@??|?? FD|?}~~<T @   ꪁ?99L 9L 9L9  989988889888888888:888:888:::88: 88:8< 898:<891888::::<871122211118::2888888::823>>688:88823>>68::884 22233444<>07::044 224444<<<>7>>>444 42224<>70>>>440707>>>440422220444040 20 2000XP"<2 P!(l<ZxdyAM'd}~Fd`!,R ( !+6`jlw2<-.0DXmoP&'9=?qru{\]d 8x)3,Ed;FM(42% '),9i(3;:Mdjm=Fd < &- 1K P(2FP/HTx>n Z@odxm!zP (<D )%'DX!@,(&')*X+@e<d\#dwdsy~dsy#@X},dsk2 -.019k ^X?829}AD:21Xd2,*F^E2%*D(;KMdvwdMqruxz{|d2noptjX!<dh< (!-3^<d !(* `F2='+JSTN`d !, n|X QUVWXYqR@Zj d 0Bx.<O5 jrP%$(*d8w:lv| (0XGsy1 -;AIJKLM~@sy}dG+,-4;=?EFMZfg=, (.8?"%$Pqz,,_(A( ?DEdefil2CHP Gk gm(/M29@chx,^t +-.0BEOi  -.09[\`c-1( &',.36=?BD  <^djlmnprtuvx|2w2*E<4;FJo{PLM/>CGHSkUxI(},XH 4*9(&6{-< w ;l (,49MF(<d-zdwd6m{&Xu7.B v  !$%&,-.036;@AB < ;[Adsy %'+,-.368;?AEFM`erw{d@ K CDExXfd-x9\^@3]( F2%;FM(2<P(<Id dwz  <d1O,X<BLMve -9l<F,2P}~Zdsyx (`2d89AEhj!<P'd&)*4id$2m%<"  #%'*+,-./01234689:;<=>?@ABCDFGHILMNOPSTUVX[\]^`abdejklnoprtuvwx{|)JKRWY_chiqpdz@-9X:6d`@ix d @3041/2, (<' d'=M6;F}2)4DEy} <xP '+(*2=<FPd Xgl|92zdy2!')./2>BQ] npru Qhinptux~ nptvx"$%ptxy './2QRVsVWY]noqx nptuxpty '(,.038:CGIVxyz')+./02:>ABJQV\]iuy|&346:>CEHIOW]nx')./2:>AB\^py&*+-1469>BDIQY]`dstu&*+.26:ABCJXYhlpty/0&*0157:BDGPTV_cpruOT}T^pst/12;@CGHKLWYks@CGIJLWYks QSVY\]prx} NPST\]_cy NPT[]_by}PST\]_cv|~ PQVWY]c#QX`dehijlm nptvy|QWYsy}~ QRXZ\`dehijlmnpqruvx|$QRUX\]`npqrtvx| QRWX]`ehilmptx| QRWY\]`npqtvxy|QRX\]`npstuvx nprtuvxy{|~NPT[]_cy QZfg}~ VX\]cy~ QZfgsy PQSWY[]_btQWYsy}~ QUVXZ\]`fgjlmnopqtvx{| QRSX\]`opu{Qac$UVX\]nopqrtuvwyPQWY[]_cnr{"$%UV^`knpt{ SUVX\]`ptvx QRSX\`opu $%VX\]`nopqrtv{|~ NPQSWY\]_cpry PQRT\]_cx[~ "$%WYnpqu{ "$VXnopqtxy{ %WYnoq| %WYnpqtx|"$WYkpt"$%WXoquwx{WY['(4Dfglmptx} fglmnprtx|}'()*48?DEfgnoptxy|} #&*+-./0125789:<=?BDEdefghilm#./012@Aprtuwz &*6:>@ACHdhlptx"$%*-0189?DGIJKLMdehlmwz#+./026:<>ABCHLdehilprt$%&*-189?DGIJKMdehklmwz.57:fg(48?FMy &')./126:<>ABCDEnptxz| &'()*/012468:<>?ACDE]nptx| @npqtx '()48?DEnptx|}+./012:<@ABC=fg(8fg')*46=?DEptx|+.QVWXY+.0QRWXY 57:NOPQTZab 57:NOPQTZab+.0QRVWXY+.0QRX+.:"$%@KY+.0:NOQTVWXY+.0:NOQRWY ,./123:>?@CGHIJOP\]^_:<>BCHILP &,./0123:<>@ABCDGHJKNOPSTUVX\]^_c./1:>CGHIJL^&./3>?CDOUX !$%-279 ,/01238:>@ACHJKNOPSTUVX\]^_c .23<>BGLSU),./123:>AC >LRUWY &./0123:AEHJLNOPSTV\]^_c  !"'(,-134679>DHP[RUWY\3:?R2 N*Q\s#r2(2::-K!-[0(0#4+wƯOq#p!-~2@6#4!-:0G~wЯ:+3:,( !\_^#Vz( *O\r+s!8@Ʉ !~2:20#:(:(:O~#( 7ɧ!:G(~# ɖ!!:"On#f#|(~#(_Js#u#t#  E!>2"#A!!o^###~>(>! ["w:"<2" ,LMdv(ww(|ddF P P P 3\MR8R \Wq !Ov>>*=\s#r;;͎{ n ::\(7( < !(#7!@>2:\"B\>2D\}͎{(n }33<