hspda

test1.as
#include "hspda.as" 配列変数のソート kaz=20 dim n,kaz pos 0,0 repeat kaz rnd n.cnt, 100 mes "N["+cnt+"]="+n.cnt loop sortval n,0 pos 320,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop stop
sample\hspda\test1.as - 2004/06/12

test2.as
#include "hspda.as" 文字列のソート sdim st,1000 st={"peach apple orange banana kiwi grape"} pos 0,0 mes st sortnote st,0 pos 320,0 mes st stop
sample\hspda\test2.as - 2004/06/12

test3.as
#include "hspda.as" 配列変数のソート randomize kaz=10 sdim n,32,kaz repeat kaz rnd a,20:str a n.cnt=a loop pos 0,0 repeat kaz mes "N["+cnt+"]="+n.cnt loop sortstr n,0 pos 320,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop stop
sample\hspda\test3.as - 2004/06/12

test4.as
title "num="+num+"/"+csvmax noteget cline,num csvnote data, cline objprm 0,data stop *up num+ if num>=csvmax : num=csvmax-1 goto *ok *down num- if num<0 : num=0 goto *ok
sample\hspda\test4.as - 2004/06/12

test5.as
title "num="+num+"/"+csvmax noteget cline,num csvstr data, cline repeat 10 objprm cnt, data.cnt loop stop *up num+ if num>=csvmax : num=csvmax-1 goto *ok *down num- if num<0 : num=0 goto *ok
sample\hspda\test5.as - 2004/06/12

test6.as
#include "hspda.as" xnote sample sdim buf,32000 buf="abc\ndef\nghi\n" xnotesel buf xnoteadd "jkl" mes "STAT="+stat mes buf stop
sample\hspda\test6.as - 2004/06/12