LineLen 1.01 (Code) 1/2

 BBS: Inland Empire Archive
Date: 02-27-93 (23:42)             Number: 50
From: CASEY PEARSON                Refer#: NONE
  To: RYAN PARK                     Recvd: NO  
Subj: LineLen 1.01 (Code)   1/2      Conf: (2) Quik_Bas
Here is a translation to C, as requested, but it's not a total
translation.  The translator assumes certain BASIC statements are
structed a certain way, at an rate, you should be able to change where
noted, and go from there.  Good luck.

BTW, the translator is called BASTOC and can be found here.
        .....................................................

Init:
   |
unknown statement type

GetName:
      |
unknown statement type

IF FileName$ = "" GOTO NoName
                            |
numeric label expected

ON ERROR GOTO ErrName
                    |
numeric label expected

OPEN FileName$ FOR INPUT AS #1
                  |
expecting ','

DO UNTIL EOF(1)
        |
unknown statement type

LOOP
   |
unknown statement type

IF YorN$ = "Y" OR YorN$ = "y" THEN RUN ELSE SYSTEM
                                           |
Expecting an expression

NoName:
     |
unknown statement type

   SYSTEM
        |
unknown statement type

ErrName:
      |
unknown statement type

   GOTO NoName
             |
numeric label expected
char *data_stmts[] =
        {
        0
        };
extern RUN();
extern char *brd_line();
extern char *brd_str();
float ado;
float errname;
float filelen;
char * filename_;
float getname;
float init;
float loop;
float noname;
float system;
char * temp_;
char * yorn_;
static
Init:
   |
unknown statement type

GetNachar nul_str[1] = {0};
main(argc, argv)
        int argc;
        char *argv[];
        {
        bio_init(argc, argv);
/*
Init:
   |
unknown statement type
*/


        bwr_set(1);
        bwr_str("LineLen 1.01, Copyright 1992-1993, Ryan Park", 0);
        bwr_nl();
        bwr_set(1);
        bwr_nl();
/*
GetNamme:
      |
unknown statement type

IF FileName$ = "" GOTO NoName
        e:
      |
unknown statement type
*/
        do      {
                bwr_prompt("Name of file to use
[D:\\DIR\\FILENAME.EXT:]  ",1);
                brd_set(0, 1);
                filename_ = brd_str(filename_);
                } while(brd_err());
        if(-(s_comp(filename_,"")==0)) /*
IF FileName$ = "" GOTO NoName
                             |
numeric label expected

ON ERROR GOTO ErrName
                    |
numeric label expected

OPEN FileName$ FOR INPUT AS #1
                  |
expecting ','
                   |
numeric label expected
*/
/*
ON ERROR GOTO ErrName
                    |
numeric label expected
*/
/*
OPEN FileName$ FOR INPUT AS #1
                  |
expecting ','
*/
bwr_set(1);
        bwr_nl();
        bwr_set(1);
        bwr_str(filename_, 0);
        bwr_
DO UNTIL EOF(1)
        |
unknown statement type
>>> Continued to next message
...  SLMR 2.1a  It's only a hobby ... only a hobby ... only a

--- DCQwk/T.A.G.  1.5a
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET