The MASM Forum

Specialised Projects => PowerBASIC => Topic started by: hutch-- on May 23, 2012, 07:30:43 PM

Title: MORE REAL LINE NUMBERED BACIC
Post by: hutch-- on May 23, 2012, 07:30:43 PM
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