9 lines
105 B
QBasic
9 lines
105 B
QBasic
30 LET T=4
|
|
40 LET D=1
|
|
50 GOSUB 200
|
|
60 PRINT R
|
|
70 SYSTEM
|
|
200 LET R=T-D
|
|
210 IF R<0 THEN LET R=0
|
|
220 RETURN
|