CodeBase - boombs away br production

Information

Uploaded: 7th Aug 2005 07:48

Modified: 1st Jan 1970 01:00

Author:  Anonymous Coder

Summary

rem ben rider made this copyrights reserved rem ======================================== rem DARK BASIC rem ======================================== rem ---------------------------------------- rem Set the ink to white and paper color to black ink rgb(244,214,210),1 rem Set a new font rem the new font will work with all text command but not the print command set text font "times new roman" for t =8 to 100 step 2 rem Clear the screen cls rem Set the current font size set text size t text 0,10,"MY NEW TEXT SIZE" text 0,(10+text size())+2,"FONT SIZE "+str$(text size()) rem This will delay the loop so that you can see the fonts for a= 0 to 32000:next a next t rem Will wait for you to press any key suspend for key rem End the program end

Full Description

rem ben rider made this copyrights reserved<br /> rem ========================================<br /> rem DARK BASIC <br /> rem ========================================<br /> rem ----------------------------------------<br /> <br /> rem Set the ink to white and paper color to black <br /> ink rgb(244,214,210),1<br /> <br /> rem Set a new font<br /> rem the new font will work with all text command but not the print command<br /> set text font &quot;times new roman&quot;<br /> <br /> for t =8 to 100 step 2<br /> <br /> rem Clear the screen<br /> cls<br /> <br /> rem Set the current font size<br /> set text size t<br /> <br /> text 0,10,&quot;MY NEW TEXT SIZE&quot;<br /> text 0,(10+text size())+2,&quot;FONT SIZE &quot;+str$(text size())<br /> <br /> rem This will delay the loop so that you can see the fonts<br /> for a= 0 to 32000:next a <br /> <br /> next t<br /> <br /> rem Will wait for you to press any key<br /> suspend for key<br /> <br /> rem End the program<br /> end