_UPAINT '87 II. UJ:"PRIMO SUPER GRAPHICS EDITOR SYSTEM '87"J 16454,1:(1)J 16470,2K 7500 K uK 1000+KD1: P(51,40)6K 5500AKTE100K TIP1 r 10,180,4,8,1,"P A I N T" : r 10,180,4,8,1,"T$E$M$R$X"KDU1K( I110 180K2A 10,I,250,I,DK<DD0.2KF ILP TIP1 r 25,90,4,8,1,"P A I N T" : r 25,90,4,8,1,"T$E$M$R$X"LZD1+Ld I25 90>LnC 5,I,240,I,DKLxDD0.22SL IL I1 191 6: KI I1:j 0,K,255,K,0: K,ILj U0,100,255,100,1L I15 240 10Ln I,100,5,6,1Lj I,94,I,106,1:t I1,102,1:t I2,98,1L IMk 0,0,255,191,1'Mk 2,2,253,189,1?>fU ? xU UX5UU uVUUU`U*UUAUUUPUUPnU UUSUUUXUT??UUUUdUUUTꪪUU]UٵWUUW%UU]UUWUUWͿpU UU]U-WUUW_UU]U5WUUWꪪUUUUrUUUT??UUcUUUYUUX𪪨IU UUAUUUPUUPꪀ:5WUU@ UUU U\AU! x?px<>U" ??????????~?~?~?~U# ?~{??U$ "Mi legyen a sz|veg";Q$cNA$Q$cOUP TIP1 2130cP 55555: A$K$:Q$K$cR I10 210 10: I,10: Id\"Mi legyen a visszintes nagyit}s";C1d]"Mi legyen a visszintes koordin}ta";A\d^"Mi legyen a f~gg{leges koordin}ta";Bdf"Mi legyen a f~gg{leges nagyt}s";Ddk"Mi legye7UQn a tipusa (1,2,0) (1=feh`r, 2=inverz,0=t|r|l) ==>";ER^ep"Most meg fog jelenni a sz|veg.Ha hiba~ze- netet l}t akkor nem szabad semmit csin}lnihanem rja be a k|vetkez{ sz|veget: Goto 2100"ez"Ha beirta folytat[dik a program `s a hib}sadato#URk miatt amit megadott nem romlik el a k`p,`s _jra adhassa az adatokat!!!"e 70,700er A,B,C,D,1,A$f "" 2195kf"MOST R]M]SOLOM A K@PRE!! Ha megn`zte `rintsen meg egy billentyt!"xf 60,600fw:r A,B,C,D,2,A$fMUS "" 2220fwf"Rendben van a K`p";S$ngS$"igen"S$"IGEN"S$"Igen"ʅw:r A,B,C,D,2,A$:rA,B,C,D,ER,A$: 280 : "Ha nem akkor nem;k`rem adja meg _jra az adatokat!!":w:r A,B,C,D,2,A$:w:200,300:2100g I1 5: 100,6: 200,4: IgSUT A100:B100:GA:HB:k A,B,A50,B38,2g ((57)1)1 AA1g ((61)1)1 AA1 h ((01)1)1 BB1#h$ ((15)1)1 BB1bh. B154 A0 B0 A204 k G,H,G50,H38,2: 2300h8 k G,H,G50,H38,2:k A,B,A50,B38,2:GA:HBUUhB ((07)1)1 2390hL 2310hV 70,300h[ k A,B,A50,B38,2h` I1 50hj K1 38it P(I,K)((A)I,(B)K)i K,I+i 30,5004i w:i "Akar rajta v}ltoztatni";J$: J$"igen" J$"Igen" J$"IGEN" : 2665i I0 oUV250 5i j I,0,I,190,1i Ii I0 190 5i j 0,I,250,I,1i Ii I1 50j K1 38)j P(I,K)1 t(5I)2,(5K)2,13j K,I@j 70,400Vj F10:Z10:GF:KZj j G1,K2,G4,K2,2:j G2,K1,G2,K4,2j C1 F1zUW0:Z10:C0j ((57)1)1 FF5j ((61)1)1 FF5j ((01)1)1 ZZ5k ((15)1)1 ZZ5Pk F0 F245 Z0 Z185 I1 5: 200,20;400,20:I:C1: 2545k( j G1,K2,G4,K2,2:j G2,K1,G2,K4,2:j F1,Z2,F4,Z2,2:UX j F2,Z1,F2,Z4,2:GF:KZk2 ((55)1)1 l F1,Z1,F4,Z4,1: 2541l3 ((07)1)1 l F1,Z1,F4,Z4,0: 2541*l< ((44)1)1 25509lF I1 50HlP K1 38flZ P(I,K)((5I)2,(5K)2)pld K,Iwli wll k Y,X,Y50,X38,2: 300UY!0ln I1 50lx K1 38l P(I,K)1 (AI,BK) : (AI,BK)l K,Il w:y: 285m ((57)1)1 AA1-m ((61)1)1 AA1Gm ((01)1)1 BB1am ((15)1)1 BB1m A0 B0 A205 B154 A100:B100: 30@U`"00m ((44)1)1 k Y,X,Y50,X38,2: 10,800: 3060m k Y,X,Y50,X38,2:k A,B,A50,B38,2:YA:XB n 3000n 'n :*** Soksz|g ***Ln& A100:B100:C30:D30:SZG5:R10on' Q100:U100:I30:O30:X5:H10n( o Q,U,I,O,2,R,Xn+ j Q3,U3,Ua#Q3,U3,2:j Q3,U3,A3,U3,2n0 ((57)1)1 AA1n5 ((57)1)1 ((03)1)1 AA10o: ((61)1)1 AA18o? ((61)1)1 ((03)1)1 AA10RoD ((01)1)1 BB1{oI ((01)1)1 ((03)1)1 BB10oN ((15)1)1 BBνUb$1oS ((15)1)1 ((03)1)1 BB10oX ((32)1)1 CC1:DD1ob ((42)1)1 CC1:DD1pl ((18)1)1 DD12pv ((30)1)1 CC1Lp ((28)1)1 DD1pp ((10)1)1 RR0.1: 80,30p ((00)1)1 11,100:RR0.[Uc%1p ((12)1)1 SZGSZG1p ((06)1)1 SZGSZG1Kq AC255 AC0 BD191 BD0 C1 D1 o Q,U,I,O,2,H,X:j Q3,U3,Q3,U3,2:j Q3,U3,Q3,U3,2: 3100q "M" o Q,U,I,O,2,H,X:j Q3,U3,Q3,U3,2:j Q3,U3,Q3,U3,2Ud&:q ((07)1)1 222,30:o A,B,C,D,1,R,SZGq ((55)1)1 100,90:o A,B,C,D,0,R,SZG&r ((46)1)1 40,400:o A,B,C,D,2,R,SZG~r j Q3,U3,Q3,U3,2:j Q3,U3,Q3,U3,2:j A3,B3,A3,B3,2:j A3,B3,A3,B3,2r o Q,U,I,O,2,H,X:Ue'o A,B,C,D,2,R,SZG:QA:UB:IC:OD:HR:XSZGr 3120rr r|:**** G@PTIPUS MEG]LLAPT]S ***s (0)1000 7000#sA(384)?s A49 TIP1 : TIP2s TIP1 GEP$"PRIMO A-64":DATE$"1984.1":BIL$"@rint`ses elven mk|d{"s TUf(IP2 GEP$"PRIMO B-64":DATE$"1984.2":BIL$"Mechanikus elven mk|d{"t"Nyomj meg egy billentyt!": 20,100tA(33)t#t 10,100Ft"A Te g`ped ";GEP$;" tipus_."et"Billentyzete ";BIL$;"."t"Verzi[sz}ma:";DATE$t"Szabad mem[riaJUg) :";(0);"-byte."t:"Nyomj meg egy billentyt!"t 30,50tC(33)tttLuV"Ebbe a G`pbe nincsen bet{ltve a Graphics program amely a mk|d`s`hez n`lk~l|zhetetlen! K`rem rja be a 'NEW'-parancs6Uh*ot `s ezut}n 'LOAD'-parancsal t|ltse be a Graphics"u`"programot!"uj"Nyomj meg egy billentyt!""vo I1 10: 70,10;30,150;90,10: I0vtG(33):Xvx LL1 10: 10,70;70,10;40,10: I`v fvv0u I0 215 40: K191 11 10:] I,Ui+K10,I40,K,1: K,I:v:uk 0,0,255,191,1vNu:(5)" PAINT GRAFIKUS RENDSZER"vXu(1)wbu" A PROGRAMOT K@SZITETTE:"Lwlu"Frajka J}nos 2360 Gy}l Vecs`si ut 62."wvu"A 'PAINT 87' a COSY -}ltal forgalmazott GRAFICS -seg`dprogram s&Up,egts`g`vel k`szltC`lja,hogy megk|nnyitse a grafikai k`pek szerkeszt`s`t,erre j[ p`ld}t mutatnak a"xu"DEMO k`pek amelyek a PAINT -al k`sz~ltek. Ez a program sok szubrutinnal `s biztons}gi rendszerrel ell}tott.Ez`rt nagy helyet foglal a mWUq-em[ri}ban `s csak az A-64 `s a B-64 tipusu PRIMO-n "xu"mk|dik."xu 35000yu"Lapozni b}rmely billentyvel lehet."Iyu"Kil`pni a segit{ inform}ci[b[l q-val lehet."Uyu 35000zu"Ha a g`p z|rg{ hangot ad,az azt jelenti, hogy egy tetszUr.{leges billenty lenyom}s}rav}r.Ha elindult a program,akkor megjelenika MENU itt l}thatjuk a funkci[kat. Pl: K=K|r"zu"Ez azt jelenti,hogy ha k|rt akarunk rajzolni,akkor nyomjuk meg a K-billentyt!Ha megnyomtunk valamilyen billentyt akkoreUs/gy rutinba jutunk el: Pl:K`zi rajzol}s."{u"Az ilyen rutinokb[l az M-billenty megnyom}s}val t`rhet~nk vissza a MENU-be. Ha a g`pre nincs hat}ssal az M-bet~ lenyom}sa,akkor nem nagy M-t nyomtunk! Ilyenkor nyomjuk meg az UPPERT.A g`p"{ Ut0u"Alap}llapotban nagybet~ket ir."{u 35000{u" K\R"|u:"Ir}nyit}s a nyilakkal."O|u"Ahhoz,hogy l}ssuk,hogy `ppen hol van a k|r,nyomjuk meg az UPPER-t."n|u"Nagyit}s : N -billenty"|u"Kicsinyit`s: K -billenty"|u"Uu1"A,S,D,F -billentykkel lehet vizszintesen `s f~gg{legesen nagyitani `s kicsinyiteni."}u"RETURN -rajzol."}u"CTRL -t|r|l."4}u"CLEAR (CLS) -invert}l."S}u"M-visszat`r a MEN^ -be."_}v 35000}v" ELLIPSZIS RAJZOL]SA"} v:"Itt ugyaUv2n _gy kell elj}rni mint a K\R rajzol}s}n}l."}v 35000}v" EXTRA PONTOS RAJZ"~v:"Itt egy t`glalapot kell elhelyezn~nk a k`p valamelyik r`sz`n.Ha elhelyezt~k a kiv}nt ter~leten akkor nyomjunk CTR -t.Most a g`p ezt a ter~Uw3letet elrakt}rozza a mem[ri}ban.Erre egy"  v"kis id{re van sz~ks`ge,ha k`sz van akkor megjelenik a k`rd`s:")%v"Akar rajta v}ltoztani?"*v"Ha azt irjuk,hogy igen akkor kinagyitja a k`pet.Ha azt irjuk,hogy nem akkor ujra megjelenik Ux4a k`pen a kis t`glalap helyezz~k el a nyilakkal `s nyomjunk M -billentyt."/v 350004v" EXTRA PONTOS RAJZ"*9v:"Folytat}s...">v"Ekkor erre a helyre rajzolja a kiv}lasztott ter~let pontjait. Ha az 'Akar rajUy5ta v}ltoztatni k`rd`sre 'igen' -t v}laszol,akkor a g`p kinagyitja a kiv}lasztott ter~letet."pCv"Ha k`sz van a nagyit}ssal akkor hangjelz`st ad.Ekkor a k`pen l`v{ felosztott r`szekbe rajzolhatunk."Hv"RETURN -fest CTR -t|r|l."bU6Mv"A nyilakkal lehet mozogni.DRv"Ha RETURN -t nyomunk akkor egy kicsit kell v}rni,`s megjelenik a t`glalap `s csak elkell helyezni `s M -billenty~t nyomjunk."PWv 35000m\v" MOZGAT]S"_v:"Elhelyez`s a nyilakkal."bvU7"* -Jobbra tol."ev"q -le tol."ɂhv"1 -fel tol."ނkv"_ -balra tol."nv 35000qv" K@PT\RL@S"\tv:"Ugy id`zhetj~k el{,hogy a CTR-t nyomva tartjuk `s ekkor megnyomjuk a CLS-t."hwv 35000zv" VONAL HUZ]SA",}v:"Egy k|0U8z`pen megjelen{ pici pontot kell a nyilakkal elhelyezni.Ekkor nyomjunk SHIFT-et ekkor hangjelz`st ad a g`p. Ahol ut[lj}ra SHIFT-et nyomtunk"v"vagy ahol a vonal v`ge van,onnan fogja huzni a vonalat RETURN -billentyre. CTR -t|r|l. C"U9LS -inverz vonal."v::v 35000Մv" MENT@S"v:"Irjuk be a k`p nev`t,`s a g`p kimenti magn[ra."hv"Figyelem: Miel{tt RETURN-t nyomunk el kell a magn[t felv`telre indtani!"zv::: 35000v" MENT@S ELLU:EN\RZ@SE" v:"Nyomvatartjuk a CTR-t `s M-billentyt nyomunk.Ekkor a magn[n l`v{ k`pfile-t leelen{rzi a g`p."v 350001v" FEST@S"v:"Helyezz~k el a nyilakal a kis c`lkeresztet,a kiv}nt ter~letre!"v"RETURN -U; feh`rre fest."v"CTR -feket`re fest."Άv:: 35000v" T\LT@S A MAGNOROL"v::"Beolvas egy kimentett k`pet."*v:::: 35000Xv"Egy ablak fest`se,invert}l}sa,t|rl`se."lv:"N -nagyit."v"K -kicsinyit."v"C,V,B,N,D,F,U<G,H,J -alakv}ltoztat}s."v"F- fest."͇v"T- t|r|l."v"I- invert}s."v: 35000v" T@GLALAP RAJZOL]SA"/v:"Nyilakkal mozgat."Dv"K -kicsinyit."Vv"N -nagyit."gv"T- t|r|l."yv"R -rajzol."v"A,S,D,F,Y,X,C,V -alaU=kv}ltoztat}s."v"* -l`p`sk|z n|vel`se. (0.5-20)":"- -l`p`sk|z cs|kkent`se. (20-0.5)"v: 35000v" K@ZI RAJZOL]S"0v:"RETURN -rajzol."Cv"CTR -t|r{l."Yv"CLS -invert}l."v"Nyilakkal mozgatjuk a villog[ pontot."v 35000+U>v" SZ\VEG RAJZOL]S"v:"A sz|vegrajzol}s kirja a kell{ inform}ci[t mk|d`s k|zben."v:: 70,700: 350003v" SEGITS@G"w:"H -billentyre a g`p segits`get ad a program haszn}lat}hoz."w: 35000w"U? SOKSZ\G RAJZOL]S"Ҋ w:"A nyilakkal lehet mozgatni." w"RETURN - rajzol."w"CTR -t|r|l."w"CLS -invert}l."6w"Q,W -sz|gsz}m v}ltoztat}sa."Nw"Y,X -elforgat}s."uw"C,V,B,F,G,H,J -alakv}ltoztat}s."w"N -nagyit.""w"K -kicU@sinyit."%w:: 35000ŋ(w" ZENE V]LT]S"+w:"Q-val lehet ki `s be -kapcsolni a zen`t." .w::: 35000:x:HELP V@GE'