Results 1 to 10 of 10
  1. #1
    Join Date
    Nov 2004
    Posts
    47

    Do you recognise this code???

    N00b question!

    Anyone know what kind of code is this? Its part of an old system that is used at my job,... (when I say old its like 15 years +). I've been asked to identify if there are any possibilities to transform this system, my first step before asking a programmer is to identify what code it is... And what kind of database is attached to it (if there is one lol).



    0010 REM "0000-ATCQCA0-ATEQ BILLING
    0070 LET X9$=R$ (4,1)
    0086 DEF FNF$ (A,A$) = P3$ (A,2) +A$+X9$+P1$

    and so on,...



    Fuujin

  2. #2
    Join Date
    Nov 2004
    Posts
    47
    other parts of code to help you identify

    thanks in advance!


    0150 OPEN (6) FNF$ (1,"L")
    0180 LET S1$=DATE (0: "%Yd%Mz%Dz")
    0200 REM

    ...

    1046 IF A7$="R" THEN LET C2=0, C3=0, C5=0, C6=0, C2=NUM (C2$, ERR=1047)

    ...

  3. #3
    Join Date
    Aug 2004
    Posts
    99
    At first sight it looks like cobol but since I've never used it (but seen other people work with it) I can't be 100% sure.

  4. #4
    Join Date
    Feb 2004
    Location
    In front of the computer
    Posts
    15,579
    It is definitely BASIC, probably M-Basic or one of its derivatives.

    -PatP

  5. #5
    Join Date
    Nov 2004
    Posts
    47
    thanx a lot !

    Is there a possibility that there is a db associated with it?

  6. #6
    Join Date
    Jan 2003
    Location
    Massachusetts
    Posts
    5,800
    I was leaning a bit toward FORTRAN, but BASIC is as close as anything else would get. As for a database associated with it, you are probably going to be looking for a few text files lying around in the same directory. Scan through for keywords "READ" and "WRITE". You will probably end up with a device number, which you would have to trace back somehow.

  7. #7
    Join Date
    Feb 2004
    Location
    In front of the computer
    Posts
    15,579
    Not exactly... M-Basic worked with flat files (both sequential and ISAM), not databases as we know them today. The code:
    Code:
    0150 OPEN (6) FNF$ (1,"L")
    is actually opening a sequential file.

    -PatP

  8. #8
    Join Date
    Sep 2003
    Location
    MN US
    Posts
    313
    Had a feeling Pat would nail this down

    If you're curious about the 5000 dialects of BASIC http://en.wikipedia.org/wiki/BASIC_programming_language

    -Chris

  9. #9
    Join Date
    Nov 2004
    Posts
    47
    thanx a lot guys!

  10. #10
    Join Date
    Nov 2002
    Location
    Jersey
    Posts
    10,322
    Man I felt like I hit a time warp....

    It's just a jump to the left.....
    Brett
    8-)

    It's a Great Day for America everybody!

    dbforums Yak CorralRadio 'Rita
    dbForums Member List
    I'm Good Once as I ever was

    The physical order of data in a database has no meaning.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •