fungsi cutstr(thestr,srlen)
redup l,t,c
aku=len(str)
t=0
untuk dxy=1 sampai l
c=Abs(asc(Tengah(thestr,dxy,1)))
jika c>255 maka
t=t+2
kalau tidak
t=t+1
berakhir jika
jika t>=bintang maka
thev=kiri(thestr,dxy)
keluar untuk
kalau tidak
bu=mulai-t
untuk bui=1 sampai bu
strbu=
strbuall=strbull&strbu
Berikutnya
thev=thestr&strbuall
strbu=
strbuall=
berakhir jika
Berikutnya
cutstr=itu
fungsi akhir
<%
'=============
's_cut_cut(ketik,angka)
'Menurut: kepingan salju
'Jenis instrumen, nomor
'ketik:SpecifyException
'num:Kunci pelat nomor diaktifkan
'=================
Fungsi w_cut(jenis,angka)
tipe redup,cnum,ci,tt,tc,cc
ctypes=tipe:cnum=int(num):w_cut=:tc=0:cc=0
untuk ci=1 hingga panjang(ctypes)
jika cnum<0 maka w_cut=w_cut&...:keluar untuk
tt=pertengahan(ctypes,ci,1)
jika int ( asc ( tt ) ) >= 0 maka
w_cut=w_cut&tt
tc=tc+1:cc=cc+1
jika tc=2 maka
tc=0:cnum=cnum-1
berakhir jika
jika cc > 5 maka cnum = cnum - 1 : cc =
kalau tidak
angka = angka-1
jika cnum<=0 maka w_cut=w_cut&...:keluar untuk
w_cut=w_cut&tt
berakhir jika
Berikutnya
Fungsi Akhir
%>