GB(#:<1630504....>$C)# subhivo ( r%,... > ... > ... )C*#R%9000,9002,9004,9006,9008,9011,9013,9015,9019,9021,9023,9025,9033,9036,9039,9041,9043,9045:C+# subnev ( r% > > r$ )(D,#R$("Stop SubhivSubnevSubpriInkey$Udvin$I/Nin$Parin$Peeki$Peek2 Poke2 MemorySorpriSorkerCur Br.offBr.on Save ",6R%5,6):JD-# subprint ( > r%,r$ > disp )zD.#:R%118:9004:"## ";R%;:R$,:R%:::D/# inkey ( key > > ri$,ri% )D0#RI$D1#RI$:RI$""9009:RI%(RI$):D2# udvarias inkey ( key > > ri$,ri%,disp )#E3#:"Nyomj le egy billentyut !";:9008:KE4# i/n inkey ( key > > ry%,ri$,ri% )E5#9008:RI$"I"RI$"i"RI$"N"RI$"n"RY%RI$"I"RI$"i"::9013E6# parancs inkey ( rp$,key > rl%,ry% > rp% )E7#RL%(RP$):RL%0ʔ:RY%0E8#RY%ʒ:9008:RP%09F9#(RP%1RL%)RY%9016:RP%RP%1:RY%RI$(RP$,RP%,1):9017^F:# peek inkey ( key > > ri$,ri% )|F;#RI%(16537):RI$(RI%):F<# peek2 ( ra > > rd )F=#RD256(RA1)(RA):F># poke2 ( ra,rd > rz% > )F?#RZ%RD256:RA,RD256RZ%:RA1,RZ%:G@# memory ( > ra,rd,rt, > disp )EGA#RA16548:9021:RTRD:RA16633:9021}GB#"TXTTAB =";RT,"BASIC =";RDRT:RTRD:RA16635:9021GC#"VARTAB =";RT,"VAR =";RDRT:RTRD:RA16637:9021GD#"ARYTAB =";RT,"ARY =";RDRT:RTRD:RA16544:9021%HE#"ARYEND =";RT,"SPACE =";RDRT:RTRD:RA16561:9021HHF#"STRTAB =";RT,"SRTING=";RDRTpHG#"MEMSIZ =";RD,"CODE =";32767RD:HH# sorprint ( > ra,rd,rp > disp )HI#RP(16548)256(16549):RN(RP)256(RP1)"IJ#RN0ʒ:"##### ";(RP2)256(RP3);:"#####";RP:RPRN:RN(RP)256(RP1):9034KIK# sorker ( rl > ra,rd,rz% > ry%,rp )IL#RZ%0:RY%0:RP(16548)256(16549):RN(RP)256(RP1)IM#(RN0)RZ%ʒ:RD(RP2)256(RP3):RZ%RDRL:RZ%RY%RDRL:9037:RPRN:RN(RP)256(RP1):9037JN# cursor ( > ra > rd )1JO#RA16416:9021:RDRD15360:IJP# break off ( > > )ZJQ#16396,175:qJR# break on ( > > )JS#16396,201:JT# save ( key,tape > i$,i% > disp,tape )JU#:"Jegyezd fel a szalagszamlalot !";:9011::"Save":"X":"Verify":::