#UHELP _TMUTAT[ RU,D TD(2);2)"B A S I K H E L P";(18)uD12)"HASZN]LATI UTASIT]S":D#:::D("EZ A PROGRAM A P R I M O BASIK HASZN]LA-T]T EG@SZITI KI,UJ LEHET\S@GEKKEL."D-:::E2"A PROGRAM SO5UR]N B]RMELYIK GOMBBAL LAPOZ- HATSZ.",E<A$:A$""602EAJEF16)"UTASIT]SOK":yEP"TIME$ - AZ ID\T BE]LLITJA,@S AZONOSITJA"EZ"CLOCK ON - AZ OR]T FELIRJA A K@PERNY\RE"Ed"CLOCK OFF - AZ OR]T LET\RLI"En"CLOCK START - AZ OR]T INDITJA"FxU"CLOCK STOP - AZ OR]T LE]LLITJA"FF:"AZ UTASIT]SOK K\Z\TTI SZOK\Z FONTOS!!!"xF::"DPOKE CIM,K@TB]JTOS SZ]M,K@TB]JTOS SZ]MF"SPOKE CIM,STRING,STRING"FA$:A$""160FF16)"PARANCSOK":F"RENUMBER A,B - ]TSORSZ]MOZO"G17U)"A - KEZD\@RT@K"G17)"B - N\VEKM@NY"HG"FIND sting - ADOTT string KERES@SE"G"OLD NEW - UT]N HA NINCS @RT@K ADVA AKKOR VISSZAHOZZA A PROGRAMOT"G"PUT";(34);"N@V";(34);" - SZALAGRA IR"H6"GET";(34);"N@V";(34);" - SZALAGROLU MEMORI]BA T\LT"HhA$:A$""360Hm6Hr16)"F^GGV@NYEK":bH|"DPEEK(CIM)=PEEK(CIM)+PEEK(CIM+1)*256"rH"XOR(A,B)"H"BIN$(A%)"H"BIN($)"H"CFP(A%)=/ Pl. CFP(-6144%)=59393 /"H"CTI(A)=/ Pl. CTI(59392)=-6144% /"H"ADDR$(A%)= 4oU HEXA"I"BITE$(A%)= 2 HEXA"$I"HEXA$(A%)"5I0"PEEK$(A%)"IIDA$:A$""580OII\IN"BREAK"mIX7)"1 G#=0"Ib7)"2 CIM=VARPTR(G#)Il7)"3 POKE 16812,195,CIM-256*INT(CIM/256),INT(CIM/256)"Iv7)"4 POKE CIM,255,42,230,64,195,44,29"