' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤' REAL LINE NUMBERED BASIC' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤0006:FUNCTION PBMAIN AS LONG0005:DIM VAR AS LONG0004:VAR = 10003:? FORMAT$(VAR)0002:VAR = VAR + 10001:IF VAR <= 10 GOTO 00030000:END FUNCTION