123456789
1234567
12345
123
1
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
A# = 123456789
FOR I = 1 TO 5
PRINT TAB(I); A#
A# = A# \ 100
NEXT I
END SUB
10 mins
123456789
1234567
12345
123
1
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
A# = 123456789
FOR I = 1 TO 5
PRINT TAB(I); A#
A# = A# \ 100
NEXT I
END SUB
No Comments