I saw on one PICK system, a precompiler language. It was the same as PICK/BASIC, but had a preprocessor to it.

So, for example to get the user number on a Universe system you would use USER.NO=@USER.NO


On a PICK system, it would be USER.NO=OCONV(0,'U50BB')

Rather than write it into the program to check what system it is on (since sometimes it could be different functions or statements used that never even compile), then would do something like:

USER.NO=%GET USERNO%

The precompiler would look at the control table and translate the '%GET USERNO%' to the appropriate statement, then compile.

I've seen software that was so generic it would run on any version of Multivalue system and sometimes even non-Multivalue systems.

Robert Norman

ROBERT NORMAN AND ASSOCIATES
23441 Golden Springs Dr., #289, Diamond Bar, CA 91765
(323) 285-7272, (951) 541-1668
i...@keyway.net
http://universe-basic-programming.webstarts.com/index.html
http://users.keyway.net/~ice/
http://www.affordablemultivalueprogramming.i8.com/
Computer programming & software development in Universe BASIC for Rocket Universe, in PICK/BASIC for Rocket D3, in UNIBASIC for Rocket Unidata, in R/BASIC (REVELATION BASIC) for REVELATION TECHOLOGIES REVELATION, in JBASIC (JBC or JBASE BASIC) for TEMENOS JBASE, in DATA/BASIC for Northgate REALITY, in MV BASIC (Multivalue Basic) for Intersystems Cache Multivalue, and
QMBASIC for Ladybridge OPENQM (QM).

On 5/12/2014 4:33 PM, Adrian Overs wrote:
What problem are you trying to solve by doing so?
After all it's not rocket science (pardon the pun) to
OPEN "BP" TO BP.FV THEN
READ R.PROG FROM BP.FV, PROG.ID ELSE ... Whatever
END

Sent from my iPad

On 13 May 2014, at 6:54 am, Wjhonson <wjhon...@aol.com> wrote:


Does anyone have a BASIC program, that will open it's own code in a variable ?
So something like this

GOSUB RETURN.A.LOCAL.FILE.AND.KEY.FOR.ME

READ THIS.PROGRAM FROM F.LOCALFILENAME, K.PROGRAMKEY ....

the program reads itself.

Does anyone have a program like that?


_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

Reply via email to