5"":52,48:56,48:51,0:55,0:46,48:45,158:W(49152)32(49408)16850t(" EPROMMER V2.0":-"MA.TINY EPROMM",8,12LM49152:DR49296:BL49464:BS49514:CO49606:CL49716:FI49848749768; TIPLER<T$(5),AL$(3) =T$(0)"2764 / 21 V ". >T$(1)"27128 / 21 V "I ?T$(2)"27256 / 12.5 V"c @T$(3)"8 KB / 12.5 V"~ AT$(4)"16 KB / 12.5 V" BT$(5)"32 KB / 21 V" FAL$(0)" TURBO SPEED " GAL$(1)" FAST & SECURE " HAL$(2)"STANDARD 50 MS" PEI%16( Z(820)0AL((820)16):TY(820)AL167 [TY5TY0F \AL2AL0L ]'] d HAUPTMENUE~ i53280,5:53281,0:650,0:CL n">>> EPROMMER V2.0 <<<": x"----------------------------------------" " LUTFEN SECIN :" 6)"'F1' = EPROM YAKMA4 6)"'F3' = TIP/ALGORITMAO 6)"'F5' = DIREKTORYn 6)"'F7' = BASIC'E DONUS 6)"'F2' = EPROM BOSLUK TESTI 6)"'F4' = EPROM OKUMA 6)"'F6' = EPROM VERIFY 6)"'F8' = TOOL "----------------------------------------";F ">>> "T$(TY)" ILE "AL$(AL)" <<"(148)"<";b TTY:VP0:T1T5VP1q T2TT3 *** SECIM A$:A$""260 A(A$):A133A140260 A1321000,2000,3000,4000,5000,6000,7000,8000 100  YAKMA CL " LUTFEN SECIN !"0 6)"'F1' = GERIW 6)"'F3' = HAFIZAYI EPROMA YAKMA} 6)"'F5' = TEK BYTE PROGRAMLAMA A$:A$""1050 $CL )A1321100,1200,1300 L CL:"HAFIZAYI EPROMA YAKMA :" D81922T1:1500:1600!E1A1E2A21200?"EPROM-TIPI: ";T$(TY)]"ALGORITMA :";AL$(AL)u50050:A$"H"1200CL:" *** EPROM YAKILIYOR ***"49920,AL,VP,T,A1,A2,E2(2)05070050010CL:"TEK BYTE PROGRAMLAMA :":"EPROMADRESI (HEX) ? 0000";:A$"0000":50120a50400:A2A:A0A81922T11300#"DEGER (HEX) ? 00";:A$"00":50120:A$"00"A$(50400:A0A2551300<50050:A$"H"1300FA153247:A1,A:E1A1:E2A2 P"EPROM-TIPI: ";T$(TY))U"ALGORITMA :";AL$(AL)AZ50050:A$"H"1300K_1230Us1000{"BILGSAYARDAKI ADRESLER(HEX):"A$"3000":"BASLANGIC ADRESI ?"A$;:5012050400:50600A1A:A0"":1505AA1D:50600:A0A4915150500#"BITIS ADRESI ?"A$;:50120550400:50600OA149152A57334A0pE1A:A0AA1"":1505} DAA1:@"EPROMDAKI ADRESLER(HEX) :"EA$"0000":"BASLANGIC ADRESI?"A$;:50120J50400:A2AKA81922T1A0"":1605'OAA2D:A81922T1A81922T12R50500TT"BITIS ADRESI ?"A$;:50120d^50400:E2A}cA81922T1AA21hE2A:AA2"":1505mDAA2: TIP ALGORITMACL:TTY"EPROMTIPI VE ALGORITMAYI SECIN :"6)"'F1' = GERI+6)"CURSOR TUSLARI ILE SECINI6)"RETURN ILE BELIRTIN_"";u A05:TA"";A2"OZEL TIPLER:"T$(A)" ":2075" ";T$(A);" "4A$9A$""2300:A$(13)2200>A$""TT1:T0T5.CA$""TT1:T5T08H2050U"";`A02pALA"";" ";AL$(A);" "A$A$""A$(13)2300A$""ALAL1:AL0AL2A$""ALAL1:AL2AL02200820,TAL16:TYT:) FILES1 CLI " LUTFEN SECIN :"_ 6)"'F1' = GERIz 6)"'F3' = DIREKTORY 6)"'F5' = PROGRAM YUKLEME 6)"'F7' = PROGRAM KAYDETME " 6)"'F2' = FLOPPY KOMUTLARI " 6)"'F4' = HATA KANALI "0 A$:A$""3050N A(A$):A133A1383050V CL A1323100,3200,3300,3400,3500,3600  ' DR 50010 3000 CL "LOAD PROGRAM:":3310:3350 "PROGRAM ADI?"; 50100:N$A$:N$""3000 N$"""":3310A A$"8":"FLOPPY ADRESI ? "A$;T 50120:G(A$)o G1G15"":3320u { : N$"" N$"$"3200 "KULLANILAMAYACAK ALANLAR" " $0000-$2FFF UND $C000-$DFFF"  A$"3000":"BASLANGIC ADRESI(HEX) ?";A$;% 50120:504003* 50600:A03300P4 50050:A$"H"CL:3300_> BL,N$,G,A? ST64" I/O-HATASI:GOTO 3394@ A(781)(782)2561:50500:"PROGRAMM BITISI: $";A$B 50010C (49152)32(49400)1693399D " PROGRAM COK UZUNEE "EPROMER DISKINI KOYUN ":50010:"MA.TINY EPROMER",8,1OG 3000WH CLtM "SAVE PROGRAMM:":3310N N$""3000R "BASLANGIC ADRESI(HEX) ?";\ 50100:50400f A13400k BAp "BITIS ADRESI (HEX) ? ";u 50100:504008z AA1:A65535"SON BYTE KAYBOLUYOR ":A65535U 50050:A$"H"CL:3400f BS,N$,G,B,A ST0" I/O-HATASI:GOSUB 50010 3000 : "FLOPPY-KOMUTU:"; EI%25:50100 1,8,15,A$:1:1,8,15:"DISK-STATUS: "; #1,A$:A$;:(ST64)0361041:50010:3000:$:F BASICbCL:"PROGRAMDAN CIKMA:w50050:A$"H"49816:: EPROM BOSLUK TESTICL:"EPROM BOSLUK TESTI:((FF ILE KARSILASTIRMA"50050:A$"H"49929,T,0,0,81922T.(2)15"EPROM SILINMEMIS !":50700K(2)0" EPROM BOS !"X50010:jp EPROM OKUMArzCL"LUTFEN SECIN:6)"'F1' GERI6)"'F3' EPROM OKUMA6)"'F5' =TEK BYTE OKUMAA$:A$""6050A(A$):A133A1356050CL)A1326100,6200,6300/E8CL:"EPROM OKUMAb=D81922T1:1600:1500y>E1A1E2A26200Q50050:A$"H"6200V49923,T,A1,A2,E2`50010:CL:"TEK BYTE OKUMA:"EPROM ADRESI (HEX) ? 0000_";:A$"0000":50120,50400:A2A:A0A81922T16300D50050:A$"H"6300cA153247:49923,T,A1,A2,A2A(A1):50500:"DEGER:";(A1);"=$";A$50010:6000X EPROM VERIFYCL:"EPROM ILE PROGRAMIN KARSILASTIRILMASID81922T1:1600:1500E1A1E2A27100/50050:A$"H"7100E49926,T,A1,A2,E2q(2)15"VERIFY ERROR!":50700:7140" EPROM DOGRU YAKILMIS"50010:@ TOOLJCLO"LUTFEN SECIN:"T6)"'F1' = GERI^6)"'F5' = MONITOR! c6)"'F7' = HAFIZA BOLUMLERINI KAYDIRMAO h6)"'F2' = HAFIZA BOLUMLERINI DOLDURMAc rA$:A$""8050 wA(A$):A133A1378050 |CL A1328100,8065,8300,8110,8120  8450:8000 8600:8000 l CL:650,128:AD12288:" MONITOR :!q " 'F1' GERI%!t " 'F3' TRANSFERD!u " 'F4' HAFIZAYI DOLDURMAo!v " 'F5'/'F7';'F6'/'F8';CRSR = SCROLL!{ " RETURN = DEGERI BELIRTME! LM,AD! "_";! A$:A$""8370! A$""650,0:! (A$)47(A$)588395" (A$)64(A$)718395(" (A$)138400@" A$""8458:8300X" A$""8600:8300m" A$""ADAD80" A$""ADAD80" A$""ADAD1024" A$""ADAD1024" A$""ADAD8" A$""ADAD8" A$""ADAD1# A$""ADAD1# AD0AD65535&# AD65535AD06# W$"":8350H# W$""W$" "i# W$W$A$:(W$)2W$(W$,2)|# W$"";:8370# W$""8410# (W$,1)" "W$"0"(W$,1)# A$"00"W$:50400:AD16,A# ADAD1:W$"":8350# :#! TRANSFER$!CL$ !" TRANSFER (HEX):"=$!" BASLANGIC";:50100:A$""W$!50400:A1A:A08450y$!" BITIS: ";:50100:A$""$ !50400:E1A:A08450$%!" YENI BASLANGIC:";:50100:A$""$*!50400:A2A:A08450 %4!A$"06":" HAFIZA DAGILIMI (HEX): ";A$;:EI%2%5!50120:A$""?%9!A$"00"A$:50400:A084505a%\!E1E11:E165535E1E165536t%f!CO,A1,E1,A2,Az%p!%! FILL%!CL%!"HAFIZAYI DOLDURMA (HEX):"%!"(SADECE RAM ICIN GECERLI !)%!"BASLANGIC";:50100:A$""&!50400:A1A:A08600/&!"BITIS: ";:50100:A$""I&!50400:E1A:A08600k&!A$"FF":"DEGER: ";A$;:EI%2&!50120:A$""&!A$"00"A$:50400:A08600&!E1E11:E165535E1E165536&!FI,A1,E1,A&!&PÏ ALT RUTINLER&ZÏ TUS&d×198,0'iË(214)21""D'nÙ:" T U SA B A S I N "Z'}Ò198,1,0:198,0:l'Ï EINGABE OK?w'×198,0'Ù:"  H E R S E Y T A M A M (E/H) ? "'Ò198,1,0:A$'ËA$"E"A$"H"50075'Î'Ï INPUT'A$"":(Ù"_";:B$:B$""50130((ÁA080::"_";>(áB$:B$""50130S(ÁA080::50120o(Ë(B$)13"_":EI%16:(Ë(B$)31(B$)12850200(Ë(B$)16150200(ËB$(20)B$""50120(Ë(A$)150120(A$(A$,(A$)1)(ę" _";)ĉ50120)ċ(A$)EI%50300!)"ę" ";6),A$(A$,(A$)1)C)|A$A$B$Q)ęB$;"_";\)ĉ50120f)ď HEX)A1:(A$)4(A$)1)āX1(A$))Z((A$,X,1)))ŋZ47Z58ZZ48:50470)ŋZ65Z71A1:X4::)ZZ55)&AAZ16((A$)X) *:ł:AA1:*Dŏ DEX7*NA$"":X301:W(A16X)Q*XAAW16X:W9WW7c*bA$A$(W48)k*lł:q*ŏ*ŋA49151A57344A0*ŋA34096A65535A0*Ŏ* Ə* ƙ"EPROM ADRESI:";A;:50500:" = $";A$*>Ǝ*`::::