1 URAJZOLO' XUT :u T50000TwT(8T-r40,191,4,1,1,"RAJZOLO'"YT2:" E egyenes rajzol}s"yT7" T t`glalap rajzol}s"T9" K k|r (ellipszis) rajzol}s"T;U" I sz|veg kir}sa"T<" F fest`s"T>" S scroll (nyilak !)"U@" V vegyes scroll (space !)"8UB" CLS blokk kit|rl`se"ZUD" CTR blokk invert}l}sa"zUF" B bet|lt`s magn[r[l"UH" M ment`s magn[ra"UJ" Ir}nyUt}s a nyilakkal, SPACE rajzol , UPPER t|r|l . Funkci[ befejez`s:RETURN"VL:" SHIFT ez a ler}s ";'V_(13)ʜ50,1:95.Vaw:VdA0:B0FVns(B,A)tVxAA((1)1)((15)1):AA(A192)(A1)VBB((61)1)((57)1):BB(B256)(B1)6WUZ((4)1)2((22)1)3((42)1)4((46)1)5((18)1)6((2)1)7((30)1)8((53)1)9((7)1)10((26)1)11((44)1)12((3)1)qWZ200,300,400,500,600,700,800,900,1000,1100,1200,1300}Ws(B,A)W((25)1)1ʃ(B,A):120W((5)=U1)1ʂ(B,A):120W110W: * LINE *WXB:YAW50,25WjB,A,X,Y,2(XYY((1)1)((15)1):YY(Y192)(Y1)WXXX((61)1)((57)1):XX(X256)(X1)gXjB,A,X,Y,2}X((55)1)1205XjB,A,X,Y,1X30,30X"X+:U * REC *X,XB:YAX-88,11;13,333;56,6X1kB,A,X,Y,2Y6YY((1)1)((15)1):YY(Y192)(Y1)AY@XX((61)1)((57)1):XX(X256)(X1)RYJk B,A,X,Y,2hYT((55)1)1305Y^kB,A,X,Y,1:30,30YY: * ELLIPSE *YQ1:WU1Y251,15;113,62;1117,2YnB,A,Q,W,2ZWW((1)1)((15)1):WW(W192)(W1)/ZQQ((61)1)((57)1):QQ(Q256)(Q1)?ZnB,A,Q,W,2UZ((55)1)1405eZnB,A,Q,W,0ZmB,A,Q,W,1:56,6;13,333;88,11ZZ: * TEXT *ZoUw:Z"xN";XNZ"yN";YNZ TI1Z"Tipus";TIZ"Sz|veg";S$Z&w [0rB,A,XN,YN,TI,S$[N'[W: * PAINT *:[XtB,A,(B,A)1@[V[: * SCROLL *_[300y[251,15;113,62;1117,2[kB,A,X,Y,0[((1)1)1ʅQB,A,X,Y,1:8U 666,3:666,1[((15)1)1ʅSB,A,X,Y,1:666,3:666,1 \((57)1)1ʅCB,A,X,Y,1:666,3:666,14\((61)1)1ʅAB,A,X,Y,1:666,3:666,1J\((55)1)1720U\30,30[\m\: * VS *v\ 300\%251,15;113,62;1117,2;1,.1\*kB,A,X,Y,0U\4`B,A,X,Y,1:20,50\9((25)1)1820\>((55)1)1ʜ666,1;666,3:825\z]: * BRESET *]3004]251,15;113,62;1117,2D]kB,A,X,Y,0T]]B,A,X,Y,1Z]n]: * BINV *w]300]kB,A,X,Y,0]^B,A,X,Y,1]B]K: /U * LOAD *]L16470,(16470)2]V:(5,7);]]: * SAVE *]w^:"N`v";N$^N$""12501^(N$)16N$(N$,16)8^wB^ N$H^W^ w _^30e^nu^PÏ215ʟ^Uß50010^ZÜ100,50:"Hiba a"". sorban !"