Brother International TD-4750TNWB FBPL Command Reference - Page 153

If A<100 Then Goto L1 Else Goto L2

Page 153 highlights

TEXT 100,460,"3",0,1,1,"(7) 17+34+51+...+85=" +STR$(H) TEXT 100,510,"3",0,1,1,"(8) 27+54+...+81="+STR$(J) TEXT 100,560,"3",0,1,1,"(9) 37+74="+STR$(K) TEXT 100,610,"3",0,1,1," (1)-(6)- (7)-(8)-(9)="+STR$(L) PRINT 1,1 EOP DOWNLOAD F, "TEST.BAS" SIZE 4,1 GAP 0,0 DIRECTION 1 CLS A=85 B=10 :START IF A

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208
  • 209
  • 210
  • 211
  • 212
  • 213
  • 214
  • 215
  • 216
  • 217
  • 218
  • 219
  • 220
  • 221
  • 222
  • 223
  • 224
  • 225
  • 226
  • 227
  • 228
  • 229
  • 230
  • 231
  • 232
  • 233
  • 234
  • 235
  • 236
  • 237
  • 238
  • 239
  • 240
  • 241
  • 242
  • 243
  • 244
  • 245
  • 246
  • 247
  • 248
  • 249
  • 250
  • 251
  • 252
  • 253
  • 254
  • 255
  • 256
  • 257
  • 258
  • 259
  • 260
  • 261
  • 262
  • 263
  • 264
  • 265
  • 266
  • 267
  • 268
  • 269
  • 270
  • 271
  • 272
  • 273
  • 274
  • 275
  • 276
  • 277
  • 278
  • 279
  • 280

148
TEXT
100,460,"3",0,1,1,"(7)
17+34+51+...+85=” +STR$(H)
TEXT
100,510,"3",0,1,1,"(8)
27+54+...+81="+STR$(J)
TEXT
100,560,"3",0,1,1,"(9)
37+74="+STR$(K)
TEXT 100,610,"3",0,1,1,"
(1)-(6)-
(7)-(8)-(9)=”+STR$(L)
PRINT 1,1
EOP
DOWNLOAD F, "TEST.BAS"
SIZE 4,1
GAP 0,0
DIRECTION 1
CLS
A=85
B=10
:START
IF A<100 THEN GOTO L1 ELSE GOTO L2
:L1
CLS
TEXT 100,10,"3",0,1,1,STR$(A) + " IS
SMALLER THEN 100"
PRINT 1
A=A+B
GOTO START
ENDIF
:L2
CLS
TEXT 100,10,"3",0,1,1,STR$(A) + "IS
LAGER THEN 100"
PRINT 1
EOP
TEST
Note:
If the result of the expression is nonzero, the statement following
THEN
will be executed. If the result of the
expression is zero, and the statement following the
ELSE
is present, it will be executed. Otherwise the next
line of statement is executed.
If there are block of statements in
IF…THEN …ELSE, ENDIF
must be used at the end of the
IF…THEN
…ELSE
statement.
Limitations:
The total numbers of nested
IF …THEN …ELSE
statement in a program cannot exceed 40.
The total numbers of nested
IF …THEN …ELSE, FOR…NEXT, GOSUB RETURN
in a program cannot
exceed 40 loops
.
See Also
DOWNLOAD, EOP