Code: Select all
DECLARE FUNCTION fy! (value AS SINGLE)
CLS
a! = 420.75
a! = fy(a!)
PRINT a!
FUNCTION fy (value AS SINGLE)
fy = 360 * (value / 360 - INT(value / 360))
END FUNCTION
Code: Select all
DECLARE FUNCTION fy! (value AS SINGLE)
CLS
a! = 420.75
a! = fy(a!)
PRINT a!
FUNCTION fy (value AS SINGLE)
fy = 360 * (value / 360 - INT(value / 360))
END FUNCTION
Code: Select all
CLS
INPUT "Enter pyramid lines: ", x
PRINT SPACE$(x - 1);
PRINT "*"
FOR i = 2 TO x
PRINT SPACE$(x - i);
PRINT "*";
PRINT SPACE$((i - 1) * 2 - 1);
PRINT "*"
NEXT i
END
Here's the forum you need: Other Programming LanguagesHarry Potter wrote:This is to the Administrator: Are VBDOS programs acceptable here? I have one almost finished that I want to publish.
Because there's another german qbasic community with a huge number of competent users: http://forum.qbasic.at/Flightfanatic wrote:Why is the german section closed?
Have a look on FreeBASICTraderSven wrote:Can anyone comment on Liberty Basic?
I need to handle Windows/XP long-file-names and it doesnt appear that QB 7.1 can do the job. And Ive got several thousands files, so individually RENAME'g isnt an option.
Thx
Which games? What kind of games?Mantis wrote:How do you guys think of these games...how do you think about how to make it?