SCREEN EDITOR OK >*:'O. KOLLAR -> ANDYSOFT KOSICE 1988 : R(),V$(0)  LOA() LOA "INFO"TV$()" ZAPIINA A VPIINA INVERZNEE ZOBRAZOVANIE PRI NIEKTORYYCH REZ'IMOCH"?V$()" HARDKOPY NA TLAC'IAREN' PE ERTEE OSEMDESIAT"IV$(@)" VYFARBENIE PLOCHY FARBA JE POD KLAAVESOU 1 2 3 4"?V$()" VYZNAC'II RASTER S'ESNAAST' KRAAT S'ESNAAST'">V$( )" ZAPIINA A VYPIINA INFORMACIU O REZ'IMOCH"7V$(@)" KRESLENIE C'JAR OD ZVOLENEEHO STREDU"0V$(`)" POZOOR ZNIC'II CELII PROGRAM"-V$()" ZAAMENA ZVOLENYYCH BLOKOV",V$()" ZMAZ'E PRACOVNUU PLOCHU"4: ,p:@,: M,/V$( )" GUMUJE PRI STLAC'ENII SPEJS"0V$(0)" ULOZ'II OBRAAZOK NA PAASKU"?V$(@)" ZOBRAZUJE BODY V RASTRY S'TYRI KRAAT S'TYRI"KV$(P)" ZOBRAZUJE BODY V RASTRY S'TYRI KRAAT S'TYRI PODLA VZORU".V$(`)" SPREJUJE PRI DRZ'ANII SPEJS"CV$(p)" NASTAVENIE BLOKU NA PRESUN ALEBO VYYMENU BLOKOV") V$()" KRESLI SPOJITE C'JARY"% V$()" KRESLI S'TVORSTEN" V$()" KRUZ'NICA"-!S:XB :PXXB:YB:PYYB="V$()" PRENOS URC'ENEEHO BLOKU NA ZVOLENEE MJESTO"*#V$( )" RUC'NEE KRESLENIE C'JAR"/$V$(()" VKLADANJE PISMEN DO OBRAAZKU"/%V$(0)" NAC'IITANIE OBRAZKU Z PAASKY"4& xF,:M:MM:R:IN'CU$(,,,,,?,?,?,,,,,,,,,,,,,,,,,,,,|,>,,),(%,>,p,,,,,y, )(%) *X:YF:XPX:YPYB+ ,:"pppppppppppppppppppppppppppppppppppppppp";, I 8=- ,I:"p p p";. IA/ ,@:"ppppppppppppppppppppppppppppppppppppppp";20 ,:"";: ,8:"^";y1,:"";: ,:"_";: ,@:"";: ,0:"^";: ,@:"CR";'2 ,@,"p",,w3 ,,,,,,,,,,,G,,G,,34 [@] ,,,@,#5 ,H,,H96 M,: b,,"SCREEN",,#7 ,7,,7,8 b,8,"EDITOR",,"9 I 8 .:  ,I,^,I: !,I,,IJ;  ,I',^,I': !,I',,I'<IN= ,," ANDYSOFT ",,(> X,Y,"",,:"ZOBMENU"Z?  ,,,,,@, ,@, ,: M,^@ I 0 :  ,I,,I: ,I,,I:IA"POHYB": A B"POHYB"$CA():T(): CR$ID CR$(P) xF, :M,: :"MENU"HE A Y YYS:FA: "CURSOR";F A Y XYYS:XXS:"CURSOR"LG A@ X XXS:FA: "CURSOR"=H A X Y1 YYS:XXS:"CURSOR"EI A Y1 YYS:FA: "CURSOR"=J A@ Y1 Xp YYS:XXS:"CURSOR"FK A` Xp XXS:FA@: "CURSOR">L A Xp Y YYS:XXS:"CURSOR"MN"CURSOR":PCAO xF, : M,P XP,YP,"",,Q X,Y,"",,RXPX:YPY: xF,S&T :'------------ DATA MENU ------U 63, 63, 63, 63, 63, 63, 0, 0, 128, 192, 224, 240, 248, 252, 0, 0, 0, 0, 32, 48, 56, 60, 62, 63, 0, 0, 0, 0, 0, 0, 0, 0,V 0, 62, 62, 62, 62, 62, 0, 0, 0, 124, 124, 124, 124, 124, 0, 0, 0, 0, 62, 62, 62, 62, 62, 0, 0, 0, 124, 124, 124, 124, 124, 0,wW $17,$14,$14,$36,$22,$3E,0,0,$E8,$28,$28,$6C,$44,$7C,0,0,0,0,$3E,$22,$36,$14,$17,$10,0,0,$7C,$44,$6C,$28,$E8,$08{X 0, 42, 20, 42, 20, 42, 0, 0, 0, 84, 40, 84, 40, 84, 0, 0, 0, 0, 42, 20, 42, 20, 42, 0, 0, 0, 84, 40, 84, 40, 84, 0,Y 21, 11, 7, 14, 4, 0, 0, 0, 192, 224, 112, 56, 28, 12, 0, 0, 0, 0, 5, 10, 21, 42, 21, 42, 0, 0, 0, 128, 80, 184, 112, 224,{Z 47, 47, 22, 12, 15, 12, 0, 0, 20, 40, 84, 136, 84, 168, 0, 0, 0, 0, 63, 47, 45, 45, 45, 45, 0, 0, 0, 0, 0, 0, 4, 8,o[ 0, 4, 46, 4, 0, 4, 0, 0, 0, 8, 220, 8, 0, 8, 0, 0, 0, 0, 4, 46, 4, 0, 4, 4, 0, 0, 8, 220, 8, 0, 8, 8,t\ 0, 32, 32, 0, 32, 59, 0, 0, 4, 4, 0, 4, 4, 108, 0, 0, 0, 0, 54, 32, 32, 0, 32, 32, 0, 0, 220, 4, 0, 4, 4, 0,^] 1,1,1,7,4,7,0,0,$40,$40,$40,$70,$10,$F0,0,0,0,0,7,4,7,1,1,1,0,0,$F0,$10,$70,$40,$40,$40v^ 0, 0, 0, 0, 0, 1, 0, 0, 136, 80, 32, 80, 136, 252, 0, 0, 0, 0, 32, 16, 62, 5, 2, 1, 0, 0, 0, 0, 0, 192, 56, 4u_ 3, 5, 9, 17, 1, 1, 0, 0, 128, 64, 32, 16, 0, 0, 0, 0, 0, 0, 1, 17, 9, 5, 3, 63, 0, 0, 0, 16, 32, 64, 128, 248v` 8, 8, 8, 4, 4, 7, 0, 0, 8, 8, 8, 4, 4, 252, 0, 0, 0, 0, 63, 32, 32, 16, 16, 16, 0, 0, 224, 32, 32, 16, 16, 16va 4, 4, 2, 2, 1, 1, 0, 0, 64, 64, 128, 128, 0, 0, 0, 0, 0, 0, 63, 32, 16, 16, 8, 8, 0, 0, 248, 8, 16, 16, 32, 32wb 32, 32, 16, 16, 12, 3, 0, 0, 4, 4, 8, 8, 48, 192, 0, 0, 0, 0, 3, 12, 16, 16, 32, 32, 0, 0, 192, 48, 8, 8, 4, 4,c 16, 63, 32, 32, 32, 63, 0, 0, 8, 152, 168, 248, 160, 144, 0, 0, 0, 0, 9, 5, 31, 21, 25, 16, 0, 0, 252, 4, 4, 4, 252, 8,d 16, 63, 32, 32, 32, 63, 0, 0, 0, 128, 128, 128, 128, 128, 0, 0, 0, 0, 9, 5, 31, 21, 25, 16, 0, 0, 252, 4, 4, 4, 252, 0,e 21, 18, 21, 63, 47, 63, 0, 0, 88, 168, 88, 252, 252, 252, 0, 0, 0, 0, 31, 10, 9, 10, 9, 22, 0, 0, 248, 176, 80, 176, 80, 168,sf 0, 0, 0, 0, 0, 0, 0, 0, 28, 12, 0, 0, 0, 0, 0, 0, 0, 0, 63, 1, 0, 0, 0, 0, 0, 0, 252, 0, 192, 224, 112, 56,{g 60, 32, 16, 8, 5, 2, 0, 0, 28, 12, 4, 56, 192, 0, 0, 0, 0, 0, 0, 0, 3, 29, 42, 55, 0, 0, 0, 64, 224, 112, 248, 188,zh 1, 25, 21, 22, 16, 31, 0, 0, 64, 76, 84, 52, 4, 252, 0, 0, 0, 0, 7, 4, 7, 1, 1, 1, 0, 0, 240, 16, 112, 64, 64, 64,zi 1, 1, 63, 32, 32, 63, 0, 0, 0, 0, 248, 8, 8, 248, 0, 0, 0, 0, 0, 7, 24, 36, 37, 27, 0, 0, 0, 192, 48, 72, 72, 176,{j 3, 1, 63, 32, 32, 63, 0, 0, 128, 0, 248, 8, 8, 248, 0, 0, 0, 0, 7, 24, 36, 36, 25, 1, 0, 0, 192, 48, 72, 72, 48, 0,&k:' ---------- END DATA ---------l "ZOBMENU""m II@ ? "n JJ  oA$"":B$"":C$"":D$"",p Z : A:A$A$(A): Z,q Z : C:C$C$(C): Z,r Z @: B:B$B$(B): Z-s ZH : D:D$D$(D): Zt JJ,IIu ,A$v JJ,IIw ,C$$x JJ,II: ,B$)y JJ,II: ,D$z:{"|"MENU": M,: H }xF, ~ PX,PY,"",,A():T()0 A YBYB:RR:"BOX"0 A YBYB:RR:"BOX"D T XB,YB,"",,: M,: "REZIM" "BOX":, PX,PY,"",,Q YB MM YB0:MM:XBXB:M:R0P YB MM YB0:XB :MM:M:R0P YB0 M XBXB:YB:M:MM:R@P YB0 M YB:XBXB:M:MM:R5 xF, : XB,YB,"",,:PXXB:PYYB VO (,V$(R)) "REZIM"f R ,"HCOPY", , , , , , , , , , , , , ", 9, N, b, u, , ,  A"INVERSE"" IN IN:  IN IN M,(  ,,"",, :"PAINT":: z "POHYB" T :  N:T() N $ [N] X,Y,@'[N] X,Y,"",, : "RASTER": xF, " XI  " YI 7  XI,YI: xF,:"INFORMACIE"" VO VO:  VO VO5M,:  , ,"",, : M,"HVIEZDA": z "POHYB"O T :XLX:YLY:X1X:Y1Y: xF, :X,Y,"",,: %A(): CR$:T()& A YLYL:"LINE"& A@ XLXL:"LINE"& A YLYL:"LINE"& A` XLXL:"LINE") T : []X,Y,XL,YLW CR$(P) : xF, :X,Y,"",,: xF,:XXL:YYL: "LINE" xF,  X,Y,X1,Y1 X,Y,XL,YLX1XL:Y1YL: xF, "NEW"I   I, I: "CHANGE": ?L, :xF, > [@]R(),R(),R(@),R(),@8AAR():BBR():CCR(@):DDR()DDA(R()R(@)):DB(R()R()):BPX:APY "POHYB" "BBOX" T :"ZAMEN" "BBOX"6 MB [@] BP,AP,BPDA,APDB,@MB@$[@] X,Y,XDA,YDB,@BPX:APY*"ZAMEN":Z:ZZ: xF, * M,: X,Y,"",,"[@] AA,BB,CC,DD,@$[@] X,Y,XDA,YDB,@ xF,% IAA CC:ZZ:ZZ JBB DD:ZZZZP1(I,J)P2(XZ,YZZ) PPP1 P1P2 P2PP [P1] I,J [P2] XZ,YZZ:: xF, 6MB: X,Y,"",,: M,: "CLS" IN ?L,  IN ?L,4[@],H,,7,:( X,Y,"",,:"GUMA": IN ?L,  IN ?L, "POHYB" T "GUMUJ"" CR$: CR$(P) : "GUMUJ"- [] X@,Y@,X,Y, "HSET": IN ?L,  IN ?L, S "POHYB": T [@] X,Y,X@,Y@,@! CR$: CR$(P)  ?L,:S:"PSET": IN xF,  IN xF, S "POHYB" IN xF,  T ! CR$: CR$(P)    xF,:S: / XX@:YY@: X,Y: X,Y.  X,Y: X@,Y'  X,Y: X,Y.  X,Y@: X@,Y@&XX@:YY@: m R(),R(),R(@),R(),R(@),R(),R(),R(),R(),R():"SPRAY": IN xF,  IN xF, S@ "POHYB" IN xF, ! CR$: CR$(P)  T "STREK"   "STREK" I  D1(())D2(()) XD1,YD2 I   S:: xF,!""RAMCEK"# xF, $RP::z %"POHYB"& T : ( ' %?(XRX:YRY:RA:RB: z:R1:RB)A(): CR$C*R(RP)XR:R(RP)YR:R(RP)XRRB:R(RP@)YRRA5+ A RARA:YY :"RAM"2, A@ RBRB:XX :"RAM"1- A RARA:YY :"RAM"2. A` RBRB:XX :"RAM"/ CR$(P) 7 0 ) 1"RAM"2 xF, 63 XR,YR,XRR2,YR,XRR2,YRR1,XR,YRR1,XR,YR14 XR,YR,XRRB,YR,XRRB,YRRA,XR,YRRA,XR,YR5 xF,:R1RA:R2RB67 xF, : R(),R(),R(@),R(),R(@),R(),R(),R(),R(),R():: xF,8: 9"LINE":: z ;"POHYB": T = < ;;= xF, : X,Y,"",,: xF,:X0X:Y0Y/>:L1:L2:LP:LR?A(): CR$&@ A L2L2:"LIN"&A A@ L1L1:"LIN"&B A L2L2:"LIN"&C A` L1L1:"LIN"D CR$" " "LI"E CR$(P) M F ?G"LIN": xF, H X,Y,XLP,YLRI X,Y,XL1,YL2J xF,:LPL1:LRL2K`L"LI": xF,: X,Y,XL1,YL2:XXL1:YL2Y:L1:L2:LR:LP::GM xF, : X0,Y0,"",,: xF,:XXL1:YYL2:: N"FRAME"O: zP"POHYB": T R Q P-R F2:F1:FR:FPSA(): CR$&T A F2F2:"FRAM"&U A@ F1F1:"FRAM"&V A F2F2:"FRAM"&W A` F1F1:"FRAM"X CR$(P) _ Y SZ"FRAM": xF, ([ X,Y,XFP,Y,XFP,YFR,X,YFR,X,Y(\ X,Y,XF1,Y,XF1,YF2,X,YF2,X,Y]FPF1:FRF2: xF,^_ xF,2` X,Y,XF1,Y,XF1,YF2,X,YF2,X,Y: xF, 4a XXF1:YYF2: xF,::b"CIRCLE"7c: z:RK:E:RP:EP d"POHYB"e T g f dghA(): CR$$i A RKRK:"KR"1j A RK RKRK:"KR""k A@ EE}L:"KR"/l A` E}L EE}L:"KR"9m CR$(P) : xF,: [@]X,Y,RK,E: n h o"KR"p xF, q X,Y,RP,EPr X,Y,RK,EsRPRK:EPEt"u"MOVE":: z:?L, v"POHYB"'w T ?L,: "PRENOS" x v$y"PRENOS":Z:ZZ:z xF, A{ IR() R():ZZ:ZZ9| JR() R(@):ZZZZ}PO(J,I)~[PO]ZZX,ZY:: xF, : "SET": IN xF,  IN xF, "POHYB" IN xF, ! T [@] X,Y! CR$: CR$(P)    xF,:S: "TEXT":z "POHYB" T :    xF,  T$+ T$() M,:: + T$(@) M,:: ( T$(P) :M,: L T$"" X [@] X,Y,T$,,:XX    T$ (T$)  "HCOPY":2P (@);(X);"<";(X);"1";* %,,,,>,,,,* %,(,,,,!,',,* %,!,,&,~,,,w,> %,,#,,,,,,,,,&,, &,,K,," X   %,X:(%,X$,A$)(C$" "A$:P C$: X:'SAVE SCREEN   ,[,##,"SCRDATA":,@ II `(~,A$,A$)#,A$  II #":'*** LOAD SCREEN 320200 ***   ,[,  ##,"SCRDATA":,@K1_ :  #:'****** INIT M/C ******] ~,,,,,,,*,,,,,",,,,,,,,e ~,,,H,,,,*,,,,,,,S,,,,,,,,#:'****** 255*31 ZNAKOV ******II:B$""#,A$K(A$)(B$)(A$) B$A$:  K B$B$A$(P): KB$B$A$: -K"ALI SE JE ZGODILO NEMOGOCE?" :'KONEC (B$) (~,B$)IIII(B$) B$""IIK1