Turbo Basic - Animasi dan Balik Kata
CodingNYA cls text$= " UNISLA SOLUSI MASA DEPAN" for i=1 to 45 step 0.0003 locate 1,i ?text$ next i for r=1 to 30 step 0.0003 cls locate 1,45 color 0 ?text$ cls locate 1,45 color 10 ?text$ next r for i=1 to 5 step 0.0001 cls locate i,45 ?text$ next i for i=1 to 25 step 0.0003 cls locate 5,(45-i) ?text$ next i for r=1 to 4 step 0.0003 cls locate (5-r),20 ?text$ next r delay 0.03 ? "Program Membalik Kata" balik$="" input" Masukan Kata :",kata$ for i=len(kata$) to 1 step -1 balik$=balik$+mid$(kata$,i,1) next i delay 0.01 print " Kata Yang Dibalik :";balik$ stop