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 ECIN !/ 6)"'F1' = GERIV 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)t50050:A$"H"1200CL:" *** EPROM YAKILIYOR ***"49920,AL,VP,T,A1,A2,E2(2)05070050010CL:"TEK BYTE PROGRAMLAMA :"9"EPROMADRESI (HEX) ? 0000";:A$"0000":50120`50400: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)@Z50050:A$"H"1300J_1230Ts1000z"BILGSAYARDAKI ADRESLER(HEX):"A$"3000":"BASLANGIC ADRESI ?"A$;:5012050400:50600A1A:A0"":1505AA1D:50600:A0A4915150500""BITIS ADRESI ?"A$;:50120450400:50600NA149152A57334A0oE1A:A0AA1"":1505| DAA1:@"EPROMDAKI ADRESLER(HEX) :"EA$"0000":"BASLANGIC ADRESI?"A$;:50120J50400:A2AKA81922T1A0"":1605&OAA2D:A81922T1A81922T11R50500ST"BITIS ADRESI ?"A$;:50120c^50400:E2A|cA81922T1AA21hE2A:AA2"":1505mDAA2: TIP ALGORITMACL:TTY"EPROMTIPI VE ALGORITMAYI SECIN :"6)"'F1' = GERI*6)"CURSOR TUSLARI ILE SECINH6)"RETURN ILE BELIRTIN^"";t A05:TA"";A2"OZEL TIPLER:"T$(A)" ":2075" ";T$(A);" "4A$9A$""2300:A$(13)2200>A$""TT1:T0T5-CA$""TT1:T5T07H2050T"";_A02oALA"";" ";AL$(A);" "A$A$""A$(13)2300A$""ALAL1:AL0AL2A$""ALAL1:AL2AL02200828,TAL16:TYT:( FILES0 CLH " LUTFEN SECIN :"^ 6)"'F1' = GERIy 6)"'F3' = DIREKTORY 6)"'F5' = PROGRAM YUKLEME 6)"'F7' = PROGRAM KAYDETME " 6)"'F2' = FLOPPY KOMUTLARI " 6)"'F4' = HATA KANALI "/ A$:A$""3050M A(A$):A133A1383050U CL~ A1323100,3200,3300,3400,3500,3600  : DR 50010 3000 CL "LOAD PROGRAM:":3310:3350 "PROGRAM ADI?"; 50100:N$A$:N$""3000 N$"""":3310@ A$"8":"FLOPPY ADRESI ? "A$;S 50120:G(A$)n G1G15"":3320t z : N$"" N$"$"3200 "KULLANILAMAYACAK ALANLAR" " $0000-$2FFF UND $C000-$DFFF"  A$"3000":"BASLANGIC ADRESI(HEX) ?";A$;% 50120:504002* 50600:A03300O4 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 UZUNCE "EPROMER DISKINI KOYUN ":50010:"MA.TINY EPROMER",8,1MG 3000UH CLrM "SAVE PROGRAMM:":3310N N$""3000R "BASLANGIC ADRESI(HEX) ?";\ 50100:50400f A13400k BAp "BITIS ADRESI (HEX) ? ";u 50100:504006z AA1:A65535"SON BYTE KAYBOLUYOR ":A65535S 50050:A$"H"CL:3400d 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)0361021:50010:30008$:D BASIC`CL:"PROGRAMDAN CIKMA:u50050:A$"H"49816:: EPROM BOSLUK TESTICL:"EPROM BOSLUK TESTI:((FF ILE KARSILASTIRMA"50050:A$"H"49929,T,0,0,81922T,(2)15"EPROM SILINMEMIS !":50700I(2)0" EPROM BOS !"V50010:hp EPROM OKUMApzCL"LUTFEN SECIN:6)"'F1' GERI6)"'F3' EPROM OKUMA6)"'F5' =TEK BYTE OKUMAA$:A$""6050A(A$):A133A1356050 CL'A1326100,6200,6300-C8CL:"EPROM OKUMA`=D81922T1:1600:1500w>E1A1E2A26200Q50050:A$"H"6200V49923,T,A1,A2,E2`50010:CL:"TEK BYTE OKUMA:"EPROM ADRESI (HEX) ? 0000_";:A$"0000":50120*50400:A2A:A0A81922T16300B50050:A$"H"6300aA153247:49923,T,A1,A2,A2A(A1):50500:"DEGER:";(A1);"=$";A$50010:6000X EPROM VERIFYCL:"EPROM ILE PROGRAMIN KARSILASTIRILMASID81922T1:1600:1500E1A1E2A27100-50050:A$"H"7100C49926,T,A1,A2,E2o(2)15"VERIFY ERROR!":50700:7140" EPROM DOGRU YAKILMIS"50010:@ TOOLJCLO"LUTFEN SECIN:"T6)"'F1' = GERI^6)"'F5' = MONITOR c6)"'F7' = HAFIZA BOLUMLERINI KAYDIRMAM h6)"'F2' = HAFIZA BOLUMLERINI DOLDURMAa 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' TRANSFERB!u " 'F4' HAFIZAYI DOLDURMAm!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:8300V" A$""8600:8300k" A$""ADAD80" A$""ADAD80" A$""ADAD1024" A$""ADAD1024" A$""ADAD8" A$""ADAD8" A$""ADAD1" A$""ADAD1# AD0AD65535$# AD65535AD04# W$"":8350F# W$""W$" "g# W$W$A$:(W$)2W$(W$,2)z# 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$""U$!50400:A1A:A08450w$!" 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:A084505_%\!E1E11:E165535E1E165536r%f!CO,A1,E1,A2,Ax%p!%! FILL%!CL%!"HAFIZAYI DOLDURMA (HEX):"%!"(SADECE RAM ICIN GECERLI !)%!"BASLANGIC";:50100:A$"" &!50400:A1A:A08600-&!"BITIS: ";:50100:A$""G&!50400:E1A:A08600i&!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""B'nÙ:" T U SA B A S I N "X'}Ò198,1,0:198,0: