Sayfa 81

inS=""' x=POS(0):y=CSRLIN:LOCATE y.x:PRINT "_"

reset:

i$=INKEY$:IF i$="" THEN reset iS=UCASE$(i$) IF INSTR(KEYS$.i$)=0 THEN reset IF i$=CHR$( 13) THEN er=0:LOCATE y.x PRINT " ":r$=SPACE$(sn):MlD$(r$. I)=in$:in$=r$:RETURN IF i$=CHR$(8) AND LEN(in$)=0 THEN reset IF i$=CHR$(8) THEN in$=LEFT$(in$.LEN(in$)-1 ):x=x-l .LOCATE y.x:PRINT "_ ":GOTO reget IF i$=CHR$(27) THEN er=-1 :LOCATE y.x:PRlNT " ":RETURN IF LEN(in$)=sn THEN reset LOCATE y.x:PRINT i$"_":x=x+l:in$=in$+i$:GOTO reget

dload: COLOR 2.0 LOCATE 2.3LPRINT "LOADER BOLUMU":COLOR 3.0:PRINTSTRING$<80."-") COLOR 1.0

PRINT :PRINT :LOCATE 10.20:PRINT "LÜTFEN BEKLEYIN. TRANSFER YAPIYORUM!" OPEN "r".#2."df0:defter".172

FIELD #2.15 AS tad$.15 AS tsad$.12 AS ttel$.65 AS tadr$,65 AS tnot$ FOR d=l TO INT(L0F(2)/I72) GET #2.d LSET ad$=tad$ LSET sad$=tsad$ LSET tel$=ttel$ LSET adr$=tadr$ LSET NT$=tnot$ PUT # 1.d NEXT d CLOSE #2 PRINT :PR1NTTAB(27)"L0ADING BITTII!!" RETURN

dsave: COLOR 2.0 LOCATE 2.31 :PRINT "SAVE BOLUMU":COLOR 3.0:PRINT STRING$(80,"-") COLOR 1.0 PRINT PRINT :LOCATE l0,20:PRINT "LÜTFEN BEKLEYIN. TRANSFER YAPIYORUM!" OPEN "r",#2."df0:defter", 172 FIELD #2,15 AS tad$J5 AS tsad$J2 AS ttcl$,65 AS tadr$,65 A> tnot$ FOR d=l TO INT(LOF(l)/172) GET # 1,d

LSET tad$=ad$ LSET tsad$=sad$ LSET ttel$=tel$ LSET tadr$=adr$' LSET tnot$=NT$ PUT #2,d NEXT d CLOSE #2 PRINT :PRINTTAB(27)"SAVING BITTI!!" RETURN about: PRINT "About:" PRINT "Programmer By Hüseyin YEŞİLBAŞ" PRINT "in 1991."- PRINT "Dedicated to Yasemin." PRINT "Special Thanx to all my friends & Bronx Members!!"

abkey: IF INKEY$="" THEN abkey RETURN

fade: pal=pal+eks IF pal>=l OR pal<=.5 THEN eks=-l*eks:GOTO fade PALETTE 3,0,0,pal RETURN