News:

Masm32 SDK description, downloads and other helpful links
Message to All Guests

Main Menu

MORE REAL LINE NUMBERED BACIC

Started by hutch--, May 23, 2012, 07:30:43 PM

Previous topic - Next topic

hutch--

Note the UPPER CASE.   :biggrin:


' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
'   REAL LINE NUMBERED BASIC
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
0006:FUNCTION PBMAIN AS LONG
0005:DIM VAR AS LONG
0004:VAR = 1
0003:? FORMAT$(VAR)
0002:VAR = VAR + 1
0001:IF VAR <= 10 GOTO 0003
0000:END FUNCTION