Brother International TD-4420TN FBPL Command Reference - Page 152
If I-inti/2*2=1 Then B=b+i Else
View all Brother International TD-4420TN manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 152 highlights
Example Sample Code DOWNLOAD "DEMO.BAS" SIZE 4,4 GAP 0,0 DIRECTION 1 CLS A=0 B=0 C=0 D=0 E=0 F=0 G=0 H=0 J=0 K=0 L=0 FOR I=1 TO 100 IF I-INT(I/1)*1=0 THEN A=A+I IF I-INT(I/2)*2=1 THEN B=B+I ELSE C=C+I IF I-INT(I/3)*3=0 THEN D=D+I ENDIF IF I-INT(I/5)*5=0 THEN E=E+I ELSE F=F+I ENDIF IF I-INT(I/7)*7=0 THEN G=G+I ELSEIF I-INT(I/17)*17=0 THEN H=H+I ELSEIF I-INT(I/27)*27=0 THEN J=J+I ELSEIF I-INT(I/37)*37=0 THEN K=K+I ELSE L=L+I ENDIF NEXT TEXT 100,110,"3",0,1,1,"(1) 1+2+3+...+100="+STR$(A) TEXT 100,160,"3",0,1,1,"(2) 1+3+5+...+99="+STR$(B) TEXT 100,210,"3",0,1,1,"(3) 2+4+6+...+100="+STR$(C) TEXT 100,260,"3",0,1,1,"(4) 3+6+9+...+99="+STR$(D) TEXT 100,310,"3",0,1,1,"(5) 5+10+15+...+100="+STR$(E) TEXT 100,360,"3",0,1,1, " (1)-(5)= "+STR$(F) TEXT 100,410,"3",0,1,1,"(6) 7+14+21+...+98="+STR$(G) Result 147