rem ben rider made this copyrights reserved rem ======================================== rem DARK BASIC rem ======================================== rem --------------------------

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

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    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