2009-02-08から1日間の記事一覧

ポケコンでお年玉付き年賀はがきの当選チェック

すっかりチェックするの忘れてました。 ポケコンでさっくりプログラムしましょー。 1000 CLEAR 1010 RESTORE 1020 DIM T(20),B$(20),L(20) 1030 FOR I=0 TO 19 1040 READ T(I),B$(I) 1050 IF T(I)=9 LET J=I-1:I=19 1060 L(I)=LEN(B$(I)) 1070 NEXT I 1100 I…