Author Topic: MORE REAL LINE NUMBERED BACIC  (Read 4036 times)

hutch--

  • Administrator
  • Member
  • ******
  • Posts: 7448
  • Mnemonic Driven API Grinder
    • The MASM32 SDK
MORE REAL LINE NUMBERED BACIC
« on: May 23, 2012, 07:30:43 PM »
Note the UPPER CASE.   :biggrin:

Code: [Select]
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
'   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
hutch at movsd dot com
http://www.masm32.com    :biggrin:  :skrewy: