Spinning rod animation/Text: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Spinning rod animation/Text in True BASIC) |
||
| Line 1,431: | Line 1,431: | ||
wait |
wait |
||
0.25</syntaxhighlight> |
0.25</syntaxhighlight> |
||
=={{header|True BASIC}}== |
|||
{{trans|FreeBASIC}} |
|||
<syntaxhighlight lang="qbasic">DEF Inkey$ |
|||
LOCAL t_arg1 |
|||
IF key input then |
|||
GET KEY t_arg1 |
|||
IF t_arg1 <= 255 then |
|||
LET inkey$ = chr$(t_arg1) |
|||
ELSE |
|||
LET inkey$ = chr$(0) & chr$(t_arg1-256) |
|||
END IF |
|||
ELSE |
|||
LET inkey$ = "" |
|||
END IF |
|||
END DEF |
|||
LET spinning$ = "|/-" & chr$(92) |
|||
DO while inkey$ = "" |
|||
CLEAR |
|||
PRINT |
|||
PRINT " hit any key to end program "; |
|||
PRINT (spinning$)[c:c+1-1] |
|||
LET c = c+1 |
|||
PAUSE .25 ! in milliseconds |
|||
IF c = 4 THEN LET c = 1 |
|||
LOOP |
|||
END</syntaxhighlight> |
|||
=={{header|Wee Basic}}== |
=={{header|Wee Basic}}== |
||