GB':<1630504....>C' inkey ( key > > ri$,ri% ))C$'RI$OC.'RI$:RI$""10030:RI%(RI$):}C8' udvarias inkey ( key > > ri$,ri%,disp )CB':"Nyomj le egy billentyut !";:10010:CL' i/n inkey ( key > > ry%,ri$,ri% )DV'10010:RI$"I"RI$"i"RI$"N"RI$"n"RY%RI$"I"RI$"i"::10070KD`' parancs inkey ( rp$,key > rl%,ry% > rp% )jDj'RL%(RP$):RL%0ʔ:RY%0Dt'RY%ʒ:10010:RP%0D~'(RP%1RL%)RY%10100:RP%RP%1:RY%RI$(RP$,RP%,1):10110D' peek inkey ( key > > ri$,ri% )E'RI%(16537):RI$(RI%):"E' peek2 ( ra > > rd )=E'RD256(RA1)(RA):[E' poke2 ( ra,rd > rz% > )E'RZ%RD256:RA,RD256RZ%:RA1,RZ%:E' memory ( > ra,rd,rt, > disp )E'RA16548:10140:RTRDE'RA16633:10140:"TXTTAB =";RT;"BASIC =";RDRT:RTRD5F'RA16635:10140:"VARTAB =";RT;"VAR =";RDRT:RTRDnF'RA16637:10140:"ARYTAB =";RT;"ARY =";RDRT:RTRDF'RA16544:10140:"ARYEND =";RT;"SPACE =";RDRT:RTRDF(RA16561:10140:"STRTAB =";RT;"SRTING=";RDRTG ("MEMSIZ =";RD;"CODE =";32767RD:G( ujsor ( rp > > rp )7G(RP256(RP1)(RP):\G(( sorprint ( > ra,rd,rp > disp )pG2(RP16548:10260G<(RP0ʒ:RARP2:10140:RP;">";RD:10260:10300GF( sorker ( rl > ra,rd,rz% > ry%,rp )GP(RZ%0:RY%0:RP16548:10260@HZ((RP0)RZ%ʒ:RARP2:10140:RZ%RDRL:RZ%RY%RDRL:10330:10260:10330[Hd( cursor ( > ra > rd )}Hn(RA16416:10140:RDRD15360:Hx( break off ( > > )H(16396,175:H( break on ( > > )H(16396,201:H( save ( > > disp,tape ) I(:"Save":10040:"X"::"I( = = = E N D = = =