2008年5月7日水曜日

TACK Local Links:ナンバーの再定義操作 テストコード

ナンバーの再定義操作命令の単体テストです
注:文字コードのエスケープ文字がバッククォートになってます
#include "write_number.hsp"
sdim dat,64000
notesel dat
noteload "dat\\HSP_LINK.txt";*1
l=notemax/10
def_write_number l
notesave "dat\\HSP_LINK11.txt"

noteload "dat\\HSP_LINK.txt";*2
repeat 15000
noteadd ":",-1
loop
def_write_number 1200
notesave "dat\\HSP_LINK12.txt"
stop

*1:ナンバーがきちんとつけられるか?のテスト
*2:ナンバーをつける数の最大が999であるか?のテスト

0 件のコメント: