KRESLENI V5.0  :'KRESLENI V5.0 1.12.87:'KOPIE OBRAZU $C300$FEFF@:""6("CRT:M1":H$(0)::J0:H$(J):2 SMER'< POUZE KURZOR [MAZANI]&F KURZOR MAZE [CERNA]*P KURZOR SE POUZE POHYBUJE'Z VYMAZANI OBRAZOVKY,""d K KRUZNICEn O OBDELNIK%x"T TROJUHELNIK (T,T), PRIMKA" P PISMO KONEC FUNKCE""& E/ PRUBEZNE ZOBRAZOVANI ANO/NE% N/ NASTAVENI ZOBRAZENO ANO/NE+ /A PRUBEZNE USCHOVANI OBRAZU ANO/NE B VYBARVENI PLOCHY C BARVA CARY R RYCHLOST( USCHOVANI OBRAZU ( - NA CMT)( NATAZENI OBRAZU ( - Z CMT) (PRT-80 GS) H/ NAPOVEDA /KONEC-"NASTAVENI: , , , A, C=, R=1"KJ0:H$(J)::[] ,G, ,>,F<,@,"POKRACOVAT - ZMACKNI KLAVESU",,: ,B$"[0=CERNA,1=MODRA,2=CERVENA,3=BILA]""XX:YYG>,:U:KKU:KRU:CCU:TTU:EU:PU:MMU:NN:AUT6N1$"VYSLEDNY OBJEKT":N2$" KURZOR NEMAZE":N3$" A":C@:RR:RRR&@X:YG:XSX:YSY:X,YJ,TZ():B():Z ^K$:K$"" ThK(K$):K0 ,7rKP: t:U:KKU:KRU:CCU:TTU:PCR|K( TTU:TT@:KXX:KYY::E[C]CX,CY,X,YU T2K }:"LPT:S2":P(,2):P:K :K$ F:/K8( ):XXX:YYY:PPP:X,Y: :KD$"SAVE": :[P]X,Y:(,D$): P: 1K"D$"LOAD": : n:( ,D$): 8K E::N1$"PRUBEZNE ZOBRAZENI": 5KE::N1$"VYSLEDNY OBJEKT": >KMM::N2$" MAZANI KURZOREM": :RMM<K(MM::N2$" KURZOR NEMAZE": :RRR KNN::  K0NN:: *K!A:N3$" A": :*KA:N3$" N": :PK$D$"RYCHLOST [19] = ":M:N: L:RRD:MMRD5KU:KKU:KXX:KYY:KR:PSP&KU:CCU:CXX:CYY&K DC0 <:D$B$" = ":M:N: L:VD:D$"OBVOD"B$: L5:V D[V]X,Y,D:PV1DK( TTU:TTU:CXX:CYYNU: <6XKD$"CARA"B$:M:N@: L:CDbK (lJ : :H$(J)"" Hv,:H$(J):[],`,,,V[],,"",,: :(K$) (K$)   K TE <:D$"VODOROVNE ZVETSENI [19] = ":M:N: L:VD9D$"SVISLE ZVETSENI [19] = ":M:N: LLS(X,Y):[S]X,Y:L$(A):LYD:LL*S(X,Y):[C]X,L,L$,V,D: 5J(K$):JP[S]X,L,L$,V,D:[C]X,Y: J 4[S]X,L,L$,V,D:XXV:XX+S(X,Y):[S]X,L,(H),V,D: 1[S]X,L,L$,V,D:[C]X,L,K$,V,D:XXV1XXXV:[(X,Y)]X,L,K$,V,D  %:P(,G): : @' Z , , , , ., $, B, 8*XX4XX>YYHYGYGRU \E 2f[P]XS,YS:P(X,Y):X,Y:KKKX,KYpCCCX,CY,zTT TTCX,CY:TT  KK N[]KX,KY,KR,O\(:KR((XKX)((YKY)O\())2[C]KX,KY,KR,O\(:KYKRP  4CC[]CX,CY,XS,YS:[C]CX,CY,X,YITT TT[]CX,CY,XS,YS:[C]CX,CY,X,Y:TTFTT@[]CX,CY,XS,YS,KX,KY:[C]CX,CY,X,Y,KX,KY,CX,CY  !B[C]XS,YS,X,Y:PC=B[P]XS,YS:P(X,Y):X,Y:MMP, :HXSX:YSY: T XXR YYR: YYR XXR: $XXR .YYR: 8YYR BXXR:L :,:D$; V "`D(K$)@:DM DN VjK$:H: :tE U~KK IKR((XKX)((YKY)O\()):[C]KX,KY,KR,O\()[PS]KX,KY:KYKRP  CC[C]CX,CY,X,Y(TTTT[C]CX,CY,X,Y$TT@[C]CX,CY,X,Y,KX,KYK$:K$""  :",:( );:: :NN,:[]N1$;N2$;N3$;B :,:D$;" : NAZEV SOUBORU = ":D$"":M :D(K$):DP D M AD MM:D$(D$,M):8M,:" ": D <(MM:D$D$K$:0M,:K$:M 2<AFXXX:YYY:PPP:():+P F:"PROVED NASLEDUJICI PRIKAZY :"Z(~);"RECORD.PLAY">d"*SC300FEFFC300:CMT:";D$;" <>":"*R <>"::( ):9n"PROVED NASLEDUJICI PRIKAZY :":(~);"PLAY",x"*L:CMT:";D$;" <>":"*R <>"::f}M:N:D$"VELIKOST [1=NORM., 2=DVOJ.] = ": L:"LPT:S3":P(,1):D K,@,:N8:P(,K,@,);:J+(=,D$,D$):PD$;:J:P:(o):N:`,h,:N:():M:,M:():P(,K,,);7J<:(~,D$,D$):PD$;:J:P:M,N: