TZ"UQRQU"aaaa6 "U%Er"UQRQU"8lx`<8<(8lll8((8lll88lll8Dlll88 ,((HH~~<><<((>><>BB<DHpHDB!9 T]++ ͙`in4####~4~# DM^#V#++33;;B<*]\"_\C*]\~}t[3*a\Þ*x\#"x\| 4@n8nu{=\*\| E*]\#"]\~! ?#8#7"]\ɿRNINKEYPFPOINSCREENATTATAVALCODVALESICOTAASACATLEXINSQSGABPEEIUSSTRCHRNOBIOAN<>/`:Ψҩ./x/(g}<0S_ -8z<({ZW͎!\~ #5+ 6}!\ !\(.!\('~ ~_w#6#: \w#NV3w2\#6#5: \w#~B{' x!~7{:8/ O(O!(!~!)@(Z( 0^ ƥ0  !Th(80 6!09(0(ƀh!0 "( >_>@}==/O! :H\8 ?DOg z( yMM 1'4l8!\~ ^#N#Fx T# Px<%l 0 !n4ʹ38w18͔ 0"4CU45q8͙͙PYzõ  `uA$Sʉ.68I>CjsOT\i$v$:;\+bk !?!(! +>G- %/> 7;oz( n|g>7%lyx0B> <#1>z<;:H\8>8 >!? O0!+| 00>Ƹ0$ 0x0yO& 0uyO~#.>˸|gz |>= >Щ (y/O7:t\2t\͌0%(<:t\(" > 6+! 0:t\ x(  # I:t\ʊͲ(0 !:t\=(Š0%(#~w #~w #q>q(6R~ݾ 0 ! ~< yO#  y > ~( :t\=ʶnf^ V |( R8&(~ | n f:t\7 >V^ V |  nf7R8 DM~(>|(+F+N+"_\*_\*Y\+N F ~U#w#s#r#7>*Y\+"_\N F U*_\#NF "K\f| n "B\6 7>N F 67>[S\~ # +0͸, ~O*K\~(%(͸ # 0><7,  "_\͸*_\͸"_\*S\8+U#U#SS\[_\> 2v^ V >Start tape, then press any key Program: Number array: Character array: Bytes: 8i0e! _^ NW)TSR7PO_^]\[ZTS >" N > ! :\6W> e 2\N!U   y==Z>?l 2\ m  2\*Q\s#r ̀ *\W}" )DJ>8 ON >ڟ ;  $ N F C\"\C\C\"\qE"\N K\*\FK\*\NE*\8=0&G8  \G!\> Ow# ß;K{\   K6\!;\ˆ &o))) y=>! ON(yU :\8O>N(078#= %N #> _|Xg[\~Wv(W 8Wf(o w&A 8 > F; ; 0H(z> <~#(= AN xF 18f(^-(Z>{?\5R E>2\*\:\> !;\ˮ (E(A n(;>2\"\ F1!͛|XgZN q#ɀscroll 81DG*\*\M x!k\Fx*Q\ s#r#?8!*!"}\0͔ >M D*Q\ s#r6R!![N xF(1G͛>!_ ͛xx ! =!GOx $ ͈!͛xOx T]6=G $ ͈bk:\F(:H\w !|=Pgah)DM>Woz@g!@$| } o?g ![>![uFGw#0! xWT8 > 0 ^#0z *=\!s=\^!͵!8018-8:W8 7~_*[\U#p#q *[\RS[\_!^*[\ fjPp~*I\7n—n͕zʗ#N#F! DM͗*Q\>+5U4*Y\####"[\7n !I\m61~ #"[\1"=\~7͕R#DMbk# # #B 87n*I\n͕!J\͕>7~(Á0f(6^!͵0͐+"[\6^n:\nn 0R0-0 GOx* !j\>w !A\w 6޿GO>X  ^!͵6[\"=\ "\6&*a\+[Y\7n[a\*c\~~# >[\K\[8\*{\G>>?Gbk6+ R#05(5(+C\S8\"{\("\>#"{\+@C8\"\!<"6\*\6>+++"=\V!:\!\"O\+"W\#"S\"K\6#"Y\6 #6#"a\"c\"e\>82\2\2H\!#" \55!\61k 8 61͕Ͱ>,~ 0f(@*Y\ͧ6*Y\"]\x] (0Fį n >O2\66 ͊v0N::\ x ;; KE\>:N ͗::\<( ( 4 p\!D\~( 6 ìONEXT without FOVariable not founSubscript wronOut of memorOut of screeNumber too biRETURN without GOSUEnd of filSTOP statemenInvalid argumenInteger out of rangNonsense in BASIBREAK - CONT repeatOut of DATInvalid file namNo room for linSTOP in INPUFOR without NEXInvalid I/O devicInvalid colouBREAK into prograRAMTOP no gooStatement losInvalid streaFN without DEParameter erroTape loading erro, 1982 Sinclair Research Lt>CI\*]\!U*a\7R`in ͸y=((+[S\U"S\*a\++*I\p+q+s+râ K SR P n (*Q\##0*Q\^#V,ɇo&\^#Vz *O\"Q\0####N!-^KSP0M d*e\!K\>^#VR0 r+s##= RDM~ V#^*c\+U##Ca\#*Y\6 "[\#6#"a\*a\"c\*c\"e\!\"h\[Y\#~ȹ# 78 N#Fq#p*O\ ###N!N KSP͔8!\O N#F+8x(*O\ ###~K(S(P ]s#r+x O!z0N KSP  x Ws?\6ͯ F1D0*I\[l\R8"nRn͸ 8V#^+Sl\"l\*l\n(3>>60%p 8;(, ͙͂x?gi"I\nUf(:k\O !l\KI\̀>(s-~@(###z(0!;\˖7n(*_\R >?~Ͷ# (7#~*\˼"\!\V6 tW"\*[\R:A\(C!;\˞>KV( <0^(>C^#V#n͕7nr+s{ !O({O({ 66|$~$$~$( <bd&F0d>dd<0  00~0> 0`<0 0 >>  |ff|lf<`<f<~f<ffff<ffff~$f<fx8x8ݰ llx0|x8lx8<Z 8x80l0@@n<00lx0l<0lTl`lff`l6`Tl0l0 l l0`8<8 `8   88   ?n 88v0/  >p{!!6!@7{@@ @x |x0w<<@߀?000<<@00<@ ?<?@@f0 00~@~ .t8ll 4l0ln  l0   0l4 0f( @ 0l4<@<n@fllll808l < 0l0n@ @|]8``ll<8l0lv< }l0<p <0x8<0>(@< <0x8f@l {v@fxlll00x 4^Ÿ#^#Vr+s+-˶###[]\"]\;-͙"]\ ~( n4 DM^#~4 {4qpnf|4~wu t 0 (w( ~Owww:}\0vL!Z_DM~#fo ~ 8 ~ N ~w_#~w#~w#u t :}\0, ~??? F('g:~\g.چ "}\ f K}\ͪ"G>w~??? F('w n f ~ ݦ8!~(5~( 5V# n(^#~O/WF(>wF~ݦ#0w 0, 5('$| %|g} o0 |g /g *}\~o"}\8> ;  rajtk jtkgyros produkci NyitraiSOFT 2003 Spectrum 128K+2 szmtgpre+ ra-gyakorl jtk Dri s Rka unokimnak tlet:Izabella nejem  <n$(20,20):r(20):w(20):m=1 0:10 Y19,0;" ":0,0:0,502: 1:1:6: : jo=0:rossz=0 nH(480):J(480):C(12 ):S(12 ):A$(12 ,6):C$(12 ,16):q(12 ) R$(Z$,N)=Z$(N) ? beolvasom az idbelltsokat I=112 :A$(I) (I 2I=112 :C$(I) <I =1i=112 :q(i):62199+i,q(i):i FI=112 P S(I),C(I) ZI _:I=1480:H(I):I:I=1480:J(I):I bk3000 :0,0:255,0:0,175:-255,0:0,-175 c_1,1:253,0:0,173:-253,0:0,-173 d_4,4:247,0:0,167:-247,0:0,-167 es1,1;2;"Nyitrai";2,3;7;"SOFT";3,1;4;"bemutatja:":"7C" fD5;5,1;"6-8 ves";6,1;"gyermeknek";7,1;"kszlt":"7D":3;9 ,1;"gyakorl";10 ,4;"ra";11 ,1;"jtkt":"7E":7;13 ,1;"a jtk";14,4;"10";15,1;"feladatot";16,1;"tartalmaz":"7F" g6;1,19;"programoz:";2,23;"a";3,19;"jtkgyros";5;14,24;"Mennyit";15,27;"is";16,24;"mutat a";17,24;"vekker?" ha2;19,7;"Kszlt Budapesten ";4;20,8;"2003 janurjban." i)5;21,23;" " j8"T240N2CDEFGFEDCCDC","N2efgabagfeefe","N2cdefgfedccdc" k&7:" Krem a neved ";n$(m) nFn$(m)(4)="vege"n$(m)(4)="VEGE"8000@:1: s m=m+1 x hrom ra a kpernyn }1:1:7: $!"haromora"16384@,6912 0#0;2;" jtkgyros" @ vletlenszer rabelltsok A=(*12 )+1 AA=(*12 )+1 B=(*12 )+1 BB=(*12 )+1 D=(*12 )+1 CC=(*12 )+1 A=BA=DB=D200 CC1=CC:CC=CC*4+1 BB1=BB:BB=BB*4+1 AA1=AA:AA=AA*4+1 B<3BB=BB-2 A<3AA=AA-2 D<3CC=CC-2 $A>2A<6AA=AA-1 $B>2B<6BB=BB-1 $D>2D<6CC=CC-1 A=12 AA=AA-2 B=12 BB=BB-2 D=12 CC=CC-2 %A<12 A>8AA=AA+2 %b<12 b>8BB=BB+2 %D<12 D>8CC=CC+2 AA<1AA=AA+480 BB<1BB=BB+480 CC<1CC=CC+480 AA>480AA=AA-480 BB>480BB=BB-480 CC>480CC=CC-480 0Q=(*3)+1:Q=1R=A:RR=AA1 Q=2R=B:RR=BB1 Q=3R=D:RR=CC1 !megjelentem az idt N=161-1 %(R$(C$(R),N))32 280 N L=61-1 &(R$(A$(RR),L))32 295' "L 'r6300, )q1;2;19,12 -((c$(r)(n))+a$(rr)(l)+1)/2;C$(R)(N);" ";A$(RR)(L);" ra" * 400 ,q1;2;19,13 -((c$(r)(n))+a$(rr)(l)+1)/2;C$(R)(N);" ";A$(RR)(L);" ra" Q j bellts megrajzolsa% (6:45-,123{:S(A),C(A) !45-,123{:h(AA),j(aa) )45-,123{:h(AA)-1,j(aa) "7C" (5:125},67C:S(B),C(B) !125},67C:H(BB),J(BB) /125},67C:H(BB)-1,J(BB):"7D" )7:205,123{:S(D),C(D) $205,123{:H(CC),J(CC) 0205,123{:H(CC)-1,J(CC):"7E" $a spectrum vlaszol =""500  7 )Q$=:Z=(Q$):Z<97aZ=Z+32 (Z<97aZ>99cˤ"7C":500 ZQ+96`600X /!j vlasz kirsa 05:5;2;19,3;"Ez igen ,jl vlaszoltl!";20,3;" mg ";10 -(jo+rossz);" feladatod van. " 5jo=jo+1 78"T240N2CDEFGFEDCCDC","N2efgabagfeefe","N2cdefgfedccdc" : 1995 W$a rossz vlasz esetn X5:6;0;19,1;" Szerintem a vlaszod rossz...";20,1;"a helyes vlasz a (";(q+64@);") jel ra" ]rossz=rossz+1 _"M8W0UX14000N9C" b 1995 8a 10-ik feladat-vlasz utni zenet S1:200:r(m-1)=r(m-1)+jo:w(m-1)=w(m-1)+rossz j2::0,0:255,0:0,175:-255,0:0,-175 x$="" |5;2,8;"Ertkels:";6;5,2;"Az rafelismersi feladat";6,10 ;"vgetrt." "rossz=9 x$="nagyon rossz"  rossz=8x$="csapnival" "rossz=7x$="ktsgbeejt" "rossz=6x$="figyelmetlen" 9rossz=5rossz=4rossz=3x$="vltoz" rossz2x$="kitn" 7;8,4;" 10 feladatot kaptl, ";9 ,1;"megoldsod ";x$;" volt.";11 ,5;5;"j vlaszok : ";jo;12 ,5;0;"rossz vlasz: ";rossz ;5;16,1;"j jtkhoz nyomd az ENTER-t" 8"T240N2CDEFGFEDCCDC","N2efgabagfeefe","N2cdefgfedccdc" /1:jo=0:rossz=0:0:  106j &jabb jtk kszl jo+rossz=10 700 1:200 &:!"haromora"16384@,6912 0#0;2;" jtkgyros" ;15,29;jo;16,29;rossz:200 F"t","ngy","hrom","kett","egy","12","11","10","9","8","ht","hat" 4"25 perccel mlt","20 perccel mlt","Negyeddel mlt","Tz perccel mlt","t perccel mlt","Pontosan","t perc mlva","10 perc mlva","15 perc mlva","20 perc mlva","25 perc mlva","Fl rval mlt" r33!,192,218,17,00,64@,01,480,24,237,176,201 18,-26,27,-13 ,32 ,0,27,13 ,18,26,0,32 ,-16,26,-27,13 ,-32 ,0,-27,-13 ,-18,-26,0,-32 0,2,6,9 ,12 ,15,18,21,22,24,25,26,27,26,25,24,22,21,18,15,12 ,9 ,6,2,0,-2,-6,-9 ,-12 ,-15,-18,-21,-22,-24,-25,-26,-27,-26,-25,-24,-22,-21,-18,-15,-12 ,-9 ,-6,-2 v-27,-26,-25,-24,-22,-21,-18,-15,-12 ,-9 ,-6,-2 E0,2,6,9 ,12 ,15,18,21,22,24,25,26,27,26,25,23,20,20,18,17,11 ,9 ,6,2,0,-2,-6,-9 ,-12 ,-15,-18,-21,-22,-24,-25,-26 ez itt a vekker )1:1:6::3005 6z=(n*(2*r-n)):x-z,y+r-n:2*z,0: x=128:y=83S (x,y,2:x,y,4:x,y,45- r=51359;:x,y,r:r C7 @  haromora   88436 PLOT 205,123: DRAW H(CC)-1,J(CC): PLAY "7E" run 499 REM a spectrum vlaszol  500 IF INKEY$ ="" THEN GO TO 500502 INK 7505 LET Q$= INKEY$ : LET Z= CODE (Q$): IF Z<97 THEN LET Z=Z+32510 IF Z<97 OR Z>99 THEN PLAY "7C": GO TO 500 520 IF Z <> Q+96 THEN GO TO 600559 REM j vlasz kirsa / 560 GO SUB 5: PRINT PAPER 5; IN0K 2; AT 19,3;"Ez igen ,jl vlaszoltl!"; AT 20,3;" mg ";10-(jo+rossz);" feladatod van. "   PP  <~~6ff8`86f8f||f ~f<ffvfvf~n|nff>nlnlf~f ffx8~<<~f~ |fffvfvff>vfv~~n|nff>nlnff~f ff8''565 LET jo=jo+15)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C)+ LEN a$(rr)( TO l)+1)/2;C040110 IF n$(m)( TO 4)="vege" OR nn$(m)( TO 4)="VEGE" THEN GO SUB 8000: PAUSE 1: STOP $(R)( TO N);" ";A$(RR)( TO L);" ra"1;"jtkt": PLAY "7E": PRINT INK 7; AT 13,1;"a jtk"; AT 14,4;"10"; AT 15,1;"feladatot"; AT 16,1;"tartalma56ZEQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8ruϠedt[u