OBCHODNIK /( ******** CINSKY OBCHODNIK *******."CRT:M1":,`:@,2 P(@),PO(@),AA(),XY$(H)K( DJAKARTA,SURABAYA,MANILA,TCHAJ-WAN,HONG KONG,MACAO,BANGKOK,SINGAPOREM2 KALKATA,CEYLON,BOMBAY,KARACI,MASKAT,KUWAIT,ADEN,ZANZIBAR,BORNEO,DARWIN>< CAPE TOWN,TIMOR,SANGHAI,TOKIO,YOKOHAMA,OKINAWA,NACHODKArFSLOVO$"BMQRACNODQTWBCEFAFTWBCEGHWXYFGIJEJXYFGIKLJVYJKMNINSVJKMOPQRSABNOCPTUNQUVLORUBRUWDHLPJSUXDOUXFTUYHKUV"P:'#Z"ZACATEK PROGRAMU":*********yd: Xp: Y : []X,Y,"CINSKY OBCHODNIK",,@: [@]X,Y ,X,YP'n I H: XY$(I): I/x , : "N : ";N$:'UH: UPU/T: B: PRT : VYP(*KXt$: Y(@ =p)"ZAC1": "ZOBRAZ""ZAC2": "GENER.CEN""ZAC3": "HODNOTY""ZAC4": "MOZNOSTI" TYP$"ODJ" "ZAC3"/ I @: POPOPO(I)P(I): I/ YBPOCP BPO "VEZENI": - BKX Y "USPECH": "POKRAC" VYPAA() "STEJNE", ()L "BOURE": "ZAC1"- () "PIRATI": "ZAC1""STEJNE"" "LVYMAZ"', ()h "ZPRONEVERA"6 L "ZAC1"&@ ()h "SMRT LICH" J "ZAC1"T"POKRAC"B^: [@] ,H,"CHCES POKRACOVAT ?",,h A$: A$"" hr A$"A" "ZAC1"%: ***** END HLAVNI PROGRAM **:'"ZOBRAZ": **************-: M((((N$)0)))&M,: "K ";N$A,: "****************************************"A,@: "****************************************"A,: "BANKA $": ,@: "LICHVAR $"A,: "KAPACITA:": , : "POLOHA :"?@,: "KONZERVY ": @, : "ZBRANE "@@,@: "PORCELAN ": @,`: "HEDVABI "\@,: "WHISKY": @,: "OPIUM ": @, : "SKLADY "": ***** END ZOBRAZ *******:'"HODNOTY": *********RH "& RH,: "########";B"0 RH,@: "########";Y#: RH,: "########";UP(D RH, : XY$(PRT);" "#NRP: I @%X RP,I@: "#####";PO(I)b I!l RP,I@: "#####";U"v: ***** END HODNOTY ******:'"MOZNOSTI": ********* "LVYMAZ": TYP$"",`: "MOZNOSTI :": ,: "N (N)": ,: "P (P)": ,: "O (O)"3 PRT ,: "L (L)"  "CENY"!,0: "V: "; A$: A$""   A$"N" "NAKUP":   A$"P" "PRODEJ":   A$"O" "ODJEZD":   A$"L" "LICHVAR":   ": ***** END MOZNOSTI ***** :'"NAKUP": **************  "LVYMAZ"* "SKLADY": "LVYMAZ"%4,`: "C ? "(>,: "K/Z/P/H/W/O/LOD"H,R A$: A$"" R \ A$"f A$"K" PP(): "p A$"Z" PP(): "z A$"P" PP(@): " A$"H" PP(): " A$"W" PP( ): " A$"O" PP(@):   A$"L" Pz:   H "LVYMAZ"&PL(BP): PLU A$"L" PLU. U PL CI: ',`: "M ">@,: "####";PL;: " ";: PBPL: "KONC"',: "K ?" , : "/VSE "; "VSTUP" C$"V" CIPL: $ CIPL b CIU A$"L" ,: "M ": " ";U;"";: PBU: "KONC":  $BBCIP. A$"K" I: t8 A$"Z" I: tB A$"P" I@: tL A$"H" I: tV A$"W" I : t` A$"O" I@: t'j A$"L" UUCI: UPUPCI: ~tPO(I)PO(I)CI: UUCI!~: ***** END NAKUP *******:' "KONC" PB , , ,  "": "": "": & ************ END KONC ********:'"SKLADY" U T,`: "NEMAS PROSTOR": ,: "NA ULOZENI !!!": ;!: ***** END SKLADY ******:' "PRODEJ": ************ "LVYMAZ"%,`: "C ? "((,: "K/Z/P/H/W/O/VSE"2,< A$: A$"" < F A$P A$"K" I: Z A$"Z" I: d A$"P" I@: n A$"H" I: x A$"W" I :  A$"O" I@: h A$"V" KP: J @: KPKPP(J)PO(J): PO(J): J: BBKP: UUP:   2PP(I): "LVYMAZ"',`: "K ? /VSE",: "VSTUP" C$"V" CIPO(I) CIPO(I) BBPCI: UUCIPO(I)PO(I)CI!: ***** END PRODEJ ******:'"ODJEZD": *********3 "LVYMAZ": TT: PUJ: TYP$"ODJ"$,`: "C ?"" I@  &"A$(SLOVO$,PRTI,),AA(I)(A$)6 I: AA()PRT@ I HUJ IAA() IAA() IAA() IAA(@) IAA() |T J (^,J: "##. ";AA(J);h" ";XY$(AA(J))r J| I',0: "VSTUP": VYPCI$ VYP VYPH  J  VYPAA(J)  J: :'!: ***** END ODJEZD ******"VSTUP":************ CC$"" C$: C$"" ? (C$)< (C$)h CC$CC$C$: C$;:  C$"V" 0 (C$)P CI(CC$):  :: !: ***** END VSTUP *******:'"LICHVAR":**********& "LVYMAZ"(0,`: "P/V ?"):,: " P V"D A$: A$"" DN A$"V" "VRATIT"FX PUJ "LVYMAZ": ,`: "NEMAS NAROK !!!": )b,: "K ? "(l,: " "v,  "VSTUP": MCI: PUJ( MB M@ "NEPUJCI"YYM: BBM: "NEPUJCI" "LVYMAZ"-,`: "NEMAS NAROK !": b"VRATIT" "LVYMAZ"C,`: "K ? ": ,: "/VSE"(,: " ",: "VSTUP" C$"V" C$: CIYYYCI: BBCI!: ***** END LICHVAR ***** :'"SMRT LICH":**********K : [@]0,H,"LICHVAR ZEMREL !!",,: z*RT$"TVUJ DLUH"!4 Y RT$"TVE KONTO"i>[@]P,H,RT$" U NEHO",,: [@],,"PROPADA",@,@HY: ;!R: ***** END SMRT LICH ***\:'f"ZPRONEVERA":*********mp: [@]`,p,"ZPRONEVERA V BANCE",,:[@],,(,"",,zSBB: B(()B)ZTH(BSBH)4[], ,"ZTRACIS",@,@6[@]p,\,(ZT)" %",@,@=[] ,,"VKLADU",@,@: ;!: ***** END ZPRONEVERA **:'"BOURE":***********l: [@]@,X,"*** B O U R E ***",,: [@]<,4,"",,& () "JINACESTA"PO* I @: POPOPO(I): I! POUP "JINACESTA"7 ,P: "MUSIS VYHODIT POLOVINU NAKLADU") @,: "JINAK SE POTOPIS" POK I @: PO(I)(PO(I)): POPOPO(I): I: UUPPO$ "K-BOURE". "JINACESTA"+8 0,P: "BOURE SE PREHNALA,"/B ,: "ALE ZAHNALA TE Z CESTY"6L VYP(H()): PRTVYP L V "K-BOURE": z!` : ***** END BOURE *******j :'t "PIRATI":**********p~ : [@]p, ,"P I R A T I",@,@: [@]4,p,"'",,: z( PO()3333UP "PORAZENI"d PO()}LUP PO() PO(@) PO() PO( )% PO() "ODRAZENI" *** VITEZSTVI PIRATU ***/ ,@: "VSECHNO ZBOZI ULOUPENO"1 VK(@(()())H)- ,`: "VYKUPNE CINI ";VK;"$"- ,: "NOVA LOD STOJI 5000$"+ I @: PO(I): IJ BVK@ BBVK@ :: YY@VK "K-PIRATI" "PORAZENI"% () "ODRAZENI": ,P: "ZVITEZIL JSI NAD PIRATY A ZABAVIL"0 ,p: "JIM CELOU JEJICH KORIST"Q UUP: PO(): PO()(PO()@): PO(@)7( PO(@)PO(@)( ()))2 PO(@)U PO(@)U: d 7< PO( )PO( )( ()@)?F PO(@)PO( )U PO( )UPO(@): d 0P PO()PO()( ())NZ PO(@)PO( )PO()U PO()UPO(@)PO( )5d UUPPO(@)PO( )PO()PO()n "K-PIRATI"x "ODRAZENI"; ,P: "UTOK PIRATU JSI ODRAZIL BEZE ZTRAT" "K-PIRATI" z: ! : ***** END PIRATI ****** :' "VEZENI": ***********q : [@]0, ,"BYL JSI UVRZEN DO",,: [@]4,(,"VEZENI",@,@9 [@],,"PRO DLUZNIKY",,! : ***** END VEZENI ****** :' "USPECH": ***********n : [@],p,"JSI USPESNY",,: [@]p,,"SPEKULANT",@,@: [@],P,"GRATULUJI !!!",,E  ,: "M ########";BY;: "$ ,"* @, : " SLAPECH."G `,0: "M ###";T;: " .":; BYt$ !" : ***** END USPECH ******, :'@ "GENER.CEN": *******J PRTVYP "UROKY"7T P()( ())(VYPPRT).^ VYPH P() P()8h P()((xVYPY)()X)2r VYP P()(3333P())3| P(@)(VYPVYPffff() )G VYP@ P(@)(ffff()P(@))P(@)6 P()(z()VYP ). VYP( P()P()+ P( )( ()H)\ PRTVYP P( )z P( )((VYPPRT)())P( )P( ). VYP@ P( )@P( )8 P(@)(( ()z)VYP)4 P(@)z P(@)P(@)? P(@)K P(@)(P(@)L): PRTVYP( T PRT : VYP "UROKY"G Y Y( =pY) :: Y(RY)+ Bp BBp: : YYp! : ***** END GENER.CEN *** :'& "CENY": **************0 RC@: RC,`: "CENY :"1D RC,: "K #####";P()1N RC,: "Z #####";P()1X RC,: "P #####";P(@)1b RC,: "H #####";P()1l RC, : "W #####";P( )1v RC,(: "O #####";P(@)! : ***** END CENY ******** :' "RVYMAZ": ********* :' I` 0! ,I: ( ): I! : ***** END RVYMAZ ****** "LVYMAZ": ********* YI` 0. ,YI: " ": YI! : ***** END LVYMAZ ****** :') P(X);(X);(@);) P(X);();(@);) P(X);();( );( P(X);(");(,) "LPT:M0,S2"* :'